1056: raise printer_error;
1057: elsif (P_VALIDATE_PRINTER = 'SKIP') then
1058: if (FND_LOG.LEVEL_EVENT >=
1059: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1060: fnd_message.set_name('FND','CONC-Illegal printer spec');
1061: fnd_log.message(FND_LOG.LEVEL_EVENT,
1062: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1063: end if;
1064: GOTO next_iteration;
1064: GOTO next_iteration;
1065: else -- P_VALIDATE_PRINTER = 'RESOLVE'
1066: if (FND_LOG.LEVEL_EVENT >=
1067: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1068: fnd_message.set_name ('FND',
1069: 'CONC-Illegal printer spec');
1070: fnd_log.message(FND_LOG.LEVEL_EVENT,
1071: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1072: fnd_log.string(FND_LOG.LEVEL_EVENT,
1106: -- If we still intend to print, bad news.
1107: if (prtflg = 'Y') then
1108:
1109: -- Check for message on stack
1110: encoded_msg := FND_MESSAGE.GET_ENCODED;
1111: if (encoded_msg is not null) then
1112: FND_MESSAGE.SET_ENCODED(encoded_msg);
1113: raise already_msg;
1114: end if;
1108:
1109: -- Check for message on stack
1110: encoded_msg := FND_MESSAGE.GET_ENCODED;
1111: if (encoded_msg is not null) then
1112: FND_MESSAGE.SET_ENCODED(encoded_msg);
1113: raise already_msg;
1114: end if;
1115:
1116: raise printer_styl_error;
1180: valid_style);
1181:
1182: if ((valid_style is null) or (not styl_ok)) then
1183: -- Check for message on stack
1184: encoded_msg := FND_MESSAGE.GET_ENCODED;
1185: if (encoded_msg is not null) then
1186: FND_MESSAGE.SET_ENCODED(encoded_msg);
1187: raise already_msg;
1188: end if;
1182: if ((valid_style is null) or (not styl_ok)) then
1183: -- Check for message on stack
1184: encoded_msg := FND_MESSAGE.GET_ENCODED;
1185: if (encoded_msg is not null) then
1186: FND_MESSAGE.SET_ENCODED(encoded_msg);
1187: raise already_msg;
1188: end if;
1189:
1190: raise srw_style_error;
2051: return (cur_request_id);
2052:
2053: exception
2054: when printer_error then
2055: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
2056: return (0);
2057: when style_error then
2058: fnd_message.set_name ('FND', 'SRS-Must specify print style');
2059: return (0);
2054: when printer_error then
2055: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
2056: return (0);
2057: when style_error then
2058: fnd_message.set_name ('FND', 'SRS-Must specify print style');
2059: return (0);
2060: when printer_styl_error then
2061: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2062: fnd_message.set_token ('STYLE', print_style, FALSE);
2057: when style_error then
2058: fnd_message.set_name ('FND', 'SRS-Must specify print style');
2059: return (0);
2060: when printer_styl_error then
2061: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2062: fnd_message.set_token ('STYLE', print_style, FALSE);
2063: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
2064: return (0);
2065: when srw_style_error then
2058: fnd_message.set_name ('FND', 'SRS-Must specify print style');
2059: return (0);
2060: when printer_styl_error then
2061: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2062: fnd_message.set_token ('STYLE', print_style, FALSE);
2063: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
2064: return (0);
2065: when srw_style_error then
2066: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
2059: return (0);
2060: when printer_styl_error then
2061: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2062: fnd_message.set_token ('STYLE', print_style, FALSE);
2063: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
2064: return (0);
2065: when srw_style_error then
2066: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
2067: return (0);
2062: fnd_message.set_token ('STYLE', print_style, FALSE);
2063: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
2064: return (0);
2065: when srw_style_error then
2066: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
2067: return (0);
2068: when oracle_name_error then
2069: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
2070: return (0);
2065: when srw_style_error then
2066: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
2067: return (0);
2068: when oracle_name_error then
2069: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
2070: return (0);
2071: when start_time_error then
2072: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
2073: fnd_message.set_token ('START_DATE', requested_start, FALSE);
2068: when oracle_name_error then
2069: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
2070: return (0);
2071: when start_time_error then
2072: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
2073: fnd_message.set_token ('START_DATE', requested_start, FALSE);
2074: return (0);
2075: when dup_val_on_index then
2076: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
2069: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
2070: return (0);
2071: when start_time_error then
2072: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
2073: fnd_message.set_token ('START_DATE', requested_start, FALSE);
2074: return (0);
2075: when dup_val_on_index then
2076: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
2077: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
2072: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
2073: fnd_message.set_token ('START_DATE', requested_start, FALSE);
2074: return (0);
2075: when dup_val_on_index then
2076: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
2077: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
2078: return (0);
2079: when nls_error then
2080: fnd_message.set_name ('FND', 'GLI-Not found');
2073: fnd_message.set_token ('START_DATE', requested_start, FALSE);
2074: return (0);
2075: when dup_val_on_index then
2076: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
2077: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
2078: return (0);
2079: when nls_error then
2080: fnd_message.set_name ('FND', 'GLI-Not found');
2081: return (0);
2076: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
2077: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
2078: return (0);
2079: when nls_error then
2080: fnd_message.set_name ('FND', 'GLI-Not found');
2081: return (0);
2082: when appl_prog_error then -- Appl or program invalid
2083: begin -- Is the appl short name correct?
2084: Select Application_ID
2087: Where Application_Short_Name = upper (application);
2088:
2089: exception
2090: when no_data_found then
2091: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
2092: fnd_message.set_token ('APPLNAME', application, FALSE);
2093: return (0);
2094: when others then
2095: fnd_message.set_name ('FND', 'SQL-Generic error');
2088:
2089: exception
2090: when no_data_found then
2091: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
2092: fnd_message.set_token ('APPLNAME', application, FALSE);
2093: return (0);
2094: when others then
2095: fnd_message.set_name ('FND', 'SQL-Generic error');
2096: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2091: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
2092: fnd_message.set_token ('APPLNAME', application, FALSE);
2093: return (0);
2094: when others then
2095: fnd_message.set_name ('FND', 'SQL-Generic error');
2096: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2097: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2098: fnd_message.set_token (
2099: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
2092: fnd_message.set_token ('APPLNAME', application, FALSE);
2093: return (0);
2094: when others then
2095: fnd_message.set_name ('FND', 'SQL-Generic error');
2096: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2097: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2098: fnd_message.set_token (
2099: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
2100: return (0);
2093: return (0);
2094: when others then
2095: fnd_message.set_name ('FND', 'SQL-Generic error');
2096: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2097: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2098: fnd_message.set_token (
2099: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
2100: return (0);
2101: end; -- Is the appl short name correct?
2094: when others then
2095: fnd_message.set_name ('FND', 'SQL-Generic error');
2096: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2097: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2098: fnd_message.set_token (
2099: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
2100: return (0);
2101: end; -- Is the appl short name correct?
2102:
2100: return (0);
2101: end; -- Is the appl short name correct?
2102:
2103: -- It must be the program
2104: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
2105: fnd_message.set_token ('PROGRAM', program, FALSE);
2106: return (0);
2107:
2108: when insert_error then -- Find the problem
2101: end; -- Is the appl short name correct?
2102:
2103: -- It must be the program
2104: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
2105: fnd_message.set_token ('PROGRAM', program, FALSE);
2106: return (0);
2107:
2108: when insert_error then -- Find the problem
2109: begin -- Is the program enabled?
2115: And Enabled_Flag = 'Y';
2116:
2117: exception
2118: when no_data_found then
2119: fnd_message.set_name ('FND', 'CONC-Conc program disabled');
2120: fnd_message.set_token ('PROGRAM', program, FALSE);
2121: return (0);
2122: when others then
2123: fnd_message.set_name ('FND', 'SQL-Generic error');
2116:
2117: exception
2118: when no_data_found then
2119: fnd_message.set_name ('FND', 'CONC-Conc program disabled');
2120: fnd_message.set_token ('PROGRAM', program, FALSE);
2121: return (0);
2122: when others then
2123: fnd_message.set_name ('FND', 'SQL-Generic error');
2124: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2119: fnd_message.set_name ('FND', 'CONC-Conc program disabled');
2120: fnd_message.set_token ('PROGRAM', program, FALSE);
2121: return (0);
2122: when others then
2123: fnd_message.set_name ('FND', 'SQL-Generic error');
2124: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2125: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2126: fnd_message.set_token (
2127: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2120: fnd_message.set_token ('PROGRAM', program, FALSE);
2121: return (0);
2122: when others then
2123: fnd_message.set_name ('FND', 'SQL-Generic error');
2124: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2125: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2126: fnd_message.set_token (
2127: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2128: return (0);
2121: return (0);
2122: when others then
2123: fnd_message.set_name ('FND', 'SQL-Generic error');
2124: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2125: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2126: fnd_message.set_token (
2127: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2128: return (0);
2129: end; -- Is the program enabled?
2122: when others then
2123: fnd_message.set_name ('FND', 'SQL-Generic error');
2124: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2125: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2126: fnd_message.set_token (
2127: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2128: return (0);
2129: end; -- Is the program enabled?
2130:
2128: return (0);
2129: end; -- Is the program enabled?
2130:
2131: when args_insert_error then
2132: fnd_message.set_name ('FND', 'SQL-Generic error');
2133: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2134: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2135: fnd_message.set_token (
2136: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2129: end; -- Is the program enabled?
2130:
2131: when args_insert_error then
2132: fnd_message.set_name ('FND', 'SQL-Generic error');
2133: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2134: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2135: fnd_message.set_token (
2136: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2137: return (0);
2130:
2131: when args_insert_error then
2132: fnd_message.set_name ('FND', 'SQL-Generic error');
2133: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2134: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2135: fnd_message.set_token (
2136: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2137: return (0);
2138: when login_insert_error then
2131: when args_insert_error then
2132: fnd_message.set_name ('FND', 'SQL-Generic error');
2133: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2134: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2135: fnd_message.set_token (
2136: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2137: return (0);
2138: when login_insert_error then
2139: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2135: fnd_message.set_token (
2136: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2137: return (0);
2138: when login_insert_error then
2139: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2140: fnd_message.set_token ('LOGIN', loginid, FALSE);
2141: return (0);
2142: when relclass_insert_error then
2143: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2136: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2137: return (0);
2138: when login_insert_error then
2139: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2140: fnd_message.set_token ('LOGIN', loginid, FALSE);
2141: return (0);
2142: when relclass_insert_error then
2143: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2144: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2139: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2140: fnd_message.set_token ('LOGIN', loginid, FALSE);
2141: return (0);
2142: when relclass_insert_error then
2143: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2144: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2145: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2146: return (0);
2147: when dual_no_rows then
2140: fnd_message.set_token ('LOGIN', loginid, FALSE);
2141: return (0);
2142: when relclass_insert_error then
2143: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2144: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2145: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2146: return (0);
2147: when dual_no_rows then
2148: fnd_message.set_name ('FND', 'No Rows in Dual');
2141: return (0);
2142: when relclass_insert_error then
2143: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2144: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2145: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2146: return (0);
2147: when dual_no_rows then
2148: fnd_message.set_name ('FND', 'No Rows in Dual');
2149: return (0);
2144: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2145: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2146: return (0);
2147: when dual_no_rows then
2148: fnd_message.set_name ('FND', 'No Rows in Dual');
2149: return (0);
2150: when dual_too_many_rows then
2151: fnd_message.set_name ('FND', 'Too many rows in Dual');
2152: return (0);
2147: when dual_no_rows then
2148: fnd_message.set_name ('FND', 'No Rows in Dual');
2149: return (0);
2150: when dual_too_many_rows then
2151: fnd_message.set_name ('FND', 'Too many rows in Dual');
2152: return (0);
2153: when already_msg then
2154: return (0);
2155: when pp_plsql_exception then
2152: return (0);
2153: when already_msg then
2154: return (0);
2155: when pp_plsql_exception then
2156: fnd_message.set_name ('FND', 'CONC-assign pp action failed');
2157: return (0);
2158: when conc_deferred_insert_error then
2159: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2160: fnd_message.set_token ('APPLICATION', application, FALSE);
2155: when pp_plsql_exception then
2156: fnd_message.set_name ('FND', 'CONC-assign pp action failed');
2157: return (0);
2158: when conc_deferred_insert_error then
2159: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2160: fnd_message.set_token ('APPLICATION', application, FALSE);
2161: fnd_message.set_token ('PROGRAM', program, FALSE);
2162: return (0);
2163: when mult_pending_request_error then
2156: fnd_message.set_name ('FND', 'CONC-assign pp action failed');
2157: return (0);
2158: when conc_deferred_insert_error then
2159: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2160: fnd_message.set_token ('APPLICATION', application, FALSE);
2161: fnd_message.set_token ('PROGRAM', program, FALSE);
2162: return (0);
2163: when mult_pending_request_error then
2164: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2157: return (0);
2158: when conc_deferred_insert_error then
2159: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2160: fnd_message.set_token ('APPLICATION', application, FALSE);
2161: fnd_message.set_token ('PROGRAM', program, FALSE);
2162: return (0);
2163: when mult_pending_request_error then
2164: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2165: fnd_message.set_token ('PROGRAM', program, FALSE);
2160: fnd_message.set_token ('APPLICATION', application, FALSE);
2161: fnd_message.set_token ('PROGRAM', program, FALSE);
2162: return (0);
2163: when mult_pending_request_error then
2164: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2165: fnd_message.set_token ('PROGRAM', program, FALSE);
2166: return (0);
2167: when others then
2168: fnd_message.set_name ('FND', 'SQL-Generic error');
2161: fnd_message.set_token ('PROGRAM', program, FALSE);
2162: return (0);
2163: when mult_pending_request_error then
2164: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2165: fnd_message.set_token ('PROGRAM', program, FALSE);
2166: return (0);
2167: when others then
2168: fnd_message.set_name ('FND', 'SQL-Generic error');
2169: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2164: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2165: fnd_message.set_token ('PROGRAM', program, FALSE);
2166: return (0);
2167: when others then
2168: fnd_message.set_name ('FND', 'SQL-Generic error');
2169: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2170: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2171: fnd_message.set_token (
2172: 'ROUTINE', 'SUBMIT: others', FALSE);
2165: fnd_message.set_token ('PROGRAM', program, FALSE);
2166: return (0);
2167: when others then
2168: fnd_message.set_name ('FND', 'SQL-Generic error');
2169: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2170: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2171: fnd_message.set_token (
2172: 'ROUTINE', 'SUBMIT: others', FALSE);
2173: return (0);
2166: return (0);
2167: when others then
2168: fnd_message.set_name ('FND', 'SQL-Generic error');
2169: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2170: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2171: fnd_message.set_token (
2172: 'ROUTINE', 'SUBMIT: others', FALSE);
2173: return (0);
2174:
2167: when others then
2168: fnd_message.set_name ('FND', 'SQL-Generic error');
2169: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2170: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2171: fnd_message.set_token (
2172: 'ROUTINE', 'SUBMIT: others', FALSE);
2173: return (0);
2174:
2175: end submit;
2604: return reqid;
2605:
2606: exception
2607: when others then
2608: fnd_message.set_name ('FND', 'SQL-Generic error');
2609: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2610: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2611: fnd_message.set_token ('ROUTINE', 'FND_REQUEST.SUBMIT_MLS_REQUEST', FALSE);
2612: return (0);
2605:
2606: exception
2607: when others then
2608: fnd_message.set_name ('FND', 'SQL-Generic error');
2609: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2610: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2611: fnd_message.set_token ('ROUTINE', 'FND_REQUEST.SUBMIT_MLS_REQUEST', FALSE);
2612: return (0);
2613:
2606: exception
2607: when others then
2608: fnd_message.set_name ('FND', 'SQL-Generic error');
2609: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2610: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2611: fnd_message.set_token ('ROUTINE', 'FND_REQUEST.SUBMIT_MLS_REQUEST', FALSE);
2612: return (0);
2613:
2614:
2607: when others then
2608: fnd_message.set_name ('FND', 'SQL-Generic error');
2609: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2610: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2611: fnd_message.set_token ('ROUTINE', 'FND_REQUEST.SUBMIT_MLS_REQUEST', FALSE);
2612: return (0);
2613:
2614:
2615: end;
2670: P_IMPLICIT := 'Y';
2671: elsif (upper (implicit) = 'ERROR') then
2672: P_IMPLICIT := 'E';
2673: else
2674: Fnd_Message.Set_Name ('FND', 'CONC-Bad implicit argument');
2675: init_pvt_vars;
2676: return (FALSE);
2677: end if;
2678:
2729: return (TRUE);
2730:
2731: exception
2732: when nls_error then
2733: fnd_message.set_name ('FND', 'GLI-Not found');
2734: return(FALSE);
2735:
2736: end set_options;
2737:
2828: return (TRUE);
2829:
2830: exception
2831: when rpt_time_intvl then
2832: fnd_message.set_name ('FND', 'CONC-Time and interval set');
2833: init_pvt_vars;
2834: return (FALSE);
2835:
2836: when rpt_type_error then
2833: init_pvt_vars;
2834: return (FALSE);
2835:
2836: when rpt_type_error then
2837: fnd_message.set_name ('FND', 'CONC-Bad resubmit type');
2838: init_pvt_vars;
2839: return (FALSE);
2840:
2841: when no_data_found then
2838: init_pvt_vars;
2839: return (FALSE);
2840:
2841: when no_data_found then
2842: fnd_message.set_name ('FND', 'CONC-Bad resubmit unit');
2843: init_pvt_vars;
2844: return (FALSE);
2845:
2846: when others then
2844: return (FALSE);
2845:
2846: when others then
2847: if (rpt_time_error) then
2848: fnd_message.set_name ('FND', 'CONC-Invalid resubmit time');
2849: else
2850: fnd_message.set_name ('FND', 'CONC-Invalid Resub End Date');
2851: end if;
2852: init_pvt_vars;
2846: when others then
2847: if (rpt_time_error) then
2848: fnd_message.set_name ('FND', 'CONC-Invalid resubmit time');
2849: else
2850: fnd_message.set_name ('FND', 'CONC-Invalid Resub End Date');
2851: end if;
2852: init_pvt_vars;
2853: return (FALSE);
2854: end set_repeat_options;
2938: return (TRUE);
2939:
2940: exception
2941: when stale_date_error then
2942: fnd_message.set_name ('FND', 'CONC-Bad Stale Date');
2943: init_pvt_vars;
2944: return (FALSE);
2945:
2946: when appl_class_error then
2943: init_pvt_vars;
2944: return (FALSE);
2945:
2946: when appl_class_error then
2947: fnd_message.set_name ('FND', 'CONC-Bad Release Class');
2948: init_pvt_vars;
2949: return (FALSE);
2950:
2951: when others then
2986: from fnd_nodes
2987: where upper(node_name) = upper(node_name1);
2988: exception
2989: when no_data_found then
2990: fnd_message.set_name ('FND', 'CONC-Node not found');
2991: fnd_message.set_token ('NODE_NAME', node_name1, FALSE);
2992: raise;
2993: end;
2994: end if;
2987: where upper(node_name) = upper(node_name1);
2988: exception
2989: when no_data_found then
2990: fnd_message.set_name ('FND', 'CONC-Node not found');
2991: fnd_message.set_token ('NODE_NAME', node_name1, FALSE);
2992: raise;
2993: end;
2994: end if;
2995:
3000: from v$thread
3001: where upper(instance) = upper(instance1);
3002: exception
3003: when no_data_found then
3004: fnd_message.set_name ('FND', 'CONC-Instance not found');
3005: fnd_message.set_token ('INSTANCE_NAME', instance1, FALSE);
3006: raise;
3007: end;
3008: end if;
3001: where upper(instance) = upper(instance1);
3002: exception
3003: when no_data_found then
3004: fnd_message.set_name ('FND', 'CONC-Instance not found');
3005: fnd_message.set_token ('INSTANCE_NAME', instance1, FALSE);
3006: raise;
3007: end;
3008: end if;
3009:
3175: return (TRUE);
3176:
3177: exception
3178: when validate_printer_error then
3179: fnd_message.set_name ('FND', 'CONC-Bad Validate Printer Parm');
3180: init_pvt_vars;
3181: return (FALSE);
3182:
3183: when print_together_error then
3180: init_pvt_vars;
3181: return (FALSE);
3182:
3183: when print_together_error then
3184: fnd_message.set_name ('FND', 'CONC-Invalid opt:Print Group');
3185: init_pvt_vars;
3186: return (FALSE);
3187:
3188: when printer_error then
3185: init_pvt_vars;
3186: return (FALSE);
3187:
3188: when printer_error then
3189: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
3190: fnd_message.set_token ('PRINTER', printer, FALSE);
3191: init_pvt_vars;
3192: return (FALSE);
3193:
3186: return (FALSE);
3187:
3188: when printer_error then
3189: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
3190: fnd_message.set_token ('PRINTER', printer, FALSE);
3191: init_pvt_vars;
3192: return (FALSE);
3193:
3194: when style_error then
3191: init_pvt_vars;
3192: return (FALSE);
3193:
3194: when style_error then
3195: fnd_message.set_name ('FND', 'PRT-Invalid print style');
3196: fnd_message.set_token ('STYLE', style, FALSE);
3197: init_pvt_vars;
3198: return (FALSE);
3199:
3192: return (FALSE);
3193:
3194: when style_error then
3195: fnd_message.set_name ('FND', 'PRT-Invalid print style');
3196: fnd_message.set_token ('STYLE', style, FALSE);
3197: init_pvt_vars;
3198: return (FALSE);
3199:
3200: when printer_style_error then
3197: init_pvt_vars;
3198: return (FALSE);
3199:
3200: when printer_style_error then
3201: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
3202: fnd_message.set_token ('STYLE', style, FALSE);
3203: fnd_message.set_token ('PRINTER', printer, FALSE);
3204: init_pvt_vars;
3205: return (FALSE);
3198: return (FALSE);
3199:
3200: when printer_style_error then
3201: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
3202: fnd_message.set_token ('STYLE', style, FALSE);
3203: fnd_message.set_token ('PRINTER', printer, FALSE);
3204: init_pvt_vars;
3205: return (FALSE);
3206:
3199:
3200: when printer_style_error then
3201: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
3202: fnd_message.set_token ('STYLE', style, FALSE);
3203: fnd_message.set_token ('PRINTER', printer, FALSE);
3204: init_pvt_vars;
3205: return (FALSE);
3206:
3207: when others then
3205: return (FALSE);
3206:
3207: when others then
3208: init_pvt_vars;
3209: fnd_message.set_name ('FND', 'SQL-Generic error');
3210: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3211: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3212: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3213: return (FALSE);
3206:
3207: when others then
3208: init_pvt_vars;
3209: fnd_message.set_name ('FND', 'SQL-Generic error');
3210: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3211: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3212: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3213: return (FALSE);
3214: end set_print_options;
3207: when others then
3208: init_pvt_vars;
3209: fnd_message.set_name ('FND', 'SQL-Generic error');
3210: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3211: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3212: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3213: return (FALSE);
3214: end set_print_options;
3215:
3208: init_pvt_vars;
3209: fnd_message.set_name ('FND', 'SQL-Generic error');
3210: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3211: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3212: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3213: return (FALSE);
3214: end set_print_options;
3215:
3216:
3242:
3243: if ((reqid <= 0) or (reqid is null))
3244: then
3245: init_pvt_vars;
3246: fnd_message.set_name('FND', 'CONC-REQUEST MISSING');
3247: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
3248: return (FALSE);
3249: end if;
3250:
3243: if ((reqid <= 0) or (reqid is null))
3244: then
3245: init_pvt_vars;
3246: fnd_message.set_name('FND', 'CONC-REQUEST MISSING');
3247: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
3248: return (FALSE);
3249: end if;
3250:
3251: -- clear out notifications
3266:
3267: exception
3268: when others then
3269: init_pvt_vars;
3270: fnd_message.set_name ('FND', 'SQL-Generic error');
3271: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3272: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3273: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
3274: return (FALSE);
3267: exception
3268: when others then
3269: init_pvt_vars;
3270: fnd_message.set_name ('FND', 'SQL-Generic error');
3271: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3272: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3273: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
3274: return (FALSE);
3275:
3268: when others then
3269: init_pvt_vars;
3270: fnd_message.set_name ('FND', 'SQL-Generic error');
3271: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3272: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3273: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
3274: return (FALSE);
3275:
3276: end use_current_notification;
3269: init_pvt_vars;
3270: fnd_message.set_name ('FND', 'SQL-Generic error');
3271: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3272: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3273: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
3274: return (FALSE);
3275:
3276: end use_current_notification;
3277:
3355: return (TRUE);
3356:
3357: exception
3358: when print_together_error then
3359: fnd_message.set_name ('FND', 'CONC-Invalid opt:Print Group');
3360: init_pvt_vars;
3361: return (FALSE);
3362:
3363: when printer_error then
3360: init_pvt_vars;
3361: return (FALSE);
3362:
3363: when printer_error then
3364: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
3365: fnd_message.set_token ('PRINTER', printer, FALSE);
3366: init_pvt_vars;
3367: return (FALSE);
3368:
3361: return (FALSE);
3362:
3363: when printer_error then
3364: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
3365: fnd_message.set_token ('PRINTER', printer, FALSE);
3366: init_pvt_vars;
3367: return (FALSE);
3368:
3369: when style_error then
3366: init_pvt_vars;
3367: return (FALSE);
3368:
3369: when style_error then
3370: fnd_message.set_name ('FND', 'PRT-Invalid print style');
3371: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
3372: init_pvt_vars;
3373: return (FALSE);
3374:
3367: return (FALSE);
3368:
3369: when style_error then
3370: fnd_message.set_name ('FND', 'PRT-Invalid print style');
3371: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
3372: init_pvt_vars;
3373: return (FALSE);
3374:
3375: when printer_style_error then
3372: init_pvt_vars;
3373: return (FALSE);
3374:
3375: when printer_style_error then
3376: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
3377: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
3378: fnd_message.set_token ('PRINTER', printer, FALSE);
3379: init_pvt_vars;
3380: return (FALSE);
3373: return (FALSE);
3374:
3375: when printer_style_error then
3376: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
3377: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
3378: fnd_message.set_token ('PRINTER', printer, FALSE);
3379: init_pvt_vars;
3380: return (FALSE);
3381:
3374:
3375: when printer_style_error then
3376: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
3377: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
3378: fnd_message.set_token ('PRINTER', printer, FALSE);
3379: init_pvt_vars;
3380: return (FALSE);
3381:
3382: when others then
3380: return (FALSE);
3381:
3382: when others then
3383: init_pvt_vars;
3384: fnd_message.set_name ('FND', 'SQL-Generic error');
3385: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3386: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3387: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3388: return (FALSE);
3381:
3382: when others then
3383: init_pvt_vars;
3384: fnd_message.set_name ('FND', 'SQL-Generic error');
3385: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3386: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3387: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3388: return (FALSE);
3389: end;
3382: when others then
3383: init_pvt_vars;
3384: fnd_message.set_name ('FND', 'SQL-Generic error');
3385: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3386: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3387: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3388: return (FALSE);
3389: end;
3390:
3383: init_pvt_vars;
3384: fnd_message.set_name ('FND', 'SQL-Generic error');
3385: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3386: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3387: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
3388: return (FALSE);
3389: end;
3390:
3391:
3434:
3435: P_NOTIFICATIONS(n_index).lang := nls_language;
3436:
3437: if( c1%notfound ) then
3438: fnd_message.set_name('FND', 'CONC-INVALID NOTIFY USER');
3439: close c1;
3440: return FALSE;
3441: else
3442: P_NOTIFICATION_COUNT := P_NOTIFICATION_COUNT + 1;
3736:
3737:
3738: exception
3739: when no_data_found then
3740: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3741: fnd_message.set_token ('PROGRAM', program, FALSE);
3742: return (0);
3743: when others then
3744: fnd_message.set_name ('FND', 'SQL-Generic error');
3737:
3738: exception
3739: when no_data_found then
3740: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3741: fnd_message.set_token ('PROGRAM', program, FALSE);
3742: return (0);
3743: when others then
3744: fnd_message.set_name ('FND', 'SQL-Generic error');
3745: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3740: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3741: fnd_message.set_token ('PROGRAM', program, FALSE);
3742: return (0);
3743: when others then
3744: fnd_message.set_name ('FND', 'SQL-Generic error');
3745: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3746: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3747: fnd_message.set_token ('ROUTINE', 'SUBMIT_REQUEST', FALSE);
3748: return (0);
3741: fnd_message.set_token ('PROGRAM', program, FALSE);
3742: return (0);
3743: when others then
3744: fnd_message.set_name ('FND', 'SQL-Generic error');
3745: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3746: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3747: fnd_message.set_token ('ROUTINE', 'SUBMIT_REQUEST', FALSE);
3748: return (0);
3749:
3742: return (0);
3743: when others then
3744: fnd_message.set_name ('FND', 'SQL-Generic error');
3745: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3746: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3747: fnd_message.set_token ('ROUTINE', 'SUBMIT_REQUEST', FALSE);
3748: return (0);
3749:
3750: end submit_request;
3743: when others then
3744: fnd_message.set_name ('FND', 'SQL-Generic error');
3745: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3746: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3747: fnd_message.set_token ('ROUTINE', 'SUBMIT_REQUEST', FALSE);
3748: return (0);
3749:
3750: end submit_request;
3751:
3785: and application_id = 0;
3786:
3787: exception
3788: when no_data_found then
3789: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3790: fnd_message.set_token ('PROGRAM', command, FALSE);
3791: return (0);
3792: when others then
3793: fnd_message.set_name ('FND', 'SQL-Generic error');
3786:
3787: exception
3788: when no_data_found then
3789: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3790: fnd_message.set_token ('PROGRAM', command, FALSE);
3791: return (0);
3792: when others then
3793: fnd_message.set_name ('FND', 'SQL-Generic error');
3794: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3789: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3790: fnd_message.set_token ('PROGRAM', command, FALSE);
3791: return (0);
3792: when others then
3793: fnd_message.set_name ('FND', 'SQL-Generic error');
3794: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3795: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3796: fnd_message.set_token (
3797: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3790: fnd_message.set_token ('PROGRAM', command, FALSE);
3791: return (0);
3792: when others then
3793: fnd_message.set_name ('FND', 'SQL-Generic error');
3794: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3795: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3796: fnd_message.set_token (
3797: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3798: return (0);
3791: return (0);
3792: when others then
3793: fnd_message.set_name ('FND', 'SQL-Generic error');
3794: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3795: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3796: fnd_message.set_token (
3797: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3798: return (0);
3799: end; -- Is the program name correct?
3792: when others then
3793: fnd_message.set_name ('FND', 'SQL-Generic error');
3794: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3795: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3796: fnd_message.set_token (
3797: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3798: return (0);
3799: end; -- Is the program name correct?
3800:
3805: Where Application_Short_Name = upper (service_app);
3806:
3807: exception
3808: when no_data_found then
3809: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3810: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3811: return (0);
3812: when others then
3813: fnd_message.set_name ('FND', 'SQL-Generic error');
3806:
3807: exception
3808: when no_data_found then
3809: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3810: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3811: return (0);
3812: when others then
3813: fnd_message.set_name ('FND', 'SQL-Generic error');
3814: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3809: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3810: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3811: return (0);
3812: when others then
3813: fnd_message.set_name ('FND', 'SQL-Generic error');
3814: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3815: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3816: fnd_message.set_token (
3817: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3810: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3811: return (0);
3812: when others then
3813: fnd_message.set_name ('FND', 'SQL-Generic error');
3814: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3815: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3816: fnd_message.set_token (
3817: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3818: return (0);
3811: return (0);
3812: when others then
3813: fnd_message.set_name ('FND', 'SQL-Generic error');
3814: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3815: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3816: fnd_message.set_token (
3817: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3818: return (0);
3819: end; -- Is the appl short name correct?
3812: when others then
3813: fnd_message.set_name ('FND', 'SQL-Generic error');
3814: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3815: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3816: fnd_message.set_token (
3817: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3818: return (0);
3819: end; -- Is the appl short name correct?
3820:
3825: Where Application_id = mgr_app_id
3826: and Concurrent_queue_name = service;
3827: exception
3828: when no_data_found then
3829: fnd_message.set_name ('FND', 'CONC-Invalid Queue Name');
3830: fnd_message.set_token ('QUEUENAME', service, FALSE);
3831: return (0);
3832: when others then
3833: fnd_message.set_name ('FND', 'SQL-Generic error');
3826: and Concurrent_queue_name = service;
3827: exception
3828: when no_data_found then
3829: fnd_message.set_name ('FND', 'CONC-Invalid Queue Name');
3830: fnd_message.set_token ('QUEUENAME', service, FALSE);
3831: return (0);
3832: when others then
3833: fnd_message.set_name ('FND', 'SQL-Generic error');
3834: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3829: fnd_message.set_name ('FND', 'CONC-Invalid Queue Name');
3830: fnd_message.set_token ('QUEUENAME', service, FALSE);
3831: return (0);
3832: when others then
3833: fnd_message.set_name ('FND', 'SQL-Generic error');
3834: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3835: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3836: fnd_message.set_token (
3837: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3830: fnd_message.set_token ('QUEUENAME', service, FALSE);
3831: return (0);
3832: when others then
3833: fnd_message.set_name ('FND', 'SQL-Generic error');
3834: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3835: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3836: fnd_message.set_token (
3837: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3838: return (0);
3831: return (0);
3832: when others then
3833: fnd_message.set_name ('FND', 'SQL-Generic error');
3834: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3835: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3836: fnd_message.set_token (
3837: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3838: return (0);
3839: end; -- Is the svc inst short name correct?
3832: when others then
3833: fnd_message.set_name ('FND', 'SQL-Generic error');
3834: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3835: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3836: fnd_message.set_token (
3837: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3838: return (0);
3839: end; -- Is the svc inst short name correct?
3840:
3862: when others then
3863: if (not (P_DB_TRIGGER_MODE)) then
3864: rollback to start_of_qc_submission;
3865: end if;
3866: fnd_message.set_name ('FND', 'SQL-Generic error');
3867: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3868: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3869: fnd_message.set_token (
3870: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3863: if (not (P_DB_TRIGGER_MODE)) then
3864: rollback to start_of_qc_submission;
3865: end if;
3866: fnd_message.set_name ('FND', 'SQL-Generic error');
3867: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3868: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3869: fnd_message.set_token (
3870: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3871: return (0);
3864: rollback to start_of_qc_submission;
3865: end if;
3866: fnd_message.set_name ('FND', 'SQL-Generic error');
3867: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3868: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3869: fnd_message.set_token (
3870: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3871: return (0);
3872: end; -- update cntl code
3865: end if;
3866: fnd_message.set_name ('FND', 'SQL-Generic error');
3867: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3868: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3869: fnd_message.set_token (
3870: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3871: return (0);
3872: end; -- update cntl code
3873:
3897: and application_id = 0;
3898:
3899: exception
3900: when no_data_found then
3901: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3902: fnd_message.set_token ('PROGRAM', command, FALSE);
3903: return (0);
3904: when others then
3905: fnd_message.set_name ('FND', 'SQL-Generic error');
3898:
3899: exception
3900: when no_data_found then
3901: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3902: fnd_message.set_token ('PROGRAM', command, FALSE);
3903: return (0);
3904: when others then
3905: fnd_message.set_name ('FND', 'SQL-Generic error');
3906: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3901: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3902: fnd_message.set_token ('PROGRAM', command, FALSE);
3903: return (0);
3904: when others then
3905: fnd_message.set_name ('FND', 'SQL-Generic error');
3906: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3907: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3908: fnd_message.set_token (
3909: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3902: fnd_message.set_token ('PROGRAM', command, FALSE);
3903: return (0);
3904: when others then
3905: fnd_message.set_name ('FND', 'SQL-Generic error');
3906: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3907: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3908: fnd_message.set_token (
3909: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3910: return (0);
3903: return (0);
3904: when others then
3905: fnd_message.set_name ('FND', 'SQL-Generic error');
3906: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3907: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3908: fnd_message.set_token (
3909: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3910: return (0);
3911: end; -- Is the program name correct?
3904: when others then
3905: fnd_message.set_name ('FND', 'SQL-Generic error');
3906: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3907: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3908: fnd_message.set_token (
3909: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3910: return (0);
3911: end; -- Is the program name correct?
3912:
3917: Where Application_Short_Name = upper (application);
3918:
3919: exception
3920: when no_data_found then
3921: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3922: fnd_message.set_token ('APPLNAME', application, FALSE);
3923: return (0);
3924: when others then
3925: fnd_message.set_name ('FND', 'SQL-Generic error');
3918:
3919: exception
3920: when no_data_found then
3921: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3922: fnd_message.set_token ('APPLNAME', application, FALSE);
3923: return (0);
3924: when others then
3925: fnd_message.set_name ('FND', 'SQL-Generic error');
3926: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3921: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3922: fnd_message.set_token ('APPLNAME', application, FALSE);
3923: return (0);
3924: when others then
3925: fnd_message.set_name ('FND', 'SQL-Generic error');
3926: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3927: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3928: fnd_message.set_token (
3929: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3922: fnd_message.set_token ('APPLNAME', application, FALSE);
3923: return (0);
3924: when others then
3925: fnd_message.set_name ('FND', 'SQL-Generic error');
3926: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3927: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3928: fnd_message.set_token (
3929: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3930: return (0);
3923: return (0);
3924: when others then
3925: fnd_message.set_name ('FND', 'SQL-Generic error');
3926: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3927: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3928: fnd_message.set_token (
3929: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3930: return (0);
3931: end; -- Is the appl short name correct?
3924: when others then
3925: fnd_message.set_name ('FND', 'SQL-Generic error');
3926: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3927: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3928: fnd_message.set_token (
3929: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3930: return (0);
3931: end; -- Is the appl short name correct?
3932:
3959: when others then
3960: if (not (P_DB_TRIGGER_MODE)) then
3961: rollback to start_of_qc_submission;
3962: end if;
3963: fnd_message.set_name ('FND', 'SQL-Generic error');
3964: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3965: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3966: fnd_message.set_token (
3967: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3960: if (not (P_DB_TRIGGER_MODE)) then
3961: rollback to start_of_qc_submission;
3962: end if;
3963: fnd_message.set_name ('FND', 'SQL-Generic error');
3964: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3965: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3966: fnd_message.set_token (
3967: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3968: return (0);
3961: rollback to start_of_qc_submission;
3962: end if;
3963: fnd_message.set_name ('FND', 'SQL-Generic error');
3964: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3965: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3966: fnd_message.set_token (
3967: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3968: return (0);
3969: end; -- update cntl code
3962: end if;
3963: fnd_message.set_name ('FND', 'SQL-Generic error');
3964: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3965: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3966: fnd_message.set_token (
3967: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3968: return (0);
3969: end; -- update cntl code
3970:
4006: and application_id = 0;
4007:
4008: exception
4009: when no_data_found then
4010: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4011: fnd_message.set_token ('PROGRAM', command, FALSE);
4012: return (0);
4013: when others then
4014: fnd_message.set_name ('FND', 'SQL-Generic error');
4007:
4008: exception
4009: when no_data_found then
4010: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4011: fnd_message.set_token ('PROGRAM', command, FALSE);
4012: return (0);
4013: when others then
4014: fnd_message.set_name ('FND', 'SQL-Generic error');
4015: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4010: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4011: fnd_message.set_token ('PROGRAM', command, FALSE);
4012: return (0);
4013: when others then
4014: fnd_message.set_name ('FND', 'SQL-Generic error');
4015: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4016: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4017: fnd_message.set_token (
4018: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4011: fnd_message.set_token ('PROGRAM', command, FALSE);
4012: return (0);
4013: when others then
4014: fnd_message.set_name ('FND', 'SQL-Generic error');
4015: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4016: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4017: fnd_message.set_token (
4018: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4019: return (0);
4012: return (0);
4013: when others then
4014: fnd_message.set_name ('FND', 'SQL-Generic error');
4015: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4016: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4017: fnd_message.set_token (
4018: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4019: return (0);
4020: end; -- Is the program name correct?
4013: when others then
4014: fnd_message.set_name ('FND', 'SQL-Generic error');
4015: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4016: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4017: fnd_message.set_token (
4018: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4019: return (0);
4020: end; -- Is the program name correct?
4021:
4025: From Fnd_Cp_services
4026: Where service_handle = service;
4027: exception
4028: when no_data_found then
4029: fnd_message.set_name ('FND', 'CONC-SM INVALID SVC HANDLE');
4030: fnd_message.set_token ('HANDLE', service, FALSE);
4031: return (0);
4032: when others then
4033: fnd_message.set_name ('FND', 'SQL-Generic error');
4026: Where service_handle = service;
4027: exception
4028: when no_data_found then
4029: fnd_message.set_name ('FND', 'CONC-SM INVALID SVC HANDLE');
4030: fnd_message.set_token ('HANDLE', service, FALSE);
4031: return (0);
4032: when others then
4033: fnd_message.set_name ('FND', 'SQL-Generic error');
4034: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4029: fnd_message.set_name ('FND', 'CONC-SM INVALID SVC HANDLE');
4030: fnd_message.set_token ('HANDLE', service, FALSE);
4031: return (0);
4032: when others then
4033: fnd_message.set_name ('FND', 'SQL-Generic error');
4034: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4035: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4036: fnd_message.set_token (
4037: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4030: fnd_message.set_token ('HANDLE', service, FALSE);
4031: return (0);
4032: when others then
4033: fnd_message.set_name ('FND', 'SQL-Generic error');
4034: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4035: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4036: fnd_message.set_token (
4037: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4038: return (0);
4031: return (0);
4032: when others then
4033: fnd_message.set_name ('FND', 'SQL-Generic error');
4034: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4035: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4036: fnd_message.set_token (
4037: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4038: return (0);
4039: end; -- Is the svc name correct?
4032: when others then
4033: fnd_message.set_name ('FND', 'SQL-Generic error');
4034: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4035: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4036: fnd_message.set_token (
4037: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
4038: return (0);
4039: end; -- Is the svc name correct?
4040:
4059: when others then
4060: if (not (P_DB_TRIGGER_MODE)) then
4061: rollback to start_of_qc_submission;
4062: end if;
4063: fnd_message.set_name ('FND', 'SQL-Generic error');
4064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4066: fnd_message.set_token (
4067: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
4060: if (not (P_DB_TRIGGER_MODE)) then
4061: rollback to start_of_qc_submission;
4062: end if;
4063: fnd_message.set_name ('FND', 'SQL-Generic error');
4064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4066: fnd_message.set_token (
4067: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
4068: return (0);
4061: rollback to start_of_qc_submission;
4062: end if;
4063: fnd_message.set_name ('FND', 'SQL-Generic error');
4064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4066: fnd_message.set_token (
4067: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
4068: return (0);
4069: end; -- update cntl code
4062: end if;
4063: fnd_message.set_name ('FND', 'SQL-Generic error');
4064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4066: fnd_message.set_token (
4067: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
4068: return (0);
4069: end; -- update cntl code
4070:
4103: and application_id = 0;
4104:
4105: exception
4106: when no_data_found then
4107: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4108: fnd_message.set_token ('PROGRAM', command, FALSE);
4109: return (0);
4110: when others then
4111: fnd_message.set_name ('FND', 'SQL-Generic error');
4104:
4105: exception
4106: when no_data_found then
4107: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4108: fnd_message.set_token ('PROGRAM', command, FALSE);
4109: return (0);
4110: when others then
4111: fnd_message.set_name ('FND', 'SQL-Generic error');
4112: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4107: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4108: fnd_message.set_token ('PROGRAM', command, FALSE);
4109: return (0);
4110: when others then
4111: fnd_message.set_name ('FND', 'SQL-Generic error');
4112: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4113: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4114: fnd_message.set_token (
4115: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
4108: fnd_message.set_token ('PROGRAM', command, FALSE);
4109: return (0);
4110: when others then
4111: fnd_message.set_name ('FND', 'SQL-Generic error');
4112: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4113: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4114: fnd_message.set_token (
4115: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
4116: return (0);
4109: return (0);
4110: when others then
4111: fnd_message.set_name ('FND', 'SQL-Generic error');
4112: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4113: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4114: fnd_message.set_token (
4115: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
4116: return (0);
4117: end; -- Is the program name correct?
4110: when others then
4111: fnd_message.set_name ('FND', 'SQL-Generic error');
4112: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4113: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4114: fnd_message.set_token (
4115: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
4116: return (0);
4117: end; -- Is the program name correct?
4118:
4137: when others then
4138: if (not (P_DB_TRIGGER_MODE)) then
4139: rollback to start_of_qc_submission;
4140: end if;
4141: fnd_message.set_name ('FND', 'SQL-Generic error');
4142: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4143: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4144: fnd_message.set_token (
4145: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
4138: if (not (P_DB_TRIGGER_MODE)) then
4139: rollback to start_of_qc_submission;
4140: end if;
4141: fnd_message.set_name ('FND', 'SQL-Generic error');
4142: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4143: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4144: fnd_message.set_token (
4145: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
4146: return (0);
4139: rollback to start_of_qc_submission;
4140: end if;
4141: fnd_message.set_name ('FND', 'SQL-Generic error');
4142: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4143: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4144: fnd_message.set_token (
4145: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
4146: return (0);
4147: end; -- update cntl code
4140: end if;
4141: fnd_message.set_name ('FND', 'SQL-Generic error');
4142: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4143: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4144: fnd_message.set_token (
4145: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
4146: return (0);
4147: end; -- update cntl code
4148:
4181: and application_id = 0;
4182:
4183: exception
4184: when no_data_found then
4185: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4186: fnd_message.set_token ('PROGRAM', command, FALSE);
4187: return (0);
4188: when others then
4189: fnd_message.set_name ('FND', 'SQL-Generic error');
4182:
4183: exception
4184: when no_data_found then
4185: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4186: fnd_message.set_token ('PROGRAM', command, FALSE);
4187: return (0);
4188: when others then
4189: fnd_message.set_name ('FND', 'SQL-Generic error');
4190: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4185: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
4186: fnd_message.set_token ('PROGRAM', command, FALSE);
4187: return (0);
4188: when others then
4189: fnd_message.set_name ('FND', 'SQL-Generic error');
4190: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4191: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4192: fnd_message.set_token (
4193: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
4186: fnd_message.set_token ('PROGRAM', command, FALSE);
4187: return (0);
4188: when others then
4189: fnd_message.set_name ('FND', 'SQL-Generic error');
4190: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4191: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4192: fnd_message.set_token (
4193: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
4194: return (0);
4187: return (0);
4188: when others then
4189: fnd_message.set_name ('FND', 'SQL-Generic error');
4190: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4191: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4192: fnd_message.set_token (
4193: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
4194: return (0);
4195: end; -- Is the program name correct?
4188: when others then
4189: fnd_message.set_name ('FND', 'SQL-Generic error');
4190: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4191: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4192: fnd_message.set_token (
4193: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
4194: return (0);
4195: end; -- Is the program name correct?
4196:
4343: where debug_rule_id = fnd_debug_rule_id;
4344:
4345: exception
4346: when others then
4347: fnd_message.set_name ('FND', 'SQL-Generic error');
4348: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4349: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4350: fnd_message.set_token (
4351: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
4344:
4345: exception
4346: when others then
4347: fnd_message.set_name ('FND', 'SQL-Generic error');
4348: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4349: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4350: fnd_message.set_token (
4351: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
4352: return FALSE;
4345: exception
4346: when others then
4347: fnd_message.set_name ('FND', 'SQL-Generic error');
4348: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4349: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4350: fnd_message.set_token (
4351: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
4352: return FALSE;
4353: end;
4346: when others then
4347: fnd_message.set_name ('FND', 'SQL-Generic error');
4348: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4349: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4350: fnd_message.set_token (
4351: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
4352: return FALSE;
4353: end;
4354:
4539:
4540: EXCEPTION
4541:
4542: when RELCLASS_INSERT_ERROR then
4543: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
4544: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
4545: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
4546: return (FALSE);
4547:
4540: EXCEPTION
4541:
4542: when RELCLASS_INSERT_ERROR then
4543: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
4544: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
4545: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
4546: return (FALSE);
4547:
4548: when OTHERS then
4541:
4542: when RELCLASS_INSERT_ERROR then
4543: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
4544: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
4545: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
4546: return (FALSE);
4547:
4548: when OTHERS then
4549: fnd_message.set_name ('FND', 'SQL-Generic error');
4545: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
4546: return (FALSE);
4547:
4548: when OTHERS then
4549: fnd_message.set_name ('FND', 'SQL-Generic error');
4550: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4551: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4552: fnd_message.set_token (
4553: 'ROUTINE', 'SUBMIT: others', FALSE);
4546: return (FALSE);
4547:
4548: when OTHERS then
4549: fnd_message.set_name ('FND', 'SQL-Generic error');
4550: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4551: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4552: fnd_message.set_token (
4553: 'ROUTINE', 'SUBMIT: others', FALSE);
4554: return (FALSE);
4547:
4548: when OTHERS then
4549: fnd_message.set_name ('FND', 'SQL-Generic error');
4550: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4551: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4552: fnd_message.set_token (
4553: 'ROUTINE', 'SUBMIT: others', FALSE);
4554: return (FALSE);
4555: END;
4548: when OTHERS then
4549: fnd_message.set_name ('FND', 'SQL-Generic error');
4550: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4551: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4552: fnd_message.set_token (
4553: 'ROUTINE', 'SUBMIT: others', FALSE);
4554: return (FALSE);
4555: END;
4556:
4625: return (TRUE);
4626:
4627: EXCEPTION
4628: when OTHERS then
4629: fnd_message.set_name ('FND', 'SQL-Generic error');
4630: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4631: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4632: fnd_message.set_token (
4633: 'ROUTINE', 'SUBMIT: others', FALSE);
4626:
4627: EXCEPTION
4628: when OTHERS then
4629: fnd_message.set_name ('FND', 'SQL-Generic error');
4630: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4631: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4632: fnd_message.set_token (
4633: 'ROUTINE', 'SUBMIT: others', FALSE);
4634: return (FALSE);
4627: EXCEPTION
4628: when OTHERS then
4629: fnd_message.set_name ('FND', 'SQL-Generic error');
4630: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4631: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4632: fnd_message.set_token (
4633: 'ROUTINE', 'SUBMIT: others', FALSE);
4634: return (FALSE);
4635: END;
4628: when OTHERS then
4629: fnd_message.set_name ('FND', 'SQL-Generic error');
4630: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4631: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4632: fnd_message.set_token (
4633: 'ROUTINE', 'SUBMIT: others', FALSE);
4634: return (FALSE);
4635: END;
4636:
4663: return (TRUE);
4664:
4665: EXCEPTION
4666: when OTHERS then
4667: fnd_message.set_name ('FND', 'SQL-Generic error');
4668: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4669: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4670: fnd_message.set_token (
4671: 'ROUTINE', 'SUBMIT: others', FALSE);
4664:
4665: EXCEPTION
4666: when OTHERS then
4667: fnd_message.set_name ('FND', 'SQL-Generic error');
4668: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4669: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4670: fnd_message.set_token (
4671: 'ROUTINE', 'SUBMIT: others', FALSE);
4672: return (FALSE);
4665: EXCEPTION
4666: when OTHERS then
4667: fnd_message.set_name ('FND', 'SQL-Generic error');
4668: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4669: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4670: fnd_message.set_token (
4671: 'ROUTINE', 'SUBMIT: others', FALSE);
4672: return (FALSE);
4673: end;
4666: when OTHERS then
4667: fnd_message.set_name ('FND', 'SQL-Generic error');
4668: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
4669: fnd_message.set_token ('REASON', sqlerrm, FALSE);
4670: fnd_message.set_token (
4671: 'ROUTINE', 'SUBMIT: others', FALSE);
4672: return (FALSE);
4673: end;
4674:
4703: return (TRUE);
4704:
4705: exception
4706: when others then
4707: fnd_message.set_name ('FND', 'GLI-Not found');
4708: return(FALSE);
4709:
4710: end add_language;
4711: