added validations for the Site detail region fields previously caused nasty APEX error to occur...

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3667 248e525c-4dfb-0310-94bc-949c084e9493

Screens/f155.sql

@@ -13,7 +13,7 @@ prompt  APPLICATION 155 - webmip
 -- Application Export:
 --   Application:     155
 --   Name:            webmip
---   Date and Time:   15:50 Thursday February 21, 2008
+--   Date and Time:   18:04 Thursday February 21, 2008
 --   Exported By:     PRIESTJ
 --   Flashback:       0
 --   Export Type:     Application Export
@@ -28,7 +28,7 @@ prompt  APPLICATION 155 - webmip
 --   Pages:                54
 --     Items:             338
 --     Computations:        1
---     Validations:       233
+--     Validations:       236
 --     Processes:          91
 --     Regions:            78
 --     Buttons:           118
@@ -145,7 +145,7 @@ wwv_flow_api.create_flow(
   p_default_region_template=> 24740611526526770 + wwv_flow_api.g_id_offset,
   p_error_template    => 38911722486594102 + wwv_flow_api.g_id_offset,
   p_page_protection_enabled_y_n=> 'N',
-  p_checksum_salt_last_reset => '20080221155019',
+  p_checksum_salt_last_reset => '20080221180416',
   p_home_link         => 'f?p=&APP_ID.:1',
   p_box_width         => '98%',
   p_flow_language     => 'en-gb',
@@ -187,7 +187,7 @@ wwv_flow_api.create_flow(
   p_substitution_string_01 => 'SYSTEM_ENVIRONMENT',
   p_substitution_value_01  => '(Development)',
   p_last_updated_by => 'PRIESTJ',
-  p_last_upd_yyyymmddhh24miss=> '20080221155019',
+  p_last_upd_yyyymmddhh24miss=> '20080221180416',
   p_required_roles=> wwv_flow_utilities.string_to_table2(''));
  
  
@@ -1530,11 +1530,18 @@ wwv_flow_api.create_list_of_values (
   p_lov_name => 'PRTY_ROLES',
   p_lov_query=> 'begin'||chr(10)||
 'if mip_parties.get_user_role(:APP_USER) = ''MIPADMIN'' then'||chr(10)||
-'return'||chr(10)||
+'  if :P61_PRTY_TYPE = ''MKTP'' then'||chr(10)||
-'''select DESCRIPTION display_value, CODE return_value '||chr(10)||
+'    return ''SELECT ''''Gas supplier'''' display_value, ''''SUPP'''' return_value'||chr(10)||
-'from ROLE_TYPES'||chr(10)||
+'          from dual'';'||chr(10)||
-'where upper(rt_type) = ''''PRT'''''||chr(10)||
+'  elsif :P61_PRTY_TYPE = ''MANU'' then'||chr(10)||
-'order by 1'';'||chr(10)||
+'    return ''SELECT ''''External organization'''' display_value, ''''EXTORG'''' return_value'||chr(10)||
+'          from dual'';'||chr(10)||
+'  else'||chr(10)||
+'    return ''select DESCRIPTION display_value, CODE return_value '||chr(10)||
+'              from ROLE_TYPES'||chr(10)||
+'             where upper(rt_type) = ''''PRT'''''||chr(10)||
+'             order by 1'';'||chr(10)||
+'  end if;'||chr(10)||
 'else'||chr(10)||
 '  return ''SELECT ''''Agent'''' display_value, ''''AGENT'''' return_value'||chr(10)||
 '          from dual'';'||chr(10)||
@@ -2173,6 +2180,25 @@ wwv_flow_api.create_app_comments (
   p_app_version=>'');
 end;
 /
+begin
+wwv_flow_api.create_app_comments (
+  p_id=>41037118695325569 + wwv_flow_api.g_id_offset,
+  p_flow_id=>wwv_flow.g_flow_id,
+  p_pages=>'62',
+  p_app_comment=>'Ticket #286'||chr(10)||
+''||chr(10)||
+'Changed the way the drop-down list is populated.'||chr(10)||
+''||chr(10)||
+'If attempting to create a MKTP then you are restricted to a role of Gas supplier.'||chr(10)||
+''||chr(10)||
+'If creating a MANU then restricted to a role of External organization.',
+  p_updated_on=>'2008.02.21.16:21:48',
+  p_updated_by=>'MULLENM',
+  p_created_on=>'2008.02.21.16:21:48',
+  p_created_by=>'MULLENM',
+  p_app_version=>'');
+end;
+/
  
 --application/pages/page_00000
 prompt  ...PAGE 0: system
@@ -10796,7 +10822,7 @@ wwv_flow_api.create_page(
   p_required_role => 16097609166220701+ wwv_flow_api.g_id_offset,
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'PRIESTJ',
-  p_last_upd_yyyymmddhh24miss => '20080221154642',
+  p_last_upd_yyyymmddhh24miss => '20080221180052',
   p_page_is_public_y_n=> 'N',
   p_protection_level=> 'C',
   p_page_comment  => '');
@@ -11429,6 +11455,17 @@ wwv_flow_api.create_page_branch(
   p_branch_condition=> 'P32_REQUIRED_SVCP_CODE',
   p_branch_comment=> 'Created 26-NOV-2007 15:45 by PRIESTJ');
  
+wwv_flow_api.create_page_branch(
+  p_id=>31354418922698169 + wwv_flow_api.g_id_offset,
+  p_flow_id=> wwv_flow.g_flow_id,
+  p_flow_step_id=> 32,
+  p_branch_action=> 'f?p=&APP_ID.:30:&SESSION.::&DEBUG.:::&success_msg=#SUCCESS_MSG#',
+  p_branch_point=> 'AFTER_PROCESSING',
+  p_branch_type=> 'REDIRECT_URL',
+  p_branch_when_button_id=>31354104183698139+ wwv_flow_api.g_id_offset,
+  p_branch_sequence=> 12,
+  p_branch_comment=> '');
+ 
 wwv_flow_api.create_page_branch(
   p_id=>26621402583798277 + wwv_flow_api.g_id_offset,
   p_flow_id=> wwv_flow.g_flow_id,
@@ -11437,40 +11474,7 @@ wwv_flow_api.create_page_branch(
   p_branch_point=> 'AFTER_PROCESSING',
   p_branch_type=> 'REDIRECT_URL',
   p_branch_when_button_id=>26601511471798259+ wwv_flow_api.g_id_offset,
-  p_branch_sequence=> 10,
+  p_branch_sequence=> 14,
-  p_branch_comment=> '');
- 
-wwv_flow_api.create_page_branch(
-  p_id=>26621619537798277 + wwv_flow_api.g_id_offset,
-  p_flow_id=> wwv_flow.g_flow_id,
-  p_flow_step_id=> 32,
-  p_branch_action=> 'f?p=&APP_ID.:41:&SESSION.::&DEBUG.::P41_PREVIOUS_PAGE:&APP_PAGE_ID.&success_msg=#SUCCESS_MSG#',
-  p_branch_point=> 'AFTER_PROCESSING',
-  p_branch_type=> 'REDIRECT_URL',
-  p_branch_when_button_id=>26601725488798259+ wwv_flow_api.g_id_offset,
-  p_branch_sequence=> 10,
-  p_branch_comment=> '');
- 
-wwv_flow_api.create_page_branch(
-  p_id=>28015925492078573 + wwv_flow_api.g_id_offset,
-  p_flow_id=> wwv_flow.g_flow_id,
-  p_flow_step_id=> 32,
-  p_branch_action=> 'f?p=&APP_ID.:80:&SESSION.::&DEBUG.:80:P80_ENQU_ID:&P32_ID.&success_msg=#SUCCESS_MSG#',
-  p_branch_point=> 'AFTER_PROCESSING',
-  p_branch_type=> 'REDIRECT_URL',
-  p_branch_when_button_id=>28015631689078569+ wwv_flow_api.g_id_offset,
-  p_branch_sequence=> 10,
-  p_branch_comment=> '');
- 
-wwv_flow_api.create_page_branch(
-  p_id=>31354418922698169 + wwv_flow_api.g_id_offset,
-  p_flow_id=> wwv_flow.g_flow_id,
-  p_flow_step_id=> 32,
-  p_branch_action=> 'f?p=&FLOW_ID.:30:&SESSION.::&DEBUG.&success_msg=#SUCCESS_MSG#',
-  p_branch_point=> 'AFTER_PROCESSING',
-  p_branch_type=> 'REDIRECT_URL',
-  p_branch_when_button_id=>31354104183698139+ wwv_flow_api.g_id_offset,
-  p_branch_sequence=> 10,
   p_branch_comment=> '');
  
 wwv_flow_api.create_page_branch(
@@ -11481,7 +11485,29 @@ wwv_flow_api.create_page_branch(
   p_branch_point=> 'AFTER_PROCESSING',
   p_branch_type=> 'REDIRECT_URL',
   p_branch_when_button_id=>31857019013517337+ wwv_flow_api.g_id_offset,
-  p_branch_sequence=> 10,
+  p_branch_sequence=> 16,
+  p_branch_comment=> '');
+ 
+wwv_flow_api.create_page_branch(
+  p_id=>26621619537798277 + wwv_flow_api.g_id_offset,
+  p_flow_id=> wwv_flow.g_flow_id,
+  p_flow_step_id=> 32,
+  p_branch_action=> 'f?p=&APP_ID.:41:&SESSION.::&DEBUG.::P41_PREVIOUS_PAGE:&APP_PAGE_ID.&success_msg=#SUCCESS_MSG#',
+  p_branch_point=> 'AFTER_PROCESSING',
+  p_branch_type=> 'REDIRECT_URL',
+  p_branch_when_button_id=>26601725488798259+ wwv_flow_api.g_id_offset,
+  p_branch_sequence=> 18,
+  p_branch_comment=> '');
+ 
+wwv_flow_api.create_page_branch(
+  p_id=>28015925492078573 + wwv_flow_api.g_id_offset,
+  p_flow_id=> wwv_flow.g_flow_id,
+  p_flow_step_id=> 32,
+  p_branch_action=> 'f?p=&APP_ID.:80:&SESSION.::&DEBUG.:80:P80_ENQU_ID:&P32_ID.&success_msg=#SUCCESS_MSG#',
+  p_branch_point=> 'AFTER_PROCESSING',
+  p_branch_type=> 'REDIRECT_URL',
+  p_branch_when_button_id=>28015631689078569+ wwv_flow_api.g_id_offset,
+  p_branch_sequence=> 20,
   p_branch_comment=> '');
  
 wwv_flow_api.create_page_branch(
@@ -11516,6 +11542,16 @@ wwv_flow_api.create_page_branch(
   p_branch_sequence=> 500,
   p_branch_comment=> '');
  
+wwv_flow_api.create_page_branch(
+  p_id=>40943215953201689 + wwv_flow_api.g_id_offset,
+  p_flow_id=> wwv_flow.g_flow_id,
+  p_flow_step_id=> 32,
+  p_branch_action=> 'f?p=155:32:&SESSION.#jobinfo',
+  p_branch_point=> 'AFTER_PROCESSING',
+  p_branch_type=> 'REDIRECT_URL',
+  p_branch_sequence=> 510,
+  p_branch_comment=> 'Created 21-FEB-2008 16:00 by PRIESTJ');
+ 
  
 end;
 /
@@ -12713,7 +12749,7 @@ wwv_flow_api.create_page_item(
   p_lov_display_null=> 'NO',
   p_lov_translated=> 'N',
   p_cSize=> 32,
-  p_cMaxlength=> 255,
+  p_cMaxlength=> 30,
   p_cHeight=> 1,
   p_begin_on_new_line => 'YES',
   p_begin_on_new_field=> 'YES',
@@ -12764,7 +12800,7 @@ wwv_flow_api.create_page_item(
   p_lov_display_null=> 'NO',
   p_lov_translated=> 'N',
   p_cSize=> 50,
-  p_cMaxlength=> 250,
+  p_cMaxlength=> 210,
   p_cHeight=> 2,
   p_begin_on_new_line => 'YES',
   p_begin_on_new_field=> 'YES',
@@ -13473,7 +13509,7 @@ wwv_flow_api.create_page_item(
   p_lov_display_null=> 'NO',
   p_lov_translated=> 'N',
   p_cSize=> 30,
-  p_cMaxlength=> 2000,
+  p_cMaxlength=> 35,
   p_cHeight=> 5,
   p_cAttributes=> 'nowrap="nowrap"',
   p_begin_on_new_line => 'YES',
@@ -18125,6 +18161,78 @@ end;
 /
 
  
+begin
+ 
+wwv_flow_api.create_page_validation(
+  p_id => 41166830440802003 + wwv_flow_api.g_id_offset,
+  p_flow_id => wwv_flow.g_flow_id,
+  p_flow_step_id => 32,
+  p_validation_name => 'Access Instructions limit to 210 chars',
+  p_validation_sequence=> 1680,
+  p_validation => 'if length(:P32_ACCESS_ADDITIONAL) > 210 then'||chr(10)||
+'   return ''Limit of 210 chars'';'||chr(10)||
+'else'||chr(10)||
+'   return null;'||chr(10)||
+'end if;',
+  p_validation_type => 'FUNC_BODY_RETURNING_ERR_TEXT',
+  p_error_message => '',
+  p_associated_item=> 26605928498798264 + wwv_flow_api.g_id_offset,
+  p_error_display_location=>'INLINE_WITH_FIELD_AND_NOTIFICATION',
+  p_validation_comment=> '');
+ 
+null;
+ 
+end;
+/
+
+ 
+begin
+ 
+wwv_flow_api.create_page_validation(
+  p_id => 41168811787825027 + wwv_flow_api.g_id_offset,
+  p_flow_id => wwv_flow.g_flow_id,
+  p_flow_step_id => 32,
+  p_validation_name => 'MPRN a number (up to 30 digits)',
+  p_validation_sequence=> 1690,
+  p_validation => 'P32_MPRN',
+  p_validation2 => '^[[:digit:]]{0,30}$',
+  p_validation_type => 'REGULAR_EXPRESSION',
+  p_error_message => 'Must be a number(up to 30 digits)',
+  p_associated_item=> 26606111771798264 + wwv_flow_api.g_id_offset,
+  p_error_display_location=>'INLINE_WITH_FIELD_AND_NOTIFICATION',
+  p_validation_comment=> 'When checking for numeric values, typically PL/SQL will throw an exception, unfortunately this is not what we want as we get a nasty error when trying to run AH''s handy validation routine.  So we set those fields that are dates or numbers to check if they are numbers if not then we display an error, we''ve set a condition on AH''s routine and others to only run if there are no errors on the page and this way we avoid the exception raising and can validate safely.');
+ 
+null;
+ 
+end;
+/
+
+ 
+begin
+ 
+wwv_flow_api.create_page_validation(
+  p_id => 41199805693908489 + wwv_flow_api.g_id_offset,
+  p_flow_id => wwv_flow.g_flow_id,
+  p_flow_step_id => 32,
+  p_validation_name => 'MPRN_ALT limit to 250 chars',
+  p_validation_sequence=> 1700,
+  p_validation => 'if length(:P32_MPRN_ALT) > 250 then'||chr(10)||
+'   return ''Limit of 250 chars'';'||chr(10)||
+'else'||chr(10)||
+'   return null;'||chr(10)||
+'end if;',
+  p_validation_type => 'FUNC_BODY_RETURNING_ERR_TEXT',
+  p_error_message => '',
+  p_associated_item=> 26606304208798264 + wwv_flow_api.g_id_offset,
+  p_error_display_location=>'INLINE_WITH_FIELD_AND_NOTIFICATION',
+  p_validation_comment=> '');
+ 
+null;
+ 
+end;
+/
+
+ 
 begin
  
 declare
@@ -29036,7 +29144,7 @@ wwv_flow_api.create_page(
   p_step_template => '',
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'MULLENM',
-  p_last_upd_yyyymmddhh24miss => '20080220094428',
+  p_last_upd_yyyymmddhh24miss => '20080221161736',
   p_page_is_public_y_n=> 'N',
   p_page_comment  => '');
  
@@ -29353,11 +29461,18 @@ wwv_flow_api.create_page_item(
   p_named_lov=> 'PRTY_ROLES',
   p_lov => 'begin'||chr(10)||
 'if mip_parties.get_user_role(:APP_USER) = ''MIPADMIN'' then'||chr(10)||
-'return'||chr(10)||
+'  if :P61_PRTY_TYPE = ''MKTP'' then'||chr(10)||
-'''select DESCRIPTION display_value, CODE return_value '||chr(10)||
+'    return ''SELECT ''''Gas supplier'''' display_value, ''''SUPP'''' return_value'||chr(10)||
-'from ROLE_TYPES'||chr(10)||
+'          from dual'';'||chr(10)||
-'where upper(rt_type) = ''''PRT'''''||chr(10)||
+'  elsif :P61_PRTY_TYPE = ''MANU'' then'||chr(10)||
-'order by 1'';'||chr(10)||
+'    return ''SELECT ''''External organization'''' display_value, ''''EXTORG'''' return_value'||chr(10)||
+'          from dual'';'||chr(10)||
+'  else'||chr(10)||
+'    return ''select DESCRIPTION display_value, CODE return_value '||chr(10)||
+'              from ROLE_TYPES'||chr(10)||
+'             where upper(rt_type) = ''''PRT'''''||chr(10)||
+'             order by 1'';'||chr(10)||
+'  end if;'||chr(10)||
 'else'||chr(10)||
 '  return ''SELECT ''''Agent'''' display_value, ''''AGENT'''' return_value'||chr(10)||
 '          from dual'';'||chr(10)||