636: style_error exception;
637: srw_style_error exception;
638: printer_styl_error exception;
639: insert_error exception;
640: dual_no_rows exception;
641: dual_too_many_rows exception;
642: nls_error exception;
643: appl_prog_error exception;
644: already_msg exception;
637: srw_style_error exception;
638: printer_styl_error exception;
639: insert_error exception;
640: dual_no_rows exception;
641: dual_too_many_rows exception;
642: nls_error exception;
643: appl_prog_error exception;
644: already_msg exception;
645: program_not_found exception;
739: begin
740: select substr(userenv('LANGUAGE'),1,
741: instr(userenv('LANGUAGE'), '_') -1)
742: into P_LANGUAGE
743: from dual;
744:
745: exception
746: when no_data_found then
747: raise nls_error;
757: instr ( userenv('LANGUAGE') , '_') + 1,
758: (instr ( userenv('LANGUAGE') , '.') - 1 -
759: instr ( userenv('LANGUAGE') , '_') ))
760: into P_TERRITORY
761: from dual;
762:
763: exception
764: when no_data_found then
765: raise nls_error;
1112: submit_program.argument97, submit_program.argument98,
1113: submit_program.argument99, submit_program.argument100,
1114: P_ORG_ID,
1115: P_NUMERIC_CHARACTERS
1116: from sys.dual;
1117:
1118: if (sql%rowcount = 0) then
1119: raise insert_error;
1120: end if;
1168: fnd_message.set_token (
1169: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1170: init_pvt_vars(TRUE);
1171: return (FALSE);
1172: when dual_no_rows then
1173: fnd_message.set_name ('FND', 'No Rows in SYS.Dual');
1174: init_pvt_vars(TRUE);
1175: return (FALSE);
1176: when dual_too_many_rows then
1169: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1170: init_pvt_vars(TRUE);
1171: return (FALSE);
1172: when dual_no_rows then
1173: fnd_message.set_name ('FND', 'No Rows in SYS.Dual');
1174: init_pvt_vars(TRUE);
1175: return (FALSE);
1176: when dual_too_many_rows then
1177: fnd_message.set_name ('FND', 'Too many rows in SYS.Dual');
1172: when dual_no_rows then
1173: fnd_message.set_name ('FND', 'No Rows in SYS.Dual');
1174: init_pvt_vars(TRUE);
1175: return (FALSE);
1176: when dual_too_many_rows then
1177: fnd_message.set_name ('FND', 'Too many rows in SYS.Dual');
1178: init_pvt_vars(TRUE);
1179: return (FALSE);
1180: when already_msg then
1173: fnd_message.set_name ('FND', 'No Rows in SYS.Dual');
1174: init_pvt_vars(TRUE);
1175: return (FALSE);
1176: when dual_too_many_rows then
1177: fnd_message.set_name ('FND', 'Too many rows in SYS.Dual');
1178: init_pvt_vars(TRUE);
1179: return (FALSE);
1180: when already_msg then
1181: init_pvt_vars(TRUE);