440: return( TRUE );
441:
442: exception
443: when set_not_found then
444: fnd_message.set_name('FND', 'CONC-Request Set Not Found');
445: fnd_message.set_token('REQUEST_SET', request_set, FALSE);
446: init_pvt_vars (TRUE);
447: return( FALSE );
448:
441:
442: exception
443: when set_not_found then
444: fnd_message.set_name('FND', 'CONC-Request Set Not Found');
445: fnd_message.set_token('REQUEST_SET', request_set, FALSE);
446: init_pvt_vars (TRUE);
447: return( FALSE );
448:
449: when sql_generic_error then
446: init_pvt_vars (TRUE);
447: return( FALSE );
448:
449: when sql_generic_error then
450: fnd_message.set_name('FND', 'SQL-Generic error');
451: fnd_message.set_token('ERROR', sqlcode, FALSE);
452: fnd_message.set_token('REASON', sqlerrm, FALSE);
453: init_pvt_vars(TRUE);
454: return( FALSE );
447: return( FALSE );
448:
449: when sql_generic_error then
450: fnd_message.set_name('FND', 'SQL-Generic error');
451: fnd_message.set_token('ERROR', sqlcode, FALSE);
452: fnd_message.set_token('REASON', sqlerrm, FALSE);
453: init_pvt_vars(TRUE);
454: return( FALSE );
455:
448:
449: when sql_generic_error then
450: fnd_message.set_name('FND', 'SQL-Generic error');
451: fnd_message.set_token('ERROR', sqlcode, FALSE);
452: fnd_message.set_token('REASON', sqlerrm, FALSE);
453: init_pvt_vars(TRUE);
454: return( FALSE );
455:
456: when set_print_option_failed then
461: init_pvt_vars(TRUE);
462: return( FALSE );
463:
464: when programs_not_available then
465: fnd_message.set_name('FND', 'SRS-EMPTY SET');
466: init_pvt_vars(TRUE);
467: return( FALSE );
468:
469: when request_not_found then
466: init_pvt_vars(TRUE);
467: return( FALSE );
468:
469: when request_not_found then
470: fnd_message.set_name('FND', 'CONC-MISSING REQUEST');
471: fnd_message.set_token('ROUTINE', 'set_request_set', FALSE);
472: fnd_message.set_token('REQUEST', rs_submission_program, FALSE);
473: init_pvt_vars(TRUE);
474: return(FALSE);
467: return( FALSE );
468:
469: when request_not_found then
470: fnd_message.set_name('FND', 'CONC-MISSING REQUEST');
471: fnd_message.set_token('ROUTINE', 'set_request_set', FALSE);
472: fnd_message.set_token('REQUEST', rs_submission_program, FALSE);
473: init_pvt_vars(TRUE);
474: return(FALSE);
475:
468:
469: when request_not_found then
470: fnd_message.set_name('FND', 'CONC-MISSING REQUEST');
471: fnd_message.set_token('ROUTINE', 'set_request_set', FALSE);
472: fnd_message.set_token('REQUEST', rs_submission_program, FALSE);
473: init_pvt_vars(TRUE);
474: return(FALSE);
475:
476: when update_failed then
473: init_pvt_vars(TRUE);
474: return(FALSE);
475:
476: when update_failed then
477: fnd_message.set_name('FND', 'SQL-NO UPDATE');
478: fnd_message.set_token('TABLE', 'fnd_concurrent_requests', FALSE);
479: init_pvt_vars(TRUE);
480: return( FALSE );
481:
474: return(FALSE);
475:
476: when update_failed then
477: fnd_message.set_name('FND', 'SQL-NO UPDATE');
478: fnd_message.set_token('TABLE', 'fnd_concurrent_requests', FALSE);
479: init_pvt_vars(TRUE);
480: return( FALSE );
481:
482: when invalid_program_in_set then
479: init_pvt_vars(TRUE);
480: return( FALSE );
481:
482: when invalid_program_in_set then
483: fnd_message.set_name('FND', 'CONC-Invalid program in set');
484: fnd_message.set_token('SET_NAME', request_set, FALSE);
485: init_pvt_vars(TRUE);
486: return(FALSE);
487:
480: return( FALSE );
481:
482: when invalid_program_in_set then
483: fnd_message.set_name('FND', 'CONC-Invalid program in set');
484: fnd_message.set_token('SET_NAME', request_set, FALSE);
485: init_pvt_vars(TRUE);
486: return(FALSE);
487:
488: end set_request_set;
933: -- If we still intend to print, bad news.
934: if (prtflg = 'Y') then
935:
936: -- Check for message on stack
937: encoded_msg := FND_MESSAGE.GET_ENCODED;
938: if (encoded_msg is not null) then
939: FND_MESSAGE.SET_ENCODED(encoded_msg);
940: raise already_msg;
941: end if;
935:
936: -- Check for message on stack
937: encoded_msg := FND_MESSAGE.GET_ENCODED;
938: if (encoded_msg is not null) then
939: FND_MESSAGE.SET_ENCODED(encoded_msg);
940: raise already_msg;
941: end if;
942:
943: raise printer_styl_error;
988: valid_style);
989:
990: if ((valid_style is null) or (not styl_ok)) then
991: -- Check for message on stack
992: encoded_msg := FND_MESSAGE.GET_ENCODED;
993: if (encoded_msg is not null) then
994: FND_MESSAGE.SET_ENCODED(encoded_msg);
995: raise already_msg;
996: end if;
990: if ((valid_style is null) or (not styl_ok)) then
991: -- Check for message on stack
992: encoded_msg := FND_MESSAGE.GET_ENCODED;
993: if (encoded_msg is not null) then
994: FND_MESSAGE.SET_ENCODED(encoded_msg);
995: raise already_msg;
996: end if;
997:
998: raise srw_style_error;
1181: return (TRUE);
1182:
1183: exception
1184: when context_not_set then
1185: fnd_message.set_name('FND', 'CONC-Context not set');
1186: fnd_message.set_token('ROUTINE', 'submit_program', FALSE);
1187: init_pvt_vars(TRUE);
1188: return(FALSE);
1189: when program_not_found then
1182:
1183: exception
1184: when context_not_set then
1185: fnd_message.set_name('FND', 'CONC-Context not set');
1186: fnd_message.set_token('ROUTINE', 'submit_program', FALSE);
1187: init_pvt_vars(TRUE);
1188: return(FALSE);
1189: when program_not_found then
1190: fnd_message.set_name ('FND', 'CONC-Invalid prog for stage');
1186: fnd_message.set_token('ROUTINE', 'submit_program', FALSE);
1187: init_pvt_vars(TRUE);
1188: return(FALSE);
1189: when program_not_found then
1190: fnd_message.set_name ('FND', 'CONC-Invalid prog for stage');
1191: fnd_message.set_token('PROGRAM', program, FALSE);
1192: fnd_message.set_token('STAGE', stage, FALSE);
1193: init_pvt_vars(TRUE);
1194: return(FALSE);
1187: init_pvt_vars(TRUE);
1188: return(FALSE);
1189: when program_not_found then
1190: fnd_message.set_name ('FND', 'CONC-Invalid prog for stage');
1191: fnd_message.set_token('PROGRAM', program, FALSE);
1192: fnd_message.set_token('STAGE', stage, FALSE);
1193: init_pvt_vars(TRUE);
1194: return(FALSE);
1195: when printer_error then
1188: return(FALSE);
1189: when program_not_found then
1190: fnd_message.set_name ('FND', 'CONC-Invalid prog for stage');
1191: fnd_message.set_token('PROGRAM', program, FALSE);
1192: fnd_message.set_token('STAGE', stage, FALSE);
1193: init_pvt_vars(TRUE);
1194: return(FALSE);
1195: when printer_error then
1196: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
1192: fnd_message.set_token('STAGE', stage, FALSE);
1193: init_pvt_vars(TRUE);
1194: return(FALSE);
1195: when printer_error then
1196: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
1197: init_pvt_vars(TRUE);
1198: return (FALSE);
1199: when style_error then
1200: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1196: fnd_message.set_name ('FND', 'CONC-Illegal printer spec');
1197: init_pvt_vars(TRUE);
1198: return (FALSE);
1199: when style_error then
1200: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1201: init_pvt_vars(TRUE);
1202: return (FALSE);
1203: when printer_styl_error then
1204: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1200: fnd_message.set_name ('FND', 'SRS-Must specify print style');
1201: init_pvt_vars(TRUE);
1202: return (FALSE);
1203: when printer_styl_error then
1204: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1205: fnd_message.set_token ('STYLE', print_style, FALSE);
1206: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1207: init_pvt_vars(TRUE);
1208: return (FALSE);
1201: init_pvt_vars(TRUE);
1202: return (FALSE);
1203: when printer_styl_error then
1204: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1205: fnd_message.set_token ('STYLE', print_style, FALSE);
1206: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1207: init_pvt_vars(TRUE);
1208: return (FALSE);
1209: when srw_style_error then
1202: return (FALSE);
1203: when printer_styl_error then
1204: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1205: fnd_message.set_token ('STYLE', print_style, FALSE);
1206: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1207: init_pvt_vars(TRUE);
1208: return (FALSE);
1209: when srw_style_error then
1210: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1206: fnd_message.set_token ('PRINTER', curr_printer, FALSE);
1207: init_pvt_vars(TRUE);
1208: return (FALSE);
1209: when srw_style_error then
1210: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1211: init_pvt_vars(TRUE);
1212: return (FALSE);
1213: when nls_error then
1214: fnd_message.set_name ('FND', 'GLI-Not found');
1210: fnd_message.set_name ('FND', 'SRS-Must specify srw style');
1211: init_pvt_vars(TRUE);
1212: return (FALSE);
1213: when nls_error then
1214: fnd_message.set_name ('FND', 'GLI-Not found');
1215: init_pvt_vars(TRUE);
1216: return (FALSE);
1217:
1218: when insert_error then
1215: init_pvt_vars(TRUE);
1216: return (FALSE);
1217:
1218: when insert_error then
1219: fnd_message.set_name ('FND', 'SQL-Generic error');
1220: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1221: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1222: fnd_message.set_token (
1223: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1216: return (FALSE);
1217:
1218: when insert_error then
1219: fnd_message.set_name ('FND', 'SQL-Generic error');
1220: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1221: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1222: fnd_message.set_token (
1223: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1224: init_pvt_vars(TRUE);
1217:
1218: when insert_error then
1219: fnd_message.set_name ('FND', 'SQL-Generic error');
1220: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1221: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1222: fnd_message.set_token (
1223: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1224: init_pvt_vars(TRUE);
1225: return (FALSE);
1218: when insert_error then
1219: fnd_message.set_name ('FND', 'SQL-Generic error');
1220: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1221: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1222: fnd_message.set_token (
1223: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1224: init_pvt_vars(TRUE);
1225: return (FALSE);
1226: when dual_no_rows then
1223: 'ROUTINE', 'SUBMIT_PROGRAM: insert_error2', FALSE);
1224: init_pvt_vars(TRUE);
1225: return (FALSE);
1226: when dual_no_rows then
1227: fnd_message.set_name ('FND', 'No Rows in SYS.Dual');
1228: init_pvt_vars(TRUE);
1229: return (FALSE);
1230: when dual_too_many_rows then
1231: fnd_message.set_name ('FND', 'Too many rows in SYS.Dual');
1227: fnd_message.set_name ('FND', 'No Rows in SYS.Dual');
1228: init_pvt_vars(TRUE);
1229: return (FALSE);
1230: when dual_too_many_rows then
1231: fnd_message.set_name ('FND', 'Too many rows in SYS.Dual');
1232: init_pvt_vars(TRUE);
1233: return (FALSE);
1234: when already_msg then
1235: init_pvt_vars(TRUE);
1234: when already_msg then
1235: init_pvt_vars(TRUE);
1236: return (FALSE);
1237: when others then
1238: fnd_message.set_name ('FND', 'SQL-Generic error');
1239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1241: fnd_message.set_token (
1242: 'ROUTINE', 'SUBMIT_PROGRAM: others', FALSE);
1235: init_pvt_vars(TRUE);
1236: return (FALSE);
1237: when others then
1238: fnd_message.set_name ('FND', 'SQL-Generic error');
1239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1241: fnd_message.set_token (
1242: 'ROUTINE', 'SUBMIT_PROGRAM: others', FALSE);
1243: init_pvt_vars(TRUE);
1236: return (FALSE);
1237: when others then
1238: fnd_message.set_name ('FND', 'SQL-Generic error');
1239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1241: fnd_message.set_token (
1242: 'ROUTINE', 'SUBMIT_PROGRAM: others', FALSE);
1243: init_pvt_vars(TRUE);
1244: return (FALSE);
1237: when others then
1238: fnd_message.set_name ('FND', 'SQL-Generic error');
1239: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1240: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1241: fnd_message.set_token (
1242: 'ROUTINE', 'SUBMIT_PROGRAM: others', FALSE);
1243: init_pvt_vars(TRUE);
1244: return (FALSE);
1245:
1352: return( req_id );
1353:
1354: exception
1355: when context_not_set then
1356: fnd_message.set_name('FND', 'CONC-Context not set');
1357: fnd_message.set_token('ROUTINE', 'submit_set', FALSE);
1358: init_pvt_vars(TRUE);
1359: return(0);
1360:
1353:
1354: exception
1355: when context_not_set then
1356: fnd_message.set_name('FND', 'CONC-Context not set');
1357: fnd_message.set_token('ROUTINE', 'submit_set', FALSE);
1358: init_pvt_vars(TRUE);
1359: return(0);
1360:
1361: when program_not_called then
1358: init_pvt_vars(TRUE);
1359: return(0);
1360:
1361: when program_not_called then
1362: fnd_message.set_name('FND', 'CONC-submit program not called');
1363: fnd_message.set_token('PROGRAM', P_SET_PROGRAMS(TAB_INDEX).program,
1364: FALSE);
1365: fnd_message.set_token('STAGE',P_SET_PROGRAMS(TAB_INDEX).stage, FALSE);
1366: init_pvt_vars(TRUE);
1359: return(0);
1360:
1361: when program_not_called then
1362: fnd_message.set_name('FND', 'CONC-submit program not called');
1363: fnd_message.set_token('PROGRAM', P_SET_PROGRAMS(TAB_INDEX).program,
1364: FALSE);
1365: fnd_message.set_token('STAGE',P_SET_PROGRAMS(TAB_INDEX).stage, FALSE);
1366: init_pvt_vars(TRUE);
1367: return ( 0 );
1361: when program_not_called then
1362: fnd_message.set_name('FND', 'CONC-submit program not called');
1363: fnd_message.set_token('PROGRAM', P_SET_PROGRAMS(TAB_INDEX).program,
1364: FALSE);
1365: fnd_message.set_token('STAGE',P_SET_PROGRAMS(TAB_INDEX).stage, FALSE);
1366: init_pvt_vars(TRUE);
1367: return ( 0 );
1368: when update_failed then
1369: fnd_message.set_name('FND', 'SQL-NO UPDATE');
1365: fnd_message.set_token('STAGE',P_SET_PROGRAMS(TAB_INDEX).stage, FALSE);
1366: init_pvt_vars(TRUE);
1367: return ( 0 );
1368: when update_failed then
1369: fnd_message.set_name('FND', 'SQL-NO UPDATE');
1370: fnd_message.set_token('TABLE', 'fnd_concurrent_requests', FALSE);
1371: init_pvt_vars(TRUE);
1372: return( 0 );
1373: when start_time_error then
1366: init_pvt_vars(TRUE);
1367: return ( 0 );
1368: when update_failed then
1369: fnd_message.set_name('FND', 'SQL-NO UPDATE');
1370: fnd_message.set_token('TABLE', 'fnd_concurrent_requests', FALSE);
1371: init_pvt_vars(TRUE);
1372: return( 0 );
1373: when start_time_error then
1374: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1370: fnd_message.set_token('TABLE', 'fnd_concurrent_requests', FALSE);
1371: init_pvt_vars(TRUE);
1372: return( 0 );
1373: when start_time_error then
1374: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1375: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1376: init_pvt_vars(TRUE);
1377: return (0);
1378: end submit_set;
1371: init_pvt_vars(TRUE);
1372: return( 0 );
1373: when start_time_error then
1374: fnd_message.set_name ('FND', 'CONC-Invalid Req Start Date');
1375: fnd_message.set_token ('START_DATE', requested_start, FALSE);
1376: init_pvt_vars(TRUE);
1377: return (0);
1378: end submit_set;
1379:
1679: return (TRUE);
1680:
1681: exception
1682: when print_together_error then
1683: fnd_message.set_name ('FND', 'CONC-Invalid opt:Print Group');
1684: init_pvt_vars (TRUE);
1685: return (FALSE);
1686:
1687: when printer_error then
1684: init_pvt_vars (TRUE);
1685: return (FALSE);
1686:
1687: when printer_error then
1688: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
1689: fnd_message.set_token ('PRINTER', printer, FALSE);
1690: init_pvt_vars (TRUE);
1691: return (FALSE);
1692:
1685: return (FALSE);
1686:
1687: when printer_error then
1688: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
1689: fnd_message.set_token ('PRINTER', printer, FALSE);
1690: init_pvt_vars (TRUE);
1691: return (FALSE);
1692:
1693: when style_error then
1690: init_pvt_vars (TRUE);
1691: return (FALSE);
1692:
1693: when style_error then
1694: fnd_message.set_name ('FND', 'PRT-Invalid print style');
1695: fnd_message.set_token ('STYLE', style, FALSE);
1696: init_pvt_vars(TRUE);
1697: return (FALSE);
1698:
1691: return (FALSE);
1692:
1693: when style_error then
1694: fnd_message.set_name ('FND', 'PRT-Invalid print style');
1695: fnd_message.set_token ('STYLE', style, FALSE);
1696: init_pvt_vars(TRUE);
1697: return (FALSE);
1698:
1699: when printer_style_error then
1696: init_pvt_vars(TRUE);
1697: return (FALSE);
1698:
1699: when printer_style_error then
1700: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1701: fnd_message.set_token ('STYLE', style, FALSE);
1702: fnd_message.set_token ('PRINTER', printer, FALSE);
1703: init_pvt_vars(TRUE);
1704: return (FALSE);
1697: return (FALSE);
1698:
1699: when printer_style_error then
1700: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1701: fnd_message.set_token ('STYLE', style, FALSE);
1702: fnd_message.set_token ('PRINTER', printer, FALSE);
1703: init_pvt_vars(TRUE);
1704: return (FALSE);
1705:
1698:
1699: when printer_style_error then
1700: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1701: fnd_message.set_token ('STYLE', style, FALSE);
1702: fnd_message.set_token ('PRINTER', printer, FALSE);
1703: init_pvt_vars(TRUE);
1704: return (FALSE);
1705:
1706: when others then
1704: return (FALSE);
1705:
1706: when others then
1707: init_pvt_vars(TRUE);
1708: fnd_message.set_name ('FND', 'SQL-Generic error');
1709: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1710: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1711: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1712: return (FALSE);
1705:
1706: when others then
1707: init_pvt_vars(TRUE);
1708: fnd_message.set_name ('FND', 'SQL-Generic error');
1709: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1710: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1711: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1712: return (FALSE);
1713: end set_print_options;
1706: when others then
1707: init_pvt_vars(TRUE);
1708: fnd_message.set_name ('FND', 'SQL-Generic error');
1709: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1710: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1711: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1712: return (FALSE);
1713: end set_print_options;
1714:
1707: init_pvt_vars(TRUE);
1708: fnd_message.set_name ('FND', 'SQL-Generic error');
1709: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1710: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1711: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1712: return (FALSE);
1713: end set_print_options;
1714:
1715: --
1777: return (TRUE);
1778:
1779: exception
1780: when print_together_error then
1781: fnd_message.set_name ('FND', 'CONC-Invalid opt:Print Group');
1782: init_pvt_vars(TRUE);
1783: return (FALSE);
1784:
1785: when printer_error then
1782: init_pvt_vars(TRUE);
1783: return (FALSE);
1784:
1785: when printer_error then
1786: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
1787: fnd_message.set_token ('PRINTER', printer, FALSE);
1788: init_pvt_vars(TRUE);
1789: return (FALSE);
1790:
1783: return (FALSE);
1784:
1785: when printer_error then
1786: fnd_message.set_name ('FND', 'PRINTERS-No system printer');
1787: fnd_message.set_token ('PRINTER', printer, FALSE);
1788: init_pvt_vars(TRUE);
1789: return (FALSE);
1790:
1791: when style_error then
1788: init_pvt_vars(TRUE);
1789: return (FALSE);
1790:
1791: when style_error then
1792: fnd_message.set_name ('FND', 'PRT-Invalid print style');
1793: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
1794: init_pvt_vars(TRUE);
1795: return (FALSE);
1796:
1789: return (FALSE);
1790:
1791: when style_error then
1792: fnd_message.set_name ('FND', 'PRT-Invalid print style');
1793: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
1794: init_pvt_vars(TRUE);
1795: return (FALSE);
1796:
1797: when printer_style_error then
1794: init_pvt_vars(TRUE);
1795: return (FALSE);
1796:
1797: when printer_style_error then
1798: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1799: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
1800: fnd_message.set_token ('PRINTER', printer, FALSE);
1801: init_pvt_vars(TRUE);
1802: return (FALSE);
1795: return (FALSE);
1796:
1797: when printer_style_error then
1798: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1799: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
1800: fnd_message.set_token ('PRINTER', printer, FALSE);
1801: init_pvt_vars(TRUE);
1802: return (FALSE);
1803:
1796:
1797: when printer_style_error then
1798: fnd_message.set_name ('FND', 'CONC-Invalid printer style');
1799: fnd_message.set_token ('STYLE', P_PRINT_STYLE, FALSE);
1800: fnd_message.set_token ('PRINTER', printer, FALSE);
1801: init_pvt_vars(TRUE);
1802: return (FALSE);
1803:
1804: when others then
1802: return (FALSE);
1803:
1804: when others then
1805: init_pvt_vars(TRUE);
1806: fnd_message.set_name ('FND', 'SQL-Generic error');
1807: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1808: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1809: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1810: return (FALSE);
1803:
1804: when others then
1805: init_pvt_vars(TRUE);
1806: fnd_message.set_name ('FND', 'SQL-Generic error');
1807: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1808: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1809: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1810: return (FALSE);
1811:
1804: when others then
1805: init_pvt_vars(TRUE);
1806: fnd_message.set_name ('FND', 'SQL-Generic error');
1807: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1808: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1809: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1810: return (FALSE);
1811:
1812: end;
1805: init_pvt_vars(TRUE);
1806: fnd_message.set_name ('FND', 'SQL-Generic error');
1807: fnd_message.set_token ('ERRNO', sqlcode, FALSE);
1808: fnd_message.set_token ('REASON', sqlerrm, FALSE);
1809: fnd_message.set_token ('ROUTINE', 'SET_PRINT_OPTIONS', FALSE);
1810: return (FALSE);
1811:
1812: end;
1813:
1842: P_NOTIFICATIONS(P_NOTIFICATION_COUNT).on_warning := on_warning;
1843: P_NOTIFICATIONS(P_NOTIFICATION_COUNT).on_error := on_error;
1844: return TRUE;
1845: else
1846: fnd_message.set_name('FND', 'CONC-INVALID NOTIFY USER');
1847: return FALSE;
1848: end if;*/
1849: cursor c1( user_name varchar2) is
1850: select name, orig_system, orig_system_id
1867: P_NOTIFICATIONS(n_index).on_warning := on_warning;
1868: P_NOTIFICATIONS(n_index).on_error := on_error;
1869:
1870: if( c1%notfound ) then
1871: fnd_message.set_name('FND', 'CONC-INVALID NOTIFY USER');
1872: close c1;
1873: return FALSE;
1874: else
1875: P_NOTIFICATION_COUNT := P_NOTIFICATION_COUNT + 1;