18: -- set context for calls to doc manager
19: --
20: procedure set_doc_mgr_context(itemtype VARCHAR2, itemkey VARCHAR2);
21: PROCEDURE set_doc_mgr_err(itemtype VARCHAR2, itemkey VARCHAR2,
22: p_error_stack PO_APPROVALLIST_S1.ErrorStackType,
23: p_return_code Number);
24:
25: procedure Is_Document_Manager_Error_1_2(itemtype in varchar2,
26: itemkey in varchar2,
203:
204: /* Pass null for itemtype and itemkey to find
205: ** new approval list.
206: */
207: PO_APPROVALLIST_S1.does_approval_list_exist(
208: p_document_id=>l_document_id,
209: p_document_type=>l_document_type,
210: p_document_subtype=>l_document_subtype,
211: p_itemtype=>NULL,
220: IF (g_po_wf_debug = 'Y') THEN
221: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
222: END IF;
223:
224: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
225: wf_engine.SetItemAttrNumber ( itemtype => itemType,
226: itemkey => itemkey,
227: aname => 'APPROVAL_LIST_HEADER_ID',
228: avalue => l_approval_list_header_id);
231: IF (g_po_wf_debug = 'Y') THEN
232: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
233: END IF;
234:
235: PO_APPROVALLIST_S1.update_approval_list_itemkey(
236: p_approval_list_header_id=>l_approval_list_header_id,
237: p_itemtype=>itemtype,
238: p_itemkey=>itemkey,
239: p_return_code=>l_return_code);
243: IF (g_po_wf_debug = 'Y') THEN
244: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
245: END IF;
246:
247: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
248:
249: resultout:='COMPLETE' || ':' || 'ACTIVITY_PERFORMED';
250: return;
251: END IF;
299: l_document_type VARCHAR2(25);
300: l_document_subtype VARCHAR2(25);
301: l_employee_id NUMBER;
302: l_return_code NUMBER;
303: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
304: l_approval_list PO_APPROVALLIST_S1.ApprovalListType;
305: l_approval_list_header_id NUMBER:=null;
306: E_APPROVAL_LIST_BUILD_FAIL EXCEPTION;
307: E_APPROVAL_LIST_SAVE_FAIL EXCEPTION;
300: l_document_subtype VARCHAR2(25);
301: l_employee_id NUMBER;
302: l_return_code NUMBER;
303: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
304: l_approval_list PO_APPROVALLIST_S1.ApprovalListType;
305: l_approval_list_header_id NUMBER:=null;
306: E_APPROVAL_LIST_BUILD_FAIL EXCEPTION;
307: E_APPROVAL_LIST_SAVE_FAIL EXCEPTION;
308:
378: IF (g_po_wf_debug = 'Y') THEN
379: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
380: END IF;
381:
382: PO_APPROVALLIST_S1.get_default_approval_list(
383: p_first_approver_id=>l_first_approver_id,
384: p_approval_path_id=>l_approval_path_id,
385: p_document_id=>l_document_id,
386: p_document_type=>l_document_type,
395: IF (g_po_wf_debug = 'Y') THEN
396: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
397: END IF;
398:
399: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
400:
401: l_progress := 'Build_Default_Approval_list: 006-print_approval_list';
402: IF (g_po_wf_debug = 'Y') THEN
403: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
402: IF (g_po_wf_debug = 'Y') THEN
403: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
404: END IF;
405:
406: PO_APPROVALLIST_S1.print_approval_list(l_approval_list);
407: PO_APPROVALLIST_S1.save_approval_list(p_document_id=>l_document_id,
408: p_document_type=>l_document_type,
409: p_document_subtype=>l_document_subtype,
410: p_approval_list_header_id=>l_approval_list_header_id,
403: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
404: END IF;
405:
406: PO_APPROVALLIST_S1.print_approval_list(l_approval_list);
407: PO_APPROVALLIST_S1.save_approval_list(p_document_id=>l_document_id,
408: p_document_type=>l_document_type,
409: p_document_subtype=>l_document_subtype,
410: p_approval_list_header_id=>l_approval_list_header_id,
411: p_first_approver_id=>l_first_approver_id,
420: IF (g_po_wf_debug = 'Y') THEN
421: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
422: END IF;
423:
424: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
425:
426: l_progress := 'Build_Default_Approval_list: 009-'||
427: 'l_approval_list_header_id: '||
428: to_char(l_approval_list_header_id);
429: IF (g_po_wf_debug = 'Y') THEN
430: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
431: END IF;
432:
433: PO_APPROVALLIST_S1.update_approval_list_itemkey(
434: p_approval_list_header_id=>l_approval_list_header_id,
435: p_itemtype=>itemtype,
436: p_itemkey=>itemkey,
437: p_return_code=>l_return_code);
442: IF (g_po_wf_debug = 'Y') THEN
443: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
444: END IF;
445:
446: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
447: wf_engine.SetItemAttrNumber(itemtype => itemType,
448: itemkey => itemkey,
449: aname => 'APPROVAL_LIST_HEADER_ID',
450: avalue => l_approval_list_header_id);
468: END IF;
469:
470:
471: IF l_return_code in
472: (PO_APPROVALLIST_S1.E_NO_SUPERVISOR_FOUND,
473: PO_APPROVALLIST_S1.E_NO_ONE_HAS_AUTHORITY) THEN
474:
475: l_progress := 'Build_Default_Approval_list: 021'||
476: '- E_NO_SUPERVISOR_FOUND OR E_NO_ONE_HAS_AUTHORITY';
469:
470:
471: IF l_return_code in
472: (PO_APPROVALLIST_S1.E_NO_SUPERVISOR_FOUND,
473: PO_APPROVALLIST_S1.E_NO_ONE_HAS_AUTHORITY) THEN
474:
475: l_progress := 'Build_Default_Approval_list: 021'||
476: '- E_NO_SUPERVISOR_FOUND OR E_NO_ONE_HAS_AUTHORITY';
477: IF (g_po_wf_debug = 'Y') THEN
482: return;
483:
484: /* Bug# 2378775 */
485:
486: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
487: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
488: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
489:
490: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
483:
484: /* Bug# 2378775 */
485:
486: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
487: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
488: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
489:
490: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
491: raise doc_manager_exception;
484: /* Bug# 2378775 */
485:
486: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
487: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
488: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
489:
490: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
491: raise doc_manager_exception;
492:
541: l_document_type VARCHAR2(25):='';
542: l_document_subtype VARCHAR2(25):='';
543: l_return_code NUMBER;
544: l_rebuild_code VARCHAR2(25):='FORWARD_RESPONSE';
545: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
546: l_approval_list_header_id NUMBER;
547:
548: l_doc_string varchar2(200);
549: l_preparer_user_name varchar2(100);
589: IF (g_po_wf_debug = 'Y') THEN
590: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
591: END IF;
592:
593: PO_APPROVALLIST_S1.rebuild_approval_list(
594: p_document_id=>l_document_id,
595: p_document_type=>l_document_type,
596: p_document_subtype=>l_document_subtype,
597: p_rebuild_code=>l_rebuild_code,
605: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
606: END IF;
607:
608:
609: IF l_return_code=PO_APPROVALLIST_S1.E_SUCCESS THEN
610: wf_engine.SetItemAttrNumber ( itemtype => itemType,
611: itemkey => itemkey,
612: aname => 'APPROVAL_LIST_HEADER_ID',
613: avalue => l_approval_list_header_id);
617: return;
618:
619: /* Bug# 2378775 */
620:
621: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
622: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
623: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
624:
625: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
618:
619: /* Bug# 2378775 */
620:
621: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
622: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
623: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
624:
625: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
626: raise doc_manager_exception;
619: /* Bug# 2378775 */
620:
621: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
622: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
623: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
624:
625: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
626: raise doc_manager_exception;
627: ELSE
657: l_document_type VARCHAR2(25):='';
658: l_document_subtype VARCHAR2(25):='';
659: l_return_code NUMBER;
660: l_rebuild_code VARCHAR2(25):='DOCUMENT_CHANGED';
661: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
662: l_approval_list_header_id NUMBER:='';
663:
664: l_doc_string varchar2(200);
665: l_preparer_user_name varchar2(100);
705: IF (g_po_wf_debug = 'Y') THEN
706: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
707: END IF;
708:
709: PO_APPROVALLIST_S1.rebuild_approval_list(
710: p_document_id=>l_document_id,
711: p_document_type=>l_document_type,
712: p_document_subtype=>l_document_subtype,
713: p_rebuild_code=>l_rebuild_code,
720: IF (g_po_wf_debug = 'Y') THEN
721: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
722: END IF;
723:
724: IF l_return_code=PO_APPROVALLIST_S1.E_SUCCESS THEN
725: wf_engine.SetItemAttrNumber ( itemtype => itemType,
726: itemkey => itemkey,
727: aname => 'APPROVAL_LIST_HEADER_ID',
728: avalue => l_approval_list_header_id);
731: return;
732:
733: /* Bug# 2378775 */
734:
735: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
736: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
737: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
738:
739: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
732:
733: /* Bug# 2378775 */
734:
735: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
736: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
737: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
738:
739: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
740: raise doc_manager_exception;
733: /* Bug# 2378775 */
734:
735: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
736: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
737: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
738:
739: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
740: raise doc_manager_exception;
741:
773: l_document_subtype VARCHAR2(25):='';
774: l_return_code NUMBER;
775: l_rebuild_code VARCHAR2(25):='INVALID_APPROVER';
776: l_approval_list_header_id NUMBER:='';
777: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
778:
779: l_doc_string varchar2(200);
780: l_preparer_user_name varchar2(100);
781:
822: IF (g_po_wf_debug = 'Y') THEN
823: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
824: END IF;
825:
826: PO_APPROVALLIST_S1.rebuild_approval_list(
827: p_document_id=>l_document_id,
828: p_document_type=>l_document_type,
829: p_document_subtype=>l_document_subtype,
830: p_rebuild_code=>l_rebuild_code,
837: IF (g_po_wf_debug = 'Y') THEN
838: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
839: END IF;
840:
841: IF l_return_code=PO_APPROVALLIST_S1.E_SUCCESS THEN
842: wf_engine.SetItemAttrNumber ( itemtype => itemType,
843: itemkey => itemkey,
844: aname => 'APPROVAL_LIST_HEADER_ID',
845: avalue => l_approval_list_header_id);
848: return;
849:
850: /* Bug# 2378775 */
851:
852: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
853: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
854: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
855:
856: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
849:
850: /* Bug# 2378775 */
851:
852: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
853: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
854: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
855:
856: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
857: raise doc_manager_exception;
850: /* Bug# 2378775 */
851:
852: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
853: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
854: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
855:
856: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
857: raise doc_manager_exception;
858:
942: IF (g_po_wf_debug = 'Y') THEN
943: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
944: END IF;
945:
946: PO_APPROVALLIST_S1.get_next_approver(l_document_id,
947: l_document_type,
948: l_document_subtype,
949: l_return_code,
950: l_next_approver_id,
958: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
959: END IF;
960:
961:
962: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
963:
964:
965: wf_engine.SetItemAttrNumber ( itemtype => itemType,
966: itemkey => itemkey,
1006: avalue => l_next_approver_disp_name);
1007:
1008: resultout:='COMPLETE:'||'VALID_APPROVER';
1009: return;
1010: ELSIF l_return_code = PO_APPROVALLIST_S1.E_NO_NEXT_APPROVER_FOUND THEN
1011: resultout:='COMPLETE:'||'NO_NEXT_APPROVER';
1012: return;
1013: ELSIF l_return_code = PO_APPROVALLIST_S1.E_INVALID_APPROVER THEN
1014: resultout:='COMPLETE:'||'INVALID_APPROVER';
1009: return;
1010: ELSIF l_return_code = PO_APPROVALLIST_S1.E_NO_NEXT_APPROVER_FOUND THEN
1011: resultout:='COMPLETE:'||'NO_NEXT_APPROVER';
1012: return;
1013: ELSIF l_return_code = PO_APPROVALLIST_S1.E_INVALID_APPROVER THEN
1014: resultout:='COMPLETE:'||'INVALID_APPROVER';
1015: return;
1016: ELSE
1017: RAISE E_FAILURE;
1102: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
1103: END IF;
1104:
1105:
1106: PO_APPROVALLIST_S1.is_approval_list_exhausted(p_document_id=>l_document_id,
1107: p_document_type=>l_document_type,
1108: p_document_subtype=>l_document_subtype,
1109: p_itemtype=>itemtype,
1110: p_itemkey=>itemkey,
1116: IF (g_po_wf_debug = 'Y') THEN
1117: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
1118: END IF;
1119:
1120: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
1121: IF l_result THEN
1122:
1123: resultout:='COMPLETE:'||'Y';
1124: return;
1848: l_document_subtype VARCHAR2(25):='';
1849: l_return_code NUMBER;
1850: l_orgid NUMBER;
1851: l_approval_list_header_id NUMBER:='';
1852: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
1853: E_UPDATE_RESPONSE_FAIL EXCEPTION;
1854: l_end_date DATE; -- notification end date
1855: l_note VARCHAR2(4000);
1856: l_orig_system VARCHAR2(48);
2158: IF (g_po_wf_debug = 'Y') THEN
2159: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2160: END IF;
2161:
2162: PO_APPROVALLIST_S1.update_approval_list_response(
2163: p_document_id=>l_document_id,
2164: p_document_type=>l_document_type,
2165: p_document_subtype=>l_document_subtype,
2166: p_itemtype=>itemtype,
2177: IF (g_po_wf_debug = 'Y') THEN
2178: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2179: END IF;
2180:
2181: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
2182:
2183: /* rebuild since it is a forward */
2184: IF l_value in ('FORWARD', 'APPROVE_AND_FORWARD') THEN
2185:
2187: IF (g_po_wf_debug = 'Y') THEN
2188: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2189: END IF;
2190:
2191: PO_APPROVALLIST_S1.rebuild_approval_list(
2192: p_document_id=>l_document_id,
2193: p_document_type=>l_document_type,
2194: p_document_subtype=>l_document_subtype,
2195: p_rebuild_code=>'FORWARD_RESPONSE',
2201: IF (g_po_wf_debug = 'Y') THEN
2202: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2203: END IF;
2204:
2205: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
2206: wf_engine.SetItemAttrNumber(itemtype => itemType,
2207: itemkey => itemkey,
2208: aname => 'APPROVAL_LIST_HEADER_ID',
2209: avalue => l_approval_list_header_id);
2231: **
2232: ** Dependency: poxwfrqa.wft
2233: */
2234:
2235: ELSIF l_return_code = PO_APPROVALLIST_S1.E_NO_ONE_HAS_AUTHORITY THEN
2236:
2237: /* Bug# 1712121 */
2238:
2239: if retnew = TRUE then
2683: l_document_subtype po_document_types.DOCUMENT_SUBTYPE%TYPE;
2684: l_return_code NUMBER;
2685: l_orgid NUMBER;
2686: l_approval_list_header_id NUMBER:='';
2687: l_error_stack PO_APPROVALLIST_S1.ErrorStackType;
2688: E_UPDATE_RESPONSE_FAIL EXCEPTION;
2689: l_end_date DATE; -- notification end date
2690: l_note VARCHAR2(4000);
2691: l_doc_string varchar2(200);
2749: IF (g_po_wf_debug = 'Y') THEN
2750: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2751: END IF;
2752:
2753: PO_APPROVALLIST_S1.update_approval_list_response(
2754: p_document_id=>l_document_id,
2755: p_document_type=>l_document_type,
2756: p_document_subtype=>l_document_subtype,
2757: p_itemtype=>itemtype,
2768: IF (g_po_wf_debug = 'Y') THEN
2769: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2770: END IF;
2771:
2772: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
2773:
2774: /* rebuild since it is a forward */
2775: IF l_value in ('FORWARD', 'APPROVE_AND_FORWARD') THEN
2776:
2777: l_progress := 'Update_App_List_Resp_Success: 012';
2778: IF (g_po_wf_debug = 'Y') THEN
2779: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2780: END IF;
2781: PO_APPROVALLIST_S1.rebuild_approval_list(
2782: p_document_id=>l_document_id,
2783: p_document_type=>l_document_type,
2784: p_document_subtype=>l_document_subtype,
2785: p_rebuild_code=>'FORWARD_RESPONSE',
2791: IF (g_po_wf_debug = 'Y') THEN
2792: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
2793: END IF;
2794:
2795: IF l_return_code = PO_APPROVALLIST_S1.E_SUCCESS THEN
2796: wf_engine.SetItemAttrNumber(itemtype => itemType,
2797: itemkey => itemkey,
2798: aname => 'APPROVAL_LIST_HEADER_ID',
2799: avalue => l_approval_list_header_id);
2815: **
2816: ** Dependency: poxwfrqa.wft
2817: */
2818:
2819: ELSIF l_return_code = PO_APPROVALLIST_S1.E_NO_ONE_HAS_AUTHORITY THEN
2820: resultout:='COMPLETE' || ':' || 'FAILURE';
2821: RETURN;
2822:
2823: /* Bug# 2378775 */
2821: RETURN;
2822:
2823: /* Bug# 2378775 */
2824:
2825: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
2826: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
2827: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
2828:
2829: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
2822:
2823: /* Bug# 2378775 */
2824:
2825: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
2826: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
2827: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
2828:
2829: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
2830: raise doc_manager_exception;
2823: /* Bug# 2378775 */
2824:
2825: ELSIF l_return_code in (PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT,
2826: PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR,
2827: PO_APPROVALLIST_S1.E_DOC_MGR_OTHER) THEN
2828:
2829: set_doc_mgr_err(itemtype, itemkey, l_error_stack, l_return_code);
2830: raise doc_manager_exception;
2831:
2996: */
2997:
2998: PROCEDURE set_doc_mgr_err(itemtype varchar2,
2999: itemkey varchar2,
3000: p_error_stack PO_APPROVALLIST_S1.ErrorStackType,
3001: p_return_code number) is
3002:
3003: l_message_stack PO_APPROVALLIST_S1.MessageStackType;
3004: l_err_code NUMBER;
2999: itemkey varchar2,
3000: p_error_stack PO_APPROVALLIST_S1.ErrorStackType,
3001: p_return_code number) is
3002:
3003: l_message_stack PO_APPROVALLIST_S1.MessageStackType;
3004: l_err_code NUMBER;
3005: l_err_index NUMBER;
3006: l_progress varchar2(200);
3007:
3010: IF (g_po_wf_debug = 'Y') THEN
3011: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
3012: END IF;
3013:
3014: IF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT THEN
3015: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 1;
3016: ELSIF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR THEN
3017: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 2;
3018: ELSIF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_OTHER THEN
3012: END IF;
3013:
3014: IF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT THEN
3015: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 1;
3016: ELSIF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR THEN
3017: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 2;
3018: ELSIF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_OTHER THEN
3019: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 3;
3020: END IF;
3014: IF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_TIMEOUT THEN
3015: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 1;
3016: ELSIF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_NOMGR THEN
3017: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 2;
3018: ELSIF p_return_code = PO_APPROVALLIST_S1.E_DOC_MGR_OTHER THEN
3019: PO_REQAPPROVAL_ACTION.doc_mgr_err_num := 3;
3020: END IF;
3021:
3022: l_progress := 'set_doc_mgr_err: 020: error number = '||
3025: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
3026: END IF;
3027:
3028: IF (p_error_stack.COUNT > 0) THEN
3029: PO_APPROVALLIST_S1.retrieve_messages(p_error_stack,
3030: l_err_code,
3031: l_message_stack);
3032:
3033: IF (l_err_code = PO_APPROVALLIST_S1.E_SUCCESS) THEN
3029: PO_APPROVALLIST_S1.retrieve_messages(p_error_stack,
3030: l_err_code,
3031: l_message_stack);
3032:
3033: IF (l_err_code = PO_APPROVALLIST_S1.E_SUCCESS) THEN
3034: l_err_index := p_error_stack.LAST;
3035:
3036: If (l_err_index is NOT NULL) THEN
3037: PO_REQAPPROVAL_ACTION.sysadmin_err_msg:= l_message_stack(l_err_index);