DBA Data[Home] [Help]

APPS.PO_XML_DELIVERY dependencies on PO_XML_DELIVERY

Line 1: PACKAGE BODY PO_XML_DELIVERY AS

1: PACKAGE BODY PO_XML_DELIVERY AS
2: /* $Header: POXWXMLB.pls 120.19.12020000.2 2013/02/10 13:57:20 vegajula ship $ */
3:
4: -- Read the profile option that enables/disables the debug log
5: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');

Line 12: | PL/SQL body for package: PO_XML_DELIVERY

8: | FILENAME
9: | POXWXMLB.pls
10: |
11: | DESCRIPTION
12: | PL/SQL body for package: PO_XML_DELIVERY
13: |
14: | NOTES jbalakri Created 5/3/2001
15: | MODIFIED (MM/DD/YY)
16: *=======================================================================*/

Line 67: x_progress := 'PO_XML_DELIVERY.call_txn_delivery : 01';

63: l_doc_rel_id number:=null;
64: BEGIN
65:
66: --NOTE - This procedure is obsoleted from FPG onwards.
67: x_progress := 'PO_XML_DELIVERY.call_txn_delivery : 01';
68: IF (g_po_wf_debug = 'Y') THEN
69: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
70: END IF;
71:

Line 113: x_progress := 'PO_XML_DELIVERY.: call_txn_delivery:02: POs of type ' || l_doc_type || 'is not supported for XML Delivery';

109: into l_revision_num,l_vendor_id ,l_vendor_site_id
110: from po_headers_all
111: where po_header_id= l_doc_id;
112: else
113: x_progress := 'PO_XML_DELIVERY.: call_txn_delivery:02: POs of type ' || l_doc_type || 'is not supported for XML Delivery';
114: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);
115: return;
116:
117: end if;

Line 114: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);

110: from po_headers_all
111: where po_header_id= l_doc_id;
112: else
113: x_progress := 'PO_XML_DELIVERY.: call_txn_delivery:02: POs of type ' || l_doc_type || 'is not supported for XML Delivery';
114: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);
115: return;
116:
117: end if;
118:

Line 121: x_progress := 'PO_XML_DELIVERY.: call_txn_delivery:02';

117: end if;
118:
119: exception
120: when others then
121: x_progress := 'PO_XML_DELIVERY.: call_txn_delivery:02';
122: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);
123: return; --do not raise the exception as that would end the wflow.
124: end ;
125:

Line 122: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);

118:
119: exception
120: when others then
121: x_progress := 'PO_XML_DELIVERY.: call_txn_delivery:02';
122: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);
123: return; --do not raise the exception as that would end the wflow.
124: end ;
125:
126: if nvl(l_revision_num,0)=0 then

Line 137: x_progress := 'PO_XML_DELIVERY.call_txn_delivery: 03';

133:
134:
135:
136: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
137: x_progress := 'PO_XML_DELIVERY.call_txn_delivery: 03';
138: IF (g_po_wf_debug = 'Y') THEN
139: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
140: END IF;
141: EXCEPTION

Line 143: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);

139: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
140: END IF;
141: EXCEPTION
142: WHEN OTHERS THEN
143: wf_core.context('PO_XML_DELIVERY','call_txn_delivery',x_progress);
144: return;
145:
146: END call_txn_delivery;
147:

Line 302: wf_core.context('PO_XML_DELIVERY','initialize_wf_parameters',x_progress);

298:
299:
300: exception
301: when others then
302: wf_core.context('PO_XML_DELIVERY','initialize_wf_parameters',x_progress);
303: raise;
304: --return;
305:
306: end;

Line 346: x_progress := 'PO_XML_DELIVERY.set_delivery_data : 01';

342: if (x_org_id is not null) then
343: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
344: end if;
345:
346: x_progress := 'PO_XML_DELIVERY.set_delivery_data : 01';
347: IF (g_po_wf_debug = 'Y') THEN
348: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
349: END IF;
350:

Line 394: x_progress := 'PO_XML_DELIVERY.set_delivery_data : 01.1';

390: l_application_id := wf_engine.GetItemAttrText ( itemtype => itemtype,
391: itemkey => itemkey,
392: aname => 'APPLICATION_ID');
393:
394: x_progress := 'PO_XML_DELIVERY.set_delivery_data : 01.1';
395:
396:
397: if instrb(l_application_id,'.') > 0 then
398: l_application_id := substrb(l_application_id,1,instrb(l_application_id,'.')-1);

Line 402: x_progress := 'PO_XML_DELIVERY.set_delivery_data : 01.3';

398: l_application_id := substrb(l_application_id,1,instrb(l_application_id,'.')-1);
399: l_application_id := replace(l_application_id,'.','');
400: end if;
401:
402: x_progress := 'PO_XML_DELIVERY.set_delivery_data : 01.3';
403:
404: wf_engine.SetItemAttrText ( itemtype => itemtype,
405: itemkey => itemkey,
406: aname => 'APPLICATION_ID',

Line 447: x_progress := 'PO_XML_DELIVERY.: set_delivery_data:02: POs of type ' || l_doc_type || 'is not supported for XML Delivery';

443: into l_revision_num,l_vendor_id ,l_vendor_site_id, l_cancel_flag --B4407795,reading cancel flag
444: from po_headers_all
445: where po_header_id= l_doc_id;
446: else
447: x_progress := 'PO_XML_DELIVERY.: set_delivery_data:02: POs of type ' || l_doc_type || 'is not supported for XML Delivery';
448: wf_core.context('PO_XML_DELIVERY', 'set_delivery_data',x_progress);
449: return;
450:
451: end if;

Line 448: wf_core.context('PO_XML_DELIVERY', 'set_delivery_data',x_progress);

444: from po_headers_all
445: where po_header_id= l_doc_id;
446: else
447: x_progress := 'PO_XML_DELIVERY.: set_delivery_data:02: POs of type ' || l_doc_type || 'is not supported for XML Delivery';
448: wf_core.context('PO_XML_DELIVERY', 'set_delivery_data',x_progress);
449: return;
450:
451: end if;
452:

Line 455: x_progress := 'PO_XML_DELIVERY.: set_delivery_data:02';

451: end if;
452:
453: exception
454: when others then
455: x_progress := 'PO_XML_DELIVERY.: set_delivery_data:02';
456: wf_core.context('PO_XML_DELIVERY','set_delivery_data',x_progress);
457: return; --do not raise the exception as that would end the wflow.
458: end ;
459:

Line 456: wf_core.context('PO_XML_DELIVERY','set_delivery_data',x_progress);

452:
453: exception
454: when others then
455: x_progress := 'PO_XML_DELIVERY.: set_delivery_data:02';
456: wf_core.context('PO_XML_DELIVERY','set_delivery_data',x_progress);
457: return; --do not raise the exception as that would end the wflow.
458: end ;
459:
460: select PO_WF_ITEMKEY_S.nextval

Line 572: x_progress := 'PO_XML_DELIVERY.set_delivery_data: 03';

568: end if;
569: end if;
570:
571: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
572: x_progress := 'PO_XML_DELIVERY.set_delivery_data: 03';
573: IF (g_po_wf_debug = 'Y') THEN
574: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
575: END IF;
576:

Line 579: wf_core.context('PO_XML_DELIVERY','set_delivery_data',x_progress);

575: END IF;
576:
577: EXCEPTION
578: WHEN OTHERS THEN
579: wf_core.context('PO_XML_DELIVERY','set_delivery_data',x_progress);
580: --return;
581: raise;
582:
583: END set_delivery_data;

Line 614: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 01';

610: l_msg_data VARCHAR2(2000);
611:
612:
613: BEGIN
614: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 01';
615: IF (g_po_wf_debug = 'Y') THEN
616: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
617: END IF;
618:

Line 672: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 02';

668: );
669:
670: if (result) then
671:
672: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 02';
673:
674: -- Reached Here. Successful execution.
675:
676: resultout := 'COMPLETE:T';

Line 703: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 03';

699: x_msg_data => l_msg_data);
700:
701: else
702:
703: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 03';
704:
705: resultout := 'COMPLETE:F';
706:
707: end if;

Line 716: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 04';

712: END IF;
713: exception
714:
715: when others then
716: x_progress := 'PO_XML_DELIVERY.is_partner_setup : 04';
717: IF (g_po_wf_debug = 'Y') THEN
718: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
719: END IF;
720: resultout := 'COMPLETE:F';

Line 739: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 01';

735: l_agent_id number;
736: l_buyer_user_name varchar2(100);
737: x_progress VARCHAR2(100) := '000';
738: BEGIN
739: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 01';
740: if (funcmode <> wf_engine.eng_run) then
741:
742: resultout := wf_engine.eng_null;
743: return; --do not raise the exception, as it would end the wflow.

Line 756: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 02';

752: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
753: itemkey => itemkey,
754: aname => 'DOCUMENT_TYPE');
755:
756: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 02';
757: if l_doc_type = 'RELEASE' then
758: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 03';
759: l_doc_rel_id := l_doc_id;
760:

Line 758: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 03';

754: aname => 'DOCUMENT_TYPE');
755:
756: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 02';
757: if l_doc_type = 'RELEASE' then
758: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 03';
759: l_doc_rel_id := l_doc_id;
760:
761:
762: select por.xml_flag,poh.agent_id into l_xml_flag, l_agent_id

Line 768: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 04';

764: where poh.po_header_id=por.po_header_id
765: and por.po_release_id = l_doc_rel_id;
766:
767: elsif (l_doc_type = 'STANDARD' or l_doc_type = 'PO') then --for standard POs.
768: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 04';
769: select poh.xml_flag, poh.agent_id into l_xml_flag, l_agent_id
770: from po_headers_all poh
771: where po_header_id= l_doc_id;
772: end if;

Line 773: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 05';

769: select poh.xml_flag, poh.agent_id into l_xml_flag, l_agent_id
770: from po_headers_all poh
771: where po_header_id= l_doc_id;
772: end if;
773: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 05';
774: if l_xml_flag = 'Y' then
775: resultout := 'COMPLETE:T';
776: end if;
777: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 06';

Line 777: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 06';

773: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 05';
774: if l_xml_flag = 'Y' then
775: resultout := 'COMPLETE:T';
776: end if;
777: x_progress := 'PO_XML_DELIVERY.is_xml_chosen : 06';
778: exception when others then
779: IF (g_po_wf_debug = 'Y') THEN
780: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
781: END IF;

Line 1402: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 01';

1398: x_progress varchar2(100);
1399:
1400: begin
1401:
1402: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 01';
1403: l_document_id := to_number(wf_engine.GetItemAttrText (itemtype => itemtype,
1404: itemkey => itemkey,
1405: aname => 'ECX_DOCUMENT_ID'));
1406:

Line 1414: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 02';

1410: l_revision_num := to_number(wf_engine.GetItemAttrText (itemtype => itemtype,
1411: itemkey => itemkey,
1412: aname => 'ECX_PARAMETER2'));
1413:
1414: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 02';
1415: if (l_release_id is not null or l_release_id > 0) then
1416:
1417: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 03';
1418:

Line 1417: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 03';

1413:
1414: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 02';
1415: if (l_release_id is not null or l_release_id > 0) then
1416:
1417: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 03';
1418:
1419: select PHA.SEGMENT1, PRAA.REVISION_NUM,
1420: PRAA.RELEASE_NUM
1421: into l_ponum, l_revision_num, l_release_num

Line 1431: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 04';

1427: l_user_key := l_ponum || '-' || to_char(l_revision_num)
1428: || '-' || to_char(l_release_num);
1429:
1430: else --for standard POs.
1431: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 04';
1432: select segment1 into l_ponum
1433: from po_headers_archive_all poh
1434: where po_header_id= l_document_id and
1435: revision_num = l_revision_num;

Line 1439: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 05';

1435: revision_num = l_revision_num;
1436:
1437: l_user_key := l_ponum || '-' || to_char(l_revision_num);
1438: end if;
1439: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 05';
1440:
1441:
1442: wf_engine.SetItemUserKey(itemtype => itemtype,
1443: itemkey => itemkey,

Line 1445: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 06';

1441:
1442: wf_engine.SetItemUserKey(itemtype => itemtype,
1443: itemkey => itemkey,
1444: userkey => l_user_key);
1445: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 06';
1446:
1447: resultout := 'COMPLETE:T';
1448: wf_core.context('PO_XML_DELIVERY','setwfUserKey','completed');
1449:

Line 1448: wf_core.context('PO_XML_DELIVERY','setwfUserKey','completed');

1444: userkey => l_user_key);
1445: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 06';
1446:
1447: resultout := 'COMPLETE:T';
1448: wf_core.context('PO_XML_DELIVERY','setwfUserKey','completed');
1449:
1450: exception when others then
1451: wf_engine.SetItemUserKey(itemtype => itemtype,
1452: itemkey => itemkey,

Line 1454: wf_core.context('PO_XML_DELIVERY','setwfUserKey',x_progress || ':' || to_char(l_document_id));

1450: exception when others then
1451: wf_engine.SetItemUserKey(itemtype => itemtype,
1452: itemkey => itemkey,
1453: userkey => 'Cannot set item key');
1454: wf_core.context('PO_XML_DELIVERY','setwfUserKey',x_progress || ':' || to_char(l_document_id));
1455:
1456: resultout := 'COMPLETE:F';
1457: -- raise; if there is an exception can't do much; Do not raise - as it stops the workflow.
1458: end;

Line 1616: -- and from po_xml_delivery.get_oag_shipto

1612: -- For use in OAG Process/Change PO XML generation
1613: -- bug 46115474
1614: -- populate state, region, county tags of xml based on address style.
1615: -- API called from process, change PO OAG xgms.
1616: -- and from po_xml_delivery.get_oag_shipto
1617: PROCEDURE get_hrloc_address(
1618: p_location_id in varchar2,
1619: addrline1 out NOCOPY VARCHAR2,
1620: addrline2 out NOCOPY VARCHAR2,

Line 1704: x_progress := 'PO_XML_DELIVERY.set_user_context : 001';

1700: --if (x_org_id is not null) then
1701: -- fnd_client__info.set_org_context(to_char(x_org_id));
1702: --end if;
1703:
1704: x_progress := 'PO_XML_DELIVERY.set_user_context : 001';
1705: IF (g_po_wf_debug = 'Y') THEN
1706: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
1707: END IF;
1708:

Line 1737: x_progress := 'PO_XML_DELIVERY.set_user_context : 002';

1733: aname => 'APPLICATION_ID');*/
1734: -- bug#5415920
1735: l_appl_id := to_number(PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>itemtype, itemkey=>itemkey, aname=>'APPLICATION_ID'));
1736:
1737: x_progress := 'PO_XML_DELIVERY.set_user_context : 002';
1738: IF (g_po_wf_debug = 'Y') THEN
1739: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress
1740: || ':' || l_user_id || ':' || l_resp_id || ':' || l_appl_id);
1741: END IF;

Line 1748: x_progress := 'PO_XML_DELIVERY.set_user_context : 003';

1744: l_cur_resp_id := fnd_global.resp_id;
1745: l_cur_appl_id := fnd_global.resp_appl_id;
1746:
1747:
1748: x_progress := 'PO_XML_DELIVERY.set_user_context : 003';
1749: IF (g_po_wf_debug = 'Y') THEN
1750: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress
1751: || ':' || l_cur_user_id || ':' || l_cur_resp_id
1752: || ':' || l_cur_appl_id);

Line 1770: x_progress := 'PO_XML_DELIVERY.set_user_context: 004 ' || resultout;

1766:
1767: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
1768: end if;
1769:
1770: x_progress := 'PO_XML_DELIVERY.set_user_context: 004 ' || resultout;
1771: IF (g_po_wf_debug = 'Y') THEN
1772: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1773: END IF;
1774:

Line 1777: wf_core.context('PO_XML_DELIVERY','set_user_context',x_progress);

1773: END IF;
1774:
1775: EXCEPTION
1776: WHEN OTHERS THEN
1777: wf_core.context('PO_XML_DELIVERY','set_user_context',x_progress);
1778: resultout := wf_engine.eng_completed || ':' || 'SET CONTEXT ERROR';
1779: return;
1780: END set_user_context;
1781:

Line 2027: end PO_XML_DELIVERY;

2023: exception when others then
2024: null;
2025: end getSupplierSiteLanguage;
2026:
2027: end PO_XML_DELIVERY;