[Home] [Help]
184:
185:
186:
187: BEGIN
188: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
189: itemkey,
190: 'ORG_ID');
191:
192: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
188: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
189: itemkey,
190: 'ORG_ID');
191:
192: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
193: itemkey,
194: 'INVOICE_ID');
195:
196: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
192: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
193: itemkey,
194: 'INVOICE_ID');
195:
196: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
197: itemkey,
198: 'HOLD_ID');
199: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
200: itemkey,
195:
196: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
197: itemkey,
198: 'HOLD_ID');
199: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
200: itemkey,
201: 'ITERATION');
202:
203: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
199: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
200: itemkey,
201: 'ITERATION');
202:
203: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
204: itemkey,
205: 'NOTF_ITERATION');
206:
207: l_debug_info := l_api_name || ': get variables from workflow' ||
234: END IF;
235: APP_EXCEPTION.RAISE_EXCEPTION;
236: END IF;
237: IF l_next_approver.person_id is null THEN /*no approver on the list*/
238: resultout := wf_engine.eng_completed||':'||'N';
239: ELSE -- have approver
240: WF_DIRECTORY.GetRoleName('PER',
241: l_next_approver.person_id,l_role,
242: l_role_display);
243: WF_DIRECTORY.GetUserName('PER',
244: l_next_approver.person_id,
245: l_name,
246: l_display_name);
247: WF_ENGINE.SetItemAttrText(itemtype,
248: itemkey,
249: 'INTERNAL_REP_ROLE',
250: l_role);
251:
248: itemkey,
249: 'INTERNAL_REP_ROLE',
250: l_role);
251:
252: WF_ENGINE.SetItemAttrText(itemtype,
253: itemkey,
254: 'ORIG_SYSTEM',
255: 'PER');
256:
253: itemkey,
254: 'ORIG_SYSTEM',
255: 'PER');
256:
257: WF_ENGINE.SetItemAttrText(itemtype,
258: itemkey,
259: 'INTERNAL_REP_DISPLAY_NAME',
260: l_display_name);
261:
258: itemkey,
259: 'INTERNAL_REP_DISPLAY_NAME',
260: l_display_name);
261:
262: WF_ENGINE.SetItemAttrNumber(itemtype,
263: itemkey,
264: 'INTERNAL_REP_PERSON_ID',
265: l_next_approver.person_id);
266: --Now set the environment
284: l_hist_rec.NOTIFICATION_ORDER := l_notf_iteration;
285:
286: insert_history_table(p_hist_rec => l_hist_rec);
287:
288: resultout := wf_engine.eng_completed||':'||'Y';
289: END IF;
290:
291: EXCEPTION
292:
309: l_num number;
310: l_debug_info VARCHAR2(2000);
311: l_api_name CONSTANT VARCHAR2(200) := 'is_negotiable_flow';
312: BEGIN
313: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
314: itemkey,
315: 'ORG_ID');
316:
317: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
313: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
314: itemkey,
315: 'ORG_ID');
316:
317: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
318: itemkey,
319: 'INVOICE_ID');
320:
321: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
317: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
318: itemkey,
319: 'INVOICE_ID');
320:
321: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
322: itemkey,
323: 'HOLD_ID');
324: l_debug_info := 'Before select';
325: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
341: and ail.po_line_location_id = h.line_location_id
342: and h.status_flag = 'S'
343: and h.hold_lookup_code in ('PRICE', 'QTY ORD', 'QTY REC', 'AMT ORD', 'AMT REC')));
344: IF l_num > 0 THEN
345: resultout := wf_engine.eng_completed||':'||'Y';
346: WF_ENGINE.SetItemAttrText(itemtype,
347: itemkey,
348: 'NOTF_CONTEXT',
349: 'HOLDNEGOTIABLE');
342: and h.status_flag = 'S'
343: and h.hold_lookup_code in ('PRICE', 'QTY ORD', 'QTY REC', 'AMT ORD', 'AMT REC')));
344: IF l_num > 0 THEN
345: resultout := wf_engine.eng_completed||':'||'Y';
346: WF_ENGINE.SetItemAttrText(itemtype,
347: itemkey,
348: 'NOTF_CONTEXT',
349: 'HOLDNEGOTIABLE');
350: ELSE
347: itemkey,
348: 'NOTF_CONTEXT',
349: 'HOLDNEGOTIABLE');
350: ELSE
351: WF_ENGINE.SetItemAttrText(itemtype,
352: itemkey,
353: 'NOTF_CONTEXT',
354: 'HOLDNONNEGOTIABLE');
355: resultout := wf_engine.eng_completed||':'||'N';
351: WF_ENGINE.SetItemAttrText(itemtype,
352: itemkey,
353: 'NOTF_CONTEXT',
354: 'HOLDNONNEGOTIABLE');
355: resultout := wf_engine.eng_completed||':'||'N';
356: END IF;
357: l_debug_info := 'After select, reultout : ' || resultout;
358: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
385: l_iteration NUMBER;
386: l_notf_iteration NUMBER;
387:
388: BEGIN
389: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
390: itemkey,
391: 'ORG_ID');
392:
393: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
389: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
390: itemkey,
391: 'ORG_ID');
392:
393: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
394: itemkey,
395: 'INVOICE_ID');
396:
397: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
393: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
394: itemkey,
395: 'INVOICE_ID');
396:
397: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
398: itemkey,
399: 'HOLD_ID');
400:
401: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
397: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
398: itemkey,
399: 'HOLD_ID');
400:
401: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
402: itemkey,
403: 'INTERNAL_REP_PERSON_ID');
404:
405: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
401: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
402: itemkey,
403: 'INTERNAL_REP_PERSON_ID');
404:
405: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
406: itemkey,
407: 'ITERATION');
408:
409: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
405: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
406: itemkey,
407: 'ITERATION');
408:
409: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
410: itemkey,
411: 'NOTF_ITERATION');
412: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
413: 'INTERNAL_REP_DISPLAY_NAME');
408:
409: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
410: itemkey,
411: 'NOTF_ITERATION');
412: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
413: 'INTERNAL_REP_DISPLAY_NAME');
414:
415:
416: --Now set the environment
452: approverPersonIdIn => l_approver_id,
453: approverUserIdIn => NULL,
454: transactionTypeIn => 'APHLD');
455:
456: resultout := wf_engine.eng_completed||':'||'Y';
457: EXCEPTION
458:
459: WHEN OTHERS
460: THEN
478: l_iteration NUMBER;
479: l_notf_iteration NUMBER;
480:
481: BEGIN
482: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
483: itemkey,
484: 'ORG_ID');
485:
486: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
482: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
483: itemkey,
484: 'ORG_ID');
485:
486: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
487: itemkey,
488: 'INVOICE_ID');
489:
490: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
486: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
487: itemkey,
488: 'INVOICE_ID');
489:
490: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
491: itemkey,
492: 'HOLD_ID');
493:
494: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
490: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
491: itemkey,
492: 'HOLD_ID');
493:
494: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
495: itemkey,
496: 'INTERNAL_REP_PERSON_ID');
497:
498: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
494: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
495: itemkey,
496: 'INTERNAL_REP_PERSON_ID');
497:
498: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
499: itemkey,
500: 'ITERATION');
501:
502: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
498: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
499: itemkey,
500: 'ITERATION');
501:
502: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
503: itemkey,
504: 'NOTF_ITERATION');
505:
506: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
502: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
503: itemkey,
504: 'NOTF_ITERATION');
505:
506: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
507: 'INTERNAL_REP_DISPLAY_NAME');
508:
509: --Now set the environment
510: MO_GLOBAL.INIT ('SQLAP');
556: UPDATE ap_holds_all
557: SET wf_status = 'RELEASED'
558: WHERE hold_id = l_hold_id;
559:
560: resultout := wf_engine.eng_completed||':'||'Y';
561: EXCEPTION
562:
563: WHEN OTHERS
564: THEN
582: l_iteration NUMBER;
583: l_notf_iteration NUMBER;
584:
585: BEGIN
586: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
587: itemkey,
588: 'ORG_ID');
589:
590: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
586: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
587: itemkey,
588: 'ORG_ID');
589:
590: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
591: itemkey,
592: 'INVOICE_ID');
593:
594: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
590: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
591: itemkey,
592: 'INVOICE_ID');
593:
594: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
595: itemkey,
596: 'HOLD_ID');
597:
598: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
594: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
595: itemkey,
596: 'HOLD_ID');
597:
598: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
599: itemkey,
600: 'INTERNAL_REP_PERSON_ID');
601:
602: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
598: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
599: itemkey,
600: 'INTERNAL_REP_PERSON_ID');
601:
602: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
603: itemkey,
604: 'ITERATION');
605:
606: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
602: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
603: itemkey,
604: 'ITERATION');
605:
606: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
607: itemkey,
608: 'NOTF_ITERATION');
609:
610: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
606: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
607: itemkey,
608: 'NOTF_ITERATION');
609:
610: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
611: 'INTERNAL_REP_DISPLAY_NAME');
612:
613: --Now set the environment
614: MO_GLOBAL.INIT ('SQLAP');
649: approverPersonIdIn => l_approver_id,
650: approverUserIdIn => NULL,
651: transactionTypeIn => 'APHLD');
652:
653: resultout := wf_engine.eng_completed||':'||'Y';
654: EXCEPTION
655:
656: WHEN OTHERS
657: THEN
675: l_iteration NUMBER;
676: l_notf_iteration NUMBER;
677:
678: BEGIN
679: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
680: itemkey,
681: 'ORG_ID');
682:
683: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
679: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
680: itemkey,
681: 'ORG_ID');
682:
683: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
684: itemkey,
685: 'INVOICE_ID');
686:
687: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
683: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
684: itemkey,
685: 'INVOICE_ID');
686:
687: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
688: itemkey,
689: 'HOLD_ID');
690:
691: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
687: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
688: itemkey,
689: 'HOLD_ID');
690:
691: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
692: itemkey,
693: 'INTERNAL_REP_PERSON_ID');
694:
695: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
691: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
692: itemkey,
693: 'INTERNAL_REP_PERSON_ID');
694:
695: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
696: itemkey,
697: 'ITERATION');
698:
699: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
695: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
696: itemkey,
697: 'ITERATION');
698:
699: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
700: itemkey,
701: 'NOTF_ITERATION');
702:
703: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
699: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
700: itemkey,
701: 'NOTF_ITERATION');
702:
703: l_display_name := WF_ENGINE.getItemAttrText(itemtype, itemkey,
704: 'INTERNAL_REP_DISPLAY_NAME');
705: --Now set the environment
706: MO_GLOBAL.INIT ('SQLAP');
707: MO_GLOBAL.set_policy_context('S',l_org_id);
752: UPDATE ap_holds_all
753: SET wf_status = 'RELEASED'
754: WHERE hold_id = l_hold_id;
755:
756: resultout := wf_engine.eng_completed||':'||'Y';
757: EXCEPTION
758:
759: WHEN OTHERS
760: THEN
769: funcmode IN VARCHAR2,
770: resultout OUT NOCOPY VARCHAR2 ) IS
771: l_notf_receipient_type VARCHAR2(50);
772: BEGIN
773: l_notf_receipient_type := WF_ENGINE.getItemAttrText(itemtype, itemkey,
774: 'NOTF_RECEIPIENT_TYPE');
775: IF l_notf_receipient_type = 'INTERNAL' THEN
776: resultout := wf_engine.eng_completed||':'||'Y';
777: ELSE
772: BEGIN
773: l_notf_receipient_type := WF_ENGINE.getItemAttrText(itemtype, itemkey,
774: 'NOTF_RECEIPIENT_TYPE');
775: IF l_notf_receipient_type = 'INTERNAL' THEN
776: resultout := wf_engine.eng_completed||':'||'Y';
777: ELSE
778: resultout := wf_engine.eng_completed||':'||'N';
779: END IF;
780: EXCEPTION
774: 'NOTF_RECEIPIENT_TYPE');
775: IF l_notf_receipient_type = 'INTERNAL' THEN
776: resultout := wf_engine.eng_completed||':'||'Y';
777: ELSE
778: resultout := wf_engine.eng_completed||':'||'N';
779: END IF;
780: EXCEPTION
781:
782: WHEN OTHERS
791: funcmode IN VARCHAR2,
792: resultout OUT NOCOPY VARCHAR2 ) IS
793:
794: BEGIN
795: resultout := wf_engine.eng_completed||':'||'Y';
796: EXCEPTION
797:
798: WHEN OTHERS
799: THEN
824: l_curr_calling_sequence VARCHAR2(2000);
825:
826:
827: BEGIN
828: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
829: itemkey,
830: 'ORG_ID');
831:
832: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
828: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
829: itemkey,
830: 'ORG_ID');
831:
832: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
833: itemkey,
834: 'INVOICE_ID');
835:
836: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
832: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
833: itemkey,
834: 'INVOICE_ID');
835:
836: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
837: itemkey,
838: 'HOLD_ID');
839:
840: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
836: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
837: itemkey,
838: 'HOLD_ID');
839:
840: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
841: itemkey,
842: 'SUPPLIER_PERSON_ID');
843: l_internal_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
844: itemkey,
839:
840: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
841: itemkey,
842: 'SUPPLIER_PERSON_ID');
843: l_internal_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
844: itemkey,
845: 'INTERNAL_REP_PERSON_ID');
846: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
847: itemkey,
842: 'SUPPLIER_PERSON_ID');
843: l_internal_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
844: itemkey,
845: 'INTERNAL_REP_PERSON_ID');
846: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
847: itemkey,
848: 'SUPPLIER_DISPLAY_NAME');
849: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
850: itemkey,
845: 'INTERNAL_REP_PERSON_ID');
846: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
847: itemkey,
848: 'SUPPLIER_DISPLAY_NAME');
849: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
850: itemkey,
851: 'PARENT_KEY');
852:
853: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
849: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
850: itemkey,
851: 'PARENT_KEY');
852:
853: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
854: itemkey,
855: 'ITERATION');
856:
857: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
853: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
854: itemkey,
855: 'ITERATION');
856:
857: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
858: itemkey,
859: 'NOTF_ITERATION');
860:
861: --Now set the environment
912: approverPersonIdIn => l_internal_approver_id,
913: approverUserIdIn => NULL,
914: transactionTypeIn => 'APHLD');
915:
916: l_debug_info := 'Before wf_engine.CompleteActivity';
917: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
918: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
919: l_api_name,l_debug_info);
920: END IF;
917: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
918: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
919: l_api_name,l_debug_info);
920: END IF;
921: wf_engine.CompleteActivity(
922: itemType => 'APINVHDN',
923: itemKey => l_parentkey,
924: activity => 'HOLD_MAIN:WAITNEGOTIABLE',
925: result => 'NULL');
927: UPDATE ap_holds_all
928: SET wf_status = 'RELEASED'
929: WHERE hold_id = l_hold_id;
930:
931: resultout := wf_engine.eng_completed||':'||'Y';
932: EXCEPTION
933:
934: WHEN OTHERS
935: THEN
944: funcmode IN VARCHAR2,
945: resultout OUT NOCOPY VARCHAR2 ) IS
946:
947: BEGIN
948: resultout := wf_engine.eng_completed||':'||'Y';
949: EXCEPTION
950:
951: WHEN OTHERS
952: THEN
999:
1000:
1001:
1002: BEGIN
1003: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1004: itemkey,
1005: 'ORG_ID');
1006:
1007: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1003: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1004: itemkey,
1005: 'ORG_ID');
1006:
1007: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1008: itemkey,
1009: 'INVOICE_ID');
1010:
1011: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1007: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1008: itemkey,
1009: 'INVOICE_ID');
1010:
1011: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1012: itemkey,
1013: 'HOLD_ID');
1014:
1015: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1011: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1012: itemkey,
1013: 'HOLD_ID');
1014:
1015: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1016: itemkey,
1017: 'SUPPLIER_PERSON_ID');
1018: l_internal_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1019: itemkey,
1014:
1015: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1016: itemkey,
1017: 'SUPPLIER_PERSON_ID');
1018: l_internal_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1019: itemkey,
1020: 'INTERNAL_REP_PERSON_ID');
1021: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
1022: itemkey,
1017: 'SUPPLIER_PERSON_ID');
1018: l_internal_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1019: itemkey,
1020: 'INTERNAL_REP_PERSON_ID');
1021: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
1022: itemkey,
1023: 'SUPPLIER_DISPLAY_NAME');
1024: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
1025: itemkey,
1020: 'INTERNAL_REP_PERSON_ID');
1021: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
1022: itemkey,
1023: 'SUPPLIER_DISPLAY_NAME');
1024: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
1025: itemkey,
1026: 'PARENT_KEY');
1027:
1028: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1024: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
1025: itemkey,
1026: 'PARENT_KEY');
1027:
1028: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1029: itemkey,
1030: 'ITERATION');
1031:
1032: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1028: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1029: itemkey,
1030: 'ITERATION');
1031:
1032: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1033: itemkey,
1034: 'NOTF_ITERATION');
1035:
1036: --Now set the environment
1100: approverPersonIdIn => l_internal_approver_id,
1101: approverUserIdIn => NULL,
1102: transactionTypeIn => 'APHLD');
1103:
1104: l_debug_info := 'Before wf_engine.CompleteActivity';
1105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1107: l_api_name,l_debug_info);
1108: END IF;
1105: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1107: l_api_name,l_debug_info);
1108: END IF;
1109: wf_engine.CompleteActivity(
1110: itemType => 'APINVHDN',
1111: itemKey => l_parentkey,
1112: activity => 'HOLD_MAIN:WAITNEGOTIABLE',
1113: result => 'NULL');
1111: itemKey => l_parentkey,
1112: activity => 'HOLD_MAIN:WAITNEGOTIABLE',
1113: result => 'NULL');
1114:
1115: resultout := wf_engine.eng_completed||':'||'Y';
1116: EXCEPTION
1117:
1118: WHEN OTHERS
1119: THEN
1141: l_success BOOLEAN;
1142: l_error_code VARCHAR2(4000);
1143: l_curr_calling_sequence VARCHAR2(2000);
1144: BEGIN
1145: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1146: itemkey,
1147: 'ORG_ID');
1148:
1149: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1145: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1146: itemkey,
1147: 'ORG_ID');
1148:
1149: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1150: itemkey,
1151: 'INVOICE_ID');
1152:
1153: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1149: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1150: itemkey,
1151: 'INVOICE_ID');
1152:
1153: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1154: itemkey,
1155: 'HOLD_ID');
1156:
1157: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1153: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1154: itemkey,
1155: 'HOLD_ID');
1156:
1157: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1158: itemkey,
1159: 'INTERNAL_REP_PERSON_ID');
1160: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
1161: itemkey,
1156:
1157: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1158: itemkey,
1159: 'INTERNAL_REP_PERSON_ID');
1160: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
1161: itemkey,
1162: 'INTERNAL_REP_DISPLAY_NAME');
1163: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
1164: itemkey,
1159: 'INTERNAL_REP_PERSON_ID');
1160: l_display_name := WF_ENGINE.GETITEMATTRText(itemtype,
1161: itemkey,
1162: 'INTERNAL_REP_DISPLAY_NAME');
1163: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
1164: itemkey,
1165: 'PARENT_KEY');
1166:
1167: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1163: l_parentkey := WF_ENGINE.GETITEMATTRText(itemtype,
1164: itemkey,
1165: 'PARENT_KEY');
1166:
1167: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1168: itemkey,
1169: 'ITERATION');
1170:
1171: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1167: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1168: itemkey,
1169: 'ITERATION');
1170:
1171: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1172: itemkey,
1173: 'NOTF_ITERATION');
1174:
1175:
1227: approverPersonIdIn => l_approver_id,
1228: approverUserIdIn => NULL,
1229: transactionTypeIn => 'APHLD');
1230:
1231: l_debug_info := 'Before wf_engine.CompleteActivity';
1232: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1234: l_api_name,l_debug_info);
1235: END IF;
1232: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1234: l_api_name,l_debug_info);
1235: END IF;
1236: wf_engine.CompleteActivity(
1237: itemType => 'APINVHDN',
1238: itemKey => l_parentkey,
1239: activity => 'HOLD_MAIN:WAITNEGOTIABLE',
1240: result => 'NULL');
1243: UPDATE ap_holds_all
1244: SET wf_status = 'RELEASED'
1245: WHERE hold_id = l_hold_id;
1246:
1247: resultout := wf_engine.eng_completed||':'||'Y';
1248: EXCEPTION
1249:
1250: WHEN OTHERS
1251: THEN
1295: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1296: l_api_name,l_debug_info);
1297: END IF;
1298:
1299: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1300: itemkey,
1301: 'ORG_ID');
1302:
1303: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1299: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1300: itemkey,
1301: 'ORG_ID');
1302:
1303: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1304: itemkey,
1305: 'INVOICE_ID');
1306:
1307: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1303: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1304: itemkey,
1305: 'INVOICE_ID');
1306:
1307: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1308: itemkey,
1309: 'ITERATION');
1310:
1311: l_debug_info := 'get invoice amount';
1414: SET WFApproval_Status = 'NOT REQUIRED'
1415: WHERE Invoice_Id = l_invoice_id
1416: AND WFApproval_Status = 'INITIATED';
1417:
1418: resultout := wf_engine.eng_completed||':'||'N';
1419:
1420: --we do not care if there are anymore
1421: --productions
1422: EXIT;
1489: SET WFApproval_Status = 'REJECTED'
1490: WHERE Invoice_Id = l_invoice_id
1491: AND WFApproval_Status = 'INITIATED';
1492:
1493: resultout := wf_engine.eng_completed||':'||'N';
1494: END IF; --required and rejected
1495:
1496: ELSE --there were no production results
1497:
1499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1501: l_api_name,l_debug_info);
1502: END IF;
1503: resultout := wf_engine.eng_completed||':'||'Y';
1504:
1505: END IF;
1506:
1507: resultout := nvl(resultout, wf_engine.eng_completed||':'||'Y');
1503: resultout := wf_engine.eng_completed||':'||'Y';
1504:
1505: END IF;
1506:
1507: resultout := nvl(resultout, wf_engine.eng_completed||':'||'Y');
1508:
1509: EXCEPTION
1510: WHEN OTHERS
1511: THEN
1556: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1557: l_api_name,l_debug_info);
1558: END IF;
1559:
1560: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1561: itemkey,
1562: 'ORG_ID');
1563:
1564: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1560: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1561: itemkey,
1562: 'ORG_ID');
1563:
1564: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1565: itemkey,
1566: 'INVOICE_ID');
1567:
1568: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1564: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
1565: itemkey,
1566: 'INVOICE_ID');
1567:
1568: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
1569: itemkey,
1570: 'ITERATION');
1571:
1572: --check AME if any production rules should prevent approval
1717: G_CURRENT_RUNTIME_LEVEL) THEN
1718: FND_LOG.STRING(G_LEVEL_STATEMENT,
1719: G_MODULE_NAME||l_api_name,l_debug_info);
1720: END IF;
1721: resultout := wf_engine.eng_completed||':'||'Y';
1722: ELSE
1723: l_debug_info := 'No More Lines require approval in this invoice';
1724: IF (G_LEVEL_STATEMENT >=
1725: G_CURRENT_RUNTIME_LEVEL) THEN
1725: G_CURRENT_RUNTIME_LEVEL) THEN
1726: FND_LOG.STRING(G_LEVEL_STATEMENT,
1727: G_MODULE_NAME||l_api_name,l_debug_info);
1728: END IF;
1729: resultout := wf_engine.eng_completed||':'||'N';
1730: END IF;
1731: */
1732: resultout := wf_engine.eng_completed||':'||'Y';
1733:
1728: END IF;
1729: resultout := wf_engine.eng_completed||':'||'N';
1730: END IF;
1731: */
1732: resultout := wf_engine.eng_completed||':'||'Y';
1733:
1734: EXCEPTION
1735:
1736: WHEN OTHERS
1778: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1779: l_api_name,l_debug_info);
1780: END IF;
1781:
1782: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
1783: (itemtype,
1784: itemkey,
1785: 'INVOICE_ID');
1786: l_iteration := WF_ENGINE.GETITEMATTRNumber
1782: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
1783: (itemtype,
1784: itemkey,
1785: 'INVOICE_ID');
1786: l_iteration := WF_ENGINE.GETITEMATTRNumber
1787: (itemtype,
1788: itemkey,
1789: 'ITERATION');
1790: l_org_id := WF_ENGINE.GETITEMATTRNumber
1786: l_iteration := WF_ENGINE.GETITEMATTRNumber
1787: (itemtype,
1788: itemkey,
1789: 'ITERATION');
1790: l_org_id := WF_ENGINE.GETITEMATTRNumber
1791: (itemtype,
1792: itemkey,
1793: 'ORG_ID');
1794: l_debug_info := l_api_name ||
2205: END IF; -- end if for IF nvl(l_next_approver.item_class,
2206: -- 'line item') <> ame_util.headerItemClassName
2207: END LOOP; --nextApprovers table
2208: END IF; --complete
2209: resultout := wf_engine.eng_completed;
2210: EXCEPTION
2211: WHEN OTHERS THEN
2212: WF_CORE.CONTEXT('APINVAPR','get_approvers',itemtype,
2213: itemkey, to_char(actid), funcmode);
2259: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2260: l_api_name,l_debug_info);
2261: END IF;
2262:
2263: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
2264: (itemtype,
2265: itemkey,
2266: 'INVOICE_ID');
2267: l_iteration := WF_ENGINE.GETITEMATTRNumber
2263: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
2264: (itemtype,
2265: itemkey,
2266: 'INVOICE_ID');
2267: l_iteration := WF_ENGINE.GETITEMATTRNumber
2268: (itemtype,
2269: itemkey,
2270: 'ITERATION');
2271:
2345:
2346: END LOOP;
2347:
2348: IF l_pend <> 0 THEN
2349: resultout := wf_engine.eng_completed||':'||'MORE';
2350: ELSE
2351: l_debug_info := 'Into the No Pending Case';
2352: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2353: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2423: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2424: l_api_name,l_debug_info);
2425: END IF;
2426:
2427: resultout := wf_engine.eng_completed||':'||'FINISH';
2428:
2429: ELSIF l_sent >0 THEN
2430:
2431: l_debug_info := 'Set the Result to Finish';
2432: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2433: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2434: l_api_name,l_debug_info);
2435: END IF;
2436: resultout := wf_engine.eng_completed||':'||'WAIT';
2437:
2438: ELSIF l_sent = 0 AND l_comp >0 THEN
2439:
2440: l_debug_info := l_api_name ||': all complete but none sent';
2481: WHERE Invoice_Id = l_invoice_id;
2482:
2483:
2484:
2485: resultout := wf_engine.eng_completed||':'||'FINISH';
2486: END IF; -- sent/complete checks
2487: END IF;
2488:
2489: EXCEPTION
2550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2551: l_api_name,l_debug_info);
2552: END IF;
2553:
2554: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
2555: (itemtype,
2556: itemkey,
2557: 'INVOICE_ID');
2558: l_org_id := WF_ENGINE.GETITEMATTRNumber
2554: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
2555: (itemtype,
2556: itemkey,
2557: 'INVOICE_ID');
2558: l_org_id := WF_ENGINE.GETITEMATTRNumber
2559: (itemtype,
2560: itemkey,
2561: 'ORG_ID');
2562:
2682: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2683: l_api_name,l_debug_info);
2684: END IF;
2685:
2686: WF_ENGINE.createProcess('APINVAPR',
2687: l_notification_key,
2688: 'APPROVAL_INVOICE_LINES');
2689:
2690: l_debug_info := 'After: Create The Lines Sub Process';
2703: l_orig_system_id,
2704: Notif_Process_Rec.role_name,
2705: l_approver_name);
2706:
2707: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2708: l_notification_key,
2709: 'ORG_ID',
2710: l_org_id);
2711: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2707: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2708: l_notification_key,
2709: 'ORG_ID',
2710: l_org_id);
2711: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2712: l_notification_key,
2713: 'INVOICE_ID',
2714: l_invoice_id);
2715: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2711: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2712: l_notification_key,
2713: 'INVOICE_ID',
2714: l_invoice_id);
2715: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2716: l_notification_key,
2717: 'INVOICE_ITERATION',
2718: l_invoice_iteration);
2719: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2715: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2716: l_notification_key,
2717: 'INVOICE_ITERATION',
2718: l_invoice_iteration);
2719: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2720: l_notification_key,
2721: 'NOTF_ITERATION',
2722: l_notification_iteration);
2723: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2719: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2720: l_notification_key,
2721: 'NOTF_ITERATION',
2722: l_notification_iteration);
2723: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2724: l_notification_key,
2725: 'APPROVER_ID',
2726: l_orig_system_id);
2727: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2723: WF_ENGINE.SetItemAttrNumber('APINVAPR',
2724: l_notification_key,
2725: 'APPROVER_ID',
2726: l_orig_system_id);
2727: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2728: l_notification_key,
2729: 'ROLE_NAME',
2730: Notif_Process_Rec.role_name);
2731: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2727: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2728: l_notification_key,
2729: 'ROLE_NAME',
2730: Notif_Process_Rec.role_name);
2731: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2732: l_notification_key,
2733: 'APPROVER_NAME',
2734: l_approver_name);
2735: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2731: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2732: l_notification_key,
2733: 'APPROVER_NAME',
2734: l_approver_name);
2735: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2736: l_notification_key,
2737: 'INVOICE_SUPPLIER_NAME',
2738: l_invoice_supplier_name);
2739: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2735: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2736: l_notification_key,
2737: 'INVOICE_SUPPLIER_NAME',
2738: l_invoice_supplier_name);
2739: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2740: l_notification_key,
2741: 'INVOICE_SUPPLIER_SITE',
2742: l_invoice_supplier_site);
2743: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2739: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2740: l_notification_key,
2741: 'INVOICE_SUPPLIER_SITE',
2742: l_invoice_supplier_site);
2743: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2744: l_notification_key,
2745: 'INVOICE_NUMBER',
2746: l_invoice_number);
2747: WF_ENGINE.SETITEMATTRDATE('APINVAPR',
2743: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2744: l_notification_key,
2745: 'INVOICE_NUMBER',
2746: l_invoice_number);
2747: WF_ENGINE.SETITEMATTRDATE('APINVAPR',
2748: l_notification_key,
2749: 'INVOICE_DATE',
2750: l_invoice_date);
2751: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2747: WF_ENGINE.SETITEMATTRDATE('APINVAPR',
2748: l_notification_key,
2749: 'INVOICE_DATE',
2750: l_invoice_date);
2751: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2752: l_notification_key,
2753: 'INVOICE_DESCRIPTION',
2754: l_invoice_description);
2755: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2751: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2752: l_notification_key,
2753: 'INVOICE_DESCRIPTION',
2754: l_invoice_description);
2755: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2756: l_notification_key,
2757: 'NOTIFICATION_KEY',
2758: l_notification_key);
2759: WF_ENGINE.SETITEMATTRNUMBER
2755: WF_ENGINE.SETITEMATTRTEXT('APINVAPR',
2756: l_notification_key,
2757: 'NOTIFICATION_KEY',
2758: l_notification_key);
2759: WF_ENGINE.SETITEMATTRNUMBER
2760: (
2761: itemtype => 'APINVAPR',
2762: itemkey => l_notification_key,
2763: aname => 'INVOICE_TOTAL',
2762: itemkey => l_notification_key,
2763: aname => 'INVOICE_TOTAL',
2764: avalue => l_invoice_total
2765: );
2766: WF_ENGINE.SETITEMATTRTEXT
2767: (
2768: itemtype => 'APINVAPR',
2769: itemkey => l_notification_key,
2770: aname => 'INVOICE_CURRENCY_CODE',
2781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2782: l_api_name,l_debug_info);
2783: END IF;
2784:
2785: WF_ENGINE.setItemParent('APINVAPR',
2786: l_notification_key,
2787: 'APINVAPR',
2788: itemKey,
2789: null);
2793: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2794: l_api_name,l_debug_info);
2795: END IF;
2796:
2797: wf_engine.startProcess('APINVAPR', l_notification_key);
2798:
2799: l_debug_info := 'Update the ap_apinv_approvers notification status';
2800: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2801: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2809: END IF;
2810:
2811: END LOOP;
2812:
2813: resultout := wf_engine.eng_completed||':'||'Y';
2814:
2815: EXCEPTION
2816:
2817: WHEN OTHERS
2830: funcmode IN VARCHAR2,
2831: resultout OUT NOCOPY VARCHAR2 ) IS
2832:
2833: BEGIN
2834: resultout := wf_engine.eng_completed||':'||'Y';
2835: EXCEPTION
2836:
2837: WHEN OTHERS
2838: THEN
2875: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2876: l_api_name,l_debug_info);
2877: END IF;
2878:
2879: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
2880: itemkey,
2881: 'INVOICE_ID');
2882:
2883: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
2879: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
2880: itemkey,
2881: 'INVOICE_ID');
2882:
2883: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
2884: itemkey,
2885: 'WF_NOTE');
2886:
2887: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2883: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
2884: itemkey,
2885: 'WF_NOTE');
2886:
2887: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2888: itemkey,
2889: 'ORG_ID');
2890:
2891: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
2887: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2888: itemkey,
2889: 'ORG_ID');
2890:
2891: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
2892: itemkey,
2893: 'INVOICE_TOTAL');
2894:
2895: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
2891: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
2892: itemkey,
2893: 'INVOICE_TOTAL');
2894:
2895: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
2896: itemkey,
2897: 'APPROVER_NAME');
2898:
2899: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
2895: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
2896: itemkey,
2897: 'APPROVER_NAME');
2898:
2899: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
2900: itemkey,
2901: 'ESC_ROLE_NAME');
2902:
2903: l_document_approver := WF_ENGINE.GetItemAttrText(itemtype,
2899: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
2900: itemkey,
2901: 'ESC_ROLE_NAME');
2902:
2903: l_document_approver := WF_ENGINE.GetItemAttrText(itemtype,
2904: itemkey,
2905: 'DOCUMENT_APPROVER');
2906:
2907: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2903: l_document_approver := WF_ENGINE.GetItemAttrText(itemtype,
2904: itemkey,
2905: 'DOCUMENT_APPROVER');
2906:
2907: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2908: itemkey,
2909: 'APPROVER_ID');
2910:
2911: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
2907: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2908: itemkey,
2909: 'APPROVER_ID');
2910:
2911: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
2912: itemkey,
2913: 'ESCALATED');
2914:
2915: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
2911: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
2912: itemkey,
2913: 'ESCALATED');
2914:
2915: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
2916: itemkey,
2917: 'ESC_APPROVER_NAME');
2918:
2919: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2915: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
2916: itemkey,
2917: 'ESC_APPROVER_NAME');
2918:
2919: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2920: itemkey,
2921: 'ESC_APPROVER_ID');
2922:
2923: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
2919: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
2920: itemkey,
2921: 'ESC_APPROVER_ID');
2922:
2923: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
2924: itemkey,
2925: 'ITERATION');
2926:
2927:
2990: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
2991: l_api_name,l_debug_info);
2992: END IF;
2993:
2994: resultout := wf_engine.eng_completed||':'||'Y';
2995: EXCEPTION
2996: WHEN OTHERS
2997: THEN
2998: WF_CORE.CONTEXT('APINVAPR','process_doc_rejection',itemtype,
3037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3038: l_api_name,l_debug_info);
3039: END IF;
3040:
3041: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3042: itemkey,
3043: 'INVOICE_ID');
3044:
3045: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3041: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3042: itemkey,
3043: 'INVOICE_ID');
3044:
3045: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3046: itemkey,
3047: 'WF_NOTE');
3048:
3049: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3045: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3046: itemkey,
3047: 'WF_NOTE');
3048:
3049: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3050: itemkey,
3051: 'ORG_ID');
3052:
3053: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
3049: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3050: itemkey,
3051: 'ORG_ID');
3052:
3053: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
3054: itemkey,
3055: 'INVOICE_TOTAL');
3056:
3057: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3053: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
3054: itemkey,
3055: 'INVOICE_TOTAL');
3056:
3057: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3058: itemkey,
3059: 'APPROVER_NAME');
3060:
3061: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3057: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3058: itemkey,
3059: 'APPROVER_NAME');
3060:
3061: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3062: itemkey,
3063: 'ESC_ROLE_NAME');
3064:
3065: l_document_approver := WF_ENGINE.GetItemAttrText(itemtype,
3061: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3062: itemkey,
3063: 'ESC_ROLE_NAME');
3064:
3065: l_document_approver := WF_ENGINE.GetItemAttrText(itemtype,
3066: itemkey,
3067: 'DOCUMENT_APPROVER');
3068:
3069: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3065: l_document_approver := WF_ENGINE.GetItemAttrText(itemtype,
3066: itemkey,
3067: 'DOCUMENT_APPROVER');
3068:
3069: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3070: itemkey,
3071: 'APPROVER_ID');
3072:
3073: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3069: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3070: itemkey,
3071: 'APPROVER_ID');
3072:
3073: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3074: itemkey,
3075: 'ESCALATED');
3076:
3077: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3073: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3074: itemkey,
3075: 'ESCALATED');
3076:
3077: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3078: itemkey,
3079: 'ESC_APPROVER_NAME');
3080:
3081: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3077: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3078: itemkey,
3079: 'ESC_APPROVER_NAME');
3080:
3081: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3082: itemkey,
3083: 'ESC_APPROVER_ID');
3084:
3085: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3081: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3082: itemkey,
3083: 'ESC_APPROVER_ID');
3084:
3085: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3086: itemkey,
3087: 'ITERATION');
3088:
3089: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3085: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3086: itemkey,
3087: 'ITERATION');
3088:
3089: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3090: itemkey,
3091: 'NOTF_ITERATION');
3092: -- added for the delegation enhancement
3093: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
3089: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3090: itemkey,
3091: 'NOTF_ITERATION');
3092: -- added for the delegation enhancement
3093: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
3094: itemkey,
3095: 'ROLE_ACTUAL');
3096: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
3097: itemkey,
3092: -- added for the delegation enhancement
3093: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
3094: itemkey,
3095: 'ROLE_ACTUAL');
3096: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
3097: itemkey,
3098: 'ESC_ROLE_ACTUAL');
3099: -- added for the delegation enhancement
3100: l_user_id := nvl(to_number(fnd_profile.value('USER_ID')),-1);
3154:
3155: -- Set WF_NOTE to null
3156: -- 01/24/2007
3157:
3158: WF_ENGINE.SetItemAttrText('APINVAPR',
3159: itemkey,
3160: 'WF_NOTE',
3161: null);
3162: -- added for the delegation enhancement
3160: 'WF_NOTE',
3161: null);
3162: -- added for the delegation enhancement
3163:
3164: WF_ENGINE.SetItemAttrText(itemtype,
3165: itemkey,
3166: 'FORWARD_ROLE',
3167: null);
3168: -- added for the delegation enhancement
3175: l_api_name,l_debug_info);
3176: END IF;
3177:
3178:
3179: resultout := wf_engine.eng_completed||':'||'Y';
3180: EXCEPTION
3181: WHEN OTHERS
3182: THEN
3183: WF_CORE.CONTEXT('APINVAPR','process_doc_approval',itemtype,
3237: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3238: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3239: l_api_name,l_debug_info);
3240: END IF;
3241: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3242: itemkey,
3243: 'INVOICE_ID');
3244:
3245: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3241: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3242: itemkey,
3243: 'INVOICE_ID');
3244:
3245: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3246: itemkey,
3247: 'ITERATION');
3248:
3249: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3245: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3246: itemkey,
3247: 'ITERATION');
3248:
3249: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3250: itemkey,
3251: 'WF_NOTE');
3252:
3253: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3249: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3250: itemkey,
3251: 'WF_NOTE');
3252:
3253: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3254: itemkey,
3255: 'ORG_ID');
3256:
3257: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3253: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3254: itemkey,
3255: 'ORG_ID');
3256:
3257: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3258: itemkey,
3259: 'APPROVER_NAME');
3260:
3261: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3257: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3258: itemkey,
3259: 'APPROVER_NAME');
3260:
3261: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3262: itemkey,
3263: 'ESC_ROLE_NAME');
3264:
3265: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3261: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3262: itemkey,
3263: 'ESC_ROLE_NAME');
3264:
3265: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3266: itemkey,
3267: 'ROLE_NAME');
3268:
3269: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3265: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3266: itemkey,
3267: 'ROLE_NAME');
3268:
3269: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3270: itemkey,
3271: 'APPROVER_ID');
3272:
3273: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3269: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3270: itemkey,
3271: 'APPROVER_ID');
3272:
3273: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3274: itemkey,
3275: 'ESCALATED');
3276: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3277: itemkey,
3272:
3273: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3274: itemkey,
3275: 'ESCALATED');
3276: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3277: itemkey,
3278: 'ESC_APPROVER_NAME');
3279:
3280: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3276: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3277: itemkey,
3278: 'ESC_APPROVER_NAME');
3279:
3280: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3281: itemkey,
3282: 'ESC_APPROVER_ID');
3283:
3284: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3280: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3281: itemkey,
3282: 'ESC_APPROVER_ID');
3283:
3284: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3285: itemkey,
3286: 'NOTF_ITERATION');
3287:
3288: l_user_id := nvl(to_number(fnd_profile.value('USER_ID')),-1);
3392: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3393: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3394: l_api_name,l_debug_info);
3395: END IF;
3396: wf_engine.CompleteActivity(
3397: itemType => 'APINVAPR',
3398: itemKey => l_invoice_key,
3399: activity => 'APPROVAL_MAIN:BLOCK',
3400: result => 'NULL');
3403: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3404: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3405: l_api_name,l_debug_info);
3406: END IF;
3407: resultout := wf_engine.eng_completed||':'||'Y';
3408: EXCEPTION
3409:
3410: WHEN OTHERS
3411: THEN
3465: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3466: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3467: l_api_name,l_debug_info);
3468: END IF;
3469: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3470: itemkey,
3471: 'INVOICE_ID');
3472:
3473: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3469: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3470: itemkey,
3471: 'INVOICE_ID');
3472:
3473: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3474: itemkey,
3475: 'ITERATION');
3476:
3477: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3473: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3474: itemkey,
3475: 'ITERATION');
3476:
3477: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3478: itemkey,
3479: 'NOTF_ITERATION');
3480:
3481: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3477: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3478: itemkey,
3479: 'NOTF_ITERATION');
3480:
3481: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3482: itemkey,
3483: 'WF_NOTE');
3484:
3485: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3481: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3482: itemkey,
3483: 'WF_NOTE');
3484:
3485: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3486: itemkey,
3487: 'ORG_ID');
3488:
3489: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3485: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3486: itemkey,
3487: 'ORG_ID');
3488:
3489: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3490: itemkey,
3491: 'APPROVER_NAME');
3492:
3493: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3489: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3490: itemkey,
3491: 'APPROVER_NAME');
3492:
3493: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3494: itemkey,
3495: 'ESC_ROLE_NAME');
3496:
3497: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3493: l_esc_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3494: itemkey,
3495: 'ESC_ROLE_NAME');
3496:
3497: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3498: itemkey,
3499: 'ROLE_NAME');
3500:
3501: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3497: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3498: itemkey,
3499: 'ROLE_NAME');
3500:
3501: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3502: itemkey,
3503: 'APPROVER_ID');
3504:
3505: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3501: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3502: itemkey,
3503: 'APPROVER_ID');
3504:
3505: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3506: itemkey,
3507: 'ESCALATED');
3508: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3509: itemkey,
3504:
3505: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
3506: itemkey,
3507: 'ESCALATED');
3508: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3509: itemkey,
3510: 'ESC_APPROVER_NAME');
3511:
3512: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3508: l_esc_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3509: itemkey,
3510: 'ESC_APPROVER_NAME');
3511:
3512: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3513: itemkey,
3514: 'ESC_APPROVER_ID');
3515: /*-- added for the delegation enhancement
3516: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
3512: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3513: itemkey,
3514: 'ESC_APPROVER_ID');
3515: /*-- added for the delegation enhancement
3516: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
3517: itemkey,
3518: 'ROLE_ACTUAL');
3519: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
3520: itemkey,
3515: /*-- added for the delegation enhancement
3516: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
3517: itemkey,
3518: 'ROLE_ACTUAL');
3519: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
3520: itemkey,
3521: 'ESC_ROLE_ACTUAL');
3522: -- added for the delegation enhancement
3523:
3628: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3629: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3630: l_api_name,l_debug_info);
3631: END IF;
3632: wf_engine.CompleteActivity(
3633: itemType => 'APINVAPR',
3634: itemKey => l_invoice_key,
3635: activity => 'APPROVAL_MAIN:BLOCK',
3636: result => 'NULL');
3639: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3640: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3641: l_api_name,l_debug_info);
3642: END IF;
3643: resultout := wf_engine.eng_completed||':'||'Y';
3644: EXCEPTION
3645:
3646: WHEN OTHERS
3647: THEN
3656: funcmode IN VARCHAR2,
3657: resultout OUT NOCOPY VARCHAR2 ) IS
3658:
3659: BEGIN
3660: resultout := wf_engine.eng_completed||':'||'Y';
3661: EXCEPTION
3662:
3663: WHEN OTHERS
3664: THEN
3673: funcmode IN VARCHAR2,
3674: resultout OUT NOCOPY VARCHAR2 ) IS
3675:
3676: BEGIN
3677: resultout := wf_engine.eng_completed||':'||'Y';
3678: EXCEPTION
3679:
3680: WHEN OTHERS
3681: THEN
3694: funcmode IN VARCHAR2,
3695: resultout OUT NOCOPY VARCHAR2 ) IS
3696:
3697: BEGIN
3698: resultout := wf_engine.eng_completed||':'||'Y';
3699: EXCEPTION
3700:
3701: WHEN OTHERS
3702: THEN
3710: funcmode IN VARCHAR2,
3711: resultout OUT NOCOPY VARCHAR2 ) IS
3712:
3713: BEGIN
3714: resultout := wf_engine.eng_completed||':'||'Y';
3715: EXCEPTION
3716:
3717: WHEN OTHERS
3718: THEN
3764: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3765: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3766: l_api_name,l_debug_info);
3767: END IF;
3768: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3769: itemkey,
3770: 'INVOICE_ID');
3771:
3772: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3768: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3769: itemkey,
3770: 'INVOICE_ID');
3771:
3772: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3773: itemkey,
3774: 'ITERATION');
3775:
3776: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
3772: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3773: itemkey,
3774: 'ITERATION');
3775:
3776: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
3777: itemkey,
3778: 'PARENT_KEY');
3779:
3780: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3776: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
3777: itemkey,
3778: 'PARENT_KEY');
3779:
3780: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3781: itemkey,
3782: 'WF_NOTE');
3783:
3784: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3780: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3781: itemkey,
3782: 'WF_NOTE');
3783:
3784: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3785: itemkey,
3786: 'ORG_ID');
3787:
3788: MO_GLOBAL.INIT ('SQLAP');
3788: MO_GLOBAL.INIT ('SQLAP');
3789: MO_GLOBAL.set_policy_context('S',l_org_id);
3790:
3791:
3792: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3793: itemkey,
3794: 'INTERNAL_REP_DISPLAY_NAME');
3795:
3796: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3792: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3793: itemkey,
3794: 'INTERNAL_REP_DISPLAY_NAME');
3795:
3796: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3797: itemkey,
3798: 'INTERNAL_REP_ROLE');
3799:
3800: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3796: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3797: itemkey,
3798: 'INTERNAL_REP_ROLE');
3799:
3800: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3801: itemkey,
3802: 'INTERNAL_REP_PERSON_ID');
3803:
3804:
3801: itemkey,
3802: 'INTERNAL_REP_PERSON_ID');
3803:
3804:
3805: l_supplier_name := WF_ENGINE.GetItemAttrText(itemtype,
3806: itemkey,
3807: 'SUPPLIER_DISPLAY_NAME');
3808:
3809: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
3805: l_supplier_name := WF_ENGINE.GetItemAttrText(itemtype,
3806: itemkey,
3807: 'SUPPLIER_DISPLAY_NAME');
3808:
3809: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
3810: itemkey,
3811: 'SUPPLIER_ROLE');
3812:
3813: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3809: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
3810: itemkey,
3811: 'SUPPLIER_ROLE');
3812:
3813: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3814: itemkey,
3815: 'SUPPLIER_PERSON_ID');
3816:
3817: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3813: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3814: itemkey,
3815: 'SUPPLIER_PERSON_ID');
3816:
3817: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3818: itemkey,
3819: 'NOTF_ITERATION');
3820:
3821:
3875: ,'CREDIT MEMO REQUEST') THEN
3876: recreate_pay_scheds(l_invoice_id,l_curr_calling_sequence);
3877: END IF;
3878:
3879: wf_engine.CompleteActivity(
3880: itemType => 'APINVAPR',
3881: itemKey => l_parent_key,
3882: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
3883: result => 'APPROVED');
3887: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3888: l_api_name,l_debug_info);
3889: END IF;
3890:
3891: resultout := wf_engine.eng_completed||':'||'Y';
3892: EXCEPTION
3893:
3894: WHEN OTHERS
3895: THEN
3939: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
3940: l_api_name,l_debug_info);
3941: END IF;
3942: l_curr_calling_sequence := 'AP_WORKFLOW_PKG.aprvl_process_accept_int';
3943: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3944: itemkey,
3945: 'INVOICE_ID');
3946:
3947: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3943: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
3944: itemkey,
3945: 'INVOICE_ID');
3946:
3947: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3948: itemkey,
3949: 'ITERATION');
3950:
3951: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
3947: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
3948: itemkey,
3949: 'ITERATION');
3950:
3951: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
3952: itemkey,
3953: 'PARENT_KEY');
3954:
3955: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3951: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
3952: itemkey,
3953: 'PARENT_KEY');
3954:
3955: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3956: itemkey,
3957: 'WF_NOTE');
3958:
3959: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3955: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
3956: itemkey,
3957: 'WF_NOTE');
3958:
3959: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3960: itemkey,
3961: 'ORG_ID');
3962:
3963: MO_GLOBAL.INIT ('SQLAP');
3963: MO_GLOBAL.INIT ('SQLAP');
3964: MO_GLOBAL.set_policy_context('S',l_org_id);
3965:
3966:
3967: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3968: itemkey,
3969: 'INTERNAL_REP_DISPLAY_NAME');
3970:
3971: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3967: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
3968: itemkey,
3969: 'INTERNAL_REP_DISPLAY_NAME');
3970:
3971: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3972: itemkey,
3973: 'INTERNAL_REP_ROLE');
3974:
3975: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3971: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
3972: itemkey,
3973: 'INTERNAL_REP_ROLE');
3974:
3975: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3976: itemkey,
3977: 'INTERNAL_REP_PERSON_ID');
3978:
3979:
3976: itemkey,
3977: 'INTERNAL_REP_PERSON_ID');
3978:
3979:
3980: l_supplier_name := WF_ENGINE.GetItemAttrText(itemtype,
3981: itemkey,
3982: 'SUPPLIER_DISPLAY_NAME');
3983:
3984: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
3980: l_supplier_name := WF_ENGINE.GetItemAttrText(itemtype,
3981: itemkey,
3982: 'SUPPLIER_DISPLAY_NAME');
3983:
3984: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
3985: itemkey,
3986: 'SUPPLIER_ROLE');
3987:
3988: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3984: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
3985: itemkey,
3986: 'SUPPLIER_ROLE');
3987:
3988: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3989: itemkey,
3990: 'SUPPLIER_PERSON_ID');
3991:
3992: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3988: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
3989: itemkey,
3990: 'SUPPLIER_PERSON_ID');
3991:
3992: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
3993: itemkey,
3994: 'NOTF_ITERATION');
3995:
3996:
4033: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4035: l_api_name,l_debug_info);
4036: END IF;
4037: wf_engine.CompleteActivity(
4038: itemType => 'APINVAPR',
4039: itemKey => l_parent_key,
4040: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
4041: result => 'APPROVED');
4039: itemKey => l_parent_key,
4040: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
4041: result => 'APPROVED');
4042:
4043: resultout := wf_engine.eng_completed||':'||'Y';
4044: EXCEPTION
4045:
4046: WHEN OTHERS
4047: THEN
4121: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4122: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4123: l_api_name,l_debug_info);
4124: END IF;
4125: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4126: itemkey,
4127: 'INVOICE_ID');
4128:
4129: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
4125: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4126: itemkey,
4127: 'INVOICE_ID');
4128:
4129: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
4130: itemkey,
4131: 'ITERATION');
4132:
4133: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
4129: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
4130: itemkey,
4131: 'ITERATION');
4132:
4133: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
4134: itemkey,
4135: 'PARENT_KEY');
4136:
4137: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
4133: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
4134: itemkey,
4135: 'PARENT_KEY');
4136:
4137: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
4138: itemkey,
4139: 'WF_NOTE');
4140:
4141: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4137: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
4138: itemkey,
4139: 'WF_NOTE');
4140:
4141: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4142: itemkey,
4143: 'ORG_ID');
4144:
4145: MO_GLOBAL.INIT ('SQLAP');
4145: MO_GLOBAL.INIT ('SQLAP');
4146: MO_GLOBAL.set_policy_context('S',l_org_id);
4147:
4148:
4149: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
4150: itemkey,
4151: 'INTERNAL_REP_DISPLAY_NAME');
4152:
4153: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
4149: l_approver_name := WF_ENGINE.GetItemAttrText(itemtype,
4150: itemkey,
4151: 'INTERNAL_REP_DISPLAY_NAME');
4152:
4153: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
4154: itemkey,
4155: 'INTERNAL_REP_ROLE');
4156:
4157: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4153: l_role_name := WF_ENGINE.GetItemAttrText(itemtype,
4154: itemkey,
4155: 'INTERNAL_REP_ROLE');
4156:
4157: l_approver_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4158: itemkey,
4159: 'INTERNAL_REP_PERSON_ID');
4160:
4161:
4158: itemkey,
4159: 'INTERNAL_REP_PERSON_ID');
4160:
4161:
4162: l_supplier_name := WF_ENGINE.GetItemAttrText(itemtype,
4163: itemkey,
4164: 'INTERNAL_REP_DISPLAY_NAME');
4165:
4166: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
4162: l_supplier_name := WF_ENGINE.GetItemAttrText(itemtype,
4163: itemkey,
4164: 'INTERNAL_REP_DISPLAY_NAME');
4165:
4166: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
4167: itemkey,
4168: 'INTERNAL_REP_ROLE');
4169:
4170: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4166: l_supplier_role := WF_ENGINE.GetItemAttrText(itemtype,
4167: itemkey,
4168: 'INTERNAL_REP_ROLE');
4169:
4170: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4171: itemkey,
4172: 'INTERNAL_REP_PERSON_ID');
4173:
4174: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4170: l_supplier_person_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4171: itemkey,
4172: 'INTERNAL_REP_PERSON_ID');
4173:
4174: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4175: itemkey,
4176: 'NOTF_ITERATION');
4177:
4178:
4250: l_pay_curr_invoice_amount,
4251: l_token,
4252: null);
4253:
4254: wf_engine.CompleteActivity(
4255: itemType => 'APINVAPR',
4256: itemKey => l_parent_key,
4257: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
4258: result => 'REJECTED');
4263: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
4264: l_api_name,l_debug_info);
4265: END IF;
4266:
4267: resultout := wf_engine.eng_completed||':'||'Y';
4268: EXCEPTION
4269:
4270: WHEN OTHERS
4271: THEN
4341: l_total,
4342: l_hold_instr;
4343: CLOSE csr_ap_hold_neg_details;
4344:
4345: wf_engine.createProcess('APINVHNE', l_new_child_itemkey, 'HOLD_NEGOTIATION');
4346: WF_ENGINE.setItemParent('APINVHNE', l_new_child_itemkey,
4347: 'APINVHDN', parentkey, null);
4348: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4349: l_new_child_itemkey,
4342: l_hold_instr;
4343: CLOSE csr_ap_hold_neg_details;
4344:
4345: wf_engine.createProcess('APINVHNE', l_new_child_itemkey, 'HOLD_NEGOTIATION');
4346: WF_ENGINE.setItemParent('APINVHNE', l_new_child_itemkey,
4347: 'APINVHDN', parentkey, null);
4348: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4349: l_new_child_itemkey,
4350: 'HOLD_ID',
4344:
4345: wf_engine.createProcess('APINVHNE', l_new_child_itemkey, 'HOLD_NEGOTIATION');
4346: WF_ENGINE.setItemParent('APINVHNE', l_new_child_itemkey,
4347: 'APINVHDN', parentkey, null);
4348: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4349: l_new_child_itemkey,
4350: 'HOLD_ID',
4351: p_hold_id);
4352: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4348: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4349: l_new_child_itemkey,
4350: 'HOLD_ID',
4351: p_hold_id);
4352: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4353: l_new_child_itemkey,
4354: 'INVOICE_ID',
4355: l_invoice_id);
4356: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4352: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4353: l_new_child_itemkey,
4354: 'INVOICE_ID',
4355: l_invoice_id);
4356: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4357: l_new_child_itemkey,
4358: 'ORG_ID',
4359: l_org_id);
4360: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4356: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4357: l_new_child_itemkey,
4358: 'ORG_ID',
4359: l_org_id);
4360: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4361: l_new_child_itemkey,
4362: 'INVOICE_TOTAL',
4363: l_total);
4364: WF_ENGINE.SetItemAttrText('APINVHNE',
4360: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4361: l_new_child_itemkey,
4362: 'INVOICE_TOTAL',
4363: l_total);
4364: WF_ENGINE.SetItemAttrText('APINVHNE',
4365: l_new_child_itemkey,
4366: 'HOLD_INSTRUCTION',
4367: l_hold_instr);
4368: WF_ENGINE.SetItemAttrText('APINVHNE',
4364: WF_ENGINE.SetItemAttrText('APINVHNE',
4365: l_new_child_itemkey,
4366: 'HOLD_INSTRUCTION',
4367: l_hold_instr);
4368: WF_ENGINE.SetItemAttrText('APINVHNE',
4369: l_new_child_itemkey,
4370: 'INVOICE_SUPPLIER_NAME',
4371: l_vendor_name);
4372: WF_ENGINE.SetItemAttrText('APINVHNE',
4368: WF_ENGINE.SetItemAttrText('APINVHNE',
4369: l_new_child_itemkey,
4370: 'INVOICE_SUPPLIER_NAME',
4371: l_vendor_name);
4372: WF_ENGINE.SetItemAttrText('APINVHNE',
4373: l_new_child_itemkey,
4374: 'INVOICE_NUMBER',
4375: l_invoice_num);
4376: WF_ENGINE.SetItemAttrDate('APINVHNE',
4372: WF_ENGINE.SetItemAttrText('APINVHNE',
4373: l_new_child_itemkey,
4374: 'INVOICE_NUMBER',
4375: l_invoice_num);
4376: WF_ENGINE.SetItemAttrDate('APINVHNE',
4377: l_new_child_itemkey,
4378: 'INVOICE_DATE',
4379: l_invoice_date);
4380: WF_ENGINE.SetItemAttrText('APINVHNE',
4376: WF_ENGINE.SetItemAttrDate('APINVHNE',
4377: l_new_child_itemkey,
4378: 'INVOICE_DATE',
4379: l_invoice_date);
4380: WF_ENGINE.SetItemAttrText('APINVHNE',
4381: l_new_child_itemkey,
4382: 'INVOICE_DESCRIPTION',
4383: l_invoice_description);
4384: WF_ENGINE.SetItemAttrText('APINVHNE',
4380: WF_ENGINE.SetItemAttrText('APINVHNE',
4381: l_new_child_itemkey,
4382: 'INVOICE_DESCRIPTION',
4383: l_invoice_description);
4384: WF_ENGINE.SetItemAttrText('APINVHNE',
4385: l_new_child_itemkey,
4386: 'PARENT_KEY',
4387: parentkey);
4388: WF_ENGINE.SetItemAttrText('APINVHNE',
4384: WF_ENGINE.SetItemAttrText('APINVHNE',
4385: l_new_child_itemkey,
4386: 'PARENT_KEY',
4387: parentkey);
4388: WF_ENGINE.SetItemAttrText('APINVHNE',
4389: l_new_child_itemkey,
4390: 'HOLD_TYPE',
4391: WF_ENGINE.GETITEMATTRText('APINVHDN',
4392: parentkey,
4387: parentkey);
4388: WF_ENGINE.SetItemAttrText('APINVHNE',
4389: l_new_child_itemkey,
4390: 'HOLD_TYPE',
4391: WF_ENGINE.GETITEMATTRText('APINVHDN',
4392: parentkey,
4393: 'HOLD_TYPE'));
4394:
4395: /* Current context is Internal or External
4404: WF_DIRECTORY.GetUserName('FND_USR',
4405: l_ext_user_id,
4406: l_name,
4407: l_display_name);
4408: WF_ENGINE.SetItemAttrText('APINVHNE',
4409: l_new_child_itemkey,
4410: 'SUPPLIER_ROLE',
4411: l_role);
4412: WF_ENGINE.SetItemAttrText('APINVHNE',
4408: WF_ENGINE.SetItemAttrText('APINVHNE',
4409: l_new_child_itemkey,
4410: 'SUPPLIER_ROLE',
4411: l_role);
4412: WF_ENGINE.SetItemAttrText('APINVHNE',
4413: l_new_child_itemkey,
4414: 'SUPPLIER_DISPLAY_NAME',
4415: l_display_name);
4416: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4412: WF_ENGINE.SetItemAttrText('APINVHNE',
4413: l_new_child_itemkey,
4414: 'SUPPLIER_DISPLAY_NAME',
4415: l_display_name);
4416: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4417: l_new_child_itemkey,
4418: 'SUPPLIER_PERSON_ID',
4419: l_ext_user_id);
4420:
4417: l_new_child_itemkey,
4418: 'SUPPLIER_PERSON_ID',
4419: l_ext_user_id);
4420:
4421: WF_ENGINE.SetItemAttrText('APINVHNE',
4422: l_new_child_itemkey,
4423: 'NOTF_RECEIPIENT_TYPE',
4424: 'EXTERNAL');
4425: WF_ENGINE.SetItemAttrText('APINVHNE',
4421: WF_ENGINE.SetItemAttrText('APINVHNE',
4422: l_new_child_itemkey,
4423: 'NOTF_RECEIPIENT_TYPE',
4424: 'EXTERNAL');
4425: WF_ENGINE.SetItemAttrText('APINVHNE',
4426: l_new_child_itemkey,
4427: 'INTERNAL_REP_DISPLAY_NAME',
4428: WF_ENGINE.GETITEMATTRText('APINVHDN',
4429: parentkey,
4424: 'EXTERNAL');
4425: WF_ENGINE.SetItemAttrText('APINVHNE',
4426: l_new_child_itemkey,
4427: 'INTERNAL_REP_DISPLAY_NAME',
4428: WF_ENGINE.GETITEMATTRText('APINVHDN',
4429: parentkey,
4430: 'INTERNAL_REP_DISPLAY_NAME'));
4431: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4432: l_new_child_itemkey,
4427: 'INTERNAL_REP_DISPLAY_NAME',
4428: WF_ENGINE.GETITEMATTRText('APINVHDN',
4429: parentkey,
4430: 'INTERNAL_REP_DISPLAY_NAME'));
4431: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4432: l_new_child_itemkey,
4433: 'INTERNAL_REP_PERSON_ID',
4434: WF_ENGINE.GETITEMATTRNumber('APINVHDN',
4435: parentkey,
4430: 'INTERNAL_REP_DISPLAY_NAME'));
4431: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4432: l_new_child_itemkey,
4433: 'INTERNAL_REP_PERSON_ID',
4434: WF_ENGINE.GETITEMATTRNumber('APINVHDN',
4435: parentkey,
4436: 'INTERNAL_REP_PERSON_ID'));
4437: WF_ENGINE.SetItemAttrText('APINVHNE',
4438: l_new_child_itemkey,
4433: 'INTERNAL_REP_PERSON_ID',
4434: WF_ENGINE.GETITEMATTRNumber('APINVHDN',
4435: parentkey,
4436: 'INTERNAL_REP_PERSON_ID'));
4437: WF_ENGINE.SetItemAttrText('APINVHNE',
4438: l_new_child_itemkey,
4439: 'ORIG_SYSTEM',
4440: WF_ENGINE.GETITEMATTRText('APINVHDN',
4441: parentkey,
4436: 'INTERNAL_REP_PERSON_ID'));
4437: WF_ENGINE.SetItemAttrText('APINVHNE',
4438: l_new_child_itemkey,
4439: 'ORIG_SYSTEM',
4440: WF_ENGINE.GETITEMATTRText('APINVHDN',
4441: parentkey,
4442: 'ORIG_SYSTEM'));
4443: WF_ENGINE.SetItemAttrText('APINVHNE',
4444: l_new_child_itemkey,
4439: 'ORIG_SYSTEM',
4440: WF_ENGINE.GETITEMATTRText('APINVHDN',
4441: parentkey,
4442: 'ORIG_SYSTEM'));
4443: WF_ENGINE.SetItemAttrText('APINVHNE',
4444: l_new_child_itemkey,
4445: 'INTERNAL_REP_ROLE',
4446: WF_ENGINE.GETITEMATTRText('APINVHDN',
4447: parentkey,
4442: 'ORIG_SYSTEM'));
4443: WF_ENGINE.SetItemAttrText('APINVHNE',
4444: l_new_child_itemkey,
4445: 'INTERNAL_REP_ROLE',
4446: WF_ENGINE.GETITEMATTRText('APINVHDN',
4447: parentkey,
4448: 'INTERNAL_REP_ROLE'));
4449: ELSIF int_ext_indicator = 'E' THEN
4450:
4447: parentkey,
4448: 'INTERNAL_REP_ROLE'));
4449: ELSIF int_ext_indicator = 'E' THEN
4450:
4451: l_role := WF_ENGINE.GETITEMATTRText('APINVHDN',
4452: parentkey,
4453: 'INTERNAL_REP_ROLE');
4454: WF_ENGINE.SetItemAttrText('APINVHNE',
4455: l_new_child_itemkey,
4450:
4451: l_role := WF_ENGINE.GETITEMATTRText('APINVHDN',
4452: parentkey,
4453: 'INTERNAL_REP_ROLE');
4454: WF_ENGINE.SetItemAttrText('APINVHNE',
4455: l_new_child_itemkey,
4456: 'INTERNAL_REP_ROLE',
4457: l_role);
4458: WF_ENGINE.SetItemAttrText('APINVHNE',
4454: WF_ENGINE.SetItemAttrText('APINVHNE',
4455: l_new_child_itemkey,
4456: 'INTERNAL_REP_ROLE',
4457: l_role);
4458: WF_ENGINE.SetItemAttrText('APINVHNE',
4459: l_new_child_itemkey,
4460: 'DISP_NOT_RECEIVER',
4461: l_role);
4462: l_display_name := WF_ENGINE.GETITEMATTRText('APINVHDN',
4458: WF_ENGINE.SetItemAttrText('APINVHNE',
4459: l_new_child_itemkey,
4460: 'DISP_NOT_RECEIVER',
4461: l_role);
4462: l_display_name := WF_ENGINE.GETITEMATTRText('APINVHDN',
4463: parentkey,
4464: 'INTERNAL_REP_DISPLAY_NAME');
4465: WF_ENGINE.SetItemAttrText('APINVHNE',
4466: l_new_child_itemkey,
4461: l_role);
4462: l_display_name := WF_ENGINE.GETITEMATTRText('APINVHDN',
4463: parentkey,
4464: 'INTERNAL_REP_DISPLAY_NAME');
4465: WF_ENGINE.SetItemAttrText('APINVHNE',
4466: l_new_child_itemkey,
4467: 'INTERNAL_REP_DISPLAY_NAME',
4468: l_display_name);
4469: l_person_id := WF_ENGINE.GETITEMATTRNumber('APINVHDN',
4465: WF_ENGINE.SetItemAttrText('APINVHNE',
4466: l_new_child_itemkey,
4467: 'INTERNAL_REP_DISPLAY_NAME',
4468: l_display_name);
4469: l_person_id := WF_ENGINE.GETITEMATTRNumber('APINVHDN',
4470: parentkey,
4471: 'INTERNAL_REP_PERSON_ID');
4472: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4473: l_new_child_itemkey,
4468: l_display_name);
4469: l_person_id := WF_ENGINE.GETITEMATTRNumber('APINVHDN',
4470: parentkey,
4471: 'INTERNAL_REP_PERSON_ID');
4472: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4473: l_new_child_itemkey,
4474: 'INTERNAL_REP_PERSON_ID',
4475: l_person_id);
4476: WF_ENGINE.SetItemAttrText('APINVHNE',
4472: WF_ENGINE.SetItemAttrNumber('APINVHNE',
4473: l_new_child_itemkey,
4474: 'INTERNAL_REP_PERSON_ID',
4475: l_person_id);
4476: WF_ENGINE.SetItemAttrText('APINVHNE',
4477: l_new_child_itemkey,
4478: 'NOTF_RECEIPIENT_TYPE',
4479: 'INTERNAL');
4480: WF_ENGINE.SetItemAttrText('APINVHNE',
4476: WF_ENGINE.SetItemAttrText('APINVHNE',
4477: l_new_child_itemkey,
4478: 'NOTF_RECEIPIENT_TYPE',
4479: 'INTERNAL');
4480: WF_ENGINE.SetItemAttrText('APINVHNE',
4481: l_new_child_itemkey,
4482: 'ORIG_SYSTEM',
4483: WF_ENGINE.GETITEMATTRText('APINVHDN',
4484: parentkey,
4479: 'INTERNAL');
4480: WF_ENGINE.SetItemAttrText('APINVHNE',
4481: l_new_child_itemkey,
4482: 'ORIG_SYSTEM',
4483: WF_ENGINE.GETITEMATTRText('APINVHDN',
4484: parentkey,
4485: 'ORIG_SYSTEM'));
4486: WF_ENGINE.SetItemAttrText('APINVHNE',
4487: l_new_child_itemkey,
4482: 'ORIG_SYSTEM',
4483: WF_ENGINE.GETITEMATTRText('APINVHDN',
4484: parentkey,
4485: 'ORIG_SYSTEM'));
4486: WF_ENGINE.SetItemAttrText('APINVHNE',
4487: l_new_child_itemkey,
4488: 'SUPPLIER_DISPLAY_NAME',
4489: WF_ENGINE.GETITEMATTRText('APINVHNE',
4490: childkey,
4485: 'ORIG_SYSTEM'));
4486: WF_ENGINE.SetItemAttrText('APINVHNE',
4487: l_new_child_itemkey,
4488: 'SUPPLIER_DISPLAY_NAME',
4489: WF_ENGINE.GETITEMATTRText('APINVHNE',
4490: childkey,
4491: 'SUPPLIER_DISPLAY_NAME'));
4492:
4493: END IF;
4490: childkey,
4491: 'SUPPLIER_DISPLAY_NAME'));
4492:
4493: END IF;
4494: WF_ENGINE.startProcess('APINVHNE', l_new_child_itemkey);
4495: MO_GLOBAL.INIT ('SQLAP');
4496: MO_GLOBAL.set_policy_context('S',l_org_id);
4497:
4498: -- Complete the previous negotiation process if any.
4497:
4498: -- Complete the previous negotiation process if any.
4499:
4500: IF childkey IS NOT NULL THEN
4501: l_notf_receipient_type := WF_ENGINE.GetItemAttrText('APINVHNE',
4502: childkey,
4503: 'NOTF_RECEIPIENT_TYPE');
4504: IF l_notf_receipient_type = 'INTERNAL' THEN
4505:
4502: childkey,
4503: 'NOTF_RECEIPIENT_TYPE');
4504: IF l_notf_receipient_type = 'INTERNAL' THEN
4505:
4506: wf_engine.CompleteActivity(
4507: itemType => 'APINVHNE',
4508: itemKey => childkey,
4509: activity => 'HOLD_NEGOTIATION:WAITINTERNAL',
4510: result => 'NULL');
4508: itemKey => childkey,
4509: activity => 'HOLD_NEGOTIATION:WAITINTERNAL',
4510: result => 'NULL');
4511: ELSE
4512: wf_engine.CompleteActivity(
4513: itemType => 'APINVHNE',
4514: itemKey => childkey,
4515: activity => 'HOLD_NEGOTIATION:WAITEXTERNAL',
4516: result => 'NULL');
4602:
4603: CLOSE csr_ap_hold_details;
4604:
4605:
4606: wf_engine.createProcess('APINVHDN', l_itemkey, 'HOLD_MAIN');
4607: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4608: l_itemkey,
4609: 'INVOICE_ID',
4610: l_invoice_id);
4603: CLOSE csr_ap_hold_details;
4604:
4605:
4606: wf_engine.createProcess('APINVHDN', l_itemkey, 'HOLD_MAIN');
4607: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4608: l_itemkey,
4609: 'INVOICE_ID',
4610: l_invoice_id);
4611: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4607: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4608: l_itemkey,
4609: 'INVOICE_ID',
4610: l_invoice_id);
4611: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4612: l_itemkey,
4613: 'HOLD_ID',
4614: p_hold_id);
4615: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4611: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4612: l_itemkey,
4613: 'HOLD_ID',
4614: p_hold_id);
4615: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4616: l_itemkey,
4617: 'ORG_ID',
4618: l_org_id);
4619: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4615: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4616: l_itemkey,
4617: 'ORG_ID',
4618: l_org_id);
4619: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4620: l_itemkey,
4621: 'INVOICE_TOTAL',
4622: l_total);
4623: WF_ENGINE.SetItemAttrText('APINVHDN',
4619: WF_ENGINE.SetItemAttrNumber('APINVHDN',
4620: l_itemkey,
4621: 'INVOICE_TOTAL',
4622: l_total);
4623: WF_ENGINE.SetItemAttrText('APINVHDN',
4624: l_itemkey,
4625: 'HOLD_INSTRUCTION',
4626: l_hold_instr);
4627: WF_ENGINE.SetItemAttrText('APINVHDN',
4623: WF_ENGINE.SetItemAttrText('APINVHDN',
4624: l_itemkey,
4625: 'HOLD_INSTRUCTION',
4626: l_hold_instr);
4627: WF_ENGINE.SetItemAttrText('APINVHDN',
4628: l_itemkey,
4629: 'INVOICE_SUPPLIER_NAME',
4630: l_vendor_name);
4631: WF_ENGINE.SetItemAttrText('APINVHDN',
4627: WF_ENGINE.SetItemAttrText('APINVHDN',
4628: l_itemkey,
4629: 'INVOICE_SUPPLIER_NAME',
4630: l_vendor_name);
4631: WF_ENGINE.SetItemAttrText('APINVHDN',
4632: l_itemkey,
4633: 'INVOICE_NUMBER',
4634: l_invoice_num);
4635: WF_ENGINE.SetItemAttrDate('APINVHDN',
4631: WF_ENGINE.SetItemAttrText('APINVHDN',
4632: l_itemkey,
4633: 'INVOICE_NUMBER',
4634: l_invoice_num);
4635: WF_ENGINE.SetItemAttrDate('APINVHDN',
4636: l_itemkey,
4637: 'INVOICE_DATE',
4638: l_invoice_date);
4639: WF_ENGINE.SetItemAttrText('APINVHDN',
4635: WF_ENGINE.SetItemAttrDate('APINVHDN',
4636: l_itemkey,
4637: 'INVOICE_DATE',
4638: l_invoice_date);
4639: WF_ENGINE.SetItemAttrText('APINVHDN',
4640: l_itemkey,
4641: 'INVOICE_DESCRIPTION',
4642: l_invoice_description);
4643: WF_ENGINE.SetItemAttrText('APINVHDN',
4639: WF_ENGINE.SetItemAttrText('APINVHDN',
4640: l_itemkey,
4641: 'INVOICE_DESCRIPTION',
4642: l_invoice_description);
4643: WF_ENGINE.SetItemAttrText('APINVHDN',
4644: l_itemkey,
4645: 'HOLD_TYPE',
4646: l_hold_type);
4647: WF_ENGINE.SetItemAttrText('APINVHDN',
4643: WF_ENGINE.SetItemAttrText('APINVHDN',
4644: l_itemkey,
4645: 'HOLD_TYPE',
4646: l_hold_type);
4647: WF_ENGINE.SetItemAttrText('APINVHDN',
4648: l_itemkey,
4649: 'PARENT_KEY',
4650: l_itemkey);
4651: WF_ENGINE.startProcess('APINVHDN', l_itemkey);
4647: WF_ENGINE.SetItemAttrText('APINVHDN',
4648: l_itemkey,
4649: 'PARENT_KEY',
4650: l_itemkey);
4651: WF_ENGINE.startProcess('APINVHDN', l_itemkey);
4652:
4653: UPDATE ap_holds_all
4654: SET wf_status = 'STARTED'
4655: WHERE hold_id = p_hold_id;
4724: select '&'
4725: into l_ampersand
4726: from dual
4727: where 1 like 1 escape '&';
4728: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4729: itemkey,
4730: 'ITERATION');
4731:
4732: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4728: l_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4729: itemkey,
4730: 'ITERATION');
4731:
4732: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4733: itemkey,
4734: 'NOTF_ITERATION');
4735:
4736: /*
4752: );
4753:
4754:
4755:
4756: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
4757: itemkey,
4758: 'ORG_ID');
4759:
4760: l_invoice_id := substr(itemkey, 1, instr(itemkey,'_')-1);
4765: MO_GLOBAL.set_policy_context('S',l_org_id);
4766:
4767: --IF l_complete = ame_util.booleanTrue THEN /*no approver on the list*/
4768: IF l_next_approvers.count < 1 THEN
4769: resultout := wf_engine.eng_completed||':'||'FINISH';
4770:
4771: --check for prior approvers
4772: SELECT count(*)
4773: INTO l_count
4791: 'NOT REQUIRED')
4792: WHERE invoice_id = l_invoice_id
4793: AND wfapproval_status <> 'MANUALLY APPROVED';
4794: END IF;
4795: l_inv_match_type := WF_ENGINE.GetItemAttrText('APINVAPR',
4796: itemkey,
4797: 'INV_MATCH_TYPE');
4798: IF l_inv_match_type = 'UNMATCHED' THEN
4799: UPDATE AP_INVOICE_LINES_ALL
4861: l_next_approver.ORIG_SYSTEM_ID,
4862: l_name,
4863: l_display_name);
4864:
4865: WF_ENGINE.SetItemAttrText(itemtype,
4866: itemkey,
4867: 'APPROVER_NAME',
4868: l_display_name);
4869:
4866: itemkey,
4867: 'APPROVER_NAME',
4868: l_display_name);
4869:
4870: WF_ENGINE.SetItemAttrNumber(itemtype,
4871: itemkey,
4872: 'APPROVER_ID',
4873: l_next_approver.ORIG_SYSTEM_ID); /****
4874: POTENTIAL BUG ************/
4872: 'APPROVER_ID',
4873: l_next_approver.ORIG_SYSTEM_ID); /****
4874: POTENTIAL BUG ************/
4875:
4876: WF_ENGINE.SetItemAttrText(itemtype,
4877: itemkey,
4878: 'DOCUMENT_APPROVER',
4879: l_role);
4880:
4877: itemkey,
4878: 'DOCUMENT_APPROVER',
4879: l_role);
4880:
4881: WF_ENGINE.SetItemAttrText(itemtype,
4882: itemkey,
4883: 'ORIG_SYSTEM',
4884: l_next_approver.ORIG_SYSTEM);
4885:
4882: itemkey,
4883: 'ORIG_SYSTEM',
4884: l_next_approver.ORIG_SYSTEM);
4885:
4886: WF_ENGINE.SetItemAttrNumber(itemtype,
4887: itemkey,
4888: 'NOTF_ITERATION',
4889: nvl(l_notf_iteration,0) + 1);
4890: /*
4887: itemkey,
4888: 'NOTF_ITERATION',
4889: nvl(l_notf_iteration,0) + 1);
4890: /*
4891: WF_ENGINE.SETITEMATTRTEXT
4892: (
4893: itemtype => itemtype,
4894: itemkey => itemkey,
4895: aname => 'INVOICE_ATTACHMENTS',
4915: l_hist_rec.ORG_ID := l_org_id;
4916: l_hist_rec.AMOUNT_APPROVED := 0;
4917:
4918: insert_history_table(p_hist_rec => l_hist_rec);
4919: resultout := wf_engine.eng_completed||':'||'MORE';
4920:
4921: END IF;
4922:
4923: ELSE /* For IF l_count_rejects = 0, so there are rejections */
4931: UPDATE ap_invoices_all
4932: SET wfapproval_status = 'NEEDS WFREAPPROVAL'
4933: WHERE invoice_id = l_invoice_id;
4934:
4935: resultout := wf_engine.eng_completed||':'||'FINISH';
4936: END IF;
4937: EXCEPTION
4938:
4939: WHEN OTHERS
4976: l_api_name,l_debug_info);
4977: END IF;
4978:
4979: --Get the current approver info
4980: l_approver_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4981: itemkey,
4982: 'APPROVER_ID');
4983:
4984: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4980: l_approver_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4981: itemkey,
4982: 'APPROVER_ID');
4983:
4984: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4985: itemkey,
4986: 'INVOICE_ID');
4987:
4988: l_invoice_total := WF_ENGINE.GetItemAttrNumber(itemtype,
4984: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4985: itemkey,
4986: 'INVOICE_ID');
4987:
4988: l_invoice_total := WF_ENGINE.GetItemAttrNumber(itemtype,
4989: itemkey,
4990: 'INVOICE_TOTAL');
4991:
4992: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
4988: l_invoice_total := WF_ENGINE.GetItemAttrNumber(itemtype,
4989: itemkey,
4990: 'INVOICE_TOTAL');
4991:
4992: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
4993: itemkey,
4994: 'ITERATION');
4995:
4996: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4992: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
4993: itemkey,
4994: 'ITERATION');
4995:
4996: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4997: itemkey,
4998: 'NOTF_ITERATION');
4999:
5000: l_org_id := WF_ENGINE.GetItemAttrNumber(itemtype,
4996: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
4997: itemkey,
4998: 'NOTF_ITERATION');
4999:
5000: l_org_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5001: itemkey,
5002: 'ORG_ID');
5003:
5004: l_role := WF_ENGINE.GetItemAttrText(itemtype,
5000: l_org_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5001: itemkey,
5002: 'ORG_ID');
5003:
5004: l_role := WF_ENGINE.GetItemAttrText(itemtype,
5005: itemkey,
5006: 'DOCUMENT_APPROVER');
5007:
5008:
5062: itemClassIn => ame_util.headerItemClassName,
5063: itemIdIn => to_char(l_invoice_id),
5064: forwardeeIn => l_esc_approver);
5065: --Set WF attributes
5066: WF_ENGINE.SetItemAttrText(itemtype,
5067: itemkey,
5068: 'ESC_APPROVER_NAME',
5069: l_esc_approver_name);
5070:
5067: itemkey,
5068: 'ESC_APPROVER_NAME',
5069: l_esc_approver_name);
5070:
5071: WF_ENGINE.SetItemAttrNumber(itemtype,
5072: itemkey,
5073: 'ESC_APPROVER_ID',
5074: l_esc_approver_id);
5075:
5072: itemkey,
5073: 'ESC_APPROVER_ID',
5074: l_esc_approver_id);
5075:
5076: WF_ENGINE.SetItemAttrText(itemtype,
5077: itemkey,
5078: 'ESC_ROLE_NAME',
5079: l_esc_role);
5080:
5077: itemkey,
5078: 'ESC_ROLE_NAME',
5079: l_esc_role);
5080:
5081: WF_ENGINE.SetItemAttrText(itemtype,
5082: itemkey,
5083: 'ESCALATED',
5084: 'Y');
5085: l_hist_rec.HISTORY_TYPE := 'DOCUMENTAPPROVAL';
5161: END IF;
5162:
5163:
5164: --Get the current approver info
5165: l_approver_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5166: itemkey,
5167: 'APPROVER_ID');
5168:
5169: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5165: l_approver_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5166: itemkey,
5167: 'APPROVER_ID');
5168:
5169: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5170: itemkey,
5171: 'INVOICE_ID');
5172:
5173: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
5169: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5170: itemkey,
5171: 'INVOICE_ID');
5172:
5173: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
5174: itemkey,
5175: 'ITERATION');
5176:
5177: l_org_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5173: l_iteration := WF_ENGINE.GetItemAttrNumber(itemtype,
5174: itemkey,
5175: 'ITERATION');
5176:
5177: l_org_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5178: itemkey,
5179: 'ORG_ID');
5180:
5181: l_role := WF_ENGINE.GetItemAttrText(itemtype,
5177: l_org_id := WF_ENGINE.GetItemAttrNumber(itemtype,
5178: itemkey,
5179: 'ORG_ID');
5180:
5181: l_role := WF_ENGINE.GetItemAttrText(itemtype,
5182: itemkey,
5183: 'ROLE_NAME');
5184:
5185: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
5181: l_role := WF_ENGINE.GetItemAttrText(itemtype,
5182: itemkey,
5183: 'ROLE_NAME');
5184:
5185: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber(itemtype,
5186: itemkey,
5187: 'NOTF_ITERATION');
5188:
5189: --Now set the environment
5270: END LOOP;
5271: CLOSE Items_Cur;
5272:
5273: --Set WF attributes
5274: WF_ENGINE.SetItemAttrText(itemtype,
5275: itemkey,
5276: 'ESC_APPROVER_NAME',
5277: l_esc_approver_name);
5278:
5275: itemkey,
5276: 'ESC_APPROVER_NAME',
5277: l_esc_approver_name);
5278:
5279: WF_ENGINE.SetItemAttrNumber(itemtype,
5280: itemkey,
5281: 'ESC_APPROVER_ID',
5282: l_esc_approver_id);
5283:
5280: itemkey,
5281: 'ESC_APPROVER_ID',
5282: l_esc_approver_id);
5283:
5284: WF_ENGINE.SetItemAttrText(itemtype,
5285: itemkey,
5286: 'ESC_ROLE_NAME',
5287: l_esc_role);
5288:
5285: itemkey,
5286: 'ESC_ROLE_NAME',
5287: l_esc_role);
5288:
5289: WF_ENGINE.SetItemAttrText(itemtype,
5290: itemkey,
5291: 'ESCALATED',
5292: 'Y');
5293:
5336: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5337: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5338: l_api_name,l_debug_info);
5339: END IF;
5340: wf_engine.CompleteActivity(
5341: itemType => 'APINVAPR',
5342: itemKey => l_invoice_key,
5343: activity => 'APPROVAL_MAIN:BLOCK',
5344: result => 'NULL');
5434: CLOSE csr_ap_aprvl_neg_details;
5435:
5436: l_ext_user_id := p_ext_user_id;
5437:
5438: wf_engine.createProcess('APINVNEG', l_new_child_itemkey,
5439: 'APPROVAL_NEGOTIATION');
5440: WF_ENGINE.setItemParent('APINVNEG', l_new_child_itemkey,
5441: 'APINVAPR', parentkey, null);
5442: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5436: l_ext_user_id := p_ext_user_id;
5437:
5438: wf_engine.createProcess('APINVNEG', l_new_child_itemkey,
5439: 'APPROVAL_NEGOTIATION');
5440: WF_ENGINE.setItemParent('APINVNEG', l_new_child_itemkey,
5441: 'APINVAPR', parentkey, null);
5442: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5443: l_new_child_itemkey,
5444: 'INVOICE_ID',
5438: wf_engine.createProcess('APINVNEG', l_new_child_itemkey,
5439: 'APPROVAL_NEGOTIATION');
5440: WF_ENGINE.setItemParent('APINVNEG', l_new_child_itemkey,
5441: 'APINVAPR', parentkey, null);
5442: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5443: l_new_child_itemkey,
5444: 'INVOICE_ID',
5445: l_invoice_id);
5446: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5442: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5443: l_new_child_itemkey,
5444: 'INVOICE_ID',
5445: l_invoice_id);
5446: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5447: l_new_child_itemkey,
5448: 'ORG_ID',
5449: l_org_id);
5450: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5446: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5447: l_new_child_itemkey,
5448: 'ORG_ID',
5449: l_org_id);
5450: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5451: l_new_child_itemkey,
5452: 'INVOICE_TOTAL',
5453: nvl(p_invoice_amount,l_total));
5454: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5450: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5451: l_new_child_itemkey,
5452: 'INVOICE_TOTAL',
5453: nvl(p_invoice_amount,l_total));
5454: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5455: parentkey,
5456: 'INVOICE_TOTAL',
5457: nvl(p_invoice_amount,l_total));
5458: WF_ENGINE.SetItemAttrText('APINVNEG',
5454: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5455: parentkey,
5456: 'INVOICE_TOTAL',
5457: nvl(p_invoice_amount,l_total));
5458: WF_ENGINE.SetItemAttrText('APINVNEG',
5459: l_new_child_itemkey,
5460: 'INVOICE_SUPPLIER_NAME',
5461: l_vendor_name);
5462: WF_ENGINE.SetItemAttrText('APINVNEG',
5458: WF_ENGINE.SetItemAttrText('APINVNEG',
5459: l_new_child_itemkey,
5460: 'INVOICE_SUPPLIER_NAME',
5461: l_vendor_name);
5462: WF_ENGINE.SetItemAttrText('APINVNEG',
5463: l_new_child_itemkey,
5464: 'INVOICE_NUMBER',
5465: l_invoice_num);
5466: WF_ENGINE.SetItemAttrDate('APINVNEG',
5462: WF_ENGINE.SetItemAttrText('APINVNEG',
5463: l_new_child_itemkey,
5464: 'INVOICE_NUMBER',
5465: l_invoice_num);
5466: WF_ENGINE.SetItemAttrDate('APINVNEG',
5467: l_new_child_itemkey,
5468: 'INVOICE_DATE',
5469: l_invoice_date);
5470: WF_ENGINE.SetItemAttrText('APINVNEG',
5466: WF_ENGINE.SetItemAttrDate('APINVNEG',
5467: l_new_child_itemkey,
5468: 'INVOICE_DATE',
5469: l_invoice_date);
5470: WF_ENGINE.SetItemAttrText('APINVNEG',
5471: l_new_child_itemkey,
5472: 'INVOICE_DESCRIPTION',
5473: l_invoice_description);
5474: WF_ENGINE.SetItemAttrText('APINVNEG',
5470: WF_ENGINE.SetItemAttrText('APINVNEG',
5471: l_new_child_itemkey,
5472: 'INVOICE_DESCRIPTION',
5473: l_invoice_description);
5474: WF_ENGINE.SetItemAttrText('APINVNEG',
5475: l_new_child_itemkey,
5476: 'PARENT_KEY',
5477: parentkey);
5478: WF_ENGINE.SetItemAttrText('APINVNEG',
5474: WF_ENGINE.SetItemAttrText('APINVNEG',
5475: l_new_child_itemkey,
5476: 'PARENT_KEY',
5477: parentkey);
5478: WF_ENGINE.SetItemAttrText('APINVNEG',
5479: l_new_child_itemkey,
5480: 'NOTIFICATION_KEY',
5481: l_new_child_itemkey);
5482:
5479: l_new_child_itemkey,
5480: 'NOTIFICATION_KEY',
5481: l_new_child_itemkey);
5482:
5483: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5484: l_new_child_itemkey,
5485: 'ITERATION',
5486: l_iteration);
5487: WF_ENGINE.SetItemAttrText('APINVNEG',
5483: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5484: l_new_child_itemkey,
5485: 'ITERATION',
5486: l_iteration);
5487: WF_ENGINE.SetItemAttrText('APINVNEG',
5488: l_new_child_itemkey,
5489: 'ORIG_SYSTEM',
5490: WF_ENGINE.GETITEMATTRText('APINVAPR',
5491: parentkey,
5486: l_iteration);
5487: WF_ENGINE.SetItemAttrText('APINVNEG',
5488: l_new_child_itemkey,
5489: 'ORIG_SYSTEM',
5490: WF_ENGINE.GETITEMATTRText('APINVAPR',
5491: parentkey,
5492: 'ORIG_SYSTEM'));
5493: /* Currently the sender is Internal and sending to External*/
5494: IF int_ext_indicator = 'I' and l_ext_user_id IS NOT NULL THEN
5499: WF_DIRECTORY.GetUserName('FND_USR',
5500: l_ext_user_id,
5501: l_name,
5502: l_display_name);
5503: WF_ENGINE.SetItemAttrText('APINVNEG',
5504: l_new_child_itemkey,
5505: 'SUPPLIER_ROLE',
5506: l_role);
5507: WF_ENGINE.SetItemAttrText('APINVNEG',
5503: WF_ENGINE.SetItemAttrText('APINVNEG',
5504: l_new_child_itemkey,
5505: 'SUPPLIER_ROLE',
5506: l_role);
5507: WF_ENGINE.SetItemAttrText('APINVNEG',
5508: l_new_child_itemkey,
5509: 'SUPPLIER_DISPLAY_NAME',
5510: l_display_name);
5511: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5507: WF_ENGINE.SetItemAttrText('APINVNEG',
5508: l_new_child_itemkey,
5509: 'SUPPLIER_DISPLAY_NAME',
5510: l_display_name);
5511: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5512: l_new_child_itemkey,
5513: 'SUPPLIER_PERSON_ID',
5514: l_ext_user_id);
5515:
5512: l_new_child_itemkey,
5513: 'SUPPLIER_PERSON_ID',
5514: l_ext_user_id);
5515:
5516: WF_ENGINE.SetItemAttrText('APINVNEG',
5517: l_new_child_itemkey,
5518: 'NOTF_RECEIPIENT_TYPE',
5519: 'EXTERNAL');
5520: WF_ENGINE.SetItemAttrText('APINVNEG',
5516: WF_ENGINE.SetItemAttrText('APINVNEG',
5517: l_new_child_itemkey,
5518: 'NOTF_RECEIPIENT_TYPE',
5519: 'EXTERNAL');
5520: WF_ENGINE.SetItemAttrText('APINVNEG',
5521: l_new_child_itemkey,
5522: 'INTERNAL_REP_DISPLAY_NAME',
5523: WF_ENGINE.GETITEMATTRText('APINVAPR',
5524: parentkey,
5519: 'EXTERNAL');
5520: WF_ENGINE.SetItemAttrText('APINVNEG',
5521: l_new_child_itemkey,
5522: 'INTERNAL_REP_DISPLAY_NAME',
5523: WF_ENGINE.GETITEMATTRText('APINVAPR',
5524: parentkey,
5525: 'APPROVER_NAME'));
5526: WF_ENGINE.SetItemAttrText('APINVNEG',
5527: l_new_child_itemkey,
5522: 'INTERNAL_REP_DISPLAY_NAME',
5523: WF_ENGINE.GETITEMATTRText('APINVAPR',
5524: parentkey,
5525: 'APPROVER_NAME'));
5526: WF_ENGINE.SetItemAttrText('APINVNEG',
5527: l_new_child_itemkey,
5528: 'INTERNAL_REP_ROLE',
5529: WF_ENGINE.GETITEMATTRText('APINVAPR',
5530: parentkey,
5525: 'APPROVER_NAME'));
5526: WF_ENGINE.SetItemAttrText('APINVNEG',
5527: l_new_child_itemkey,
5528: 'INTERNAL_REP_ROLE',
5529: WF_ENGINE.GETITEMATTRText('APINVAPR',
5530: parentkey,
5531: 'DOCUMENT_APPROVER'));
5532:
5533: /* Currently the sender is external (supplier) and sending to
5533: /* Currently the sender is external (supplier) and sending to
5534: Internal Rep */
5535: ELSIF int_ext_indicator = 'E' THEN
5536:
5537: l_role := WF_ENGINE.GETITEMATTRText('APINVAPR',
5538: parentkey,
5539: 'DOCUMENT_APPROVER');
5540: WF_ENGINE.SetItemAttrText('APINVNEG',
5541: l_new_child_itemkey,
5536:
5537: l_role := WF_ENGINE.GETITEMATTRText('APINVAPR',
5538: parentkey,
5539: 'DOCUMENT_APPROVER');
5540: WF_ENGINE.SetItemAttrText('APINVNEG',
5541: l_new_child_itemkey,
5542: 'INTERNAL_REP_ROLE',
5543: l_role);
5544: WF_ENGINE.SetItemAttrText('APINVNEG',
5540: WF_ENGINE.SetItemAttrText('APINVNEG',
5541: l_new_child_itemkey,
5542: 'INTERNAL_REP_ROLE',
5543: l_role);
5544: WF_ENGINE.SetItemAttrText('APINVNEG',
5545: l_new_child_itemkey,
5546: 'DISP_NOT_RECEIVER',
5547: l_role);
5548: l_display_name := WF_ENGINE.GETITEMATTRText('APINVAPR',
5544: WF_ENGINE.SetItemAttrText('APINVNEG',
5545: l_new_child_itemkey,
5546: 'DISP_NOT_RECEIVER',
5547: l_role);
5548: l_display_name := WF_ENGINE.GETITEMATTRText('APINVAPR',
5549: parentkey,
5550: 'APPROVER_NAME');
5551: WF_ENGINE.SetItemAttrText('APINVNEG',
5552: l_new_child_itemkey,
5547: l_role);
5548: l_display_name := WF_ENGINE.GETITEMATTRText('APINVAPR',
5549: parentkey,
5550: 'APPROVER_NAME');
5551: WF_ENGINE.SetItemAttrText('APINVNEG',
5552: l_new_child_itemkey,
5553: 'INTERNAL_REP_DISPLAY_NAME',
5554: l_display_name);
5555: l_person_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
5551: WF_ENGINE.SetItemAttrText('APINVNEG',
5552: l_new_child_itemkey,
5553: 'INTERNAL_REP_DISPLAY_NAME',
5554: l_display_name);
5555: l_person_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
5556: parentkey,
5557: 'APPROVER_ID');
5558: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5559: l_new_child_itemkey,
5554: l_display_name);
5555: l_person_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
5556: parentkey,
5557: 'APPROVER_ID');
5558: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5559: l_new_child_itemkey,
5560: 'INTERNAL_REP_PERSON_ID',
5561: l_person_id);
5562: WF_ENGINE.SetItemAttrText('APINVNEG',
5558: WF_ENGINE.SetItemAttrNumber('APINVNEG',
5559: l_new_child_itemkey,
5560: 'INTERNAL_REP_PERSON_ID',
5561: l_person_id);
5562: WF_ENGINE.SetItemAttrText('APINVNEG',
5563: l_new_child_itemkey,
5564: 'NOTF_RECEIPIENT_TYPE',
5565: 'INTERNAL');
5566: WF_ENGINE.SetItemAttrText('APINVNEG',
5562: WF_ENGINE.SetItemAttrText('APINVNEG',
5563: l_new_child_itemkey,
5564: 'NOTF_RECEIPIENT_TYPE',
5565: 'INTERNAL');
5566: WF_ENGINE.SetItemAttrText('APINVNEG',
5567: l_new_child_itemkey,
5568: 'SUPPLIER_DISPLAY_NAME',
5569: WF_ENGINE.GETITEMATTRText('APINVNEG',
5570: childkey,
5565: 'INTERNAL');
5566: WF_ENGINE.SetItemAttrText('APINVNEG',
5567: l_new_child_itemkey,
5568: 'SUPPLIER_DISPLAY_NAME',
5569: WF_ENGINE.GETITEMATTRText('APINVNEG',
5570: childkey,
5571: 'SUPPLIER_DISPLAY_NAME'));
5572: WF_ENGINE.SetItemAttrText('APINVNEG',
5573: l_new_child_itemkey,
5568: 'SUPPLIER_DISPLAY_NAME',
5569: WF_ENGINE.GETITEMATTRText('APINVNEG',
5570: childkey,
5571: 'SUPPLIER_DISPLAY_NAME'));
5572: WF_ENGINE.SetItemAttrText('APINVNEG',
5573: l_new_child_itemkey,
5574: 'SUPPLIER_ROLE',
5575: WF_ENGINE.GETITEMATTRText('APINVNEG',
5576: childkey,
5571: 'SUPPLIER_DISPLAY_NAME'));
5572: WF_ENGINE.SetItemAttrText('APINVNEG',
5573: l_new_child_itemkey,
5574: 'SUPPLIER_ROLE',
5575: WF_ENGINE.GETITEMATTRText('APINVNEG',
5576: childkey,
5577: 'SUPPLIER_ROLE'));
5578:
5579: END IF;
5576: childkey,
5577: 'SUPPLIER_ROLE'));
5578:
5579: END IF;
5580: WF_ENGINE.startProcess('APINVNEG', l_new_child_itemkey);
5581: MO_GLOBAL.INIT ('SQLAP');
5582: MO_GLOBAL.set_policy_context('S',l_org_id);
5583:
5584: IF childkey IS NOT NULL THEN
5581: MO_GLOBAL.INIT ('SQLAP');
5582: MO_GLOBAL.set_policy_context('S',l_org_id);
5583:
5584: IF childkey IS NOT NULL THEN
5585: l_notf_receipient_type := WF_ENGINE.GetItemAttrText('APINVNEG',
5586: childkey,
5587: 'NOTF_RECEIPIENT_TYPE');
5588: IF l_notf_receipient_type = 'INTERNAL' THEN
5589:
5586: childkey,
5587: 'NOTF_RECEIPIENT_TYPE');
5588: IF l_notf_receipient_type = 'INTERNAL' THEN
5589:
5590: wf_engine.CompleteActivity(
5591: itemType => 'APINVNEG',
5592: itemKey => childkey,
5593: activity => 'APPROVAL_NEGOTIATION:WAITINTLINEAPRVL',
5594: result => 'NULL');
5592: itemKey => childkey,
5593: activity => 'APPROVAL_NEGOTIATION:WAITINTLINEAPRVL',
5594: result => 'NULL');
5595: ELSE
5596: wf_engine.CompleteActivity(
5597: itemType => 'APINVNEG',
5598: itemKey => childkey,
5599: activity => 'APPROVAL_NEGOTIATION:WAITEXTLINEAPRVL',
5600: result => 'NULL');
5713: CLOSE csr_ap_inv_details;
5714: l_iteration := nvl(p_approval_iteration,1);
5715: l_itemkey := to_char(p_invoice_id) || '_' || to_char(l_iteration);
5716:
5717: l_debug_info := 'Before Calling WF_ENGINE.createProcess(APINVAPR,'
5718: || l_itemkey || ',APPROVAL_MAIN);';
5719: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5721: l_api_name,l_debug_info);
5720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5721: l_api_name,l_debug_info);
5722: END IF;
5723:
5724: wf_engine.createProcess('APINVAPR', l_itemkey, 'APPROVAL_MAIN');
5725: l_debug_info := 'Before setting item attributes' ;
5726: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5728: l_api_name,l_debug_info);
5727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5728: l_api_name,l_debug_info);
5729: END IF;
5730:
5731: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5732: l_itemkey,
5733: 'INVOICE_ID',
5734: l_invoice_id);
5735: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5731: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5732: l_itemkey,
5733: 'INVOICE_ID',
5734: l_invoice_id);
5735: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5736: l_itemkey,
5737: 'ORG_ID',
5738: l_org_id);
5739: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5735: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5736: l_itemkey,
5737: 'ORG_ID',
5738: l_org_id);
5739: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5740: l_itemkey,
5741: 'INVOICE_TOTAL',
5742: l_total);
5743: WF_ENGINE.SetItemAttrText('APINVAPR',
5739: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5740: l_itemkey,
5741: 'INVOICE_TOTAL',
5742: l_total);
5743: WF_ENGINE.SetItemAttrText('APINVAPR',
5744: l_itemkey,
5745: 'INVOICE_SUPPLIER_NAME',
5746: l_vendor_name);
5747: WF_ENGINE.SetItemAttrText('APINVAPR',
5743: WF_ENGINE.SetItemAttrText('APINVAPR',
5744: l_itemkey,
5745: 'INVOICE_SUPPLIER_NAME',
5746: l_vendor_name);
5747: WF_ENGINE.SetItemAttrText('APINVAPR',
5748: l_itemkey,
5749: 'INVOICE_NUMBER',
5750: l_invoice_num);
5751: WF_ENGINE.SetItemAttrDate('APINVAPR',
5747: WF_ENGINE.SetItemAttrText('APINVAPR',
5748: l_itemkey,
5749: 'INVOICE_NUMBER',
5750: l_invoice_num);
5751: WF_ENGINE.SetItemAttrDate('APINVAPR',
5752: l_itemkey,
5753: 'INVOICE_DATE',
5754: l_invoice_date);
5755: WF_ENGINE.SetItemAttrText('APINVAPR',
5751: WF_ENGINE.SetItemAttrDate('APINVAPR',
5752: l_itemkey,
5753: 'INVOICE_DATE',
5754: l_invoice_date);
5755: WF_ENGINE.SetItemAttrText('APINVAPR',
5756: l_itemkey,
5757: 'INVOICE_DESCRIPTION',
5758: l_invoice_description);
5759: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5755: WF_ENGINE.SetItemAttrText('APINVAPR',
5756: l_itemkey,
5757: 'INVOICE_DESCRIPTION',
5758: l_invoice_description);
5759: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5760: l_itemkey,
5761: 'ITERATION',
5762: l_iteration);
5763: WF_ENGINE.SetItemAttrText('APINVAPR',
5759: WF_ENGINE.SetItemAttrNumber('APINVAPR',
5760: l_itemkey,
5761: 'ITERATION',
5762: l_iteration);
5763: WF_ENGINE.SetItemAttrText('APINVAPR',
5764: l_itemkey,
5765: 'NOTIFICATION_KEY',
5766: l_itemkey);
5767: /* Set wfapproval status at the line level so that AME doesnt return
5778: WHERE po_header_id IS NOT NULL
5779: AND invoice_id = l_invoice_id;
5780:
5781: IF l_num > 0 THEN
5782: WF_ENGINE.SetItemAttrText('APINVAPR',
5783: l_itemkey,
5784: 'INV_MATCH_TYPE',
5785: 'MATCHED');
5786: UPDATE AP_INVOICE_LINES_ALL
5786: UPDATE AP_INVOICE_LINES_ALL
5787: SET WFAPPROVAL_STATUS = 'INITIATED'
5788: where invoice_id = p_invoice_id;
5789: ELSE
5790: WF_ENGINE.SetItemAttrText('APINVAPR',
5791: l_itemkey,
5792: 'INV_MATCH_TYPE',
5793: 'UNMATCHED');
5794: UPDATE AP_INVOICE_LINES_ALL
5795: SET WFAPPROVAL_STATUS = 'NOT REQUIRED'
5796: where invoice_id = p_invoice_id;
5797: END IF;
5798:
5799: l_debug_info := 'Before Calling WF_ENGINE.startProcess(APINVAPR,'
5800: || l_itemkey || ');';
5801: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5802: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5803: l_api_name,l_debug_info);
5801: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5802: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5803: l_api_name,l_debug_info);
5804: END IF;
5805: WF_ENGINE.startProcess('APINVAPR', l_itemkey);
5806: l_debug_info := 'After Calling WF_ENGINE.startProcess' ;
5807: p_wfitemkey := l_itemkey;
5808: l_debug_info := 'End';
5809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5802: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5803: l_api_name,l_debug_info);
5804: END IF;
5805: WF_ENGINE.startProcess('APINVAPR', l_itemkey);
5806: l_debug_info := 'After Calling WF_ENGINE.startProcess' ;
5807: p_wfitemkey := l_itemkey;
5808: l_debug_info := 'End';
5809: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5810: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
5897: end if;
5898:
5899: IF p_line_number IS NULL THEN
5900: --End WF processes
5901: WF_Engine.abortProcess(
5902: itemType => 'APINVAPR',
5903: itemKey => l_invoice_key,
5904: process => 'APPROVAL_MAIN');
5905:
5926: itemIdIn => l_item_id);
5927:
5928: IF l_not_key <> nvl(l_old_not_key, 'dummy') THEN
5929:
5930: WF_Engine.abortProcess(
5931: itemType => 'APINVAPR',
5932: itemKey => l_not_key,
5933: process => 'APPROVAL_INVOICE_LINES');
5934:
5963: itemIdIn => l_item_id);
5964:
5965: IF l_not_key <> nvl(l_old_not_key, 'dummy') THEN
5966:
5967: WF_Engine.abortProcess(
5968: itemType => 'APINVAPR',
5969: itemKey => l_not_key,
5970: process => 'APPROVAL_INVOICE_LINES');
5971:
6053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6054: l_api_name,l_debug_info);
6055: END IF;
6056:
6057: l_invoice_id := WF_ENGINE.GetItemAttrNumber('APINVAPR',
6058: p_itemkey,
6059: 'INVOICE_ID');
6060:
6061: l_iteration := WF_ENGINE.GetItemAttrNumber('APINVAPR',
6057: l_invoice_id := WF_ENGINE.GetItemAttrNumber('APINVAPR',
6058: p_itemkey,
6059: 'INVOICE_ID');
6060:
6061: l_iteration := WF_ENGINE.GetItemAttrNumber('APINVAPR',
6062: p_itemkey,
6063: 'ITERATION');
6064:
6065: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6061: l_iteration := WF_ENGINE.GetItemAttrNumber('APINVAPR',
6062: p_itemkey,
6063: 'ITERATION');
6064:
6065: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6066: p_itemkey,
6067: 'NOTF_ITERATION');
6068:
6069: l_comments := WF_ENGINE.GetItemAttrText('APINVAPR',
6065: l_notf_iteration := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6066: p_itemkey,
6067: 'NOTF_ITERATION');
6068:
6069: l_comments := WF_ENGINE.GetItemAttrText('APINVAPR',
6070: p_itemkey,
6071: 'WF_NOTE');
6072:
6073: l_org_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6069: l_comments := WF_ENGINE.GetItemAttrText('APINVAPR',
6070: p_itemkey,
6071: 'WF_NOTE');
6072:
6073: l_org_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6074: p_itemkey,
6075: 'ORG_ID');
6076:
6077: l_approver_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6073: l_org_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6074: p_itemkey,
6075: 'ORG_ID');
6076:
6077: l_approver_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6078: p_itemkey,
6079: 'APPROVER_NAME');
6080:
6081: l_esc_role_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6077: l_approver_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6078: p_itemkey,
6079: 'APPROVER_NAME');
6080:
6081: l_esc_role_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6082: p_itemkey,
6083: 'ESC_ROLE_NAME');
6084:
6085: l_role_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6081: l_esc_role_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6082: p_itemkey,
6083: 'ESC_ROLE_NAME');
6084:
6085: l_role_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6086: p_itemkey,
6087: 'ROLE_NAME');
6088:
6089: l_approver_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6085: l_role_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6086: p_itemkey,
6087: 'ROLE_NAME');
6088:
6089: l_approver_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6090: p_itemkey,
6091: 'APPROVER_ID');
6092:
6093: l_esc_flag := WF_ENGINE.GetItemAttrText('APINVAPR',
6089: l_approver_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6090: p_itemkey,
6091: 'APPROVER_ID');
6092:
6093: l_esc_flag := WF_ENGINE.GetItemAttrText('APINVAPR',
6094: p_itemkey,
6095: 'ESCALATED');
6096: l_esc_approver_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6097: p_itemkey,
6092:
6093: l_esc_flag := WF_ENGINE.GetItemAttrText('APINVAPR',
6094: p_itemkey,
6095: 'ESCALATED');
6096: l_esc_approver_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6097: p_itemkey,
6098: 'ESC_APPROVER_NAME');
6099:
6100: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6096: l_esc_approver_name := WF_ENGINE.GetItemAttrText('APINVAPR',
6097: p_itemkey,
6098: 'ESC_APPROVER_NAME');
6099:
6100: l_esc_approver_id := WF_ENGINE.GETITEMATTRNumber('APINVAPR',
6101: p_itemkey,
6102: 'ESC_APPROVER_ID');
6103:
6104: l_user_id := nvl(to_number(fnd_profile.value('USER_ID')),-1);
6228: AND INVOICE_ID = p_invoice_id
6229: AND LINE_NUMBER = p_line_number;
6230: IF l_sent = 0 THEN
6231: BEGIN
6232: wf_engine.CompleteActivity(
6233: itemType => 'APINVAPR',
6234: itemKey => p_itemkey,
6235: activity => 'APPROVAL_INVOICE_LINES:WAITLINEAPRVL',
6236: result => 'NULL');
6483: l_hold_release_code ap_holds_all.release_lookup_code%TYPE;
6484: l_debug_info VARCHAR2(2000);
6485: l_api_name CONSTANT VARCHAR2(200) := 'continue_hold_workflow';
6486: BEGIN
6487: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6488: itemkey,
6489: 'ORG_ID');
6490:
6491: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6487: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6488: itemkey,
6489: 'ORG_ID');
6490:
6491: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6492: itemkey,
6493: 'INVOICE_ID');
6494:
6495: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6491: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6492: itemkey,
6493: 'INVOICE_ID');
6494:
6495: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6496: itemkey,
6497: 'HOLD_ID');
6498: l_debug_info := 'Before select';
6499: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6508: and aha.org_id = l_org_id
6509: and aha.hold_lookup_code = ahc.hold_lookup_code
6510: and aha.hold_id = l_hold_id;
6511: IF l_hold_release_code IS NULL THEN
6512: resultout := wf_engine.eng_completed||':'||'Y';
6513: ELSE
6514: resultout := wf_engine.eng_completed||':'||'N';
6515: END IF;
6516: l_debug_info := 'After select, reultout : ' || resultout;
6510: and aha.hold_id = l_hold_id;
6511: IF l_hold_release_code IS NULL THEN
6512: resultout := wf_engine.eng_completed||':'||'Y';
6513: ELSE
6514: resultout := wf_engine.eng_completed||':'||'N';
6515: END IF;
6516: l_debug_info := 'After select, reultout : ' || resultout;
6517: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6518: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6540: l_wait_time NUMBER;
6541: l_debug_info VARCHAR2(2000);
6542: l_api_name CONSTANT VARCHAR2(200) := 'exists_initial_wait';
6543: BEGIN
6544: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6545: itemkey,
6546: 'ORG_ID');
6547:
6548: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6544: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6545: itemkey,
6546: 'ORG_ID');
6547:
6548: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6549: itemkey,
6550: 'INVOICE_ID');
6551:
6552: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6548: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6549: itemkey,
6550: 'INVOICE_ID');
6551:
6552: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6553: itemkey,
6554: 'HOLD_ID');
6555: l_debug_info := 'Before select';
6556: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6565: and aha.org_id = l_org_id
6566: and aha.hold_lookup_code = ahc.hold_lookup_code
6567: and aha.hold_id = l_hold_id;
6568: IF l_wait_time > 0 THEN
6569: WF_ENGINE.SetItemAttrNumber(itemtype,
6570: itemkey,
6571: 'INITIAL_WAIT_TIME',
6572: l_wait_time);
6573:
6570: itemkey,
6571: 'INITIAL_WAIT_TIME',
6572: l_wait_time);
6573:
6574: resultout := wf_engine.eng_completed||':'||'Y';
6575: ELSE
6576: resultout := wf_engine.eng_completed||':'||'N';
6577: END IF;
6578: l_debug_info := 'After select, reultout : ' || resultout;
6572: l_wait_time);
6573:
6574: resultout := wf_engine.eng_completed||':'||'Y';
6575: ELSE
6576: resultout := wf_engine.eng_completed||':'||'N';
6577: END IF;
6578: l_debug_info := 'After select, reultout : ' || resultout;
6579: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6580: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
6603: l_wait_time NUMBER;
6604: l_debug_info VARCHAR2(2000);
6605: l_api_name CONSTANT VARCHAR2(200) := 'is_hold_released';
6606: BEGIN
6607: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6608: itemkey,
6609: 'ORG_ID');
6610:
6611: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6607: l_org_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6608: itemkey,
6609: 'ORG_ID');
6610:
6611: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6612: itemkey,
6613: 'INVOICE_ID');
6614:
6615: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6611: l_invoice_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6612: itemkey,
6613: 'INVOICE_ID');
6614:
6615: l_hold_id := WF_ENGINE.GETITEMATTRNumber(itemtype,
6616: itemkey,
6617: 'HOLD_ID');
6618: l_debug_info := 'Before select';
6619: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6631: and aha.hold_lookup_code = ahc.hold_lookup_code
6632: and aha.hold_id = l_hold_id;
6633: IF l_hold_release_code IS NOT NULL
6634: OR l_wait_time = 0 THEN
6635: resultout := wf_engine.eng_completed||':'||'Y';
6636: ELSE
6637: WF_ENGINE.SetItemAttrNumber(itemtype,
6638: itemkey,
6639: 'REMINDER_WAIT_TIME',
6633: IF l_hold_release_code IS NOT NULL
6634: OR l_wait_time = 0 THEN
6635: resultout := wf_engine.eng_completed||':'||'Y';
6636: ELSE
6637: WF_ENGINE.SetItemAttrNumber(itemtype,
6638: itemkey,
6639: 'REMINDER_WAIT_TIME',
6640: l_wait_time);
6641: resultout := wf_engine.eng_completed||':'||'N';
6637: WF_ENGINE.SetItemAttrNumber(itemtype,
6638: itemkey,
6639: 'REMINDER_WAIT_TIME',
6640: l_wait_time);
6641: resultout := wf_engine.eng_completed||':'||'N';
6642: END IF;
6643: l_debug_info := 'After select, reultout : ' || resultout;
6644: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6645: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7081: l_process, l_invoice_id;
7082:
7083: EXIT WHEN key_Cur%NOTFOUND OR key_Cur%NOTFOUND IS NULL;
7084:
7085: WF_Engine.abortProcess(
7086: itemType => l_item_type,
7087: itemKey => l_item_key,
7088: process => l_process);
7089:
7149: WHERE Notification_status = 'SENT'
7150: AND child_process_item_key = p_itemkey
7151: AND invoice_id = p_invoice_id;
7152: IF l_sent = 0 THEN
7153: wf_engine.CompleteActivity(
7154: itemType => 'APINVAPR',
7155: itemKey => p_itemkey,
7156: activity => 'APPROVAL_INVOICE_LINES:WAITLINEAPRVL',
7157: result => 'NULL');
7181: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7182: l_api_name,l_debug_info);
7183: END IF;
7184: BEGIN
7185: wf_engine.CompleteActivity(
7186: itemType => 'APINVAPR',
7187: itemKey => l_invoice_key,
7188: activity => 'APPROVAL_MAIN:BLOCK',
7189: result => 'NULL');
7208: l_match_type VARCHAR2(80);
7209: l_debug_info VARCHAR2(2000);
7210: l_api_name CONSTANT VARCHAR2(200) := 'is_invoice_matched';
7211: BEGIN
7212: l_match_type := WF_ENGINE.GETITEMATTRText(itemtype,
7213: itemkey,
7214: 'INV_MATCH_TYPE');
7215:
7216:
7214: 'INV_MATCH_TYPE');
7215:
7216:
7217: IF l_match_type = 'MATCHED' THEN
7218: resultout := wf_engine.eng_completed||':'||'Y';
7219: ELSE
7220: resultout := wf_engine.eng_completed||':'||'N';
7221: END IF;
7222: l_debug_info := 'resultout : ' || resultout;
7216:
7217: IF l_match_type = 'MATCHED' THEN
7218: resultout := wf_engine.eng_completed||':'||'Y';
7219: ELSE
7220: resultout := wf_engine.eng_completed||':'||'N';
7221: END IF;
7222: l_debug_info := 'resultout : ' || resultout;
7223: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7224: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7241: l_api_name CONSTANT VARCHAR2(200) := 'aprvl_process_reject_int';
7242: l_debug_info VARCHAR2(2000);
7243: l_parent_key VARCHAR2(150);
7244: BEGIN
7245: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
7246: itemkey,
7247: 'PARENT_KEY');
7248:
7249: wf_engine.CompleteActivity(
7245: l_parent_key := WF_ENGINE.GetItemAttrText(itemtype,
7246: itemkey,
7247: 'PARENT_KEY');
7248:
7249: wf_engine.CompleteActivity(
7250: itemType => 'APINVAPR',
7251: itemKey => l_parent_key,
7252: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
7253: result => 'REJECTED');
7250: itemType => 'APINVAPR',
7251: itemKey => l_parent_key,
7252: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
7253: result => 'REJECTED');
7254: resultout := wf_engine.eng_completed||':'||'Y';
7255: EXCEPTION
7256:
7257: WHEN OTHERS
7258: THEN
7273: END IF;
7274: -- Bug 6845397. Getting invoice id.
7275: l_invoice_id := substr(p_itemkey, 1, instr(p_itemkey,'_')-1);
7276: BEGIN
7277: wf_engine.CompleteActivity(
7278: itemType => 'APINVAPR',
7279: itemKey => p_itemkey,
7280: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
7281: result => 'APPROVED');
7323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7324: l_api_name,l_debug_info);
7325: END IF;
7326: BEGIN
7327: wf_engine.CompleteActivity(
7328: itemType => 'APINVAPR',
7329: itemKey => p_itemkey,
7330: activity => 'APPROVAL_INVOICE:DOCUMENT_APPROVAL_REQUEST',
7331: result => 'REJECTED');
7351: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7352: l_api_name,l_debug_info);
7353: END IF;
7354: BEGIN
7355: wf_engine.CompleteActivity(
7356: itemType => 'APINVNEG',
7357: itemKey => p_itemkey,
7358: activity => 'APPROVAL_NEGOTIATION:NOTIFY_SUP_NEGOTIATION',
7359: result => 'ACCEPT');
7378: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7379: l_api_name,l_debug_info);
7380: END IF;
7381: BEGIN
7382: wf_engine.CompleteActivity(
7383: itemType => 'APINVNEG',
7384: itemKey => p_itemkey,
7385: activity => 'APPROVAL_NEGOTIATION:NOTIFY_INT_NEGOTIATION',
7386: result => 'ACCEPT');
7406: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7407: l_api_name,l_debug_info);
7408: END IF;
7409: BEGIN
7410: wf_engine.CompleteActivity(
7411: itemType => 'APINVNEG',
7412: itemKey => p_itemkey,
7413: activity => 'APPROVAL_NEGOTIATION:NOTIFY_SUP_NEGOTIATION',
7414: result => 'CANCELINVOICE');
7434: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7435: l_api_name,l_debug_info);
7436: END IF;
7437:
7438: WF_ENGINE.SetItemAttrText('APINVAPR',
7439: p_itemkey,
7440: 'WF_NOTE',
7441: p_notes);
7442:
7474: l_inv_type ap_invoices_all.invoice_type_lookup_code%TYPE;
7475: l_debug_info VARCHAR2(2000);
7476: l_api_name CONSTANT VARCHAR2(200) := 'is_payment_request';
7477: BEGIN
7478: l_invoice_id := WF_ENGINE.GETITEMATTRNumber
7479: (itemtype,
7480: itemkey,
7481: 'INVOICE_ID');
7482: SELECT ai.invoice_type_lookup_code
7484: FROM ap_invoices_all ai
7485: WHERE invoice_id = l_invoice_id;
7486:
7487: IF l_inv_type = 'PAYMENT REQUEST' THEN
7488: resultout := wf_engine.eng_completed||':'||'Y';
7489: ELSE
7490: resultout := wf_engine.eng_completed||':'||'N';
7491: END IF;
7492: l_debug_info := 'resultout : ' || resultout;
7486:
7487: IF l_inv_type = 'PAYMENT REQUEST' THEN
7488: resultout := wf_engine.eng_completed||':'||'Y';
7489: ELSE
7490: resultout := wf_engine.eng_completed||':'||'N';
7491: END IF;
7492: l_debug_info := 'resultout : ' || resultout;
7493: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7494: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
7559: WHERE approval_history_id=(select max(approval_history_id)from ap_inv_aprvl_hist
7560: where invoice_id= p_invoice_id);
7561:
7562: BEGIN
7563: l_nid := WF_ENGINE.context_nid;
7564: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
7565: itemkey,
7566: 'INVOICE_ID');
7567:
7560: where invoice_id= p_invoice_id);
7561:
7562: BEGIN
7563: l_nid := WF_ENGINE.context_nid;
7564: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
7565: itemkey,
7566: 'INVOICE_ID');
7567:
7568: l_org_id := WF_ENGINE.GETITEMATTRNumber( itemtype,
7564: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
7565: itemkey,
7566: 'INVOICE_ID');
7567:
7568: l_org_id := WF_ENGINE.GETITEMATTRNumber( itemtype,
7569: itemkey,
7570: 'ORG_ID');
7571:
7572: l_iteration := WF_ENGINE.GetItemAttrNumber( itemtype,
7568: l_org_id := WF_ENGINE.GETITEMATTRNumber( itemtype,
7569: itemkey,
7570: 'ORG_ID');
7571:
7572: l_iteration := WF_ENGINE.GetItemAttrNumber( itemtype,
7573: itemkey,
7574: 'ITERATION');
7575: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
7576: itemkey,
7571:
7572: l_iteration := WF_ENGINE.GetItemAttrNumber( itemtype,
7573: itemkey,
7574: 'ITERATION');
7575: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
7576: itemkey,
7577: 'WF_NOTE');
7578: l_notf_iteration := WF_ENGINE.GetItemAttrnumber(itemtype,
7579: itemkey,
7574: 'ITERATION');
7575: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
7576: itemkey,
7577: 'WF_NOTE');
7578: l_notf_iteration := WF_ENGINE.GetItemAttrnumber(itemtype,
7579: itemkey,
7580: 'NOTF_ITERATION');
7581: l_esc_flag := WF_ENGINE.GetItemAttrnumber(itemtype,
7582: itemkey,
7577: 'WF_NOTE');
7578: l_notf_iteration := WF_ENGINE.GetItemAttrnumber(itemtype,
7579: itemkey,
7580: 'NOTF_ITERATION');
7581: l_esc_flag := WF_ENGINE.GetItemAttrnumber(itemtype,
7582: itemkey,
7583: 'ESCALATED');
7584: l_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
7585: itemkey,
7580: 'NOTF_ITERATION');
7581: l_esc_flag := WF_ENGINE.GetItemAttrnumber(itemtype,
7582: itemkey,
7583: 'ESCALATED');
7584: l_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
7585: itemkey,
7586: 'ROLE_ACTUAL');
7587: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
7588: itemkey,
7583: 'ESCALATED');
7584: l_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
7585: itemkey,
7586: 'ROLE_ACTUAL');
7587: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
7588: itemkey,
7589: 'ESC_ROLE_ACTUAL');
7590: l_fwd_role := WF_ENGINE.GetItemAttrText(itemtype,
7591: itemkey,
7586: 'ROLE_ACTUAL');
7587: l_esc_role_actual := WF_ENGINE.GetItemAttrText(itemtype,
7588: itemkey,
7589: 'ESC_ROLE_ACTUAL');
7590: l_fwd_role := WF_ENGINE.GetItemAttrText(itemtype,
7591: itemkey,
7592: 'FORWARD_ROLE');
7593: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
7594: itemkey,
7589: 'ESC_ROLE_ACTUAL');
7590: l_fwd_role := WF_ENGINE.GetItemAttrText(itemtype,
7591: itemkey,
7592: 'FORWARD_ROLE');
7593: l_invoice_total := WF_ENGINE.GETITEMATTRNumber(itemtype,
7594: itemkey,
7595: 'INVOICE_TOTAL');
7596: -- getting approver in the document_approver and setting in the ROLE_ACTUAL attribute
7597: -- So even if the notification is delegated the ame will be updated in the for the actual approver
7597: -- So even if the notification is delegated the ame will be updated in the for the actual approver
7598: -- the further level of approval will be done by the owners supervisors and also the same
7599: -- notification won't be sent to this approver again
7600: IF ((nvl(l_esc_flag,'N') = 'N')and (l_fwd_role is null) ) THEN
7601: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
7602: itemkey,
7603: 'DOCUMENT_APPROVER');
7604: WF_ENGINE.SetItemAttrText(itemtype,
7605: itemkey,
7600: IF ((nvl(l_esc_flag,'N') = 'N')and (l_fwd_role is null) ) THEN
7601: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
7602: itemkey,
7603: 'DOCUMENT_APPROVER');
7604: WF_ENGINE.SetItemAttrText(itemtype,
7605: itemkey,
7606: 'ROLE_ACTUAL',
7607: l_role_name);
7608:
7606: 'ROLE_ACTUAL',
7607: l_role_name);
7608:
7609: elsif ((nvl(l_esc_flag,'N') = 'Y')and (l_esc_role_actual is null) ) THEN
7610: l_esc_role :=WF_ENGINE.GetItemAttrText( itemtype,
7611: itemkey,
7612: 'ESC_ROLE_NAME');
7613: WF_ENGINE.SetItemAttrText( itemtype,
7614: itemkey,
7609: elsif ((nvl(l_esc_flag,'N') = 'Y')and (l_esc_role_actual is null) ) THEN
7610: l_esc_role :=WF_ENGINE.GetItemAttrText( itemtype,
7611: itemkey,
7612: 'ESC_ROLE_NAME');
7613: WF_ENGINE.SetItemAttrText( itemtype,
7614: itemkey,
7615: 'ESC_ROLE_ACTUAL',
7616: l_esc_role);
7617:
7619: -- end
7620:
7621:
7622: IF (funcmode ='FORWARD') then
7623: l_rec_role :=WF_ENGINE.context_text;
7624: l_status:='DELEGATED';
7625:
7626: --fnd_client_info.set_org_context(l_org_id);
7627: --Now set the environment
7657: l_name,
7658: l_display_name);
7659:
7660:
7661: WF_ENGINE.SetItemAttrText(itemtype,
7662: itemkey,
7663: 'FORWARD_ROLE',
7664: l_role);
7665: IF nvl(l_esc_flag,'N') = 'N' THEN
7664: l_role);
7665: IF nvl(l_esc_flag,'N') = 'N' THEN
7666:
7667:
7668: WF_ENGINE.SetItemAttrText(itemtype,
7669: itemkey,
7670: 'DOCUMENT_APPROVER',
7671: l_role);
7672: WF_ENGINE.SetItemAttrText( itemtype,
7668: WF_ENGINE.SetItemAttrText(itemtype,
7669: itemkey,
7670: 'DOCUMENT_APPROVER',
7671: l_role);
7672: WF_ENGINE.SetItemAttrText( itemtype,
7673: itemkey,
7674: 'APPROVER_NAME',
7675: l_display_name);
7676:
7673: itemkey,
7674: 'APPROVER_NAME',
7675: l_display_name);
7676:
7677: WF_ENGINE.SetItemAttrNumber(itemtype,
7678: itemkey,
7679: 'APPROVER_ID',
7680: l_orig_sys_id);
7681: /* WF_ENGINE.SetItemAttrText( itemtype,
7677: WF_ENGINE.SetItemAttrNumber(itemtype,
7678: itemkey,
7679: 'APPROVER_ID',
7680: l_orig_sys_id);
7681: /* WF_ENGINE.SetItemAttrText( itemtype,
7682: itemkey,
7683: 'ORIG_SYSTEM',
7684: l_orig_system); */
7685:
7683: 'ORIG_SYSTEM',
7684: l_orig_system); */
7685:
7686: else
7687: WF_ENGINE.SetItemAttrText(itemtype,
7688: itemkey,
7689: 'ESC_ROLE_NAME',
7690: l_role);
7691: WF_ENGINE.SetItemAttrText( itemtype,
7687: WF_ENGINE.SetItemAttrText(itemtype,
7688: itemkey,
7689: 'ESC_ROLE_NAME',
7690: l_role);
7691: WF_ENGINE.SetItemAttrText( itemtype,
7692: itemkey,
7693: 'ESC_APPROVER_NAME',
7694: l_display_name);
7695:
7692: itemkey,
7693: 'ESC_APPROVER_NAME',
7694: l_display_name);
7695:
7696: WF_ENGINE.SetItemAttrNumber(itemtype,
7697: itemkey,
7698: 'ESC_APPROVER_ID',
7699: l_orig_sys_id);
7700:
7727: UPDATE AP_INV_APRVL_HIST
7728: set APPROVER_COMMENTS = l_comments, approver_name = l_display_name
7729: WHERE APPROVAL_HISTORY_ID =(select max(APPROVAL_HISTORY_ID) from AP_INV_APRVL_HIST
7730: where invoice_id=l_invoice_id);*/
7731: resultout := wf_engine.eng_completed || ':' || wf_engine.eng_null;
7732: return;
7733: End if;
7734:
7735: /* BEGIN
7758: l_org_id,
7759: l_result);
7760:
7761:
7762: WF_ENGINE.SetItemAttrText( itemtype,
7763: itemkey,
7764: 'FORWARD_ROLE',
7765: NULL);-- */
7766:
7763: itemkey,
7764: 'FORWARD_ROLE',
7765: NULL);-- */
7766:
7767: resultout := wf_engine.eng_completed || ':' || wf_engine.eng_null;
7768: return;
7769: End if;
7770:
7771:
7805: l_error_message VARCHAR2(2000); -- Bug 5037108
7806: l_debug_info VARCHAR2(50); -- Bug 5037108
7807:
7808: BEGIN
7809: l_forward_role_name := WF_ENGINE.GetItemAttrText(itemtype,
7810: itemkey,
7811: 'FORWARD_ROLE');
7812: l_current_role_name := WF_ENGINE.GetItemAttrText(itemtype,
7813: itemkey,
7808: BEGIN
7809: l_forward_role_name := WF_ENGINE.GetItemAttrText(itemtype,
7810: itemkey,
7811: 'FORWARD_ROLE');
7812: l_current_role_name := WF_ENGINE.GetItemAttrText(itemtype,
7813: itemkey,
7814: 'DOCUMENT_APPROVER');
7815:
7816: IF l_forward_role_name is NULL or l_forward_role_name=' ' THEN
7813: itemkey,
7814: 'DOCUMENT_APPROVER');
7815:
7816: IF l_forward_role_name is NULL or l_forward_role_name=' ' THEN
7817: resultout := wf_engine.eng_completed||':'||'N';
7818: ELSE
7819: IF(nvl(l_forward_role_name,'') = nvl(l_current_role_name,'')) then
7820: resultout := wf_engine.eng_completed||':'||'Y';
7821: /* -- Bug 5037108 starts
7816: IF l_forward_role_name is NULL or l_forward_role_name=' ' THEN
7817: resultout := wf_engine.eng_completed||':'||'N';
7818: ELSE
7819: IF(nvl(l_forward_role_name,'') = nvl(l_current_role_name,'')) then
7820: resultout := wf_engine.eng_completed||':'||'Y';
7821: /* -- Bug 5037108 starts
7822: BEGIN
7823: SELECT invoice_id
7824: INTO l_temp_invoice_id
7840: SET wfapproval_status = 'REJECTED'
7841: WHERE invoice_id = substr(itemkey, 1, instr(itemkey,'_')-1)
7842: AND wfapproval_status <> 'MANUALLY APPROVED'; */
7843: ELSE
7844: resultout := wf_engine.eng_completed||':'||'N';
7845: END If;
7846:
7847: END IF;
7848:
7928: WHERE invap.Notification_Key = itemkey
7929: AND al.line_number = invap.line_number
7930: AND al.invoice_id = invap.invoice_id;
7931: BEGIN
7932: l_nid := WF_ENGINE.context_nid;
7933: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
7934: itemkey,
7935: 'INVOICE_ID');
7936:
7929: AND al.line_number = invap.line_number
7930: AND al.invoice_id = invap.invoice_id;
7931: BEGIN
7932: l_nid := WF_ENGINE.context_nid;
7933: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
7934: itemkey,
7935: 'INVOICE_ID');
7936:
7937: l_org_id := WF_ENGINE.GETITEMATTRNumber( itemtype,
7933: l_invoice_id := WF_ENGINE.GetItemAttrNumber(itemtype,
7934: itemkey,
7935: 'INVOICE_ID');
7936:
7937: l_org_id := WF_ENGINE.GETITEMATTRNumber( itemtype,
7938: itemkey,
7939: 'ORG_ID');
7940:
7941: l_iteration := WF_ENGINE.GetItemAttrNumber( itemtype,
7937: l_org_id := WF_ENGINE.GETITEMATTRNumber( itemtype,
7938: itemkey,
7939: 'ORG_ID');
7940:
7941: l_iteration := WF_ENGINE.GetItemAttrNumber( itemtype,
7942: itemkey,
7943: 'ITERATION');
7944: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
7945: itemkey,
7940:
7941: l_iteration := WF_ENGINE.GetItemAttrNumber( itemtype,
7942: itemkey,
7943: 'ITERATION');
7944: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
7945: itemkey,
7946: 'WF_NOTE');
7947: l_notf_iteration := WF_ENGINE.GetItemAttrnumber(itemtype,
7948: itemkey,
7943: 'ITERATION');
7944: l_comments := WF_ENGINE.GetItemAttrText(itemtype,
7945: itemkey,
7946: 'WF_NOTE');
7947: l_notf_iteration := WF_ENGINE.GetItemAttrnumber(itemtype,
7948: itemkey,
7949: 'NOTF_ITERATION');
7950: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
7951: itemkey,
7946: 'WF_NOTE');
7947: l_notf_iteration := WF_ENGINE.GetItemAttrnumber(itemtype,
7948: itemkey,
7949: 'NOTF_ITERATION');
7950: l_esc_flag := WF_ENGINE.GetItemAttrText(itemtype,
7951: itemkey,
7952: 'ESCALATED');
7953:
7954: -- getting approver in the ROLE_NAME and setting in the ROLE_ACTUAL attribute
7956: -- So even if the notification is delegated the ame will be updated in the for the actual approver
7957: -- the further level of approval will be done by the owners supervisors and also the same
7958: -- notification won't be sent to this approver again
7959: IF nvl(l_esc_flag,'N') = 'N' THEN
7960: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
7961: itemkey,
7962: 'ROLE_NAME');
7963:
7964: WF_ENGINE.SetItemAttrText(itemtype,
7960: l_role_name :=WF_ENGINE.GetItemAttrText(itemtype,
7961: itemkey,
7962: 'ROLE_NAME');
7963:
7964: WF_ENGINE.SetItemAttrText(itemtype,
7965: itemkey,
7966: 'ROLE_ACTUAL',
7967: l_role_name);
7968:
7966: 'ROLE_ACTUAL',
7967: l_role_name);
7968:
7969: elsif nvl(l_esc_flag,'N') = 'Y' THEN
7970: l_esc_role :=WF_ENGINE.GetItemAttrText( itemtype,
7971: itemkey,
7972: 'ESC_ROLE_NAME');
7973: WF_ENGINE.SetItemAttrText( itemtype,
7974: itemkey,
7969: elsif nvl(l_esc_flag,'N') = 'Y' THEN
7970: l_esc_role :=WF_ENGINE.GetItemAttrText( itemtype,
7971: itemkey,
7972: 'ESC_ROLE_NAME');
7973: WF_ENGINE.SetItemAttrText( itemtype,
7974: itemkey,
7975: 'ESC_ROLE_ACTUAL',
7976: l_esc_role);
7977:
7977:
7978: end if ;
7979: -- end
7980: IF (funcmode ='FORWARD') then
7981: l_rec_role :=WF_ENGINE.context_text;
7982: l_status:='DELEGATED';
7983:
7984: --fnd_client_info.set_org_context(l_org_id);
7985: --Now set the environment
8014: l_orig_sys_id,
8015: l_name,
8016: l_display_name);
8017:
8018: WF_ENGINE.SetItemAttrText(itemtype,
8019: itemkey,
8020: 'FORWARD_ROLE_LINES',
8021: l_role);
8022:
8023:
8024: IF nvl(l_esc_flag,'N') = 'N' THEN
8025:
8026:
8027: WF_ENGINE.SetItemAttrText(itemtype,
8028: itemkey,
8029: 'ROLE_NAME',
8030: l_role);
8031: WF_ENGINE.SetItemAttrText( itemtype,
8027: WF_ENGINE.SetItemAttrText(itemtype,
8028: itemkey,
8029: 'ROLE_NAME',
8030: l_role);
8031: WF_ENGINE.SetItemAttrText( itemtype,
8032: itemkey,
8033: 'APPROVER_NAME',
8034: l_display_name);
8035:
8032: itemkey,
8033: 'APPROVER_NAME',
8034: l_display_name);
8035:
8036: WF_ENGINE.SetItemAttrNumber(itemtype,
8037: itemkey,
8038: 'APPROVER_ID',
8039: l_orig_sys_id);
8040: /* WF_ENGINE.SetItemAttrText( itemtype,
8036: WF_ENGINE.SetItemAttrNumber(itemtype,
8037: itemkey,
8038: 'APPROVER_ID',
8039: l_orig_sys_id);
8040: /* WF_ENGINE.SetItemAttrText( itemtype,
8041: itemkey,
8042: 'ORIG_SYSTEM',
8043: l_orig_system); */
8044:
8042: 'ORIG_SYSTEM',
8043: l_orig_system); */
8044:
8045: else
8046: WF_ENGINE.SetItemAttrText(itemtype,
8047: itemkey,
8048: 'ESC_ROLE_NAME',
8049: l_role);
8050: WF_ENGINE.SetItemAttrText( itemtype,
8046: WF_ENGINE.SetItemAttrText(itemtype,
8047: itemkey,
8048: 'ESC_ROLE_NAME',
8049: l_role);
8050: WF_ENGINE.SetItemAttrText( itemtype,
8051: itemkey,
8052: 'ESC_APPROVER_NAME',
8053: l_display_name);
8054:
8051: itemkey,
8052: 'ESC_APPROVER_NAME',
8053: l_display_name);
8054:
8055: WF_ENGINE.SetItemAttrNumber(itemtype,
8056: itemkey,
8057: 'ESC_APPROVER_ID',
8058: l_orig_sys_id);
8059:
8099: UPDATE AP_INV_APRVL_HIST
8100: set APPROVER_COMMENTS = l_comments, approver_name = l_display_name
8101: WHERE APPROVAL_HISTORY_ID =(select max(APPROVAL_HISTORY_ID) from AP_INV_APRVL_HIST
8102: where invoice_id=l_invoice_id);*/
8103: resultout := wf_engine.eng_completed || ':' || wf_engine.eng_null;
8104: return;
8105: End if;
8106:
8107: /* BEGIN
8131: l_org_id,
8132: l_result);
8133:
8134:
8135: WF_ENGINE.SetItemAttrText( itemtype,
8136: itemkey,
8137: 'FORWARD_ROLE',
8138: NULL);
8139:
8136: itemkey,
8137: 'FORWARD_ROLE',
8138: NULL);
8139:
8140: resultout := wf_engine.eng_completed || ':' || wf_engine.eng_null;
8141: return;
8142: End if;*/
8143: -- Don't allow transfer
8144: if ( funcmode = 'TRANSFER' ) then
8176: l_error_message VARCHAR2(2000);
8177: l_debug_info VARCHAR2(50);
8178:
8179: BEGIN
8180: l_forward_role_name := WF_ENGINE.GetItemAttrText(itemtype,
8181: itemkey,
8182: 'FORWARD_ROLE_LINES');
8183: l_current_role_name := WF_ENGINE.GetItemAttrText(itemtype,
8184: itemkey,
8179: BEGIN
8180: l_forward_role_name := WF_ENGINE.GetItemAttrText(itemtype,
8181: itemkey,
8182: 'FORWARD_ROLE_LINES');
8183: l_current_role_name := WF_ENGINE.GetItemAttrText(itemtype,
8184: itemkey,
8185: 'ROLE_NAME');
8186:
8187: IF l_forward_role_name is NULL or l_forward_role_name=' ' THEN
8184: itemkey,
8185: 'ROLE_NAME');
8186:
8187: IF l_forward_role_name is NULL or l_forward_role_name=' ' THEN
8188: resultout := wf_engine.eng_completed||':'||'N';
8189: ELSE
8190: IF(nvl(l_forward_role_name,'') = nvl(l_current_role_name,'')) then
8191: resultout := wf_engine.eng_completed||':'||'Y';
8192: /* -- Bug 5037108 starts
8187: IF l_forward_role_name is NULL or l_forward_role_name=' ' THEN
8188: resultout := wf_engine.eng_completed||':'||'N';
8189: ELSE
8190: IF(nvl(l_forward_role_name,'') = nvl(l_current_role_name,'')) then
8191: resultout := wf_engine.eng_completed||':'||'Y';
8192: /* -- Bug 5037108 starts
8193: BEGIN
8194: SELECT invoice_id
8195: INTO l_temp_invoice_id
8211: SET wfapproval_status = 'REJECTED'
8212: WHERE invoice_id = substr(itemkey, 1, instr(itemkey,'_')-1)
8213: AND wfapproval_status <> 'MANUALLY APPROVED'; */
8214: ELSE
8215: resultout := wf_engine.eng_completed||':'||'N';
8216: END If;
8217:
8218: END IF;
8219: