994: raise printer_error;
995: elsif (P_VALIDATE_PRINTER = 'SKIP') then
996: if (FND_LOG.LEVEL_EVENT >=
997: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
998: fnd_message.set_name('FND','CONC-Illegal printer spec');
999: fnd_log.message(FND_LOG.LEVEL_EVENT,
1000: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1001: end if;
1002: GOTO next_iteration;
1002: GOTO next_iteration;
1003: else -- P_VALIDATE_PRINTER = 'RESOLVE'
1004: if (FND_LOG.LEVEL_EVENT >=
1005: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1006: fnd_message.set_name ('FND',
1007: 'CONC-Illegal printer spec');
1008: fnd_log.message(FND_LOG.LEVEL_EVENT,
1009: 'fnd.plsql.FND_REQUEST.SUBMIT.printer', FALSE);
1010: fnd_log.string(FND_LOG.LEVEL_EVENT,
1044: -- If we still intend to print, bad news.
1045: if (prtflg = 'Y') then
1046:
1047: -- Check for message on stack
1048: encoded_msg := FND_MESSAGE.GET_ENCODED;
1049: if (encoded_msg is not null) then
1050: FND_MESSAGE.SET_ENCODED(encoded_msg);
1051: raise already_msg;
1052: end if;
1046:
1047: -- Check for message on stack
1048: encoded_msg := FND_MESSAGE.GET_ENCODED;
1049: if (encoded_msg is not null) then
1050: FND_MESSAGE.SET_ENCODED(encoded_msg);
1051: raise already_msg;
1052: end if;
1053:
1054: raise printer_styl_error;
1114: valid_style);
1115:
1116: if ((valid_style is null) or (not styl_ok)) then
1117: -- Check for message on stack
1118: encoded_msg := FND_MESSAGE.GET_ENCODED;
1119: if (encoded_msg is not null) then
1120: FND_MESSAGE.SET_ENCODED(encoded_msg);
1121: raise already_msg;
1122: end if;
1116: if ((valid_style is null) or (not styl_ok)) then
1117: -- Check for message on stack
1118: encoded_msg := FND_MESSAGE.GET_ENCODED;
1119: if (encoded_msg is not null) then
1120: FND_MESSAGE.SET_ENCODED(encoded_msg);
1121: raise already_msg;
1122: end if;
1123:
1124: raise srw_style_error;
1946: return (cur_request_id);
1947:
1948: exception
1949: when printer_error then
1950: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
1951: return (0);
1952: when style_error then
1953: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1954: return (0);
1949: when printer_error then
1950: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
1951: return (0);
1952: when style_error then
1953: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1954: return (0);
1955: when printer_styl_error then
1956: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1957: fnd_message.set_token ('STYLE', print_style, FALSE);
1952: when style_error then
1953: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1954: return (0);
1955: when printer_styl_error then
1956: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1957: fnd_message.set_token ('STYLE', print_style, FALSE);
1958: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1959: return (0);
1960: when srw_style_error then
1953: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1954: return (0);
1955: when printer_styl_error then
1956: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1957: fnd_message.set_token ('STYLE', print_style, FALSE);
1958: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1959: return (0);
1960: when srw_style_error then
1961: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1954: return (0);
1955: when printer_styl_error then
1956: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1957: fnd_message.set_token ('STYLE', print_style, FALSE);
1958: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1959: return (0);
1960: when srw_style_error then
1961: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1962: return (0);
1957: fnd_message.set_token ('STYLE', print_style, FALSE);
1958: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1959: return (0);
1960: when srw_style_error then
1961: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1962: return (0);
1963: when oracle_name_error then
1964: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
1965: return (0);
1960: when srw_style_error then
1961: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1962: return (0);
1963: when oracle_name_error then
1964: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
1965: return (0);
1966: when start_time_error then
1967: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1968: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1963: when oracle_name_error then
1964: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
1965: return (0);
1966: when start_time_error then
1967: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1968: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1969: return (0);
1970: when dup_val_on_index then
1971: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
1964: fnd_message.set_name ('FND', 'CONC-Failed to get oracle name');
1965: return (0);
1966: when start_time_error then
1967: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1968: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1969: return (0);
1970: when dup_val_on_index then
1971: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
1972: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
1967: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1968: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1969: return (0);
1970: when dup_val_on_index then
1971: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
1972: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
1973: return (0);
1974: when nls_error then
1975: fnd_message.set_name ('FND', 'GLI-Not found');
1968: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1969: return (0);
1970: when dup_val_on_index then
1971: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
1972: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
1973: return (0);
1974: when nls_error then
1975: fnd_message.set_name ('FND', 'GLI-Not found');
1976: return (0);
1971: fnd_message.set_name ('FND', 'CONC-Duplicate request id');
1972: fnd_message.set_token ('REQUEST_ID', cur_request_id, FALSE);
1973: return (0);
1974: when nls_error then
1975: fnd_message.set_name ('FND', 'GLI-Not found');
1976: return (0);
1977: when appl_prog_error then -- Appl or program invalid
1978: begin -- Is the appl short name correct?
1979: Select Application_ID
1982: Where Application_Short_Name = upper (application);
1983:
1984: exception
1985: when no_data_found then
1986: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
1987: fnd_message.set_token ('APPLNAME', application, FALSE);
1988: return (0);
1989: when others then
1990: fnd_message.set_name ('FND', 'SQL-Generic error');
1983:
1984: exception
1985: when no_data_found then
1986: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
1987: fnd_message.set_token ('APPLNAME', application, FALSE);
1988: return (0);
1989: when others then
1990: fnd_message.set_name ('FND', 'SQL-Generic error');
1991: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1986: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
1987: fnd_message.set_token ('APPLNAME', application, FALSE);
1988: return (0);
1989: when others then
1990: fnd_message.set_name ('FND', 'SQL-Generic error');
1991: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1992: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1993: fnd_message.set_token (
1994: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
1987: fnd_message.set_token ('APPLNAME', application, FALSE);
1988: return (0);
1989: when others then
1990: fnd_message.set_name ('FND', 'SQL-Generic error');
1991: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1992: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1993: fnd_message.set_token (
1994: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
1995: return (0);
1988: return (0);
1989: when others then
1990: fnd_message.set_name ('FND', 'SQL-Generic error');
1991: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1992: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1993: fnd_message.set_token (
1994: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
1995: return (0);
1996: end; -- Is the appl short name correct?
1989: when others then
1990: fnd_message.set_name ('FND', 'SQL-Generic error');
1991: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1992: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1993: fnd_message.set_token (
1994: 'ROUTINE', 'SUBMIT: appl_prog_error', FALSE);
1995: return (0);
1996: end; -- Is the appl short name correct?
1997:
1995: return (0);
1996: end; -- Is the appl short name correct?
1997:
1998: -- It must be the program
1999: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
2000: fnd_message.set_token ('PROGRAM', program, FALSE);
2001: return (0);
2002:
2003: when insert_error then -- Find the problem
1996: end; -- Is the appl short name correct?
1997:
1998: -- It must be the program
1999: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
2000: fnd_message.set_token ('PROGRAM', program, FALSE);
2001: return (0);
2002:
2003: when insert_error then -- Find the problem
2004: begin -- Is the program enabled?
2010: And Enabled_Flag = 'Y';
2011:
2012: exception
2013: when no_data_found then
2014: fnd_message.set_name ('FND', 'CONC-Conc program disabled');
2015: fnd_message.set_token ('PROGRAM', program, FALSE);
2016: return (0);
2017: when others then
2018: fnd_message.set_name ('FND', 'SQL-Generic error');
2011:
2012: exception
2013: when no_data_found then
2014: fnd_message.set_name ('FND', 'CONC-Conc program disabled');
2015: fnd_message.set_token ('PROGRAM', program, FALSE);
2016: return (0);
2017: when others then
2018: fnd_message.set_name ('FND', 'SQL-Generic error');
2019: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2014: fnd_message.set_name ('FND', 'CONC-Conc program disabled');
2015: fnd_message.set_token ('PROGRAM', program, FALSE);
2016: return (0);
2017: when others then
2018: fnd_message.set_name ('FND', 'SQL-Generic error');
2019: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2020: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2021: fnd_message.set_token (
2022: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2015: fnd_message.set_token ('PROGRAM', program, FALSE);
2016: return (0);
2017: when others then
2018: fnd_message.set_name ('FND', 'SQL-Generic error');
2019: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2020: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2021: fnd_message.set_token (
2022: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2023: return (0);
2016: return (0);
2017: when others then
2018: fnd_message.set_name ('FND', 'SQL-Generic error');
2019: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2020: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2021: fnd_message.set_token (
2022: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2023: return (0);
2024: end; -- Is the program enabled?
2017: when others then
2018: fnd_message.set_name ('FND', 'SQL-Generic error');
2019: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2020: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2021: fnd_message.set_token (
2022: 'ROUTINE', 'SUBMIT: insert_error2', FALSE);
2023: return (0);
2024: end; -- Is the program enabled?
2025:
2023: return (0);
2024: end; -- Is the program enabled?
2025:
2026: when args_insert_error then
2027: fnd_message.set_name ('FND', 'SQL-Generic error');
2028: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2029: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2030: fnd_message.set_token (
2031: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2024: end; -- Is the program enabled?
2025:
2026: when args_insert_error then
2027: fnd_message.set_name ('FND', 'SQL-Generic error');
2028: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2029: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2030: fnd_message.set_token (
2031: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2032: return (0);
2025:
2026: when args_insert_error then
2027: fnd_message.set_name ('FND', 'SQL-Generic error');
2028: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2029: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2030: fnd_message.set_token (
2031: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2032: return (0);
2033: when login_insert_error then
2026: when args_insert_error then
2027: fnd_message.set_name ('FND', 'SQL-Generic error');
2028: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2029: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2030: fnd_message.set_token (
2031: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2032: return (0);
2033: when login_insert_error then
2034: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2030: fnd_message.set_token (
2031: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2032: return (0);
2033: when login_insert_error then
2034: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2035: fnd_message.set_token ('LOGIN', loginid, FALSE);
2036: return (0);
2037: when relclass_insert_error then
2038: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2031: 'ROUTINE', 'SUBMIT: args_insert_error', FALSE);
2032: return (0);
2033: when login_insert_error then
2034: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2035: fnd_message.set_token ('LOGIN', loginid, FALSE);
2036: return (0);
2037: when relclass_insert_error then
2038: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2039: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2034: fnd_message.set_name ('FND', 'CONC-Login insert failed');
2035: fnd_message.set_token ('LOGIN', loginid, FALSE);
2036: return (0);
2037: when relclass_insert_error then
2038: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2039: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2040: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2041: return (0);
2042: when dual_no_rows then
2035: fnd_message.set_token ('LOGIN', loginid, FALSE);
2036: return (0);
2037: when relclass_insert_error then
2038: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2039: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2040: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2041: return (0);
2042: when dual_no_rows then
2043: fnd_message.set_name ('FND', 'No Rows in Dual');
2036: return (0);
2037: when relclass_insert_error then
2038: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
2039: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2040: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2041: return (0);
2042: when dual_no_rows then
2043: fnd_message.set_name ('FND', 'No Rows in Dual');
2044: return (0);
2039: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
2040: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
2041: return (0);
2042: when dual_no_rows then
2043: fnd_message.set_name ('FND', 'No Rows in Dual');
2044: return (0);
2045: when dual_too_many_rows then
2046: fnd_message.set_name ('FND', 'Too many rows in Dual');
2047: return (0);
2042: when dual_no_rows then
2043: fnd_message.set_name ('FND', 'No Rows in Dual');
2044: return (0);
2045: when dual_too_many_rows then
2046: fnd_message.set_name ('FND', 'Too many rows in Dual');
2047: return (0);
2048: when already_msg then
2049: return (0);
2050: when pp_plsql_exception then
2047: return (0);
2048: when already_msg then
2049: return (0);
2050: when pp_plsql_exception then
2051: fnd_message.set_name ('FND', 'CONC-assign pp action failed');
2052: return (0);
2053: when conc_deferred_insert_error then
2054: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2055: fnd_message.set_token ('APPLICATION', application, FALSE);
2050: when pp_plsql_exception then
2051: fnd_message.set_name ('FND', 'CONC-assign pp action failed');
2052: return (0);
2053: when conc_deferred_insert_error then
2054: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2055: fnd_message.set_token ('APPLICATION', application, FALSE);
2056: fnd_message.set_token ('PROGRAM', program, FALSE);
2057: return (0);
2058: when mult_pending_request_error then
2051: fnd_message.set_name ('FND', 'CONC-assign pp action failed');
2052: return (0);
2053: when conc_deferred_insert_error then
2054: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2055: fnd_message.set_token ('APPLICATION', application, FALSE);
2056: fnd_message.set_token ('PROGRAM', program, FALSE);
2057: return (0);
2058: when mult_pending_request_error then
2059: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2052: return (0);
2053: when conc_deferred_insert_error then
2054: fnd_message.set_name ('FND', 'Conc-def-arg insert failed');
2055: fnd_message.set_token ('APPLICATION', application, FALSE);
2056: fnd_message.set_token ('PROGRAM', program, FALSE);
2057: return (0);
2058: when mult_pending_request_error then
2059: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2060: fnd_message.set_token ('PROGRAM', program, FALSE);
2055: fnd_message.set_token ('APPLICATION', application, FALSE);
2056: fnd_message.set_token ('PROGRAM', program, FALSE);
2057: return (0);
2058: when mult_pending_request_error then
2059: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2060: fnd_message.set_token ('PROGRAM', program, FALSE);
2061: return (0);
2062: when others then
2063: fnd_message.set_name ('FND', 'SQL-Generic error');
2056: fnd_message.set_token ('PROGRAM', program, FALSE);
2057: return (0);
2058: when mult_pending_request_error then
2059: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2060: fnd_message.set_token ('PROGRAM', program, FALSE);
2061: return (0);
2062: when others then
2063: fnd_message.set_name ('FND', 'SQL-Generic error');
2064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2059: fnd_message.set_name ('FND', 'CONC-SINGLE PENDING REQUEST');
2060: fnd_message.set_token ('PROGRAM', program, FALSE);
2061: return (0);
2062: when others then
2063: fnd_message.set_name ('FND', 'SQL-Generic error');
2064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2066: fnd_message.set_token (
2067: 'ROUTINE', 'SUBMIT: others', FALSE);
2060: fnd_message.set_token ('PROGRAM', program, FALSE);
2061: return (0);
2062: when others then
2063: fnd_message.set_name ('FND', 'SQL-Generic error');
2064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2066: fnd_message.set_token (
2067: 'ROUTINE', 'SUBMIT: others', FALSE);
2068: return (0);
2061: return (0);
2062: when others then
2063: fnd_message.set_name ('FND', 'SQL-Generic error');
2064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2066: fnd_message.set_token (
2067: 'ROUTINE', 'SUBMIT: others', FALSE);
2068: return (0);
2069:
2062: when others then
2063: fnd_message.set_name ('FND', 'SQL-Generic error');
2064: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2065: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2066: fnd_message.set_token (
2067: 'ROUTINE', 'SUBMIT: others', FALSE);
2068: return (0);
2069:
2070: end submit;
2126: P_IMPLICIT := 'Y';
2127: elsif (upper (implicit) = 'ERROR') then
2128: P_IMPLICIT := 'E';
2129: else
2130: Fnd_Message.Set_Name ('FND', 'CONC-Bad implicit argument');
2131: init_pvt_vars;
2132: return (FALSE);
2133: end if;
2134:
2185: return (TRUE);
2186:
2187: exception
2188: when nls_error then
2189: fnd_message.set_name ('FND', 'GLI-Not found');
2190: return(FALSE);
2191:
2192: end set_options;
2193:
2294: return (TRUE);
2295:
2296: exception
2297: when rpt_time_intvl then
2298: fnd_message.set_name ('FND', 'CONC-Time and interval set');
2299: init_pvt_vars;
2300: return (FALSE);
2301:
2302: when rpt_type_error then
2299: init_pvt_vars;
2300: return (FALSE);
2301:
2302: when rpt_type_error then
2303: fnd_message.set_name ('FND', 'CONC-Bad resubmit type');
2304: init_pvt_vars;
2305: return (FALSE);
2306:
2307: when no_data_found then
2304: init_pvt_vars;
2305: return (FALSE);
2306:
2307: when no_data_found then
2308: fnd_message.set_name ('FND', 'CONC-Bad resubmit unit');
2309: init_pvt_vars;
2310: return (FALSE);
2311:
2312: when others then
2310: return (FALSE);
2311:
2312: when others then
2313: if (rpt_time_error) then
2314: fnd_message.set_name ('FND', 'CONC-Invalid resubmit time');
2315: else
2316: fnd_message.set_name ('FND', 'CONC-Invalid Resub End Date');
2317: end if;
2318: init_pvt_vars;
2312: when others then
2313: if (rpt_time_error) then
2314: fnd_message.set_name ('FND', 'CONC-Invalid resubmit time');
2315: else
2316: fnd_message.set_name ('FND', 'CONC-Invalid Resub End Date');
2317: end if;
2318: init_pvt_vars;
2319: return (FALSE);
2320: end set_repeat_options;
2379: return (TRUE);
2380:
2381: exception
2382: when stale_date_error then
2383: fnd_message.set_name ('FND', 'CONC-Bad Stale Date');
2384: init_pvt_vars;
2385: return (FALSE);
2386:
2387: when appl_class_error then
2384: init_pvt_vars;
2385: return (FALSE);
2386:
2387: when appl_class_error then
2388: fnd_message.set_name ('FND', 'CONC-Bad Release Class');
2389: init_pvt_vars;
2390: return (FALSE);
2391:
2392: when others then
2427: from fnd_nodes
2428: where upper(node_name) = upper(node_name1);
2429: exception
2430: when no_data_found then
2431: fnd_message.set_name ('FND', 'CONC-Node not found');
2432: fnd_message.set_token ('NODE_NAME', node_name1, FALSE);
2433: raise;
2434: end;
2435: end if;
2428: where upper(node_name) = upper(node_name1);
2429: exception
2430: when no_data_found then
2431: fnd_message.set_name ('FND', 'CONC-Node not found');
2432: fnd_message.set_token ('NODE_NAME', node_name1, FALSE);
2433: raise;
2434: end;
2435: end if;
2436:
2441: from v$thread
2442: where upper(instance) = upper(instance1);
2443: exception
2444: when no_data_found then
2445: fnd_message.set_name ('FND', 'CONC-Instance not found');
2446: fnd_message.set_token ('INSTANCE_NAME', instance1, FALSE);
2447: raise;
2448: end;
2449: end if;
2442: where upper(instance) = upper(instance1);
2443: exception
2444: when no_data_found then
2445: fnd_message.set_name ('FND', 'CONC-Instance not found');
2446: fnd_message.set_token ('INSTANCE_NAME', instance1, FALSE);
2447: raise;
2448: end;
2449: end if;
2450:
2616: return (TRUE);
2617:
2618: exception
2619: when validate_printer_error then
2620: fnd_message.set_name ('FND', 'CONC-Bad Validate Printer Parm');
2621: init_pvt_vars;
2622: return (FALSE);
2623:
2624: when print_together_error then
2621: init_pvt_vars;
2622: return (FALSE);
2623:
2624: when print_together_error then
2625: fnd_message.set_name ('FND', 'CONC-Invalid opt:Print Group');
2626: init_pvt_vars;
2627: return (FALSE);
2628:
2629: when printer_error then
2626: init_pvt_vars;
2627: return (FALSE);
2628:
2629: when printer_error then
2630: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
2631: fnd_message.set_token ('PRINTER', printer, FALSE);
2632: init_pvt_vars;
2633: return (FALSE);
2634:
2627: return (FALSE);
2628:
2629: when printer_error then
2630: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
2631: fnd_message.set_token ('PRINTER', printer, FALSE);
2632: init_pvt_vars;
2633: return (FALSE);
2634:
2635: when style_error then
2632: init_pvt_vars;
2633: return (FALSE);
2634:
2635: when style_error then
2636: fnd_message.set_name ('FND', 'PRT-Invalid print style');
2637: fnd_message.set_token ('STYLE', style, FALSE);
2638: init_pvt_vars;
2639: return (FALSE);
2640:
2633: return (FALSE);
2634:
2635: when style_error then
2636: fnd_message.set_name ('FND', 'PRT-Invalid print style');
2637: fnd_message.set_token ('STYLE', style, FALSE);
2638: init_pvt_vars;
2639: return (FALSE);
2640:
2641: when printer_style_error then
2638: init_pvt_vars;
2639: return (FALSE);
2640:
2641: when printer_style_error then
2642: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2643: fnd_message.set_token ('STYLE', style, FALSE);
2644: fnd_message.set_token ('PRINTER', printer, FALSE);
2645: init_pvt_vars;
2646: return (FALSE);
2639: return (FALSE);
2640:
2641: when printer_style_error then
2642: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2643: fnd_message.set_token ('STYLE', style, FALSE);
2644: fnd_message.set_token ('PRINTER', printer, FALSE);
2645: init_pvt_vars;
2646: return (FALSE);
2647:
2640:
2641: when printer_style_error then
2642: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2643: fnd_message.set_token ('STYLE', style, FALSE);
2644: fnd_message.set_token ('PRINTER', printer, FALSE);
2645: init_pvt_vars;
2646: return (FALSE);
2647:
2648: when others then
2646: return (FALSE);
2647:
2648: when others then
2649: init_pvt_vars;
2650: fnd_message.set_name ('FND', 'SQL-Generic error');
2651: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2652: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2653: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2654: return (FALSE);
2647:
2648: when others then
2649: init_pvt_vars;
2650: fnd_message.set_name ('FND', 'SQL-Generic error');
2651: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2652: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2653: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2654: return (FALSE);
2655: end set_print_options;
2648: when others then
2649: init_pvt_vars;
2650: fnd_message.set_name ('FND', 'SQL-Generic error');
2651: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2652: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2653: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2654: return (FALSE);
2655: end set_print_options;
2656:
2649: init_pvt_vars;
2650: fnd_message.set_name ('FND', 'SQL-Generic error');
2651: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2652: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2653: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2654: return (FALSE);
2655: end set_print_options;
2656:
2657:
2683:
2684: if ((reqid <= 0) or (reqid is null))
2685: then
2686: init_pvt_vars;
2687: fnd_message.set_name('FND', 'CONC-REQUEST MISSING');
2688: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
2689: return (FALSE);
2690: end if;
2691:
2684: if ((reqid <= 0) or (reqid is null))
2685: then
2686: init_pvt_vars;
2687: fnd_message.set_name('FND', 'CONC-REQUEST MISSING');
2688: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
2689: return (FALSE);
2690: end if;
2691:
2692: -- clear out notifications
2707:
2708: exception
2709: when others then
2710: init_pvt_vars;
2711: fnd_message.set_name ('FND', 'SQL-Generic error');
2712: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2713: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2714: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
2715: return (FALSE);
2708: exception
2709: when others then
2710: init_pvt_vars;
2711: fnd_message.set_name ('FND', 'SQL-Generic error');
2712: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2713: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2714: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
2715: return (FALSE);
2716:
2709: when others then
2710: init_pvt_vars;
2711: fnd_message.set_name ('FND', 'SQL-Generic error');
2712: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2713: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2714: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
2715: return (FALSE);
2716:
2717: end use_current_notification;
2710: init_pvt_vars;
2711: fnd_message.set_name ('FND', 'SQL-Generic error');
2712: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2713: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2714: fnd_message.set_token ('ROUTINE', 'USE_CURRENT_NOTIFICATION', FALSE);
2715: return (FALSE);
2716:
2717: end use_current_notification;
2718:
2783: return (TRUE);
2784:
2785: exception
2786: when print_together_error then
2787: fnd_message.set_name ('FND', 'CONC-Invalid opt:Print Group');
2788: init_pvt_vars;
2789: return (FALSE);
2790:
2791: when printer_error then
2788: init_pvt_vars;
2789: return (FALSE);
2790:
2791: when printer_error then
2792: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
2793: fnd_message.set_token ('PRINTER', printer, FALSE);
2794: init_pvt_vars;
2795: return (FALSE);
2796:
2789: return (FALSE);
2790:
2791: when printer_error then
2792: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
2793: fnd_message.set_token ('PRINTER', printer, FALSE);
2794: init_pvt_vars;
2795: return (FALSE);
2796:
2797: when style_error then
2794: init_pvt_vars;
2795: return (FALSE);
2796:
2797: when style_error then
2798: fnd_message.set_name ('FND', 'PRT-Invalid print style');
2799: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
2800: init_pvt_vars;
2801: return (FALSE);
2802:
2795: return (FALSE);
2796:
2797: when style_error then
2798: fnd_message.set_name ('FND', 'PRT-Invalid print style');
2799: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
2800: init_pvt_vars;
2801: return (FALSE);
2802:
2803: when printer_style_error then
2800: init_pvt_vars;
2801: return (FALSE);
2802:
2803: when printer_style_error then
2804: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2805: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
2806: fnd_message.set_token ('PRINTER', printer, FALSE);
2807: init_pvt_vars;
2808: return (FALSE);
2801: return (FALSE);
2802:
2803: when printer_style_error then
2804: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2805: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
2806: fnd_message.set_token ('PRINTER', printer, FALSE);
2807: init_pvt_vars;
2808: return (FALSE);
2809:
2802:
2803: when printer_style_error then
2804: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
2805: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
2806: fnd_message.set_token ('PRINTER', printer, FALSE);
2807: init_pvt_vars;
2808: return (FALSE);
2809:
2810: when others then
2808: return (FALSE);
2809:
2810: when others then
2811: init_pvt_vars;
2812: fnd_message.set_name ('FND', 'SQL-Generic error');
2813: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2814: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2815: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2816: return (FALSE);
2809:
2810: when others then
2811: init_pvt_vars;
2812: fnd_message.set_name ('FND', 'SQL-Generic error');
2813: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2814: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2815: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2816: return (FALSE);
2817:
2810: when others then
2811: init_pvt_vars;
2812: fnd_message.set_name ('FND', 'SQL-Generic error');
2813: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2814: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2815: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2816: return (FALSE);
2817:
2818: end;
2811: init_pvt_vars;
2812: fnd_message.set_name ('FND', 'SQL-Generic error');
2813: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
2814: fnd_message.set_token ('REASON', sqlerrm, FALSE);
2815: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
2816: return (FALSE);
2817:
2818: end;
2819:
2849: P_NOTIFICATIONS(n_index).on_warning := 'Y';
2850: P_NOTIFICATIONS(n_index).on_error := 'Y';
2851:
2852: if( c1%notfound ) then
2853: fnd_message.set_name('FND', 'CONC-INVALID NOTIFY USER');
2854: close c1;
2855: return FALSE;
2856: else
2857: P_NOTIFICATION_COUNT := P_NOTIFICATION_COUNT + 1;
3098: and application_id = 0;
3099:
3100: exception
3101: when no_data_found then
3102: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3103: fnd_message.set_token ('PROGRAM', command, FALSE);
3104: return (0);
3105: when others then
3106: fnd_message.set_name ('FND', 'SQL-Generic error');
3099:
3100: exception
3101: when no_data_found then
3102: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3103: fnd_message.set_token ('PROGRAM', command, FALSE);
3104: return (0);
3105: when others then
3106: fnd_message.set_name ('FND', 'SQL-Generic error');
3107: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3102: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3103: fnd_message.set_token ('PROGRAM', command, FALSE);
3104: return (0);
3105: when others then
3106: fnd_message.set_name ('FND', 'SQL-Generic error');
3107: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3108: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3109: fnd_message.set_token (
3110: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3103: fnd_message.set_token ('PROGRAM', command, FALSE);
3104: return (0);
3105: when others then
3106: fnd_message.set_name ('FND', 'SQL-Generic error');
3107: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3108: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3109: fnd_message.set_token (
3110: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3111: return (0);
3104: return (0);
3105: when others then
3106: fnd_message.set_name ('FND', 'SQL-Generic error');
3107: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3108: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3109: fnd_message.set_token (
3110: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3111: return (0);
3112: end; -- Is the program name correct?
3105: when others then
3106: fnd_message.set_name ('FND', 'SQL-Generic error');
3107: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3108: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3109: fnd_message.set_token (
3110: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3111: return (0);
3112: end; -- Is the program name correct?
3113:
3118: Where Application_Short_Name = upper (service_app);
3119:
3120: exception
3121: when no_data_found then
3122: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3123: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3124: return (0);
3125: when others then
3126: fnd_message.set_name ('FND', 'SQL-Generic error');
3119:
3120: exception
3121: when no_data_found then
3122: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3123: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3124: return (0);
3125: when others then
3126: fnd_message.set_name ('FND', 'SQL-Generic error');
3127: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3122: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3123: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3124: return (0);
3125: when others then
3126: fnd_message.set_name ('FND', 'SQL-Generic error');
3127: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3128: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3129: fnd_message.set_token (
3130: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3123: fnd_message.set_token ('APPLNAME', service_app, FALSE);
3124: return (0);
3125: when others then
3126: fnd_message.set_name ('FND', 'SQL-Generic error');
3127: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3128: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3129: fnd_message.set_token (
3130: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3131: return (0);
3124: return (0);
3125: when others then
3126: fnd_message.set_name ('FND', 'SQL-Generic error');
3127: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3128: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3129: fnd_message.set_token (
3130: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3131: return (0);
3132: end; -- Is the appl short name correct?
3125: when others then
3126: fnd_message.set_name ('FND', 'SQL-Generic error');
3127: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3128: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3129: fnd_message.set_token (
3130: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3131: return (0);
3132: end; -- Is the appl short name correct?
3133:
3138: Where Application_id = mgr_app_id
3139: and Concurrent_queue_name = service;
3140: exception
3141: when no_data_found then
3142: fnd_message.set_name ('FND', 'CONC-Invalid Queue Name');
3143: fnd_message.set_token ('QUEUENAME', service, FALSE);
3144: return (0);
3145: when others then
3146: fnd_message.set_name ('FND', 'SQL-Generic error');
3139: and Concurrent_queue_name = service;
3140: exception
3141: when no_data_found then
3142: fnd_message.set_name ('FND', 'CONC-Invalid Queue Name');
3143: fnd_message.set_token ('QUEUENAME', service, FALSE);
3144: return (0);
3145: when others then
3146: fnd_message.set_name ('FND', 'SQL-Generic error');
3147: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3142: fnd_message.set_name ('FND', 'CONC-Invalid Queue Name');
3143: fnd_message.set_token ('QUEUENAME', service, FALSE);
3144: return (0);
3145: when others then
3146: fnd_message.set_name ('FND', 'SQL-Generic error');
3147: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3148: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3149: fnd_message.set_token (
3150: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3143: fnd_message.set_token ('QUEUENAME', service, FALSE);
3144: return (0);
3145: when others then
3146: fnd_message.set_name ('FND', 'SQL-Generic error');
3147: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3148: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3149: fnd_message.set_token (
3150: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3151: return (0);
3144: return (0);
3145: when others then
3146: fnd_message.set_name ('FND', 'SQL-Generic error');
3147: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3148: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3149: fnd_message.set_token (
3150: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3151: return (0);
3152: end; -- Is the svc inst short name correct?
3145: when others then
3146: fnd_message.set_name ('FND', 'SQL-Generic error');
3147: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3148: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3149: fnd_message.set_token (
3150: 'ROUTINE', 'submit_svc_ctl_request', FALSE);
3151: return (0);
3152: end; -- Is the svc inst short name correct?
3153:
3175: when others then
3176: if (not (P_DB_TRIGGER_MODE)) then
3177: rollback to start_of_qc_submission;
3178: end if;
3179: fnd_message.set_name ('FND', 'SQL-Generic error');
3180: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3181: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3182: fnd_message.set_token (
3183: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3176: if (not (P_DB_TRIGGER_MODE)) then
3177: rollback to start_of_qc_submission;
3178: end if;
3179: fnd_message.set_name ('FND', 'SQL-Generic error');
3180: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3181: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3182: fnd_message.set_token (
3183: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3184: return (0);
3177: rollback to start_of_qc_submission;
3178: end if;
3179: fnd_message.set_name ('FND', 'SQL-Generic error');
3180: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3181: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3182: fnd_message.set_token (
3183: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3184: return (0);
3185: end; -- update cntl code
3178: end if;
3179: fnd_message.set_name ('FND', 'SQL-Generic error');
3180: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3181: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3182: fnd_message.set_token (
3183: 'ROUTINE', 'submit_svc_ctl_request(update)', FALSE);
3184: return (0);
3185: end; -- update cntl code
3186:
3210: and application_id = 0;
3211:
3212: exception
3213: when no_data_found then
3214: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3215: fnd_message.set_token ('PROGRAM', command, FALSE);
3216: return (0);
3217: when others then
3218: fnd_message.set_name ('FND', 'SQL-Generic error');
3211:
3212: exception
3213: when no_data_found then
3214: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3215: fnd_message.set_token ('PROGRAM', command, FALSE);
3216: return (0);
3217: when others then
3218: fnd_message.set_name ('FND', 'SQL-Generic error');
3219: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3214: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3215: fnd_message.set_token ('PROGRAM', command, FALSE);
3216: return (0);
3217: when others then
3218: fnd_message.set_name ('FND', 'SQL-Generic error');
3219: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3220: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3221: fnd_message.set_token (
3222: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3215: fnd_message.set_token ('PROGRAM', command, FALSE);
3216: return (0);
3217: when others then
3218: fnd_message.set_name ('FND', 'SQL-Generic error');
3219: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3220: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3221: fnd_message.set_token (
3222: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3223: return (0);
3216: return (0);
3217: when others then
3218: fnd_message.set_name ('FND', 'SQL-Generic error');
3219: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3220: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3221: fnd_message.set_token (
3222: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3223: return (0);
3224: end; -- Is the program name correct?
3217: when others then
3218: fnd_message.set_name ('FND', 'SQL-Generic error');
3219: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3220: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3221: fnd_message.set_token (
3222: 'ROUTINE', 'submit_svc_ctl_by_app', FALSE);
3223: return (0);
3224: end; -- Is the program name correct?
3225:
3230: Where Application_Short_Name = upper (application);
3231:
3232: exception
3233: when no_data_found then
3234: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3235: fnd_message.set_token ('APPLNAME', application, FALSE);
3236: return (0);
3237: when others then
3238: fnd_message.set_name ('FND', 'SQL-Generic error');
3231:
3232: exception
3233: when no_data_found then
3234: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3235: fnd_message.set_token ('APPLNAME', application, FALSE);
3236: return (0);
3237: when others then
3238: fnd_message.set_name ('FND', 'SQL-Generic error');
3239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3234: fnd_message.set_name ('FND', 'CONC-Invalid Appl Short Name');
3235: fnd_message.set_token ('APPLNAME', application, FALSE);
3236: return (0);
3237: when others then
3238: fnd_message.set_name ('FND', 'SQL-Generic error');
3239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3241: fnd_message.set_token (
3242: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3235: fnd_message.set_token ('APPLNAME', application, FALSE);
3236: return (0);
3237: when others then
3238: fnd_message.set_name ('FND', 'SQL-Generic error');
3239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3241: fnd_message.set_token (
3242: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3243: return (0);
3236: return (0);
3237: when others then
3238: fnd_message.set_name ('FND', 'SQL-Generic error');
3239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3241: fnd_message.set_token (
3242: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3243: return (0);
3244: end; -- Is the appl short name correct?
3237: when others then
3238: fnd_message.set_name ('FND', 'SQL-Generic error');
3239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3241: fnd_message.set_token (
3242: 'ROUTINE', 'submit_svc_ctl__by_app', FALSE);
3243: return (0);
3244: end; -- Is the appl short name correct?
3245:
3272: when others then
3273: if (not (P_DB_TRIGGER_MODE)) then
3274: rollback to start_of_qc_submission;
3275: end if;
3276: fnd_message.set_name ('FND', 'SQL-Generic error');
3277: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3278: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3279: fnd_message.set_token (
3280: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3273: if (not (P_DB_TRIGGER_MODE)) then
3274: rollback to start_of_qc_submission;
3275: end if;
3276: fnd_message.set_name ('FND', 'SQL-Generic error');
3277: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3278: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3279: fnd_message.set_token (
3280: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3281: return (0);
3274: rollback to start_of_qc_submission;
3275: end if;
3276: fnd_message.set_name ('FND', 'SQL-Generic error');
3277: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3278: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3279: fnd_message.set_token (
3280: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3281: return (0);
3282: end; -- update cntl code
3275: end if;
3276: fnd_message.set_name ('FND', 'SQL-Generic error');
3277: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3278: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3279: fnd_message.set_token (
3280: 'ROUTINE', 'submit_svc_ctl_by_app(update)', FALSE);
3281: return (0);
3282: end; -- update cntl code
3283:
3319: and application_id = 0;
3320:
3321: exception
3322: when no_data_found then
3323: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3324: fnd_message.set_token ('PROGRAM', command, FALSE);
3325: return (0);
3326: when others then
3327: fnd_message.set_name ('FND', 'SQL-Generic error');
3320:
3321: exception
3322: when no_data_found then
3323: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3324: fnd_message.set_token ('PROGRAM', command, FALSE);
3325: return (0);
3326: when others then
3327: fnd_message.set_name ('FND', 'SQL-Generic error');
3328: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3323: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3324: fnd_message.set_token ('PROGRAM', command, FALSE);
3325: return (0);
3326: when others then
3327: fnd_message.set_name ('FND', 'SQL-Generic error');
3328: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3329: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3330: fnd_message.set_token (
3331: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3324: fnd_message.set_token ('PROGRAM', command, FALSE);
3325: return (0);
3326: when others then
3327: fnd_message.set_name ('FND', 'SQL-Generic error');
3328: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3329: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3330: fnd_message.set_token (
3331: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3332: return (0);
3325: return (0);
3326: when others then
3327: fnd_message.set_name ('FND', 'SQL-Generic error');
3328: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3329: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3330: fnd_message.set_token (
3331: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3332: return (0);
3333: end; -- Is the program name correct?
3326: when others then
3327: fnd_message.set_name ('FND', 'SQL-Generic error');
3328: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3329: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3330: fnd_message.set_token (
3331: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3332: return (0);
3333: end; -- Is the program name correct?
3334:
3338: From Fnd_Cp_services
3339: Where service_handle = service;
3340: exception
3341: when no_data_found then
3342: fnd_message.set_name ('FND', 'CONC-SM INVALID SVC HANDLE');
3343: fnd_message.set_token ('HANDLE', service, FALSE);
3344: return (0);
3345: when others then
3346: fnd_message.set_name ('FND', 'SQL-Generic error');
3339: Where service_handle = service;
3340: exception
3341: when no_data_found then
3342: fnd_message.set_name ('FND', 'CONC-SM INVALID SVC HANDLE');
3343: fnd_message.set_token ('HANDLE', service, FALSE);
3344: return (0);
3345: when others then
3346: fnd_message.set_name ('FND', 'SQL-Generic error');
3347: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3342: fnd_message.set_name ('FND', 'CONC-SM INVALID SVC HANDLE');
3343: fnd_message.set_token ('HANDLE', service, FALSE);
3344: return (0);
3345: when others then
3346: fnd_message.set_name ('FND', 'SQL-Generic error');
3347: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3348: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3349: fnd_message.set_token (
3350: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3343: fnd_message.set_token ('HANDLE', service, FALSE);
3344: return (0);
3345: when others then
3346: fnd_message.set_name ('FND', 'SQL-Generic error');
3347: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3348: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3349: fnd_message.set_token (
3350: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3351: return (0);
3344: return (0);
3345: when others then
3346: fnd_message.set_name ('FND', 'SQL-Generic error');
3347: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3348: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3349: fnd_message.set_token (
3350: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3351: return (0);
3352: end; -- Is the svc name correct?
3345: when others then
3346: fnd_message.set_name ('FND', 'SQL-Generic error');
3347: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3348: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3349: fnd_message.set_token (
3350: 'ROUTINE', 'submit_svc_ctl_by_svc', FALSE);
3351: return (0);
3352: end; -- Is the svc name correct?
3353:
3372: when others then
3373: if (not (P_DB_TRIGGER_MODE)) then
3374: rollback to start_of_qc_submission;
3375: end if;
3376: fnd_message.set_name ('FND', 'SQL-Generic error');
3377: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3378: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3379: fnd_message.set_token (
3380: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
3373: if (not (P_DB_TRIGGER_MODE)) then
3374: rollback to start_of_qc_submission;
3375: end if;
3376: fnd_message.set_name ('FND', 'SQL-Generic error');
3377: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3378: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3379: fnd_message.set_token (
3380: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
3381: return (0);
3374: rollback to start_of_qc_submission;
3375: end if;
3376: fnd_message.set_name ('FND', 'SQL-Generic error');
3377: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3378: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3379: fnd_message.set_token (
3380: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
3381: return (0);
3382: end; -- update cntl code
3375: end if;
3376: fnd_message.set_name ('FND', 'SQL-Generic error');
3377: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3378: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3379: fnd_message.set_token (
3380: 'ROUTINE', 'submit_svc_ctl_by_svc(update)', FALSE);
3381: return (0);
3382: end; -- update cntl code
3383:
3416: and application_id = 0;
3417:
3418: exception
3419: when no_data_found then
3420: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3421: fnd_message.set_token ('PROGRAM', command, FALSE);
3422: return (0);
3423: when others then
3424: fnd_message.set_name ('FND', 'SQL-Generic error');
3417:
3418: exception
3419: when no_data_found then
3420: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3421: fnd_message.set_token ('PROGRAM', command, FALSE);
3422: return (0);
3423: when others then
3424: fnd_message.set_name ('FND', 'SQL-Generic error');
3425: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3420: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3421: fnd_message.set_token ('PROGRAM', command, FALSE);
3422: return (0);
3423: when others then
3424: fnd_message.set_name ('FND', 'SQL-Generic error');
3425: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3426: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3427: fnd_message.set_token (
3428: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
3421: fnd_message.set_token ('PROGRAM', command, FALSE);
3422: return (0);
3423: when others then
3424: fnd_message.set_name ('FND', 'SQL-Generic error');
3425: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3426: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3427: fnd_message.set_token (
3428: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
3429: return (0);
3422: return (0);
3423: when others then
3424: fnd_message.set_name ('FND', 'SQL-Generic error');
3425: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3426: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3427: fnd_message.set_token (
3428: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
3429: return (0);
3430: end; -- Is the program name correct?
3423: when others then
3424: fnd_message.set_name ('FND', 'SQL-Generic error');
3425: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3426: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3427: fnd_message.set_token (
3428: 'ROUTINE', 'submit_svc_ctl_cpinfra', FALSE);
3429: return (0);
3430: end; -- Is the program name correct?
3431:
3450: when others then
3451: if (not (P_DB_TRIGGER_MODE)) then
3452: rollback to start_of_qc_submission;
3453: end if;
3454: fnd_message.set_name ('FND', 'SQL-Generic error');
3455: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3456: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3457: fnd_message.set_token (
3458: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
3451: if (not (P_DB_TRIGGER_MODE)) then
3452: rollback to start_of_qc_submission;
3453: end if;
3454: fnd_message.set_name ('FND', 'SQL-Generic error');
3455: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3456: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3457: fnd_message.set_token (
3458: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
3459: return (0);
3452: rollback to start_of_qc_submission;
3453: end if;
3454: fnd_message.set_name ('FND', 'SQL-Generic error');
3455: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3456: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3457: fnd_message.set_token (
3458: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
3459: return (0);
3460: end; -- update cntl code
3453: end if;
3454: fnd_message.set_name ('FND', 'SQL-Generic error');
3455: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3456: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3457: fnd_message.set_token (
3458: 'ROUTINE', 'submit_svc_ctl_cpinfra(update)', FALSE);
3459: return (0);
3460: end; -- update cntl code
3461:
3494: and application_id = 0;
3495:
3496: exception
3497: when no_data_found then
3498: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3499: fnd_message.set_token ('PROGRAM', command, FALSE);
3500: return (0);
3501: when others then
3502: fnd_message.set_name ('FND', 'SQL-Generic error');
3495:
3496: exception
3497: when no_data_found then
3498: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3499: fnd_message.set_token ('PROGRAM', command, FALSE);
3500: return (0);
3501: when others then
3502: fnd_message.set_name ('FND', 'SQL-Generic error');
3503: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3498: fnd_message.set_name ('FND', 'CONC-Invalid Conc program');
3499: fnd_message.set_token ('PROGRAM', command, FALSE);
3500: return (0);
3501: when others then
3502: fnd_message.set_name ('FND', 'SQL-Generic error');
3503: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3504: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3505: fnd_message.set_token (
3506: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
3499: fnd_message.set_token ('PROGRAM', command, FALSE);
3500: return (0);
3501: when others then
3502: fnd_message.set_name ('FND', 'SQL-Generic error');
3503: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3504: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3505: fnd_message.set_token (
3506: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
3507: return (0);
3500: return (0);
3501: when others then
3502: fnd_message.set_name ('FND', 'SQL-Generic error');
3503: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3504: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3505: fnd_message.set_token (
3506: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
3507: return (0);
3508: end; -- Is the program name correct?
3501: when others then
3502: fnd_message.set_name ('FND', 'SQL-Generic error');
3503: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3504: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3505: fnd_message.set_token (
3506: 'ROUTINE', 'submit_svc_ctl_cpall', FALSE);
3507: return (0);
3508: end; -- Is the program name correct?
3509:
3656: where debug_rule_id = fnd_debug_rule_id;
3657:
3658: exception
3659: when others then
3660: fnd_message.set_name ('FND', 'SQL-Generic error');
3661: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3662: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3663: fnd_message.set_token (
3664: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
3657:
3658: exception
3659: when others then
3660: fnd_message.set_name ('FND', 'SQL-Generic error');
3661: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3662: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3663: fnd_message.set_token (
3664: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
3665: return FALSE;
3658: exception
3659: when others then
3660: fnd_message.set_name ('FND', 'SQL-Generic error');
3661: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3662: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3663: fnd_message.set_token (
3664: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
3665: return FALSE;
3666: end;
3659: when others then
3660: fnd_message.set_name ('FND', 'SQL-Generic error');
3661: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3662: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3663: fnd_message.set_token (
3664: 'ROUTINE', 'update_fnd_debug_rules_req_id', FALSE);
3665: return FALSE;
3666: end;
3667:
3851:
3852: EXCEPTION
3853:
3854: when RELCLASS_INSERT_ERROR then
3855: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
3856: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
3857: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
3858: return (FALSE);
3859:
3852: EXCEPTION
3853:
3854: when RELCLASS_INSERT_ERROR then
3855: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
3856: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
3857: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
3858: return (FALSE);
3859:
3860: when OTHERS then
3853:
3854: when RELCLASS_INSERT_ERROR then
3855: fnd_message.set_name ('FND', 'CONC-RelClass insert failed');
3856: fnd_message.set_token ('APPLICATION', P_REL_CLASS_APP_ID, FALSE);
3857: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
3858: return (FALSE);
3859:
3860: when OTHERS then
3861: fnd_message.set_name ('FND', 'SQL-Generic error');
3857: fnd_message.set_token ('CLASS', P_REL_CLASS_ID, FALSE);
3858: return (FALSE);
3859:
3860: when OTHERS then
3861: fnd_message.set_name ('FND', 'SQL-Generic error');
3862: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3863: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3864: fnd_message.set_token (
3865: 'ROUTINE', 'SUBMIT: others', FALSE);
3858: return (FALSE);
3859:
3860: when OTHERS then
3861: fnd_message.set_name ('FND', 'SQL-Generic error');
3862: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3863: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3864: fnd_message.set_token (
3865: 'ROUTINE', 'SUBMIT: others', FALSE);
3866: return (FALSE);
3859:
3860: when OTHERS then
3861: fnd_message.set_name ('FND', 'SQL-Generic error');
3862: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3863: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3864: fnd_message.set_token (
3865: 'ROUTINE', 'SUBMIT: others', FALSE);
3866: return (FALSE);
3867: END;
3860: when OTHERS then
3861: fnd_message.set_name ('FND', 'SQL-Generic error');
3862: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
3863: fnd_message.set_token ('REASON', sqlerrm, FALSE);
3864: fnd_message.set_token (
3865: 'ROUTINE', 'SUBMIT: others', FALSE);
3866: return (FALSE);
3867: END;
3868: