[Home] [Help]
1: PACKAGE BODY POS_WCAPPROVE_PVT AS
2: /* $Header: POSVWCAB.pls 120.19.12010000.3 2008/11/04 04:09:40 puppulur ship $ */
3: --
4: -- Purpose: APIs called from the receiving processor to approve WCR document.
5: --
9: -- pparthas 02/15/05 Created Package
10: --
11: --
12:
13: G_PKG_NAME CONSTANT VARCHAR2(30) := 'POS_WCAPPROVE_PVT';
14: G_FILE_NAME CONSTANT VARCHAR2(30) := 'POSVWCAS.pls';
15: g_module_prefix CONSTANT VARCHAR2(50) := 'pos.plsql.' || g_pkg_name || '.';
16:
17: g_asn_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
34: LEVEL_PROCEDURE CONSTANT NUMBER := 2;
35: LEVEL_STATEMENT CONSTANT NUMBER := 1;
36: */
37:
38: l_module := 'pos.plsql.pos_wcapprove_pvt.'||p_api_name;
39: IF(g_asn_debug = 'Y')THEN
40: IF ( p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
41: FND_LOG.string(LOG_LEVEL => p_level,
42: MODULE => l_module,
97: l_orgid number;
98: l_po_header_id number;
99:
100: begin
101: l_progress := 'POS_WCAPPROVE_PVT.start_wf_progress: 01';
102:
103: IF (g_asn_debug = 'Y') THEN
104: debug_log(FND_LOG.LEVEL_STATEMENT,l_api_name,
105: 'Enter Start_wf_process ' || l_progress);
120: /* Check to see if process has already been created.
121: * If so, dont create again.
122: */
123:
124: l_progress := 'POS_WCAPPROVE_PVT.start_wf_process: 02';
125: If ((p_itemtype is not null) and (l_itemkey is not null) and
126: (p_work_confirmation_id is not null)) then --{
127:
128: begin
195: aname => 'WORK_CONFIRMATION_NUMBER',
196: avalue => l_work_confirmation_number);
197:
198:
199: l_progress := 'POS_WCAPPROVE_PVT.start_wf_process: 03.';
200: select max(po_header_id)
201: into l_po_header_id
202: from rcv_shipment_lines
203: where shipment_header_id = p_work_confirmation_id;
210: itemkey => l_itemkey,
211: aname => 'PO_DOCUMENT_ID',
212: avalue => l_po_header_id);
213:
214: POS_WCAPPROVE_PVT.get_multiorg_context(l_po_header_id,l_orgid);
215: IF l_orgid is NOT NULL THEN
216:
217: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
218:
307: l_api_name varchar2(50) := p_itemkey || ' close_old_notif';
308:
309: begin
310:
311: l_progress := 'POS_WCAPPROVE_PVT.close_old_notifications: 01';
312:
313: IF (g_asn_debug = 'Y') THEN
314: debug_log(FND_LOG.LEVEL_STATEMENT,
315: l_api_name,'Enter close_old_notif ' || l_progress);
358: end if;
359:
360: x_resultout := wf_engine.eng_completed ;
361:
362: l_progress := 'POS_WCAPPROVE_PVT.close_old_notif: 02.';
363:
364: IF (g_asn_debug = 'Y') THEN
365: debug_log(FND_LOG.LEVEL_STATEMENT,
366: l_api_name,'Leave close_old_notif ' || l_progress);
396: l_respond_to_wc_url varchar2(1000);
397: l_employee_id NUMBER;
398:
399: begin
400: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 01.';
401: IF (g_asn_debug = 'Y') THEN
402: debug_log(FND_LOG.LEVEL_STATEMENT,
403: l_api_name,'Enter in set_startup_values ' || l_progress);
404: END IF;
419: l_api_name,'l_work_confirmation_id ' ||
420: l_work_confirmation_id);
421: END IF;
422:
423: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 02.';
424: select created_by
425: into l_wc_preparer_id
426: from rcv_shipment_headers
427: where shipment_header_id= l_work_confirmation_id;
442: itemkey => p_itemkey,
443: aname => 'WC_PREPARER_ID',
444: avalue => l_wc_preparer_id);
445:
446: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 03.';
447: if (l_employee_id is not null) then
448: get_user_name('PER',l_employee_id, l_wc_preparer_name,
449: l_wc_preparer_display_name);
450: else
469: itemkey => p_itemkey,
470: aname => 'WC_PREPARER_DISPLAY_NAME' ,
471: avalue => l_wc_preparer_display_name);
472:
473: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 04.';
474: l_po_header_id :=
475: wf_engine.GetItemAttrNumber (itemtype => p_itemtype,
476: itemkey => p_itemkey,
477: aname => 'PO_DOCUMENT_ID');
490: itemkey => p_itemkey,
491: aname => 'DOC_STATUS',
492: avalue => 'NOTREJECTED');
493:
494: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 05.';
495: select poh.segment1,
496: poh.agent_id
497: into l_po_number,
498: l_po_preparer_id
510: itemkey => p_itemkey,
511: aname => 'PO_PREPARER_ID',
512: avalue => l_po_preparer_id);
513:
514: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 06.';
515: get_user_name('PER',l_po_preparer_id, l_po_preparer_name,
516: l_po_preparer_display_name);
517:
518: IF (g_asn_debug = 'Y') THEN
590: avalue => l_respond_to_wc_url);
591:
592: x_resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
593:
594: l_progress := 'POS_WCAPPROVE_PVT.set_startup_values: 06.';
595: IF (g_asn_debug = 'Y') THEN
596: debug_log(FND_LOG.LEVEL_STATEMENT,
597: l_api_name,'Leave set_startup_values '
598: || l_progress);
617: l_progress varchar2(300);
618: l_api_name varchar2(50) := p_itemkey || ' update_workflow_info';
619: begin
620:
621: l_progress := 'POS_WCAPPROVE_PVT.update_workflow_info: 01.';
622: IF (g_asn_debug = 'Y') THEN
623: debug_log(FND_LOG.LEVEL_STATEMENT,
624: l_api_name,'Enter in update_workflow_info ' || l_progress);
625: END IF;
634: (itemtype => p_itemtype,
635: itemkey => p_itemkey,
636: aname => 'WORK_CONFIRMATION_ID');
637:
638: l_progress := 'POS_WCAPPROVE_PVT.update_workflow_info: 02.';
639: IF (g_asn_debug = 'Y') THEN
640: debug_log(FND_LOG.LEVEL_STATEMENT,
641: l_api_name,'l_shipment_header_id ' || l_shipment_header_id);
642: END IF;
644: UpdateWorkflowInfo(p_itemtype,p_itemkey,l_shipment_header_id);
645:
646: x_resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
647:
648: l_progress := 'POS_WCAPPROVE_PVT.update_workflow_info: 02.';
649: IF (g_asn_debug = 'Y') THEN
650: debug_log(FND_LOG.LEVEL_STATEMENT,
651: l_api_name,'Leave update_workflow_info ' || l_progress);
652: END IF;
682: l_attachment_id number;
683: l_progress varchar2(300);
684: l_api_name varchar2(50) := p_itemkey || ' get_wc_attributes';
685: begin
686: l_progress := 'POS_WCAPPROVE_PVT.get_wc_attributes: 01.';
687: IF (g_asn_debug = 'Y') THEN
688: debug_log(FND_LOG.LEVEL_STATEMENT,
689: l_api_name,'Enter in get_wc_attributes '
690: || l_progress);
708:
709: /* See if atleast one shipment have attachments*/
710:
711: /*
712: l_progress := 'POS_WCAPPROVE_PVT.get_wc_attributes: 02.';
713: select count(*)
714: into l_attach_count
715: from fnd_attached_documents
716: where entity_name =' RCV_LINES'
797: and object_type_code='WC'
798: and sequence_num = l_seq_num;
799: BEGIN
800:
801: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 01.';
802: IF (g_asn_debug = 'Y') THEN
803: debug_log(FND_LOG.LEVEL_STATEMENT,
804: l_api_name,'Enter in Ins_Actionhist_submit '
805: || l_progress);
819: debug_log(FND_LOG.LEVEL_STATEMENT,
820: l_api_name,'l_shipment_header_id ' || l_shipment_header_id);
821: END IF;
822:
823: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 02.';
824: l_wc_preparer_id := wf_engine.GetItemAttrNumber
825: (itemtype => p_itemtype,
826: itemkey => p_itemkey,
827: aname => 'WC_PREPARER_ID');
831: l_api_name,'l_wc_preparer_id ' || l_wc_preparer_id);
832: END IF;
833:
834:
835: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 03.';
836:
837: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 04.';
838:
839:
833:
834:
835: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 03.';
836:
837: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 04.';
838:
839:
840: /* Check if this document had been submitted to workflow at
841: * some point and somehow kicked out. If that's the case, the
841: * some point and somehow kicked out. If that's the case, the
842: * sequence number needs to be incremented by one. Otherwise
843: * start at zero.
844: */
845: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 05.';
846:
847: Open action_hist_cursor(l_shipment_header_id );
848: Fetch action_hist_cursor into l_sequence_num;
849: close action_hist_cursor;
864: l_api_name,'l_sequence_num ' ||
865: l_sequence_num);
866: END IF;
867:
868: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 06.';
869:
870: IF ((l_sequence_num = 0)
871: OR
872: (l_sequence_num > 0 and l_action_code is NOT NULL)) THEN --{
953:
954:
955: x_resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
956:
957: l_progress := 'POS_WCAPPROVE_PVT.Ins_Actionhist_submit: 07.';
958: IF (g_asn_debug = 'Y') THEN
959: debug_log(FND_LOG.LEVEL_STATEMENT,
960: l_api_name,'Leave Ins_Actionhist_submit ' || l_progress);
961: END IF;
998: l_respond_to_wc_url varchar2(1000);
999: l_default_approver varchar2(30);
1000: BEGIN
1001:
1002: l_progress := 'POS_WCAPPROVE_PVT.get_next_approver: 01.';
1003: IF (g_asn_debug = 'Y') THEN
1004: debug_log(FND_LOG.LEVEL_STATEMENT,
1005: l_api_name,'Enter in get_next_approver '
1006: || l_progress);
1054: IF (g_asn_debug = 'Y') THEN
1055: debug_log(FND_LOG.LEVEL_STATEMENT,l_api_name,
1056: 'l_transaction_type ' || l_transaction_type);
1057: END IF;
1058: l_progress := 'POS_WCAPPROVE_PVT.get_next_approver: 02.';
1059: IF (g_asn_debug = 'Y') THEN
1060: debug_log(FND_LOG.LEVEL_STATEMENT,
1061: l_api_name,'in get_next_approver '
1062: || l_progress);
1298: aname => 'AME_AUTHORITY_TYPE' ,
1299: avalue => l_authority_type);
1300:
1301: l_orig_system:= 'PER';
1302: l_progress := 'POS_WCAPPROVE_PVT.get_next_approver: 03.';
1303:
1304: WF_DIRECTORY.GetUserName(l_orig_system,
1305: l_next_approver_id,
1306: l_next_approver_user_name,
1412:
1413:
1414:
1415:
1416: l_progress := 'POS_WCAPPROVE_PVT.Insert_Action_History: 01.';
1417: IF (g_asn_debug = 'Y') THEN
1418: debug_log(FND_LOG.LEVEL_STATEMENT,
1419: l_api_name,'Enter in Insert_Action_History '
1420: || l_progress);
1442:
1443:
1444:
1445: -- loop --{
1446: l_progress := 'POS_WCAPPROVE_PVT.Insert_Action_History: 04.';
1447:
1448: SELECT count(*)
1449: INTO l_count
1450: FROM PO_ACTION_HISTORY
1621: ORDER BY activity_end_date DESC;
1622:
1623: BEGIN
1624:
1625: l_progress := 'POS_WCAPPROVE_PVT.Approve_shipment_lines: 01.';
1626: IF (g_asn_debug = 'Y') THEN
1627: debug_log(FND_LOG.LEVEL_STATEMENT,
1628: l_api_name,'Enter in Approve_shipment_lines '
1629: || l_progress);
1717: ORDER BY activity_end_date DESC;
1718:
1719: BEGIN
1720:
1721: l_progress := 'POS_WCAPPROVE_PVT Reject_shipment_lines: 01.';
1722: IF (g_asn_debug = 'Y') THEN
1723: debug_log(FND_LOG.LEVEL_STATEMENT,
1724: l_api_name,'Enter in Reject_shipment_lines '
1725: || l_progress);
1801: l_api_name varchar2(50) := p_itemkey || ' approve_or_reject';
1802:
1803: BEGIN
1804:
1805: l_progress := 'POS_WCAPPROVE_PVT.Approve_OR_Reject: 01.';
1806: IF (g_asn_debug = 'Y') THEN
1807: debug_log(FND_LOG.LEVEL_STATEMENT,
1808: l_api_name,'Enter in Approve_OR_Reject '
1809: || l_progress);
1928: l_reject_lines number;
1929:
1930:
1931: begin
1932: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_List_Response: 01.';
1933: IF (g_asn_debug = 'Y') THEN
1934: debug_log(FND_LOG.LEVEL_STATEMENT,
1935: l_api_name,
1936: 'Enter in Update_Approval_List_Response '
1984: ' l_response '
1985: || substr(l_response,1,50));
1986: END IF;
1987:
1988: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_List_Response'
1989: || ': 02.';
1990:
1991:
1992: SELECT wfn.responder, wfn.recipient_role, wfn.end_date
2035: IF (c_responderid%ISOPEN) THEN
2036: CLOSE c_responderid;
2037: END IF;
2038:
2039: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_List_Response'
2040: || ':02.';
2041: wf_engine.SetItemAttrNumber(itemtype => p_itemType,
2042: itemkey => p_itemkey,
2043: aname => 'RESPONDER_ID',
2060: ' l_responder_disp_name '
2061: || l_responder_disp_name);
2062: end if;
2063:
2064: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_List_Response'
2065: || ': 03.';
2066: wf_engine.SetItemAttrText( itemtype => p_itemType,
2067: itemkey => p_itemkey,
2068: aname => 'RESPONDER_USER_NAME' ,
2072: itemkey => p_itemkey,
2073: aname => 'RESPONDER_DISPLAY_NAME' ,
2074: avalue => l_responder_disp_name);
2075:
2076: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_List_Response'
2077: || ': 04.';
2078:
2079: /* We cannot have response as forward. Need to remove it later
2080: IF (INSTR(l_response, 'FORWARD') > 0) THEN
2090: || l_forward_to_id);
2091: END IF;
2092: */
2093:
2094: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_List_Response'
2095: || ': 05.';
2096:
2097: END IF; -- }c_group_id
2098:
2277: x_resultout out NOCOPY varchar2) IS
2278: l_progress varchar2(300);
2279: l_api_name varchar2(50) := p_itemkey || ' update_action_history_approve';
2280: begin
2281: l_progress := 'POS_WCAPPROVE_PVT.Update_Approval_History_Approve: 01.';
2282: IF (g_asn_debug = 'Y') THEN
2283: debug_log(FND_LOG.LEVEL_STATEMENT,
2284: l_api_name,
2285: 'Enter in Update_Action_History_Approve '
2325: x_resultout out NOCOPY varchar2) IS
2326: l_progress varchar2(300);
2327: l_api_name varchar2(50) := p_itemkey || ' update_action_history_Reject';
2328: begin
2329: l_progress := 'POS_WCAPPROVE_PVT.Update_action_history_reject: 01.';
2330: IF (g_asn_debug = 'Y') THEN
2331: debug_log(FND_LOG.LEVEL_STATEMENT,
2332: l_api_name,
2333: 'Enter in Update_Action_History_Reject '
2406: l_responder wf_notifications.responder%TYPE;
2407:
2408:
2409: begin
2410: l_progress := 'POS_WCAPPROVE_PVT.Update_Action_history: 01.';
2411: IF (g_asn_debug = 'Y') THEN
2412: debug_log(FND_LOG.LEVEL_STATEMENT,
2413: l_api_name,
2414: 'Enter in Update_Action_History '
2428: || l_shipment_header_id);
2429: END IF;
2430:
2431:
2432: l_progress := 'POS_WCAPPROVE_PVT.Update_Action_history: 02.';
2433: SELECT nvl(max(wf.notification_id), -9995)
2434: into l_notification_id
2435: FROM wf_notifications wf,
2436: wf_item_activity_statuses wias
2445: || l_notification_id);
2446: END IF;
2447:
2448:
2449: l_progress := 'POS_WCAPPROVE_PVT.Update_Action_history: 03.';
2450: SELECT wfn.responder, wfn.recipient_role,
2451: wfn.original_recipient, wfn.more_info_role
2452: INTO l_responder, l_recipient_role,
2453: l_original_recipient, l_more_info_role
2514: l_more_origsysid);
2515: end if;
2516:
2517: --loop --{
2518: l_progress := 'POS_WCAPPROVE_PVT.update_approval_history: 04.';
2519:
2520:
2521: IF (g_asn_debug = 'Y') THEN
2522: debug_log(FND_LOG.LEVEL_STATEMENT,
2595: Recinfo get_action_history%ROWTYPE;
2596:
2597: BEGIN
2598:
2599: l_progress := 'POS_WCAPPROVE_PVT.UpdateActionHistory: 01.';
2600: IF (g_asn_debug = 'Y') THEN
2601: debug_log(FND_LOG.LEVEL_STATEMENT,
2602: l_api_name,'Enter in UpdateActionHistory '
2603: || l_progress);
2724:
2725:
2726: end if; --}
2727:
2728: l_progress := 'POS_WCAPPROVE_PVT.UpdateActionHistory: 02.';
2729:
2730: IF (not p_last_approver) THEN
2731:
2732: /**
2781: l_api_name varchar2(50) := ' get_user_name';
2782:
2783: BEGIN
2784:
2785: l_progress := 'POS_WCAPPROVE_PVT.get_user_name: 01.';
2786: IF (g_asn_debug = 'Y') THEN
2787: debug_log(FND_LOG.LEVEL_STATEMENT,
2788: l_api_name,'Enter in get_user_name '
2789: || l_progress);
2828: l_api_name varchar2(50) := ' UpdatePOActionHistory';
2829: l_note po_action_history.note%type;
2830:
2831: BEGIN
2832: l_progress := 'POS_WCAPPROVE_PVT.UpdatePOActionHistory: 01.';
2833: IF (g_asn_debug = 'Y') THEN
2834: debug_log(FND_LOG.LEVEL_STATEMENT,
2835: l_api_name,'Enter in UpdatePOActionHistory '
2836: || l_progress);
2877: END IF;
2878:
2879: end if;
2880:
2881: l_progress := 'POS_WCAPPROVE_PVT.UpdatePOActionHistory: 02.';
2882: IF (g_asn_debug = 'Y') THEN
2883: debug_log(FND_LOG.LEVEL_STATEMENT,
2884: l_api_name,'Before Update '
2885: || l_progress);
2920: AND action_code IS NULL;
2921: --employee_id = NVL(p_old_employee_id, employee_id)
2922:
2923: ELSE --}{
2924: l_progress := 'POS_WCAPPROVE_PVT.UpdatePOActionHistory: 02.';
2925: IF (g_asn_debug = 'Y') THEN
2926: debug_log(FND_LOG.LEVEL_STATEMENT,
2927: l_api_name,
2928: 'Either object id or code is null '
2977: BEGIN
2978:
2979:
2980:
2981: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 01.';
2982: IF (g_asn_debug = 'Y') THEN
2983: debug_log(FND_LOG.LEVEL_STATEMENT,
2984: l_api_name,'Enter in InsertPOActionHistory '
2985: || l_progress);
2995:
2996: IF (l_sequence_num is NULL ) THEN --{
2997:
2998:
2999: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 02.';
3000:
3001: SELECT MAX(sequence_num)
3002: INTO l_sequence_num
3003: FROM PO_ACTION_HISTORY
3003: FROM PO_ACTION_HISTORY
3004: WHERE object_id = p_object_id
3005: AND object_type_code = p_object_type_code;
3006:
3007: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 03.';
3008:
3009: IF (l_sequence_num IS NULL) THEN
3010: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 04.';
3011: l_sequence_num := 0;
3006:
3007: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 03.';
3008:
3009: IF (l_sequence_num IS NULL) THEN
3010: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 04.';
3011: l_sequence_num := 0;
3012: ELSE
3013: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 05.';
3014: l_sequence_num := l_sequence_num + 1;
3009: IF (l_sequence_num IS NULL) THEN
3010: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 04.';
3011: l_sequence_num := 0;
3012: ELSE
3013: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 05.';
3014: l_sequence_num := l_sequence_num + 1;
3015: END IF;
3016:
3017: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 06.';
3013: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 05.';
3014: l_sequence_num := l_sequence_num + 1;
3015: END IF;
3016:
3017: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 06.';
3018:
3019:
3020: END IF; --}
3021:
3018:
3019:
3020: END IF; --}
3021:
3022: l_progress := 'POS_WCAPPROVE_PVT.InsertPOActionHistory: 07.';
3023:
3024: IF (g_asn_debug = 'Y') THEN
3025: debug_log(FND_LOG.LEVEL_STATEMENT,
3026: l_api_name,'l_sequence_num before insert '
3131:
3132: Recinfo get_action_history%ROWTYPE;
3133:
3134: begin
3135: l_progress := 'POS_WCAPPROVE_PVT.post_approval_notif: 01.';
3136: IF (g_asn_debug = 'Y') THEN
3137: debug_log(FND_LOG.LEVEL_STATEMENT,
3138: l_api_name,
3139: 'Enter in post_approval_notif '
3170:
3171:
3172:
3173: --loop --{
3174: l_progress := 'POS_WCAPPROVE_PVT.post_approval_notif:02.';
3175:
3176:
3177: select max(sequence_num)
3178: into l_sequence_num
3315: l_work_confirmation_number varchar2(30);
3316: l_note varchar2(4000);
3317: l_view_wc_lines_detail_url varchar2(1000);
3318: begin
3319: l_progress := 'POS_WCAPPROVE_PVT.reject_doc: 01.';
3320: IF (g_asn_debug = 'Y') THEN
3321: debug_log(FND_LOG.LEVEL_STATEMENT,
3322: l_api_name,
3323: 'Enter in reject_doc '
3328: x_resultout := wf_engine.eng_null;
3329: return;
3330: end if;
3331:
3332: l_progress := 'POS_WCAPPROVE_PVT.reject_doc: 02.';
3333: l_shipment_header_id := wf_engine.GetItemAttrNumber
3334: (itemtype => p_itemtype,
3335: itemkey => p_itemkey,
3336: aname => 'WORK_CONFIRMATION_ID');
3343: p_level => 'HEADER',
3344: x_resultout => l_result);
3345:
3346:
3347: l_progress := 'POS_WCAPPROVE_PVT.reject_doc: 03.';
3348: IF (l_result = 'N') THEN
3349:
3350: IF (g_asn_debug = 'Y') THEN
3351: debug_log(FND_LOG.LEVEL_STATEMENT,
3432: l_note varchar2(4000);
3433: l_view_wc_lines_detail_url varchar2(1000);
3434: l_work_confirmation_number varchar2(30);
3435: begin
3436: l_progress := 'POS_WCAPPROVE_PVT.Approve_doc: 01.';
3437: IF (g_asn_debug = 'Y') THEN
3438: debug_log(FND_LOG.LEVEL_STATEMENT,
3439: l_api_name,
3440: 'Enter in Approve_doc '
3445: x_resultout := wf_engine.eng_null;
3446: return;
3447: end if;
3448:
3449: l_progress := 'POS_WCAPPROVE_PVT.Approve_doc: 02.';
3450: l_shipment_header_id := wf_engine.GetItemAttrNumber
3451: (itemtype => p_itemtype,
3452: itemkey => p_itemkey,
3453: aname => 'WORK_CONFIRMATION_ID');
3458: p_approval_status => l_approval_status,
3459: p_level => 'HEADER',
3460: x_resultout => l_result);
3461:
3462: l_progress := 'POS_WCAPPROVE_PVT.Approve_doc: 03.';
3463: IF (l_result = 'N') THEN
3464:
3465: IF (g_asn_debug = 'Y') THEN
3466: debug_log(FND_LOG.LEVEL_STATEMENT,
3552: l_progress varchar2(300);
3553: l_api_name varchar2(50) := ' update_approval_status';
3554: l_note po_action_history.note%type;
3555: begin
3556: l_progress := 'POS_WCAPPROVE_PVT.update_approval_status: 01.';
3557: IF (g_asn_debug = 'Y') THEN
3558: debug_log(FND_LOG.LEVEL_STATEMENT,
3559: l_api_name,
3560: 'Enter in update_approval_status '
3809: l_insert_into_rti boolean := TRUE;
3810:
3811:
3812: begin
3813: l_progress := 'POS_WCAPPROVE_PVT.insert_into_rti: 01.';
3814: IF (g_asn_debug = 'Y') THEN
3815: debug_log(FND_LOG.LEVEL_STATEMENT,
3816: l_api_name,
3817: 'Enter in insert_into_rti '
3933:
3934: open get_wcr_info(l_shipment_header_id);
3935: loop --{
3936:
3937: l_progress := 'POS_WCAPPROVE_PVT.insert_into_rti:02.';
3938:
3939: IF (g_asn_debug = 'Y') THEN
3940: debug_log(FND_LOG.LEVEL_STATEMENT,
3941: l_api_name,'before cursor fetch');
3981: l_first_time := TRUE;
3982: open get_dist_info(wcr_line_info.po_line_location_id);
3983: loop --{
3984:
3985: l_progress := 'POS_WCAPPROVE_PVT.insert_into_rti:03.';
3986:
3987:
3988: IF (g_asn_debug = 'Y') THEN
3989: debug_log(FND_LOG.LEVEL_STATEMENT,
4530: l_result_id number;
4531: l_group_id number;
4532: l_api_name varchar2(50) := p_itemkey || ' Launch_RTP_Immediate';
4533: begin
4534: l_progress := 'POS_WCAPPROVE_PVT.Launch_RTP_Immediate: 01.';
4535: IF (g_asn_debug = 'Y') THEN
4536: debug_log(FND_LOG.LEVEL_STATEMENT,
4537: l_api_name,
4538: 'Enter in Launch_RTP_Immediate '
4629: l_api_name varchar2(50) := p_itemkey || ' CloseOldNotif';
4630: l_progress varchar2(300);
4631: begin
4632:
4633: l_progress := 'POS_WCAPPROVE_PVT.CloseOldNotif: 01';
4634:
4635: IF (g_asn_debug = 'Y') THEN
4636: debug_log(FND_LOG.LEVEL_UNEXPECTED,
4637: l_api_name,'Enter in CloseOldNotif ' || l_progress);
4665: l_api_name varchar2(50) := p_itemkey || ' UpdateWorkflowInfo';
4666: l_progress varchar2(300);
4667: begin
4668:
4669: l_progress := 'POS_WCAPPROVE_PVT.UpdateWorkflowInfo: 01';
4670:
4671: IF (g_asn_debug = 'Y') THEN
4672: debug_log(FND_LOG.LEVEL_STATEMENT,
4673: l_api_name,'Enter in UpdateWorkflowInfo ' || l_progress);
4712: l_api_name varchar2(50) := ' Upd_ActionHistory_Submit';
4713: l_progress varchar2(280);
4714: begin
4715:
4716: l_progress := 'POS_WCAPPROVE_PVT.Upd_ActionHistory_Submit: 01';
4717: IF (g_asn_debug = 'Y') THEN
4718: debug_log(FND_LOG.LEVEL_UNEXPECTED,
4719: l_api_name,'Enter in Upd_ActionHistory_Submit '
4720: || l_progress);
4760:
4761: l_progress varchar2(300);
4762: l_api_name varchar2(50) := ' get_multiorg_context';
4763: begin
4764: l_progress := 'POS_WCAPPROVE_PVT.get_multiorg_context: 01';
4765: IF (g_asn_debug = 'Y') THEN
4766: debug_log(FND_LOG.LEVEL_STATEMENT,
4767: l_api_name,'Enter in get_multiorg_context '
4768: || l_progress);
4807: l_progress varchar2(500);
4808: l_po_header_id number;
4809: l_api_name varchar2(50) := 'get_PoHeaderId';
4810: begin
4811: l_progress := 'POS_WCAPPROVE_PVT.get_PoHeaderId: 01';
4812: IF (g_asn_debug = 'Y') THEN
4813: debug_log(FND_LOG.LEVEL_UNEXPECTED,
4814: l_api_name,'Enter in get_PoHeaderId ' || l_progress);
4815: END IF;
5153: return l_org_name;
5154: end if;
5155: end GET_EXPENDITURE_ORG;
5156:
5157: END POS_WCAPPROVE_PVT;