11: function GEN_ERROR(routine in varchar2,
12: errcode in number,
13: errmsg in varchar2) return varchar2 is
14: begin
15: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
16: fnd_message.set_token('ROUTINE', routine);
17: fnd_message.set_token('ERRNO', errcode);
18: fnd_message.set_token('REASON', errmsg);
19: return substr( fnd_message.get, 1, 240);
12: errcode in number,
13: errmsg in varchar2) return varchar2 is
14: begin
15: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
16: fnd_message.set_token('ROUTINE', routine);
17: fnd_message.set_token('ERRNO', errcode);
18: fnd_message.set_token('REASON', errmsg);
19: return substr( fnd_message.get, 1, 240);
20: end;
13: errmsg in varchar2) return varchar2 is
14: begin
15: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
16: fnd_message.set_token('ROUTINE', routine);
17: fnd_message.set_token('ERRNO', errcode);
18: fnd_message.set_token('REASON', errmsg);
19: return substr( fnd_message.get, 1, 240);
20: end;
21:
14: begin
15: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
16: fnd_message.set_token('ROUTINE', routine);
17: fnd_message.set_token('ERRNO', errcode);
18: fnd_message.set_token('REASON', errmsg);
19: return substr( fnd_message.get, 1, 240);
20: end;
21:
22: /*
15: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
16: fnd_message.set_token('ROUTINE', routine);
17: fnd_message.set_token('ERRNO', errcode);
18: fnd_message.set_token('REASON', errmsg);
19: return substr( fnd_message.get, 1, 240);
20: end;
21:
22: /*
23: ** FNDMLSUB
234: and e.application_id(+) = p.mls_executable_app_id;
235:
236: exception
237: when NO_DATA_FOUND then
238: fnd_message.set_name('FND','CONC-Missing program');
239: errbuf := substr(fnd_message.get,1, 240);
240: retcode := 2;
241: return;
242: end;
235:
236: exception
237: when NO_DATA_FOUND then
238: fnd_message.set_name('FND','CONC-Missing program');
239: errbuf := substr(fnd_message.get,1, 240);
240: retcode := 2;
241: return;
242: end;
243:
247: fnd_request_info.initialize;
248:
249: fnd_file.put_line(fnd_file.log,
250: '+---------------------------------------------------------------------------+');
251: fnd_message.set_name('FND', 'CONC-Before lang function');
252: fnd_message.set_token('FUNCTION', funct);
253: fnd_file.put_line(fnd_file.log, fnd_message.get || ' : ' ||
254: to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
255:
248:
249: fnd_file.put_line(fnd_file.log,
250: '+---------------------------------------------------------------------------+');
251: fnd_message.set_name('FND', 'CONC-Before lang function');
252: fnd_message.set_token('FUNCTION', funct);
253: fnd_file.put_line(fnd_file.log, fnd_message.get || ' : ' ||
254: to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
255:
256: fcursor := 'begin :r := '||funct||'; end;';
249: fnd_file.put_line(fnd_file.log,
250: '+---------------------------------------------------------------------------+');
251: fnd_message.set_name('FND', 'CONC-Before lang function');
252: fnd_message.set_token('FUNCTION', funct);
253: fnd_file.put_line(fnd_file.log, fnd_message.get || ' : ' ||
254: to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
255:
256: fcursor := 'begin :r := '||funct||'; end;';
257: begin
267: retcode := 2;
268: return;
269: end;
270:
271: fnd_message.set_name('FND', 'CONC-After lang function');
272: fnd_message.set_token('VALUE', func_outcome );
273:
274: fnd_file.put_line(fnd_file.log, fnd_message.get || ' : ' ||
275: to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
268: return;
269: end;
270:
271: fnd_message.set_name('FND', 'CONC-After lang function');
272: fnd_message.set_token('VALUE', func_outcome );
273:
274: fnd_file.put_line(fnd_file.log, fnd_message.get || ' : ' ||
275: to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
276: fnd_file.put_line(fnd_file.log,
270:
271: fnd_message.set_name('FND', 'CONC-After lang function');
272: fnd_message.set_token('VALUE', func_outcome );
273:
274: fnd_file.put_line(fnd_file.log, fnd_message.get || ' : ' ||
275: to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
276: fnd_file.put_line(fnd_file.log,
277: '+---------------------------------------------------------------------------+');
278:
285: -- Language function associated with [PROGRAM] determined no data exists
286: -- for the given set of parameters
287:
288: if (func_outcome is null ) then
289: fnd_file.put_line(fnd_file.log, fnd_message.get);
290: fnd_message.set_name('FND', 'CONC-MLS no data');
291: fnd_message.set_token('PROGRAM', UserProgramName);
292: errbuf := substr(fnd_message.get, 1, 240);
293: retcode := 1;
286: -- for the given set of parameters
287:
288: if (func_outcome is null ) then
289: fnd_file.put_line(fnd_file.log, fnd_message.get);
290: fnd_message.set_name('FND', 'CONC-MLS no data');
291: fnd_message.set_token('PROGRAM', UserProgramName);
292: errbuf := substr(fnd_message.get, 1, 240);
293: retcode := 1;
294: return;
287:
288: if (func_outcome is null ) then
289: fnd_file.put_line(fnd_file.log, fnd_message.get);
290: fnd_message.set_name('FND', 'CONC-MLS no data');
291: fnd_message.set_token('PROGRAM', UserProgramName);
292: errbuf := substr(fnd_message.get, 1, 240);
293: retcode := 1;
294: return;
295: end if;
288: if (func_outcome is null ) then
289: fnd_file.put_line(fnd_file.log, fnd_message.get);
290: fnd_message.set_name('FND', 'CONC-MLS no data');
291: fnd_message.set_token('PROGRAM', UserProgramName);
292: errbuf := substr(fnd_message.get, 1, 240);
293: retcode := 1;
294: return;
295: end if;
296:
367: from fnd_concurrent_requests
368: where request_id = parent_id;
369: exception
370: when NO_DATA_FOUND then
371: fnd_message.set_name('FND','CONC-Missing Request');
372: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
373: fnd_message.set_token('REQUEST', to_char(parent_id));
374: errbuf := fnd_message.get;
375: retcode := 2;
368: where request_id = parent_id;
369: exception
370: when NO_DATA_FOUND then
371: fnd_message.set_name('FND','CONC-Missing Request');
372: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
373: fnd_message.set_token('REQUEST', to_char(parent_id));
374: errbuf := fnd_message.get;
375: retcode := 2;
376: return;
369: exception
370: when NO_DATA_FOUND then
371: fnd_message.set_name('FND','CONC-Missing Request');
372: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
373: fnd_message.set_token('REQUEST', to_char(parent_id));
374: errbuf := fnd_message.get;
375: retcode := 2;
376: return;
377: end;
370: when NO_DATA_FOUND then
371: fnd_message.set_name('FND','CONC-Missing Request');
372: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
373: fnd_message.set_token('REQUEST', to_char(parent_id));
374: errbuf := fnd_message.get;
375: retcode := 2;
376: return;
377: end;
378:
390: from fnd_languages
391: where language_code = P_LANG(i).lang_code;
392: exception
393: when no_data_found then
394: fnd_message.set_name('FND', 'CONC-Invalid Language Code');
395: fnd_message.set_token('LANG', P_LANG(i).lang_code);
396: errbuf := substr(fnd_message.get, 1, 240);
397: retcode := 2;
398: return;
391: where language_code = P_LANG(i).lang_code;
392: exception
393: when no_data_found then
394: fnd_message.set_name('FND', 'CONC-Invalid Language Code');
395: fnd_message.set_token('LANG', P_LANG(i).lang_code);
396: errbuf := substr(fnd_message.get, 1, 240);
397: retcode := 2;
398: return;
399: end;
392: exception
393: when no_data_found then
394: fnd_message.set_name('FND', 'CONC-Invalid Language Code');
395: fnd_message.set_token('LANG', P_LANG(i).lang_code);
396: errbuf := substr(fnd_message.get, 1, 240);
397: retcode := 2;
398: return;
399: end;
400: else
405: from fnd_languages
406: where language_code = P_LANG(i).lang_code;
407: exception
408: when no_data_found then
409: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
410: fnd_message.set_token('LANG', P_LANG(i).lang_code);
411: fnd_message.set_token('TERR', P_LANG(i).terr_code);
412: errbuf := substr(fnd_message.get, 1, 240);
413: retcode := 2;
406: where language_code = P_LANG(i).lang_code;
407: exception
408: when no_data_found then
409: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
410: fnd_message.set_token('LANG', P_LANG(i).lang_code);
411: fnd_message.set_token('TERR', P_LANG(i).terr_code);
412: errbuf := substr(fnd_message.get, 1, 240);
413: retcode := 2;
414: return;
407: exception
408: when no_data_found then
409: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
410: fnd_message.set_token('LANG', P_LANG(i).lang_code);
411: fnd_message.set_token('TERR', P_LANG(i).terr_code);
412: errbuf := substr(fnd_message.get, 1, 240);
413: retcode := 2;
414: return;
415: end;
408: when no_data_found then
409: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
410: fnd_message.set_token('LANG', P_LANG(i).lang_code);
411: fnd_message.set_token('TERR', P_LANG(i).terr_code);
412: errbuf := substr(fnd_message.get, 1, 240);
413: retcode := 2;
414: return;
415: end;
416: else
421: where language_code = P_LANG(i).lang_code
422: and territory_code = P_LANG(i).terr_code;
423: exception
424: when no_data_found then
425: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
426: fnd_message.set_token('LANG', P_LANG(i).lang_code);
427: fnd_message.set_token('TERR', P_LANG(i).terr_code);
428: errbuf := substr(fnd_message.get, 1, 240);
429: retcode := 2;
422: and territory_code = P_LANG(i).terr_code;
423: exception
424: when no_data_found then
425: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
426: fnd_message.set_token('LANG', P_LANG(i).lang_code);
427: fnd_message.set_token('TERR', P_LANG(i).terr_code);
428: errbuf := substr(fnd_message.get, 1, 240);
429: retcode := 2;
430: return;
423: exception
424: when no_data_found then
425: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
426: fnd_message.set_token('LANG', P_LANG(i).lang_code);
427: fnd_message.set_token('TERR', P_LANG(i).terr_code);
428: errbuf := substr(fnd_message.get, 1, 240);
429: retcode := 2;
430: return;
431: end;
424: when no_data_found then
425: fnd_message.set_name('FND', 'CONC-Invalid LangTerr Code');
426: fnd_message.set_token('LANG', P_LANG(i).lang_code);
427: fnd_message.set_token('TERR', P_LANG(i).terr_code);
428: errbuf := substr(fnd_message.get, 1, 240);
429: retcode := 2;
430: return;
431: end;
432: end if;
443: from fnd_languages
444: where language_code = P_LANG(i).lang_code;
445: exception
446: when no_data_found then
447: fnd_message.set_name('FND', 'CONC-Invalid Language Code');
448: fnd_message.set_token('LANG', P_LANG(i).lang_code);
449: errbuf := substr(fnd_message.get, 1, 240);
450: retcode := 2;
451: return;
444: where language_code = P_LANG(i).lang_code;
445: exception
446: when no_data_found then
447: fnd_message.set_name('FND', 'CONC-Invalid Language Code');
448: fnd_message.set_token('LANG', P_LANG(i).lang_code);
449: errbuf := substr(fnd_message.get, 1, 240);
450: retcode := 2;
451: return;
452: end;
445: exception
446: when no_data_found then
447: fnd_message.set_name('FND', 'CONC-Invalid Language Code');
448: fnd_message.set_token('LANG', P_LANG(i).lang_code);
449: errbuf := substr(fnd_message.get, 1, 240);
450: retcode := 2;
451: return;
452: end;
453:
464: from fnd_territories
465: where territory_code = P_LANG(i).terr_code;
466: exception
467: when no_data_found then
468: fnd_message.set_name('FND', 'CONC-Invalid Territory Code');
469: fnd_message.set_token('TERR', P_LANG(i).terr_code);
470: errbuf := substr(fnd_message.get, 1, 240);
471: retcode := 2;
472: return;
465: where territory_code = P_LANG(i).terr_code;
466: exception
467: when no_data_found then
468: fnd_message.set_name('FND', 'CONC-Invalid Territory Code');
469: fnd_message.set_token('TERR', P_LANG(i).terr_code);
470: errbuf := substr(fnd_message.get, 1, 240);
471: retcode := 2;
472: return;
473: end;
466: exception
467: when no_data_found then
468: fnd_message.set_name('FND', 'CONC-Invalid Territory Code');
469: fnd_message.set_token('TERR', P_LANG(i).terr_code);
470: errbuf := substr(fnd_message.get, 1, 240);
471: retcode := 2;
472: return;
473: end;
474: end if;
515:
516:
517: -- 12.1 NEW MLS Function Str with optional territory and num char
518: if ( chkstrloc = 0 ) then
519: fnd_message.set_name('FND', 'CONC-About submitted requests');
520: else
521: fnd_message.set_name('FND', 'CONC-About submitted req full');
522: end if;
523: fnd_file.put_line(fnd_file.log, fnd_message.get);
517: -- 12.1 NEW MLS Function Str with optional territory and num char
518: if ( chkstrloc = 0 ) then
519: fnd_message.set_name('FND', 'CONC-About submitted requests');
520: else
521: fnd_message.set_name('FND', 'CONC-About submitted req full');
522: end if;
523: fnd_file.put_line(fnd_file.log, fnd_message.get);
524:
525: /* process all the requests */
519: fnd_message.set_name('FND', 'CONC-About submitted requests');
520: else
521: fnd_message.set_name('FND', 'CONC-About submitted req full');
522: end if;
523: fnd_file.put_line(fnd_file.log, fnd_message.get);
524:
525: /* process all the requests */
526: begin
527: /* using cursor for loop for easy coding. run_req_info will return
547: language => P_LANG(ind).nls_language,
548: territory => P_LANG(ind).nls_territory,
549: datagroup => '',
550: numeric_characters => nls_char_spaces )) then
551: errbuf := substr(fnd_message.get, 1, 240);
552: retcode := 2;
553: rollback;
554: return;
555: end if;
566: copies => copies,
567: save_output => (req.save_output_flag = 'Y'),
568: print_together => NULL))
569: then
570: errbuf := substr(fnd_message.get, 1, 240);
571: retcode := 2;
572: close mls_req_printers;
573: rollback;
574: return;
578: while (mls_req_printers%found) loop
579: if (not fnd_request.add_printer(
580: printer => printer,
581: copies => copies)) then
582: errbuf := substr(fnd_message.get, 1, 240);
583: retcode := 2;
584: close mls_req_printers;
585: rollback;
586: return;
594: copies => 0,
595: save_output => (req.save_output_flag = 'Y'),
596: print_together => NULL))
597: then
598: errbuf := substr(fnd_message.get, 1, 240);
599: retcode := 2;
600: close mls_req_printers;
601: rollback;
602: return;
609: (parent_id, req.request_set_program_id,
610: P_LANG(ind).nls_language) loop
611: if (not fnd_request.add_notification(
612: user=>notify_rec.notify)) then
613: errbuf := substr(fnd_message.get, 1, 240);
614: retcode := 2;
615: rollback;
616: return;
617: end if;
641: from fnd_territories
642: where territory_code = P_LANG(ind).terr_code;
643: exception
644: when no_data_found then
645: fnd_message.set_name('FND', 'CONC-Invalid Territory Code');
646: fnd_message.set_token('TERR', P_LANG(ind).terr_code);
647: errbuf := substr(fnd_message.get, 1, 240);
648: retcode := 2;
649: return;
642: where territory_code = P_LANG(ind).terr_code;
643: exception
644: when no_data_found then
645: fnd_message.set_name('FND', 'CONC-Invalid Territory Code');
646: fnd_message.set_token('TERR', P_LANG(ind).terr_code);
647: errbuf := substr(fnd_message.get, 1, 240);
648: retcode := 2;
649: return;
650: end;
643: exception
644: when no_data_found then
645: fnd_message.set_name('FND', 'CONC-Invalid Territory Code');
646: fnd_message.set_token('TERR', P_LANG(ind).terr_code);
647: errbuf := substr(fnd_message.get, 1, 240);
648: retcode := 2;
649: return;
650: end;
651: t_territory := UPPER(P_LANG(ind).terr_code);
660: t_code,
661: t_language,
662: t_territory,
663: t_format)) then
664: errbuf := substr(fnd_message.get, 1, 240);
665: retcode := 2;
666: close mls_function_req_layouts;
667: rollback;
668: return;
688: t_code,
689: t_language,
690: t_territory,
691: t_format)) then
692: errbuf := substr(fnd_message.get, 1, 240);
693: retcode := 2;
694: close mls_req_layouts;
695: rollback;
696: return;
720: delivery_rec.argument8,
721: delivery_rec.argument9,
722: delivery_rec.argument10
723: )) then
724: errbuf := substr(fnd_message.get, 1, 240);
725: retcode := 2;
726: rollback;
727: return;
728: end if;
797: req.argument94, req.argument95, req.argument96,
798: req.argument97, req.argument98, req.argument99,
799: req.argument100);
800: if (req_id = 0) then
801: errbuf := substr(fnd_message.get, 1, 240);
802: retcode := 2;
803: return;
804: end if;
805: has_reqs := TRUE;
824: end loop; /* run_req_info */
825:
826:
827: if ( has_reqs = FALSE ) then
828: fnd_message.set_name('FND', 'CONC-MLS has no requests');
829: errbuf := substr(fnd_message.get, 1, 240);
830: retcode := 2;
831: else
832: fnd_conc_global.set_req_globals(
825:
826:
827: if ( has_reqs = FALSE ) then
828: fnd_message.set_name('FND', 'CONC-MLS has no requests');
829: errbuf := substr(fnd_message.get, 1, 240);
830: retcode := 2;
831: else
832: fnd_conc_global.set_req_globals(
833: conc_status => 'PAUSED',
865: startloc := endloc + 1;
866: end loop;
867:
868: /* print the header for completed request status */
869: fnd_message.set_name('FND', 'CONC-About completed requests');
870: fnd_file.put_line(fnd_file.log, fnd_message.get);
871:
872: for ind in 1..P_LCOUNT loop
873: begin
866: end loop;
867:
868: /* print the header for completed request status */
869: fnd_message.set_name('FND', 'CONC-About completed requests');
870: fnd_file.put_line(fnd_file.log, fnd_message.get);
871:
872: for ind in 1..P_LCOUNT loop
873: begin
874: select decode(status_code, 'C', 'S', 'G', 'W', 'E')
883: end if;
884:
885: exception
886: when NO_DATA_FOUND then
887: fnd_message.set_name('FND','CONC-Missing Request');
888: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
889: fnd_message.set_token('REQUEST', to_char(P_REQ(ind).req_id));
890: errbuf := fnd_message.get;
891: retcode := 2;
884:
885: exception
886: when NO_DATA_FOUND then
887: fnd_message.set_name('FND','CONC-Missing Request');
888: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
889: fnd_message.set_token('REQUEST', to_char(P_REQ(ind).req_id));
890: errbuf := fnd_message.get;
891: retcode := 2;
892: return;
885: exception
886: when NO_DATA_FOUND then
887: fnd_message.set_name('FND','CONC-Missing Request');
888: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
889: fnd_message.set_token('REQUEST', to_char(P_REQ(ind).req_id));
890: errbuf := fnd_message.get;
891: retcode := 2;
892: return;
893: end;
886: when NO_DATA_FOUND then
887: fnd_message.set_name('FND','CONC-Missing Request');
888: fnd_message.set_token('ROUTINE', 'FND_MLS_REQUEST.FNDMLSUB');
889: fnd_message.set_token('REQUEST', to_char(P_REQ(ind).req_id));
890: errbuf := fnd_message.get;
891: retcode := 2;
892: return;
893: end;
894:
917: from fnd_lookups
918: where lookup_type = 'CP_SET_OUTCOME'
919: and lookup_code = decode(retcode,2,'E',1,'W','S');
920:
921: fnd_message.set_name('FND', 'CONC-mls Completed');
922: fnd_message.set_token('OUTCOME', outcome_meaning);
923: errbuf := substr(fnd_message.get, 1, 240);
924:
925: end if; /* req_data */
918: where lookup_type = 'CP_SET_OUTCOME'
919: and lookup_code = decode(retcode,2,'E',1,'W','S');
920:
921: fnd_message.set_name('FND', 'CONC-mls Completed');
922: fnd_message.set_token('OUTCOME', outcome_meaning);
923: errbuf := substr(fnd_message.get, 1, 240);
924:
925: end if; /* req_data */
926:
919: and lookup_code = decode(retcode,2,'E',1,'W','S');
920:
921: fnd_message.set_name('FND', 'CONC-mls Completed');
922: fnd_message.set_token('OUTCOME', outcome_meaning);
923: errbuf := substr(fnd_message.get, 1, 240);
924:
925: end if; /* req_data */
926:
927: end FNDMLSUB;