104: avalue => 'NORESPONSE');
105:
106: l_progress := 'SET_STATUS_REJECTED 002 Setting WF attributes AME_PROCESS_STATUS and APPROVER_RESPONSE';
107: if g_fnd_debug = 'Y' then
108: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
109: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
110: END IF;
111: end if;
112:
105:
106: l_progress := 'SET_STATUS_REJECTED 002 Setting WF attributes AME_PROCESS_STATUS and APPROVER_RESPONSE';
107: if g_fnd_debug = 'Y' then
108: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
109: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
110: END IF;
111: end if;
112:
113: -- no result needed
140: -- in the case of an exception.
141: wf_core.context('POS_SUPP_APPR', 'INITIALIZE_WF',
142: itemtype, itemkey, to_char(actid), funcmode);
143: if g_fnd_debug = 'Y' then
144: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
145: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
146: l_progress ||' sqlerrm - '||sqlerrm);
147: END IF;
148: end if;
141: wf_core.context('POS_SUPP_APPR', 'INITIALIZE_WF',
142: itemtype, itemkey, to_char(actid), funcmode);
143: if g_fnd_debug = 'Y' then
144: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
145: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
146: l_progress ||' sqlerrm - '||sqlerrm);
147: END IF;
148: end if;
149: raise;
193: avalue => 'REJECTED');
194:
195: l_progress := 'SET_STATUS_REJECTED 002 WF attribute AME_PROCESS_STATUS set to REJECETED';
196: if g_fnd_debug = 'Y' then
197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
198: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
199: END IF;
200: end if;
201:
194:
195: l_progress := 'SET_STATUS_REJECTED 002 WF attribute AME_PROCESS_STATUS set to REJECETED';
196: if g_fnd_debug = 'Y' then
197: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
198: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
199: END IF;
200: end if;
201:
202: end if;
215: -- in the case of an exception.
216: wf_core.context('POS_SUPP_APPR', 'SET_STATUS_REJECTED',
217: itemtype, itemkey, to_char(actid), funcmode);
218: if g_fnd_debug = 'Y' then
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
220: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
221: l_progress ||' sqlerrm - '||sqlerrm);
222: END IF;
223: end if;
216: wf_core.context('POS_SUPP_APPR', 'SET_STATUS_REJECTED',
217: itemtype, itemkey, to_char(actid), funcmode);
218: if g_fnd_debug = 'Y' then
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
220: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
221: l_progress ||' sqlerrm - '||sqlerrm);
222: END IF;
223: end if;
224: raise;
265: result => l_profile_value );
266:
267: l_progress := 'IS_AME_ENABLED 002 CHECK_IF_AME_ENABLED returned - '||l_profile_value;
268: if g_fnd_debug = 'Y' then
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
271: END IF;
272: end if;
273:
266:
267: l_progress := 'IS_AME_ENABLED 002 CHECK_IF_AME_ENABLED returned - '||l_profile_value;
268: if g_fnd_debug = 'Y' then
269: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
270: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
271: END IF;
272: end if;
273:
274: resultout := wf_engine.eng_completed||':'||l_profile_value;
288: end if;
289:
290: l_progress := 'IS_AME_ENABLED 003 - WF attributes set';
291: if g_fnd_debug = 'Y' then
292: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
293: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
294: END IF;
295: end if;
296:
289:
290: l_progress := 'IS_AME_ENABLED 003 - WF attributes set';
291: if g_fnd_debug = 'Y' then
292: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
293: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
294: END IF;
295: end if;
296:
297: return;
305: when others then
306: wf_core.context('POSSPAPP', 'POSSPAPP_PROCESS',
307: itemtype, itemkey, to_char(actid), funcmode);
308: if g_fnd_debug = 'Y' then
309: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
310: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
311: l_progress ||' sqlerrm - '||sqlerrm);
312: END IF;
313: end if;
306: wf_core.context('POSSPAPP', 'POSSPAPP_PROCESS',
307: itemtype, itemkey, to_char(actid), funcmode);
308: if g_fnd_debug = 'Y' then
309: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
310: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
311: l_progress ||' sqlerrm - '||sqlerrm);
312: END IF;
313: end if;
314: raise;
401:
402: l_progress := 'GET_NEXT_APPROVER: 002 for AME transactionId - '||itemkey||
403: ' getNextApprovers4 returns completeYNO - '|| l_completeYNO;
404: if g_fnd_debug = 'Y' then
405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
406: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
407: END IF;
408: end if;
409:
402: l_progress := 'GET_NEXT_APPROVER: 002 for AME transactionId - '||itemkey||
403: ' getNextApprovers4 returns completeYNO - '|| l_completeYNO;
404: if g_fnd_debug = 'Y' then
405: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
406: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
407: END IF;
408: end if;
409:
410: if (l_completeYNO = 'Y') then
418:
419: l_progress := 'GET_NEXT_APPROVER: 003 for AME transactionId - '||itemkey||
420: ' setting AME_PROCESS_STATUS to APPROVED';
421: if g_fnd_debug = 'Y' then
422: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
423: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
424: END IF;
425: end if;
426:
419: l_progress := 'GET_NEXT_APPROVER: 003 for AME transactionId - '||itemkey||
420: ' setting AME_PROCESS_STATUS to APPROVED';
421: if g_fnd_debug = 'Y' then
422: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
423: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
424: END IF;
425: end if;
426:
427: return;
436:
437: l_progress := 'GET_NEXT_APPROVER: 004 for next approver orig_System is '||
438: g_next_approvers(l_approver_index).orig_system;
439: if g_fnd_debug = 'Y' then
440: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
441: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
442: END IF;
443: end if;
444:
437: l_progress := 'GET_NEXT_APPROVER: 004 for next approver orig_System is '||
438: g_next_approvers(l_approver_index).orig_system;
439: if g_fnd_debug = 'Y' then
440: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
441: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
442: END IF;
443: end if;
444:
445: -- Check whether Position Hierarchy or Employee-Sup Hierarchy setup or FND users.
479: end if;
480:
481: l_progress := 'GET_NEXT_APPROVER: 005 for next approver approver_id is '||l_next_approver_id;
482: if g_fnd_debug = 'Y' then
483: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
484: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
485: END IF;
486: end if;
487:
480:
481: l_progress := 'GET_NEXT_APPROVER: 005 for next approver approver_id is '||l_next_approver_id;
482: if g_fnd_debug = 'Y' then
483: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
484: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
485: END IF;
486: end if;
487:
488:
489: WF_DIRECTORY.GetUserName('PER', l_next_approver_id, l_next_approver_user_name, l_next_approver_disp_name);
490:
491: l_progress := 'GET_NEXT_APPROVER: 006 for next approver l_next_approver_user_name is '||l_next_approver_user_name;
492: if g_fnd_debug = 'Y' then
493: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
494: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
495: END IF;
496: end if;
497:
490:
491: l_progress := 'GET_NEXT_APPROVER: 006 for next approver l_next_approver_user_name is '||l_next_approver_user_name;
492: if g_fnd_debug = 'Y' then
493: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
494: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
495: END IF;
496: end if;
497:
498:
529:
530:
531: l_progress := 'GET_NEXT_APPROVER: 007 set WF attributes for AME next approver';
532: if g_fnd_debug = 'Y' then
533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
534: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
535: END IF;
536: end if;
537:
530:
531: l_progress := 'GET_NEXT_APPROVER: 007 set WF attributes for AME next approver';
532: if g_fnd_debug = 'Y' then
533: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
534: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
535: END IF;
536: end if;
537:
538: end if;
568: -- in the case of an exception.
569: wf_core.context('POS_SUPP_APPR', 'GET_NEXT_APPROVER',
570: itemtype, itemkey, to_char(actid), funcmode);
571: if g_fnd_debug = 'Y' then
572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
573: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
574: l_progress ||' sqlerrm - '||sqlerrm);
575: END IF;
576: end if;
569: wf_core.context('POS_SUPP_APPR', 'GET_NEXT_APPROVER',
570: itemtype, itemkey, to_char(actid), funcmode);
571: if g_fnd_debug = 'Y' then
572: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
573: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
574: l_progress ||' sqlerrm - '||sqlerrm);
575: END IF;
576: end if;
577: raise;
631:
632: l_progress := 'GET_APPROVER_IN_WF: 002 WF attribute APPROVER_USER_NAME - '||wf_approver ||
633: ' username - '||wf_approver||'WF attribute APPROVER_RESPONSE - '||wf_approver_response;
634: if g_fnd_debug = 'Y' then
635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
636: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
637: END IF;
638: end if;
639:
632: l_progress := 'GET_APPROVER_IN_WF: 002 WF attribute APPROVER_USER_NAME - '||wf_approver ||
633: ' username - '||wf_approver||'WF attribute APPROVER_RESPONSE - '||wf_approver_response;
634: if g_fnd_debug = 'Y' then
635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
636: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
637: END IF;
638: end if;
639:
640: if wf_approver_response = 'NORESPONSE'
655: end if;
656:
657: l_progress := 'GET_APPROVER_IN_WF: 003 values retreived for user_id, description, user_name are - '||user_id||', '||user_name||', '||user_firstname||','||user_lastname;
658: if g_fnd_debug = 'Y' then
659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
660: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
661: END IF;
662: end if;
663:
656:
657: l_progress := 'GET_APPROVER_IN_WF: 003 values retreived for user_id, description, user_name are - '||user_id||', '||user_name||', '||user_firstname||','||user_lastname;
658: if g_fnd_debug = 'Y' then
659: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
660: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
661: END IF;
662: end if;
663:
664: exception
663:
664: exception
665: when others then
666: if g_fnd_debug = 'Y' then
667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
668: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
669: l_progress ||' sqlerrm - '||sqlerrm);
670: END IF;
671: end if;
664: exception
665: when others then
666: if g_fnd_debug = 'Y' then
667: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
668: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
669: l_progress ||' sqlerrm - '||sqlerrm);
670: END IF;
671: end if;
672: status := 'E';
705: CHECK_IF_AME_ENABLED(result => isAmeEnabled);
706:
707: l_progress := 'CHECK_IF_APPROVER: 002 CHECK_IF_AME_ENABLED returns '||isAmeEnabled;
708: if g_fnd_debug = 'Y' then
709: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
710: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
711: END IF;
712: end if;
713:
706:
707: l_progress := 'CHECK_IF_APPROVER: 002 CHECK_IF_AME_ENABLED returns '||isAmeEnabled;
708: if g_fnd_debug = 'Y' then
709: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
710: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
711: END IF;
712: end if;
713:
714: if (isAmeEnabled = wf_no) then
738:
739: l_progress := 'CHECK_IF_APPROVER: 003 WF attribute APPROVER_USER_NAME - '||wf_approver ||
740: ' username - '||wf_approver||'WF attribute APPROVER_RESPONSE - '||wf_approver_response;
741: if g_fnd_debug = 'Y' then
742: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
743: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
744: END IF;
745: end if;
746:
739: l_progress := 'CHECK_IF_APPROVER: 003 WF attribute APPROVER_USER_NAME - '||wf_approver ||
740: ' username - '||wf_approver||'WF attribute APPROVER_RESPONSE - '||wf_approver_response;
741: if g_fnd_debug = 'Y' then
742: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
743: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
744: END IF;
745: end if;
746:
747: if wf_approver = approver AND wf_approver_response = 'NORESPONSE'
755:
756: exception
757: when others then
758: if g_fnd_debug = 'Y' then
759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
760: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
761: l_progress ||' sqlerrm - '||sqlerrm);
762: END IF;
763: end if;
756: exception
757: when others then
758: if g_fnd_debug = 'Y' then
759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
760: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
761: l_progress ||' sqlerrm - '||sqlerrm);
762: END IF;
763: end if;
764: result := wf_no;
797:
798: l_progress := 'GET_AME_PROCESS_STATUS: 002 suppid - '||suppid||' WF attribute AME_PROCESS_STATUS'||result;
799:
800: if g_fnd_debug = 'Y' then
801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
802: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
803: END IF;
804: end if;
805:
798: l_progress := 'GET_AME_PROCESS_STATUS: 002 suppid - '||suppid||' WF attribute AME_PROCESS_STATUS'||result;
799:
800: if g_fnd_debug = 'Y' then
801: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
802: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
803: END IF;
804: end if;
805:
806: exception
805:
806: exception
807: when others then
808: if g_fnd_debug = 'Y' then
809: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
810: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
811: l_progress ||' sqlerrm - '||sqlerrm);
812: END IF;
813: end if;
806: exception
807: when others then
808: if g_fnd_debug = 'Y' then
809: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
810: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
811: l_progress ||' sqlerrm - '||sqlerrm);
812: END IF;
813: end if;
814: raise;
852:
853: l_progress := 'PROCESS_APPROVE: 002 username - '||approver||' approver in WF - '||wf_approver;
854:
855: if g_fnd_debug = 'Y' then
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
858: END IF;
859: end if;
860:
853: l_progress := 'PROCESS_APPROVE: 002 username - '||approver||' approver in WF - '||wf_approver;
854:
855: if g_fnd_debug = 'Y' then
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
858: END IF;
859: end if;
860:
861: if wf_approver = approver
867:
868: l_progress := 'PROCESS_APPROVE: 003 WF attribute APPROVER_RESPONSE set to APPROVE for itemkey - '||suppid;
869:
870: if g_fnd_debug = 'Y' then
871: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
872: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
873: END IF;
874: end if;
875:
868: l_progress := 'PROCESS_APPROVE: 003 WF attribute APPROVER_RESPONSE set to APPROVE for itemkey - '||suppid;
869:
870: if g_fnd_debug = 'Y' then
871: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
872: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
873: END IF;
874: end if;
875:
876: Process_Response_Internal( suppid,'APPROVE');
877:
878: l_progress := 'PROCESS_APPROVE: 004 Invoked Process_Response_Internal with attributes - '||suppid||' and APPROVE';
879:
880: if g_fnd_debug = 'Y' then
881: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
882: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
883: END IF;
884: end if;
885:
878: l_progress := 'PROCESS_APPROVE: 004 Invoked Process_Response_Internal with attributes - '||suppid||' and APPROVE';
879:
880: if g_fnd_debug = 'Y' then
881: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
882: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
883: END IF;
884: end if;
885:
886:
902: -- commit;
903: result := 'SUCCESS';
904:
905: if g_fnd_debug = 'Y' then
906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
907: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
908: END IF;
909: end if;
910:
903: result := 'SUCCESS';
904:
905: if g_fnd_debug = 'Y' then
906: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
907: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
908: END IF;
909: end if;
910:
911: else
910:
911: else
912:
913: if g_fnd_debug = 'Y' then
914: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
915: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
916: ' This should never happenwf_approver != approver l_progress - '||l_progress );
917: END IF;
918: end if;
911: else
912:
913: if g_fnd_debug = 'Y' then
914: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
915: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
916: ' This should never happenwf_approver != approver l_progress - '||l_progress );
917: END IF;
918: end if;
919:
924: result =>processresult);
925:
926: l_progress := 'PROCESS_APPROVE: 006 GET_AME_PROCESS_STATUS returns - '||processresult;
927: if g_fnd_debug = 'Y' then
928: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
929: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
930: END IF;
931: end if;
932:
925:
926: l_progress := 'PROCESS_APPROVE: 006 GET_AME_PROCESS_STATUS returns - '||processresult;
927: if g_fnd_debug = 'Y' then
928: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
929: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
930: END IF;
931: end if;
932:
933:
933:
934: exception
935: when others then
936: if g_fnd_debug = 'Y' then
937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
938: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
939: l_progress ||' sqlerrm - '||sqlerrm);
940: END IF;
941: end if;
934: exception
935: when others then
936: if g_fnd_debug = 'Y' then
937: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
938: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
939: l_progress ||' sqlerrm - '||sqlerrm);
940: END IF;
941: end if;
942: raise;
983:
984: l_progress := 'PROCESS_REJECT: 002 username - '||approver||' approver in WF - '||wf_approver;
985:
986: if g_fnd_debug = 'Y' then
987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
988: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
989: END IF;
990: end if;
991:
984: l_progress := 'PROCESS_REJECT: 002 username - '||approver||' approver in WF - '||wf_approver;
985:
986: if g_fnd_debug = 'Y' then
987: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
988: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
989: END IF;
990: end if;
991:
992: if wf_approver = approver
999:
1000: l_progress := 'PROCESS_REJECT: 003 WF attribute APPROVER_RESPONSE set to REJECT for itemkey - '||suppid;
1001:
1002: if g_fnd_debug = 'Y' then
1003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1004: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1005: END IF;
1006: end if;
1007:
1000: l_progress := 'PROCESS_REJECT: 003 WF attribute APPROVER_RESPONSE set to REJECT for itemkey - '||suppid;
1001:
1002: if g_fnd_debug = 'Y' then
1003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1004: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1005: END IF;
1006: end if;
1007:
1008:
1010:
1011: l_progress := 'PROCESS_REJECT: 004 Invoked Process_Response_Internal with attributes - '||suppid||' and REJECT';
1012:
1013: if g_fnd_debug = 'Y' then
1014: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1015: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1016: END IF;
1017: end if;
1018:
1011: l_progress := 'PROCESS_REJECT: 004 Invoked Process_Response_Internal with attributes - '||suppid||' and REJECT';
1012:
1013: if g_fnd_debug = 'Y' then
1014: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1015: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1016: END IF;
1017: end if;
1018:
1019:
1036: -- commit;
1037: result := 'SUCCESS';
1038:
1039: if g_fnd_debug = 'Y' then
1040: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1041: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1042: END IF;
1043: end if;
1044:
1037: result := 'SUCCESS';
1038:
1039: if g_fnd_debug = 'Y' then
1040: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1041: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1042: END IF;
1043: end if;
1044:
1045: else
1044:
1045: else
1046:
1047: if g_fnd_debug = 'Y' then
1048: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1049: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
1050: ' This should never happenwf_approver != approver l_progress - '||l_progress );
1051: END IF;
1052: end if;
1045: else
1046:
1047: if g_fnd_debug = 'Y' then
1048: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1049: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
1050: ' This should never happenwf_approver != approver l_progress - '||l_progress );
1051: END IF;
1052: end if;
1053:
1059: result =>processresult);
1060:
1061: l_progress := 'PROCESS_REJECT: 006 GET_AME_PROCESS_STATUS returns - '||processresult;
1062: if g_fnd_debug = 'Y' then
1063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1064: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1065: END IF;
1066: end if;
1067:
1060:
1061: l_progress := 'PROCESS_REJECT: 006 GET_AME_PROCESS_STATUS returns - '||processresult;
1062: if g_fnd_debug = 'Y' then
1063: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1064: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1065: END IF;
1066: end if;
1067:
1068: exception
1067:
1068: exception
1069: when others then
1070: if g_fnd_debug = 'Y' then
1071: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1072: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
1073: l_progress ||' sqlerrm - '||sqlerrm);
1074: END IF;
1075: end if;
1068: exception
1069: when others then
1070: if g_fnd_debug = 'Y' then
1071: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1072: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
1073: l_progress ||' sqlerrm - '||sqlerrm);
1074: END IF;
1075: end if;
1076: raise;
1099:
1100: l_progress := 'CHECK_IF_AME_ENABLED: 002 -- result :' || result ;
1101:
1102: if g_fnd_debug = 'Y' then
1103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1104: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1105: END IF;
1106: end if;
1107:
1100: l_progress := 'CHECK_IF_AME_ENABLED: 002 -- result :' || result ;
1101:
1102: if g_fnd_debug = 'Y' then
1103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1104: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1105: END IF;
1106: end if;
1107:
1108: exception
1107:
1108: exception
1109: when others then
1110: if g_fnd_debug = 'Y' then
1111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1112: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
1113: ' Unexpected Error l_progress - '||l_progress );
1114: END IF;
1115: end if;
1108: exception
1109: when others then
1110: if g_fnd_debug = 'Y' then
1111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1112: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
1113: ' Unexpected Error l_progress - '||l_progress );
1114: END IF;
1115: end if;
1116: raise;
1157:
1158: l_progress := 'Process_Response_Internal: 002 -- l_approver_type :' || l_approver_type ;
1159:
1160: if g_fnd_debug = 'Y' then
1161: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1162: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1163: END IF;
1164: end if;
1165:
1158: l_progress := 'Process_Response_Internal: 002 -- l_approver_type :' || l_approver_type ;
1159:
1160: if g_fnd_debug = 'Y' then
1161: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1162: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1163: END IF;
1164: end if;
1165:
1166: -- bug 5486926
1211: l_progress := 'Process_Response_Internal: 003 -- l_current_approver.orig_system_id :' ||
1212: l_current_approver.orig_system_id ;
1213:
1214: if g_fnd_debug = 'Y' then
1215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1216: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1217: END IF;
1218: end if;
1219:
1212: l_current_approver.orig_system_id ;
1213:
1214: if g_fnd_debug = 'Y' then
1215: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1216: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1217: END IF;
1218: end if;
1219:
1220: if( p_response = 'APPROVE') then
1227:
1228: l_progress := 'Process_Response_Internal: 004 -- p_response :' || p_response ;
1229:
1230: if g_fnd_debug = 'Y' then
1231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1232: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1233: END IF;
1234: end if;
1235:
1228: l_progress := 'Process_Response_Internal: 004 -- p_response :' || p_response ;
1229:
1230: if g_fnd_debug = 'Y' then
1231: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1232: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1233: END IF;
1234: end if;
1235:
1236:
1243: l_progress := 'Process_Response_Internal: 005 -- Updated AME for transactiontype -'||ameTransactionType||
1244: ' and transactionId - '||suppid;
1245:
1246: if g_fnd_debug = 'Y' then
1247: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1248: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1249: END IF;
1250: end if;
1251:
1244: ' and transactionId - '||suppid;
1245:
1246: if g_fnd_debug = 'Y' then
1247: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1248: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1249: END IF;
1250: end if;
1251:
1252: exception
1251:
1252: exception
1253: when others then
1254: if g_fnd_debug = 'Y' then
1255: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1256: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
1257: ' Unexpected Error l_progress - '||l_progress );
1258: END IF;
1259: end if;
1252: exception
1253: when others then
1254: if g_fnd_debug = 'Y' then
1255: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1256: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name,
1257: ' Unexpected Error l_progress - '||l_progress );
1258: END IF;
1259: end if;
1260: raise;
1321:
1322: l_progress := 4;
1323:
1324: if g_fnd_debug = 'Y' then
1325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1326: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name,
1327: 'Started workflow itemtype - '|| wfItemType ||' itemkey - '||suppid);
1328: END IF;
1329: end if;
1322: l_progress := 4;
1323:
1324: if g_fnd_debug = 'Y' then
1325: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1326: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name,
1327: 'Started workflow itemtype - '|| wfItemType ||' itemkey - '||suppid);
1328: END IF;
1329: end if;
1330:
1339:
1340: result := 'FAILURE';
1341:
1342: IF (g_fnd_debug = 'Y') THEN
1343: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1344: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,g_module_prefix ||l_api_name,
1345: 'Error in starting workflow l_progress - ' || l_progress ||' sqlerrm - '||sqlerrm);
1346: END IF;
1347: END IF;
1340: result := 'FAILURE';
1341:
1342: IF (g_fnd_debug = 'Y') THEN
1343: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1344: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,g_module_prefix ||l_api_name,
1345: 'Error in starting workflow l_progress - ' || l_progress ||' sqlerrm - '||sqlerrm);
1346: END IF;
1347: END IF;
1348:
1390:
1391: BEGIN
1392:
1393: if g_fnd_debug = 'Y' then
1394: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1395: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Entering get_ame_approval_list...');
1396: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Input param - pProspSupplierId :' ||
1397: pProspSupplierId );
1398: END IF;
1391: BEGIN
1392:
1393: if g_fnd_debug = 'Y' then
1394: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1395: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Entering get_ame_approval_list...');
1396: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Input param - pProspSupplierId :' ||
1397: pProspSupplierId );
1398: END IF;
1399: end if;
1392:
1393: if g_fnd_debug = 'Y' then
1394: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1395: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Entering get_ame_approval_list...');
1396: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Input param - pProspSupplierId :' ||
1397: pProspSupplierId );
1398: END IF;
1399: end if;
1400:
1415: for i in 1 .. approverList.count loop
1416:
1417: l_valid_approver := 'Y';
1418: if g_fnd_debug = 'Y' then
1419: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1420: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' Processing the approver :' || i );
1421: END IF;
1422: end if;
1423:
1416:
1417: l_valid_approver := 'Y';
1418: if g_fnd_debug = 'Y' then
1419: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1420: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' Processing the approver :' || i );
1421: END IF;
1422: end if;
1423:
1424: -- do not consider the deleted approver.
1437: if ( l_orig_system = 'PER') then
1438:
1439: -- Employee Supervisor Record.
1440: if g_fnd_debug = 'Y' then
1441: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1442: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Emp - Sup Record ...');
1443: END IF;
1444: end if;
1445:
1438:
1439: -- Employee Supervisor Record.
1440: if g_fnd_debug = 'Y' then
1441: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1442: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Emp - Sup Record ...');
1443: END IF;
1444: end if;
1445:
1446: l_full_name := approverList(i).display_name;
1450: elsif ( l_orig_system = 'POS') then
1451:
1452: -- Position Hierarchy Record. The logic is mentioned in the comments section.
1453: if g_fnd_debug = 'Y' then
1454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1455: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Position Hierarchy Record ...');
1456: END IF;
1457: end if;
1458:
1451:
1452: -- Position Hierarchy Record. The logic is mentioned in the comments section.
1453: if g_fnd_debug = 'Y' then
1454: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1455: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Position Hierarchy Record ...');
1456: END IF;
1457: end if;
1458:
1459: begin
1478: elsif (l_orig_system = 'FND' OR l_orig_system = 'FND_USR' ) then
1479:
1480: -- FND User Record.
1481: if g_fnd_debug = 'Y' then
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'FND User Record ...');
1484: END IF;
1485: end if;
1486:
1479:
1480: -- FND User Record.
1481: if g_fnd_debug = 'Y' then
1482: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1483: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'FND User Record ...');
1484: END IF;
1485: end if;
1486:
1487: SELECT employee_id into l_person_id
1493:
1494: end if;
1495:
1496: if g_fnd_debug = 'Y' then
1497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1498: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_full_name :' || l_full_name );
1499: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_person_id :' || l_person_id );
1500: END IF;
1501: end if;
1494: end if;
1495:
1496: if g_fnd_debug = 'Y' then
1497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1498: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_full_name :' || l_full_name );
1499: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_person_id :' || l_person_id );
1500: END IF;
1501: end if;
1502:
1495:
1496: if g_fnd_debug = 'Y' then
1497: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1498: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_full_name :' || l_full_name );
1499: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_person_id :' || l_person_id );
1500: END IF;
1501: end if;
1502:
1503: -- Find position | job name
1531: SELECT name INTO l_job_or_position FROM per_jobs WHERE job_id = l_job_id;
1532: end if;
1533:
1534: if g_fnd_debug = 'Y' then
1535: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1536: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_job_or_position :' || l_job_or_position );
1537: END IF;
1538: end if;
1539:
1532: end if;
1533:
1534: if g_fnd_debug = 'Y' then
1535: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1536: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, ' l_job_or_position :' || l_job_or_position );
1537: END IF;
1538: end if;
1539:
1540: end if;
1574:
1575: pApprovalListStr := approvalListStr;
1576:
1577: if g_fnd_debug = 'Y' then
1578: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1579: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Leaving get_ame_approval_list...');
1580: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListStr :' || pApprovalListStr);
1581: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListCount :' || pApprovalListCount);
1582: END IF;
1575: pApprovalListStr := approvalListStr;
1576:
1577: if g_fnd_debug = 'Y' then
1578: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1579: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Leaving get_ame_approval_list...');
1580: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListStr :' || pApprovalListStr);
1581: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListCount :' || pApprovalListCount);
1582: END IF;
1583: end if;
1576:
1577: if g_fnd_debug = 'Y' then
1578: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1579: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Leaving get_ame_approval_list...');
1580: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListStr :' || pApprovalListStr);
1581: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListCount :' || pApprovalListCount);
1582: END IF;
1583: end if;
1584:
1577: if g_fnd_debug = 'Y' then
1578: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1579: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Leaving get_ame_approval_list...');
1580: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListStr :' || pApprovalListStr);
1581: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, 'Output param -- pApprovalListCount :' || pApprovalListCount);
1582: END IF;
1583: end if;
1584:
1585: exception
1586: when NO_DATA_FOUND then
1587: pApprovalListCount := 0;
1588: pApprovalListStr := 'NO_DATA_FOUND';
1589: if g_fnd_debug = 'Y' then
1590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1591: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1592: l_api_name || '.NO_DATA_FOUND', 'NO_DATA_FOUND');
1593: END IF;
1594: end if;
1587: pApprovalListCount := 0;
1588: pApprovalListStr := 'NO_DATA_FOUND';
1589: if g_fnd_debug = 'Y' then
1590: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1591: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1592: l_api_name || '.NO_DATA_FOUND', 'NO_DATA_FOUND');
1593: END IF;
1594: end if;
1595:
1596: when others then
1597: pApprovalListCount := 0;
1598: pApprovalListStr := 'EXCEPTION';
1599: if g_fnd_debug = 'Y' then
1600: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1601: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1602: l_api_name || '.others_exception', sqlerrm);
1603: END IF;
1604:
1597: pApprovalListCount := 0;
1598: pApprovalListStr := 'EXCEPTION';
1599: if g_fnd_debug = 'Y' then
1600: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1601: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1602: l_api_name || '.others_exception', sqlerrm);
1603: END IF;
1604:
1605: end if;
1630: CHECK_IF_AME_ENABLED(result => isAmeEnabled);
1631:
1632: l_progress := 'CHECK_CURRENT_APPROVER: 002 CHECK_IF_AME_ENABLED returns '||isAmeEnabled;
1633: if g_fnd_debug = 'Y' then
1634: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1635: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1636: END IF;
1637: end if;
1638:
1631:
1632: l_progress := 'CHECK_CURRENT_APPROVER: 002 CHECK_IF_AME_ENABLED returns '||isAmeEnabled;
1633: if g_fnd_debug = 'Y' then
1634: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1635: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1636: END IF;
1637: end if;
1638:
1639: if (isAmeEnabled = wf_no) then
1660:
1661: exception
1662: when others then
1663: if g_fnd_debug = 'Y' then
1664: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1665: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
1666: l_progress ||' sqlerrm - '||sqlerrm);
1667: END IF;
1668: end if;
1661: exception
1662: when others then
1663: if g_fnd_debug = 'Y' then
1664: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1665: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
1666: l_progress ||' sqlerrm - '||sqlerrm);
1667: END IF;
1668: end if;
1669: return 'N';
1703:
1704: l_progress := 'GET_APPROVER_NAME_IN_WF: 002 WF attribute APPROVER_USER_NAME - '||wf_approver ||
1705: ' username - '||wf_approver||'WF attribute APPROVER_RESPONSE - '||wf_approver_response;
1706: if g_fnd_debug = 'Y' then
1707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1708: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1709: END IF;
1710: end if;
1711:
1704: l_progress := 'GET_APPROVER_NAME_IN_WF: 002 WF attribute APPROVER_USER_NAME - '||wf_approver ||
1705: ' username - '||wf_approver||'WF attribute APPROVER_RESPONSE - '||wf_approver_response;
1706: if g_fnd_debug = 'Y' then
1707: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1708: FND_LOG.string(FND_LOG.level_statement, g_module_prefix || l_api_name, l_progress );
1709: END IF;
1710: end if;
1711:
1712: if wf_approver_response = 'NORESPONSE'
1731:
1732: exception
1733: when others then
1734: if g_fnd_debug = 'Y' then
1735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1736: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
1737: l_progress ||' sqlerrm - '||sqlerrm);
1738: END IF;
1739: end if;
1732: exception
1733: when others then
1734: if g_fnd_debug = 'Y' then
1735: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1736: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, g_module_prefix || l_api_name, ' Unexpected Error l_progress - '||
1737: l_progress ||' sqlerrm - '||sqlerrm);
1738: END IF;
1739: end if;
1740: return '';