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.13.12010000.4 2008/10/29 06:13:16 pilamuru 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 1399: x_progress := 'PO_XML_DELIVERY.setwfUserKey : 01';

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Line 1612: -- and from po_xml_delivery.get_oag_shipto

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

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

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

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

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

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

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

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

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

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

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

Line 2006: end PO_XML_DELIVERY;

2002: WHEN OTHERS THEN
2003: raise_application_error(-20001, 'Error querying the enterprise name in get_cXML_Header_Shipto_Name', true);
2004: END get_cXML_Header_Shipto_Name;
2005:
2006: end PO_XML_DELIVERY;