[Home] [Help]
928: COMMIT;
929: END IF;
930: --
931: IF x_wf_created = 0 THEN
932: wf_engine.CreateProcess( ItemType => l_itemtype, ItemKey => l_itemkey, process => l_workflow_process );
933: END IF;
934: --
935: -- Initialize workflow item attributes
936: --
1079: INTO l_document_number
1080: FROM po_requisition_headers PRH
1081: WHERE PRH.requisition_header_id = DocumentID;
1082: BEGIN
1083: wf_engine.SetItemUserKey(itemtype => l_itemtype, itemkey => l_itemkey, userkey => l_document_number);
1084: EXCEPTION
1085: WHEN OTHERS THEN
1086: NULL;
1087: END;
1255: ELSE
1256: l_userkey := l_document_number; -- Bug 3284628
1257: END IF;
1258: BEGIN
1259: wf_engine.SetItemUserKey(itemtype => l_itemtype, itemkey => l_itemkey, userkey => l_userkey);
1260: EXCEPTION
1261: WHEN OTHERS THEN
1262: NULL;
1263: END;
1636:
1637: /*Bug 11727653: BYPASSING MULTIPLE SUBMISSION CHECKS IN WORKFLOW. Setting the BYPASS_CHECKS_FLAG*/
1638: PO_WF_UTIL_PKG.SetItemAttrText( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'BYPASS_CHECKS_FLAG', avalue => p_bypass_checks_flag);
1639:
1640: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to wf_engine.StartProcess()' || ' parameter DefaultApprovalPathID= ' || TO_CHAR(DefaultApprovalPathID);
1641: IF (g_po_wf_debug = 'Y') THEN
1642: PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1643: END IF;
1644: --
1641: IF (g_po_wf_debug = 'Y') THEN
1642: PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1643: END IF;
1644: --
1645: wf_engine.StartProcess( itemtype => l_itemtype, itemkey => l_itemkey );
1646: END IF;
1647: EXCEPTION
1648: WHEN OTHERS THEN
1649: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: In Exception handler';
1730: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1731: END IF;
1732: -- Do nothing in cancel or timeout mode
1733: --
1734: IF (funcmode <> wf_engine.eng_run) THEN
1735: resultout := wf_engine.eng_null;
1736: RETURN;
1737: END IF;
1738: -- Set the multi-org context
1731: END IF;
1732: -- Do nothing in cancel or timeout mode
1733: --
1734: IF (funcmode <> wf_engine.eng_run) THEN
1735: resultout := wf_engine.eng_null;
1736: RETURN;
1737: END IF;
1738: -- Set the multi-org context
1739: x_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
1735: resultout := wf_engine.eng_null;
1736: RETURN;
1737: END IF;
1738: -- Set the multi-org context
1739: x_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
1740: IF x_orgid IS NOT NULL THEN
1741: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1742: END IF;
1743: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
1739: x_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
1740: IF x_orgid IS NOT NULL THEN
1741: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1742: END IF;
1743: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
1744: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
1745: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
1746: -- CLM Apprvl
1747: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DRAFT_ID');
1740: IF x_orgid IS NOT NULL THEN
1741: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1742: END IF;
1743: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
1744: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
1745: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
1746: -- CLM Apprvl
1747: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DRAFT_ID');
1748: IF l_draft_id IS NULL THEN
1741: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1742: END IF;
1743: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
1744: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
1745: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
1746: -- CLM Apprvl
1747: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DRAFT_ID');
1748: IF l_draft_id IS NULL THEN
1749: l_draft_id := -1;
1755: ** If the preparer can not approve, then process FIND APPROVER will
1756: ** find an approver and put his/her employee_id in APPROVER_EMPID
1757: ** item attribute.
1758: */
1759: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
1760: /*7125551, including the sql to get the value of l_can_modify_flag here*/
1761: SELECT CAN_APPROVER_MODIFY_DOC_FLAG
1762: INTO l_can_modify_flag
1763: FROM po_document_types
1771: ** set the approver_username also.
1772: */
1773: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, x_username, x_user_display_name);
1774: -- Bug 711141 fix (setting process owner here)
1775: wf_engine.SetItemOwner (itemtype => itemtype, itemkey => itemkey,
1776: /* { Bug 2148872: owner => 'PER:' || l_preparer_id);
1777: wf_engine.SetItemOwner needs 'owner' parameter to be passed as
1778: the internal user name of the owner in wf_users. To pass it as
1779: "PER:person_id" has been disallowed by WF. */
1773: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, x_username, x_user_display_name);
1774: -- Bug 711141 fix (setting process owner here)
1775: wf_engine.SetItemOwner (itemtype => itemtype, itemkey => itemkey,
1776: /* { Bug 2148872: owner => 'PER:' || l_preparer_id);
1777: wf_engine.SetItemOwner needs 'owner' parameter to be passed as
1778: the internal user name of the owner in wf_users. To pass it as
1779: "PER:person_id" has been disallowed by WF. */
1780: owner => x_username); -- Bug 2148872 }
1781: -- Context Setting revamp (begin)
1781: -- Context Setting revamp (begin)
1782: l_printer := fnd_profile.value('PRINTER');
1783: l_conc_copies := to_number(fnd_profile.value('CONC_COPIES'));
1784: l_conc_save_output := fnd_profile.value('CONC_SAVE_OUTPUT');
1785: /* changed the call from wf_engine.setiteattrtext to
1786: po_wf_util_pkg.setitemattrtext because the later handles
1787: attrbute not found exception. req change order wf also
1788: uses these procedures and does not have the preparer_printer
1789: attribute, hence this was required */
1993: -- Bug 636924, lpo, 03/31/98
1994: -- Added resubmit link.
1995: l_resubmit_req_url := l_resubmit_url;
1996: -- End of fix. Bug 636924, lpo, 03/31/98
1997: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_URL' , avalue => l_open_req_url);
1998: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_UPDATE_URL' , avalue => l_update_req_url);
1999: -- Bug 636924, lpo, 03/31/98
2000: -- Added resubmit workflow attribute.
2001: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_RESUBMIT_URL' , avalue => l_resubmit_req_url);
1994: -- Added resubmit link.
1995: l_resubmit_req_url := l_resubmit_url;
1996: -- End of fix. Bug 636924, lpo, 03/31/98
1997: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_URL' , avalue => l_open_req_url);
1998: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_UPDATE_URL' , avalue => l_update_req_url);
1999: -- Bug 636924, lpo, 03/31/98
2000: -- Added resubmit workflow attribute.
2001: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_RESUBMIT_URL' , avalue => l_resubmit_req_url);
2002: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
1997: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_URL' , avalue => l_open_req_url);
1998: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_UPDATE_URL' , avalue => l_update_req_url);
1999: -- Bug 636924, lpo, 03/31/98
2000: -- Added resubmit workflow attribute.
2001: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_RESUBMIT_URL' , avalue => l_resubmit_req_url);
2002: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
2003: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2004: -- Not showing the open form icon if this is an IP req and owner can't
2005: -- modify.
1998: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_UPDATE_URL' , avalue => l_update_req_url);
1999: -- Bug 636924, lpo, 03/31/98
2000: -- Added resubmit workflow attribute.
2001: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_RESUBMIT_URL' , avalue => l_resubmit_req_url);
2002: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
2003: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2004: -- Not showing the open form icon if this is an IP req and owner can't
2005: -- modify.
2006: IF l_can_modify_flag = 'N' AND l_interface_source = 'POR' THEN
1999: -- Bug 636924, lpo, 03/31/98
2000: -- Added resubmit workflow attribute.
2001: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQ_RESUBMIT_URL' , avalue => l_resubmit_req_url);
2002: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
2003: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2004: -- Not showing the open form icon if this is an IP req and owner can't
2005: -- modify.
2006: IF l_can_modify_flag = 'N' AND l_interface_source = 'POR' THEN
2007: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'OPEN_FORM_COMMAND' , avalue => '');
2003: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2004: -- Not showing the open form icon if this is an IP req and owner can't
2005: -- modify.
2006: IF l_can_modify_flag = 'N' AND l_interface_source = 'POR' THEN
2007: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'OPEN_FORM_COMMAND' , avalue => '');
2008: END IF;
2009: END IF;
2010: /* Set the Subject of the Approval notification initially to
2011: ** "requires your approval". If the user enters an invalid forward-to
2013: ** message gets a value (see notification: Approve Requisition).
2014: */
2015: fnd_message.set_name ('PO','PO_WF_NOTIF_REQUIRES_APPROVAL');
2016: l_error_msg := fnd_message.get;
2017: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQUIRES_APPROVAL_MSG' , avalue => l_error_msg);
2018: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'WRONG_FORWARD_TO_MSG' , avalue => '');
2019: /* Get the orignial authorization status from the document
2020: ** This has to be done here as we set the document status to
2021: ** IN-PROCESS after this.
2014: */
2015: fnd_message.set_name ('PO','PO_WF_NOTIF_REQUIRES_APPROVAL');
2016: l_error_msg := fnd_message.get;
2017: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'REQUIRES_APPROVAL_MSG' , avalue => l_error_msg);
2018: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'WRONG_FORWARD_TO_MSG' , avalue => '');
2019: /* Get the orignial authorization status from the document
2020: ** This has to be done here as we set the document status to
2021: ** IN-PROCESS after this.
2022: */
2072: l_authorization_status := 'INCOMPLETE';
2073: END IF;
2074: END IF;
2075: END IF;
2076: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'ORIG_AUTH_STATUS' , avalue => l_authorization_status);
2077: IF l_document_type='REQUISITION' THEN
2078: /* bug 2480327 notification UI enhancement
2079: add &#NID to PLSQL document attributes
2080: */
2077: IF l_document_type='REQUISITION' THEN
2078: /* bug 2480327 notification UI enhancement
2079: add &#NID to PLSQL document attributes
2080: */
2081: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVE_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVE_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2082: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVED_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2083: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_NO_APPROVER_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2078: /* bug 2480327 notification UI enhancement
2079: add &#NID to PLSQL document attributes
2080: */
2081: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVE_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVE_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2082: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVED_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2083: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_NO_APPROVER_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2079: add &#NID to PLSQL document attributes
2080: */
2081: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVE_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVE_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2082: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVED_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2083: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_NO_APPROVER_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2080: */
2081: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVE_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVE_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2082: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVED_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2083: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_NO_APPROVER_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2088: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_APPROVE_MSG', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' || itemtype || ':' || itemkey);
2081: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVE_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVE_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2082: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVED_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2083: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_NO_APPROVER_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2088: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_APPROVE_MSG', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' || itemtype || ':' || itemkey);
2089: --
2082: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_APPROVED_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2083: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_NO_APPROVER_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2088: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_APPROVE_MSG', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' || itemtype || ':' || itemkey);
2089: --
2090: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_LINES_DETAILS', avalue => 'PLSQLCLOB:PO_WF_PO_NOTIFICATION.GET_PO_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2084: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_REQ_REJECT_MSG', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'|| itemtype||':'|| itemkey||':'|| '&'||'#NID');
2085: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'REQ_LINES_DETAILS', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2088: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_APPROVE_MSG', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' || itemtype || ':' || itemkey);
2089: --
2090: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_LINES_DETAILS', avalue => 'PLSQLCLOB:PO_WF_PO_NOTIFICATION.GET_PO_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2091: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2092: END IF;
2086: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2088: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_APPROVE_MSG', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' || itemtype || ':' || itemkey);
2089: --
2090: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_LINES_DETAILS', avalue => 'PLSQLCLOB:PO_WF_PO_NOTIFICATION.GET_PO_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2091: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2092: END IF;
2093: --Bug 6164753
2094: l_external_url := fnd_profile.value('POS_EXTERNAL_URL');
2087: elsif l_document_type IN ('PO', 'PA', 'RELEASE') THEN
2088: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_APPROVE_MSG', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' || itemtype || ':' || itemkey);
2089: --
2090: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'PO_LINES_DETAILS', avalue => 'PLSQLCLOB:PO_WF_PO_NOTIFICATION.GET_PO_LINES_DETAILS/'|| itemtype||':'|| itemkey);
2091: wf_engine.SetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'ACTION_HISTORY', avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_ACTION_HISTORY/'|| itemtype||':'|| itemkey);
2092: END IF;
2093: --Bug 6164753
2094: l_external_url := fnd_profile.value('POS_EXTERNAL_URL');
2095: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => '#WFM_HTMLAGENT', avalue => l_external_url);
2101: l_review_msg := fnd_message.get;
2102: PO_WF_UTIL_PKG.SetItemAttrText( itemtype => itemType, itemkey => itemkey, aname => 'REQUIRES_REVIEW_MSG' , avalue => l_review_msg);
2103: /* PO AME Project :End */
2104:
2105: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2106: --
2107: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 03'|| 'Open Form Command= ' || l_open_form;
2108: IF (g_po_wf_debug = 'Y') THEN
2109: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2142: END IF;
2143: -- Do nothing in cancel or timeout mode
2144: --
2145: IF (funcmode <> wf_engine.eng_run) THEN
2146: resultout := wf_engine.eng_null;
2147: RETURN;
2148: END IF;
2149: /* Bug# 2377333
2142: END IF;
2143: -- Do nothing in cancel or timeout mode
2144: --
2145: IF (funcmode <> wf_engine.eng_run) THEN
2146: resultout := wf_engine.eng_null;
2147: RETURN;
2148: END IF;
2149: /* Bug# 2377333
2150: ** Setting application context
2150: ** Setting application context
2151: */
2152: --Context Setting Revamp
2153: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2154: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2155: IF l_orgid IS NOT NULL THEN
2156: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2157: END IF;
2158: l_requisition_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2154: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2155: IF l_orgid IS NOT NULL THEN
2156: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2157: END IF;
2158: l_requisition_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2159: GetReqAttributes(l_requisition_header_id,itemtype,itemkey);
2160: --
2161: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2162: --
2157: END IF;
2158: l_requisition_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2159: GetReqAttributes(l_requisition_header_id,itemtype,itemkey);
2160: --
2161: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2162: --
2163: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 02';
2164: IF (g_po_wf_debug = 'Y') THEN
2165: /* DEBUG */
2197: l_draft_id NUMBER := -1; --Mod Project
2198: BEGIN
2199: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2200: --
2201: IF (funcmode <> wf_engine.eng_run) THEN
2202: resultout := wf_engine.eng_null;
2203: RETURN;
2204: END IF;
2205: -- Set the multi-org context
2198: BEGIN
2199: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2200: --
2201: IF (funcmode <> wf_engine.eng_run) THEN
2202: resultout := wf_engine.eng_null;
2203: RETURN;
2204: END IF;
2205: -- Set the multi-org context
2206: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2202: resultout := wf_engine.eng_null;
2203: RETURN;
2204: END IF;
2205: -- Set the multi-org context
2206: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2207: IF l_orgid IS NOT NULL THEN
2208: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2209: END IF;
2210: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2207: IF l_orgid IS NOT NULL THEN
2208: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2209: END IF;
2210: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2211: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2212: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2213: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2214: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2215: IF l_doc_type = 'REQUISITION' THEN
2208: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2209: END IF;
2210: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2211: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2212: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2213: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2214: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2215: IF l_doc_type = 'REQUISITION' THEN
2216: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2209: END IF;
2210: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2211: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2212: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2213: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2214: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2215: IF l_doc_type = 'REQUISITION' THEN
2216: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2217: SetReqAuthStat(l_doc_header_id, itemtype,itemkey,l_note, 'PRE-APPROVED');
2210: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2211: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2212: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2213: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2214: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2215: IF l_doc_type = 'REQUISITION' THEN
2216: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2217: SetReqAuthStat(l_doc_header_id, itemtype,itemkey,l_note, 'PRE-APPROVED');
2218: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2214: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2215: IF l_doc_type = 'REQUISITION' THEN
2216: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2217: SetReqAuthStat(l_doc_header_id, itemtype,itemkey,l_note, 'PRE-APPROVED');
2218: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2219: ELSIF l_doc_type IN ('PO', 'PA') THEN
2220: -- Bug 3327847: Added code to set POs to 'PRE-APPROVED' status.
2221: -- CLM Aprvl
2222: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DRAFT_ID');
2226: -- CLM Aprvl
2227: -- Adding the new parameter Draft Id
2228: SetPOAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED', l_draft_id);
2229: --SetPOAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED');
2230: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2231: ELSIF l_doc_type = 'RELEASE' THEN
2232: -- Bug 3327847: Added code to set Releases to 'PRE-APPROVED' status.
2233: SetRelAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED');
2234: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2230: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2231: ELSIF l_doc_type = 'RELEASE' THEN
2232: -- Bug 3327847: Added code to set Releases to 'PRE-APPROVED' status.
2233: SetRelAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED');
2234: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2235: END IF;
2236: --
2237: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2238: --
2233: SetRelAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED');
2234: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2235: END IF;
2236: --
2237: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2238: --
2239: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2240: IF (g_po_wf_debug = 'Y') THEN
2241: /* DEBUG */
2272: l_draft_id NUMBER := -1; --Mod Project
2273: BEGIN
2274: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2275: --
2276: IF (funcmode <> wf_engine.eng_run) THEN
2277: resultout := wf_engine.eng_null;
2278: RETURN;
2279: END IF;
2280: -- Set the multi-org context
2273: BEGIN
2274: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2275: --
2276: IF (funcmode <> wf_engine.eng_run) THEN
2277: resultout := wf_engine.eng_null;
2278: RETURN;
2279: END IF;
2280: -- Set the multi-org context
2281: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2277: resultout := wf_engine.eng_null;
2278: RETURN;
2279: END IF;
2280: -- Set the multi-org context
2281: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2282: IF l_orgid IS NOT NULL THEN
2283: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2284: END IF;
2285: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2282: IF l_orgid IS NOT NULL THEN
2283: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2284: END IF;
2285: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2286: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2287: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2288: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2289: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2290: IF l_doc_type IN ('PO', 'PA') THEN
2283: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2284: END IF;
2285: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2286: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2287: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2288: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2289: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2290: IF l_doc_type IN ('PO', 'PA') THEN
2291: -- Bug 3327847: Added code to set POs to 'PRE-APPROVED' status.
2284: END IF;
2285: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2286: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2287: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2288: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2289: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2290: IF l_doc_type IN ('PO', 'PA') THEN
2291: -- Bug 3327847: Added code to set POs to 'PRE-APPROVED' status.
2292: -- CLM Aprvl
2285: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2286: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2287: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2288: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2289: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2290: IF l_doc_type IN ('PO', 'PA') THEN
2291: -- Bug 3327847: Added code to set POs to 'PRE-APPROVED' status.
2292: -- CLM Aprvl
2293: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DRAFT_ID');
2296: END IF;
2297: -- CLM Aprvl
2298: -- Adding the new parameter Draft Id
2299: SetPOAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED', l_draft_id, 'Y');
2300: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2301: END IF;
2302: --
2303: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2304: --
2299: SetPOAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED', l_draft_id, 'Y');
2300: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'PRE-APPROVED');
2301: END IF;
2302: --
2303: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2304: --
2305: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 02';
2306: IF (g_po_wf_debug = 'Y') THEN
2307: /* DEBUG */
2343: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2344: END IF;
2345: -- Do nothing in cancel or timeout mode
2346: --
2347: IF (funcmode <> wf_engine.eng_run) THEN
2348: resultout := wf_engine.eng_null;
2349: RETURN;
2350: END IF;
2351: -- Set the multi-org context
2344: END IF;
2345: -- Do nothing in cancel or timeout mode
2346: --
2347: IF (funcmode <> wf_engine.eng_run) THEN
2348: resultout := wf_engine.eng_null;
2349: RETURN;
2350: END IF;
2351: -- Set the multi-org context
2352: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2348: resultout := wf_engine.eng_null;
2349: RETURN;
2350: END IF;
2351: -- Set the multi-org context
2352: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2353: IF l_orgid IS NOT NULL THEN
2354: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2355: END IF;
2356: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2352: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2353: IF l_orgid IS NOT NULL THEN
2354: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2355: END IF;
2356: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2357: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2358: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2359: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2360: /* If the Doc is INCOMPLETE or REJECTED (not IN PROCESS or PRE-APPROVED), then
2353: IF l_orgid IS NOT NULL THEN
2354: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2355: END IF;
2356: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2357: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2358: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2359: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2360: /* If the Doc is INCOMPLETE or REJECTED (not IN PROCESS or PRE-APPROVED), then
2361: ** we want to set it to IN PROCESS and update the ITEMTYPE/ITEMKEY columns.
2354: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2355: END IF;
2356: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2357: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2358: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2359: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2360: /* If the Doc is INCOMPLETE or REJECTED (not IN PROCESS or PRE-APPROVED), then
2361: ** we want to set it to IN PROCESS and update the ITEMTYPE/ITEMKEY columns.
2362: ** If this is an upgrade to R11, then we need to update the ITEMTYPE/ITEMKEY columns
2355: END IF;
2356: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2357: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2358: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS');
2359: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2360: /* If the Doc is INCOMPLETE or REJECTED (not IN PROCESS or PRE-APPROVED), then
2361: ** we want to set it to IN PROCESS and update the ITEMTYPE/ITEMKEY columns.
2362: ** If this is an upgrade to R11, then we need to update the ITEMTYPE/ITEMKEY columns
2363: ** Note that we only pickup docs is IN PROCESS or PRE-APPROVED in the upgrade step.
2394: END IF;
2395: ELSIF l_doc_type = 'RELEASE' THEN
2396: SetRelAuthStat(l_document_id, itemtype,itemkey,l_note, 'IN PROCESS');
2397: END IF;
2398: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'IN PROCESS' );
2399: END IF;
2400: --
2401: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2402: --
2397: END IF;
2398: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => 'IN PROCESS' );
2399: END IF;
2400: --
2401: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2402: --
2403: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2404: IF (g_po_wf_debug = 'Y') THEN
2405: /* DEBUG */
2441: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2442: END IF;
2443: -- Do nothing in cancel or timeout mode
2444: --
2445: IF (funcmode <> wf_engine.eng_run) THEN
2446: resultout := wf_engine.eng_null;
2447: RETURN;
2448: END IF;
2449: -- Set the multi-org context
2442: END IF;
2443: -- Do nothing in cancel or timeout mode
2444: --
2445: IF (funcmode <> wf_engine.eng_run) THEN
2446: resultout := wf_engine.eng_null;
2447: RETURN;
2448: END IF;
2449: -- Set the multi-org context
2450: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2446: resultout := wf_engine.eng_null;
2447: RETURN;
2448: END IF;
2449: -- Set the multi-org context
2450: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2451: IF l_orgid IS NOT NULL THEN
2452: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2453: END IF;
2454: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'ORIG_AUTH_STATUS');
2450: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2451: IF l_orgid IS NOT NULL THEN
2452: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2453: END IF;
2454: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'ORIG_AUTH_STATUS');
2455: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2456: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2457: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2458: -- Mod Project
2451: IF l_orgid IS NOT NULL THEN
2452: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2453: END IF;
2454: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'ORIG_AUTH_STATUS');
2455: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2456: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2457: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2458: -- Mod Project
2459: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,itemkey => itemkey,aname => 'DRAFT_ID');
2452: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2453: END IF;
2454: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'ORIG_AUTH_STATUS');
2455: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2456: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2457: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2458: -- Mod Project
2459: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,itemkey => itemkey,aname => 'DRAFT_ID');
2460: IF l_draft_id IS NULL THEN
2453: END IF;
2454: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'ORIG_AUTH_STATUS');
2455: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2456: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2457: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2458: -- Mod Project
2459: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,itemkey => itemkey,aname => 'DRAFT_ID');
2460: IF l_draft_id IS NULL THEN
2461: l_draft_id := -1;
2506: SetRelAuthStat(l_doc_id, itemtype,itemkey,NULL, l_orig_auth_stat );
2507: END IF;
2508: END IF;
2509: IF l_auth_stat <> 'APPROVED' THEN
2510: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => l_orig_auth_stat);
2511: END IF;
2512: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 02' || ' Auth_status= ' || l_auth_stat || ', Orig_auth_stat= ' || l_orig_auth_stat;
2513: IF (g_po_wf_debug = 'Y') THEN
2514: /* DEBUG */
2521: IF (g_po_wf_debug = 'Y') THEN
2522: /* DEBUG */
2523: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2524: END IF;
2525: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2526: EXCEPTION
2527: WHEN OTHERS THEN
2528: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2529: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2557: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2558: END IF;
2559: -- Do nothing in cancel or timeout mode
2560: --
2561: IF (funcmode <> wf_engine.eng_run) THEN
2562: resultout := wf_engine.eng_null;
2563: RETURN;
2564: END IF;
2565: -- Set the multi-org context
2558: END IF;
2559: -- Do nothing in cancel or timeout mode
2560: --
2561: IF (funcmode <> wf_engine.eng_run) THEN
2562: resultout := wf_engine.eng_null;
2563: RETURN;
2564: END IF;
2565: -- Set the multi-org context
2566: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2562: resultout := wf_engine.eng_null;
2563: RETURN;
2564: END IF;
2565: -- Set the multi-org context
2566: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2567: IF l_orgid IS NOT NULL THEN
2568: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2569: END IF;
2570: l_doc_id := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2566: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2567: IF l_orgid IS NOT NULL THEN
2568: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2569: END IF;
2570: l_doc_id := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2571: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2572: IF l_doc_type = 'REQUISITION' THEN
2573: UpdtReqItemtype(itemtype,itemkey, l_doc_id);
2574: ELSIF l_doc_type IN ('PO', 'PA') THEN
2567: IF l_orgid IS NOT NULL THEN
2568: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2569: END IF;
2570: l_doc_id := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2571: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2572: IF l_doc_type = 'REQUISITION' THEN
2573: UpdtReqItemtype(itemtype,itemkey, l_doc_id);
2574: ELSIF l_doc_type IN ('PO', 'PA') THEN
2575: UpdtPOItemtype(itemtype,itemkey, l_doc_id );
2576: ELSIF l_doc_type = 'RELEASE' THEN
2577: UpdtRelItemtype(itemtype,itemkey, l_doc_id);
2578: END IF;
2579: --
2580: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2581: --
2582: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 02';
2583: IF (g_po_wf_debug = 'Y') THEN
2584: /* DEBUG */
2619: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2620: END IF;
2621: -- Do nothing in cancel or timeout mode
2622: --
2623: IF (funcmode <> wf_engine.eng_run) THEN
2624: resultout := wf_engine.eng_null;
2625: RETURN;
2626: END IF;
2627: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
2620: END IF;
2621: -- Do nothing in cancel or timeout mode
2622: --
2623: IF (funcmode <> wf_engine.eng_run) THEN
2624: resultout := wf_engine.eng_null;
2625: RETURN;
2626: END IF;
2627: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
2628: /* For one time upgrade of notifications for the client, we want to
2623: IF (funcmode <> wf_engine.eng_run) THEN
2624: resultout := wf_engine.eng_null;
2625: RETURN;
2626: END IF;
2627: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
2628: /* For one time upgrade of notifications for the client, we want to
2629: ** follow a certain path in the workflow. We do not want to go through
2630: ** the VERIFY AUTHORITY path. Therefore, set the RESULT to N
2631: */
2630: ** the VERIFY AUTHORITY path. Therefore, set the RESULT to N
2631: */
2632: IF NVL(l_interface_source,'X') = 'ONE_TIME_UPGRADE' THEN
2633: --
2634: resultout := wf_engine.eng_completed || ':' || 'N';
2635: --
2636: ELSE
2637: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2638: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2633: --
2634: resultout := wf_engine.eng_completed || ':' || 'N';
2635: --
2636: ELSE
2637: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2638: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2639: -- Set the multi-org context
2640: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2641: IF l_orgid IS NOT NULL THEN
2634: resultout := wf_engine.eng_completed || ':' || 'N';
2635: --
2636: ELSE
2637: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2638: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2639: -- Set the multi-org context
2640: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2641: IF l_orgid IS NOT NULL THEN
2642: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2636: ELSE
2637: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2638: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2639: -- Set the multi-org context
2640: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2641: IF l_orgid IS NOT NULL THEN
2642: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2643: END IF;
2644: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
2642: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2643: END IF;
2644: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
2645: --
2646: resultout := wf_engine.eng_completed || ':' || x_CanOwnerApproveFlag ;
2647: --
2648: END IF;
2649: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 02';
2650: IF (g_po_wf_debug = 'Y') THEN
2674: l_submitter_id NUMBER;
2675: l_approver_id NUMBER;
2676:
2677: BEGIN
2678: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2679: itemkey => itemkey,
2680: aname => 'PREPARER_ID');
2681:
2682: l_submitter_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2678: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2679: itemkey => itemkey,
2680: aname => 'PREPARER_ID');
2681:
2682: l_submitter_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2683: itemkey => itemkey,
2684: aname => 'SUBMITTER_ID');
2685:
2686: IF(((l_preparer_id IS NOT NULL) AND (l_submitter_id IS NOT NULL)) AND (l_preparer_id <> l_submitter_id))THEN
2684: aname => 'SUBMITTER_ID');
2685:
2686: IF(((l_preparer_id IS NOT NULL) AND (l_submitter_id IS NOT NULL)) AND (l_preparer_id <> l_submitter_id))THEN
2687:
2688: resultout := wf_engine.eng_completed || ':' || 'N' ;
2689:
2690: ELSE
2691:
2692: resultout := wf_engine.eng_completed || ':' || 'Y' ;
2688: resultout := wf_engine.eng_completed || ':' || 'N' ;
2689:
2690: ELSE
2691:
2692: resultout := wf_engine.eng_completed || ':' || 'Y' ;
2693:
2694: END IF;
2695:
2696: END Is_Submitter_Same_As_Preparer ;
2722: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2723: END IF;
2724: -- Do nothing in cancel or timeout mode
2725: --
2726: IF (funcmode <> wf_engine.eng_run) THEN
2727: resultout := wf_engine.eng_null;
2728: RETURN;
2729: END IF;
2730: /* Bug# 2353153
2723: END IF;
2724: -- Do nothing in cancel or timeout mode
2725: --
2726: IF (funcmode <> wf_engine.eng_run) THEN
2727: resultout := wf_engine.eng_null;
2728: RETURN;
2729: END IF;
2730: /* Bug# 2353153
2731: ** Setting application context
2731: ** Setting application context
2732: */
2733: --Context Setting Revamp
2734: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2735: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2736: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2737: -- Bug 762194: Need to set multi-org context.
2738: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2739: IF l_orgid IS NOT NULL THEN
2732: */
2733: --Context Setting Revamp
2734: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2735: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2736: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2737: -- Bug 762194: Need to set multi-org context.
2738: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2739: IF l_orgid IS NOT NULL THEN
2740: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2734: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2735: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2736: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2737: -- Bug 762194: Need to set multi-org context.
2738: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2739: IF l_orgid IS NOT NULL THEN
2740: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2741: END IF;
2742: IF l_doc_type = 'REQUISITION' THEN
2756: WHERE po_release_id = l_doc_id;
2757: END IF;
2758: IF l_auth_stat = 'PRE-APPROVED' THEN
2759: --
2760: resultout := wf_engine.eng_completed || ':' || 'Y' ;
2761: --
2762: ELSIF l_auth_stat = 'IN PROCESS' THEN
2763: --
2764: resultout := wf_engine.eng_completed || ':' || 'N' ;
2760: resultout := wf_engine.eng_completed || ':' || 'Y' ;
2761: --
2762: ELSIF l_auth_stat = 'IN PROCESS' THEN
2763: --
2764: resultout := wf_engine.eng_completed || ':' || 'N' ;
2765: --
2766: ELSE
2767: -- The doc is either APPROVED, INCOMPLETE or REJECTED. This invalid, therefore
2768: -- we will exit the workflow with an INVALID ACTION status.
2765: --
2766: ELSE
2767: -- The doc is either APPROVED, INCOMPLETE or REJECTED. This invalid, therefore
2768: -- we will exit the workflow with an INVALID ACTION status.
2769: resultout := wf_engine.eng_completed || ':' || 'INVALID_AUTH_STATUS' ;
2770: --
2771: END IF;
2772: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 02' || ' Authorization_status= ' || l_auth_stat ;
2773: IF (g_po_wf_debug = 'Y') THEN
2818: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2819: END IF;
2820: -- Do nothing in cancel or timeout mode
2821: --
2822: IF (funcmode <> wf_engine.eng_run) THEN
2823: resultout := wf_engine.eng_null;
2824: RETURN;
2825: END IF;
2826: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2819: END IF;
2820: -- Do nothing in cancel or timeout mode
2821: --
2822: IF (funcmode <> wf_engine.eng_run) THEN
2823: resultout := wf_engine.eng_null;
2824: RETURN;
2825: END IF;
2826: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2827: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2822: IF (funcmode <> wf_engine.eng_run) THEN
2823: resultout := wf_engine.eng_null;
2824: RETURN;
2825: END IF;
2826: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2827: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2828: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2829: -- Mod Project
2830: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DRAFT_ID');
2823: resultout := wf_engine.eng_null;
2824: RETURN;
2825: END IF;
2826: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2827: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2828: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2829: -- Mod Project
2830: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DRAFT_ID');
2831: IF l_draft_id IS NULL THEN
2824: RETURN;
2825: END IF;
2826: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2827: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2828: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
2829: -- Mod Project
2830: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DRAFT_ID');
2831: IF l_draft_id IS NULL THEN
2832: l_draft_id := -1;
2848: ** Also modified the SetReqHdrAttributes() to also set the
2849: ** PREPARER_USER_NAME and PREPARER_DISPLAY_NAME.
2850: **
2851: */
2852: l_employee_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVER_EMPID');
2853: PO_WF_UTIL_PKG.SetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'SUBMITTER_ID', avalue => l_employee_id);
2854: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2855: -- Set the multi-org context
2856: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2850: **
2851: */
2852: l_employee_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVER_EMPID');
2853: PO_WF_UTIL_PKG.SetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'SUBMITTER_ID', avalue => l_employee_id);
2854: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2855: -- Set the multi-org context
2856: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2857: IF l_orgid IS NOT NULL THEN
2858: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2852: l_employee_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVER_EMPID');
2853: PO_WF_UTIL_PKG.SetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'SUBMITTER_ID', avalue => l_employee_id);
2854: l_note := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'NOTE');
2855: -- Set the multi-org context
2856: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2857: IF l_orgid IS NOT NULL THEN
2858: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2859: END IF;
2860: l_path_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVAL_PATH_ID');
2856: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2857: IF l_orgid IS NOT NULL THEN
2858: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2859: END IF;
2860: l_path_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVAL_PATH_ID');
2861: -- Mod Project; added draft_id to the next proc.
2862: PO_REQAPPROVAL_INIT1.InsertActionHistSubmit(itemtype,itemkey,l_doc_id, l_doc_type, l_doc_subtype, l_employee_id, 'SUBMIT', l_note, l_path_id, l_draft_id);
2863: --
2864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
2860: l_path_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVAL_PATH_ID');
2861: -- Mod Project; added draft_id to the next proc.
2862: PO_REQAPPROVAL_INIT1.InsertActionHistSubmit(itemtype,itemkey,l_doc_id, l_doc_type, l_doc_subtype, l_employee_id, 'SUBMIT', l_note, l_path_id, l_draft_id);
2863: --
2864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
2865: --
2866: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 02';
2867: IF (g_po_wf_debug = 'Y') THEN
2868: /* DEBUG */
2897: IS
2898: BEGIN
2899: -- Do nothing in cancel or timeout mode
2900: --
2901: IF (funcmode <> wf_engine.eng_run) THEN
2902: resultout := wf_engine.eng_null;
2903: RETURN;
2904: END IF;
2905: --
2898: BEGIN
2899: -- Do nothing in cancel or timeout mode
2900: --
2901: IF (funcmode <> wf_engine.eng_run) THEN
2902: resultout := wf_engine.eng_null;
2903: RETURN;
2904: END IF;
2905: --
2906: resultout := wf_engine.eng_completed || ':' || 'PASSED_VERIFICATION' ;
2902: resultout := wf_engine.eng_null;
2903: RETURN;
2904: END IF;
2905: --
2906: resultout := wf_engine.eng_completed || ':' || 'PASSED_VERIFICATION' ;
2907: --
2908: END Set_End_VerifyDoc_Passed;
2909: --
2910: -- Set_End_VerifyDoc_Passed
2927: IS
2928: BEGIN
2929: -- Do nothing in cancel or timeout mode
2930: --
2931: IF (funcmode <> wf_engine.eng_run) THEN
2932: resultout := wf_engine.eng_null;
2933: RETURN;
2934: END IF;
2935: --
2928: BEGIN
2929: -- Do nothing in cancel or timeout mode
2930: --
2931: IF (funcmode <> wf_engine.eng_run) THEN
2932: resultout := wf_engine.eng_null;
2933: RETURN;
2934: END IF;
2935: --
2936: resultout := wf_engine.eng_completed || ':' || 'FAILED_VERIFICATION' ;
2932: resultout := wf_engine.eng_null;
2933: RETURN;
2934: END IF;
2935: --
2936: resultout := wf_engine.eng_completed || ':' || 'FAILED_VERIFICATION' ;
2937: --
2938: END Set_End_VerifyDoc_Failed;
2939: --
2940: -- Set_End_Valid_Action
2958: IS
2959: x_progress VARCHAR2(100);
2960: BEGIN
2961: --
2962: resultout := wf_engine.eng_completed || ':' || 'VALID_ACTION' ;
2963: --
2964: x_progress := 'PO_REQAPPROVAL_INIT1.Set_End_Valid_Action: RESULT=VALID_ACTION';
2965: IF (g_po_wf_debug = 'Y') THEN
2966: /* DEBUG */
2988: resultout OUT NOCOPY VARCHAR2 )
2989: IS
2990: BEGIN
2991: --
2992: resultout := wf_engine.eng_completed || ':' || 'INVALID_ACTION' ;
2993: --
2994: END Set_End_Invalid_Action;
2995: --
2996: -- Is_Interface_ReqImport
3010: resultout OUT NOCOPY VARCHAR2 )
3011: IS
3012: l_interface_source VARCHAR2(25);
3013: BEGIN
3014: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
3015: IF l_interface_source <> 'PO_FORM' THEN
3016: --
3017: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3018: --
3013: BEGIN
3014: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'INTERFACE_SOURCE_CODE');
3015: IF l_interface_source <> 'PO_FORM' THEN
3016: --
3017: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3018: --
3019: ELSE
3020: --
3021: resultout := wf_engine.eng_completed || ':' || 'N' ;
3017: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3018: --
3019: ELSE
3020: --
3021: resultout := wf_engine.eng_completed || ':' || 'N' ;
3022: --
3023: END IF;
3024: END Is_Interface_ReqImport;
3025: --
3046: x_progress VARCHAR2(100);
3047: l_doc_string VARCHAR2(200);
3048: l_preparer_user_name VARCHAR2(100);
3049: BEGIN
3050: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3051: --
3052: -- Get the subtype for doc type other than requisition
3053: IF l_document_type <> 'REQUISITION' THEN
3054: l_document_subtype := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3053: IF l_document_type <> 'REQUISITION' THEN
3054: l_document_subtype := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3055: END IF;
3056: --
3057: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3058: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3059: IF l_orgid IS NOT NULL THEN
3060: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3061: END IF;
3054: l_document_subtype := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3055: END IF;
3056: --
3057: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3058: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3059: IF l_orgid IS NOT NULL THEN
3060: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3061: END IF;
3062: IF ( EncumbOn_DocUnreserved( p_doc_type => l_document_type, p_doc_subtype => l_document_subtype, p_doc_id => l_document_id) = 'Y' ) THEN
3060: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3061: END IF;
3062: IF ( EncumbOn_DocUnreserved( p_doc_type => l_document_type, p_doc_subtype => l_document_subtype, p_doc_id => l_document_id) = 'Y' ) THEN
3063: --
3064: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3065: --
3066: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 01';
3067: IF (g_po_wf_debug = 'Y') THEN
3068: /* DEBUG */
3069: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3070: END IF;
3071: ELSE
3072: --
3073: resultout := wf_engine.eng_completed || ':' || 'N' ;
3074: --
3075: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 02';
3076: IF (g_po_wf_debug = 'Y') THEN
3077: /* DEBUG */
3125: INTO l_reserve_at_compl
3126: FROM financials_system_parameters fsp;
3127: /* <
3128: /* Reserve at completion will be false for CLM document. */
3129: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3130: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3131: IF l_document_type ='REQUISITION' THEN
3132: l_document_type := 'REQ' ;
3133: END IF;
3126: FROM financials_system_parameters fsp;
3127: /* <
3128: /* Reserve at completion will be false for CLM document. */
3129: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3130: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3131: IF l_document_type ='REQUISITION' THEN
3132: l_document_type := 'REQ' ;
3133: END IF;
3134: l_is_clm_doc := po_partial_funding_pkg.Is_clm_document(p_Doc_type => l_document_type, p_Doc_Level_Id => l_document_id) ;
3145: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3146: /*Bug 8520350 - Removing the check on OWNER_CAN_APPROVE.Since the two are not interdependent */
3147: IF ((l_reserve_at_compl = 'N' )) THEN
3148: --
3149: resultout := wf_engine.eng_completed || ':' || 'N' ;
3150: --
3151: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 01';
3152: IF (g_po_wf_debug = 'Y') THEN
3153: /* DEBUG */
3154: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3155: END IF;
3156: ELSE
3157: --
3158: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3159: --
3160: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 02';
3161: IF (g_po_wf_debug = 'Y') THEN
3162: /* DEBUG */
3224: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3225: END IF;
3226: -- Do nothing in cancel or timeout mode
3227: --
3228: IF (funcmode <> wf_engine.eng_run) THEN
3229: resultout := wf_engine.eng_null;
3230: RETURN;
3231: END IF;
3232: /* Bug #: 1384323 draising
3225: END IF;
3226: -- Do nothing in cancel or timeout mode
3227: --
3228: IF (funcmode <> wf_engine.eng_run) THEN
3229: resultout := wf_engine.eng_null;
3230: RETURN;
3231: END IF;
3232: /* Bug #: 1384323 draising
3233: Forward fix of Bug # 1338325
3234: We need to set multi org context by getting it from the
3235: database rather rather than the org id attribute.
3236: */
3237: /*
3238: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3239: itemkey => itemkey,
3240: aname => 'ORG_ID');
3241: IF l_orgid is NOT NULL THEN
3242: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3241: IF l_orgid is NOT NULL THEN
3242: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3243: END IF;
3244: */
3245: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3246: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3247: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3248: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3249: IF l_orgid IS NOT NULL THEN
3242: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3243: END IF;
3244: */
3245: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3246: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3247: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3248: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3249: IF l_orgid IS NOT NULL THEN
3250: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3243: END IF;
3244: */
3245: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3246: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3247: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3248: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3249: IF l_orgid IS NOT NULL THEN
3250: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3251: wf_engine.SetItemAttrNumber (itemtype => itemtype , itemkey => itemkey , aname => 'ORG_ID' , avalue => l_orgid );
3247: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3248: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3249: IF l_orgid IS NOT NULL THEN
3250: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3251: wf_engine.SetItemAttrNumber (itemtype => itemtype , itemkey => itemkey , aname => 'ORG_ID' , avalue => l_orgid );
3252: END IF;
3253: /* End of fix for Bug # 1384323 */
3254: IF l_document_type = 'RELEASE' THEN
3255: l_release_flag := 'Y';
3288: END IF;
3289: IF l_wf_item_key IS NOT NULL THEN
3290: Close_Old_Notif(itemtype, l_wf_item_key);
3291: END IF;
3292: resultout := wf_engine.eng_completed ;
3293: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 02.';
3294: IF (g_po_wf_debug = 'Y') THEN
3295: /* DEBUG */
3296: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3323: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3324: END IF;
3325: -- Do nothing in cancel or timeout mode
3326: --
3327: IF (funcmode <> wf_engine.eng_run) THEN
3328: resultout := wf_engine.eng_null;
3329: RETURN;
3330: END IF;
3331: l_print_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PRINT_DOCUMENT');
3324: END IF;
3325: -- Do nothing in cancel or timeout mode
3326: --
3327: IF (funcmode <> wf_engine.eng_run) THEN
3328: resultout := wf_engine.eng_null;
3329: RETURN;
3330: END IF;
3331: l_print_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PRINT_DOCUMENT');
3332: /* the value of l_print_doc should be Y or N */
3327: IF (funcmode <> wf_engine.eng_run) THEN
3328: resultout := wf_engine.eng_null;
3329: RETURN;
3330: END IF;
3331: l_print_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PRINT_DOCUMENT');
3332: /* the value of l_print_doc should be Y or N */
3333: IF (NVL(l_print_doc,'N') <> 'Y') THEN
3334: l_print_doc := 'N';
3335: END IF;
3333: IF (NVL(l_print_doc,'N') <> 'Y') THEN
3334: l_print_doc := 'N';
3335: END IF;
3336: --
3337: resultout := wf_engine.eng_completed || ':' || l_print_doc ;
3338: --
3339: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 02. Result= ' || l_print_doc;
3340: IF (g_po_wf_debug = 'Y') THEN
3341: /* DEBUG */
3370: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3371: END IF;
3372: -- Do nothing in cancel or timeout mode
3373: --
3374: IF (funcmode <> wf_engine.eng_run) THEN
3375: resultout := wf_engine.eng_null;
3376: RETURN;
3377: END IF;
3378: l_fax_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT');
3371: END IF;
3372: -- Do nothing in cancel or timeout mode
3373: --
3374: IF (funcmode <> wf_engine.eng_run) THEN
3375: resultout := wf_engine.eng_null;
3376: RETURN;
3377: END IF;
3378: l_fax_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT');
3379: /* the value of l_fax_doc should be Y or N */
3374: IF (funcmode <> wf_engine.eng_run) THEN
3375: resultout := wf_engine.eng_null;
3376: RETURN;
3377: END IF;
3378: l_fax_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT');
3379: /* the value of l_fax_doc should be Y or N */
3380: IF (NVL(l_fax_doc,'N') <> 'Y') THEN
3381: l_fax_doc := 'N';
3382: END IF;
3380: IF (NVL(l_fax_doc,'N') <> 'Y') THEN
3381: l_fax_doc := 'N';
3382: END IF;
3383: --
3384: resultout := wf_engine.eng_completed || ':' || l_fax_doc ;
3385: --
3386: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 02. Result= ' || l_fax_doc;
3387: IF (g_po_wf_debug = 'Y') THEN
3388: /* DEBUG */
3421: /* DEBUG */
3422: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3423: END IF;
3424: -- Do nothing in cancel or timeout mode
3425: IF (funcmode <> wf_engine.eng_run) THEN
3426: resultout := wf_engine.eng_null;
3427: RETURN;
3428: END IF;
3429: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3422: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3423: END IF;
3424: -- Do nothing in cancel or timeout mode
3425: IF (funcmode <> wf_engine.eng_run) THEN
3426: resultout := wf_engine.eng_null;
3427: RETURN;
3428: END IF;
3429: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3430: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
3425: IF (funcmode <> wf_engine.eng_run) THEN
3426: resultout := wf_engine.eng_null;
3427: RETURN;
3428: END IF;
3429: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3430: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
3431: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
3432: l_appl_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
3433: /* Since the call may be started from background engine (new seesion),
3426: resultout := wf_engine.eng_null;
3427: RETURN;
3428: END IF;
3429: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3430: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
3431: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
3432: l_appl_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
3433: /* Since the call may be started from background engine (new seesion),
3434: * need to ensure the fnd context is correct
3427: RETURN;
3428: END IF;
3429: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3430: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
3431: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
3432: l_appl_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
3433: /* Since the call may be started from background engine (new seesion),
3434: * need to ensure the fnd context is correct
3435: */
3428: END IF;
3429: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3430: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
3431: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
3432: l_appl_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
3433: /* Since the call may be started from background engine (new seesion),
3434: * need to ensure the fnd context is correct
3435: */
3436: --Context Setting Revamp
3442: IF l_orgid IS NOT NULL THEN
3443: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3444: END IF;
3445: -- end if;
3446: l_create_sr_asl := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CREATE_SOURCING_RULE');
3447: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3448: l_document_subtype := wf_engine.GetItemAttrText (itemtype =>itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3449: /* the value of CREATE_SOURCING_RULE should be Y or N */
3450: IF (NVL(l_create_sr_asl,'N') <> 'Y') THEN
3443: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3444: END IF;
3445: -- end if;
3446: l_create_sr_asl := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CREATE_SOURCING_RULE');
3447: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3448: l_document_subtype := wf_engine.GetItemAttrText (itemtype =>itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3449: /* the value of CREATE_SOURCING_RULE should be Y or N */
3450: IF (NVL(l_create_sr_asl,'N') <> 'Y') THEN
3451: l_create_sr_asl := 'N';
3444: END IF;
3445: -- end if;
3446: l_create_sr_asl := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CREATE_SOURCING_RULE');
3447: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3448: l_document_subtype := wf_engine.GetItemAttrText (itemtype =>itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3449: /* the value of CREATE_SOURCING_RULE should be Y or N */
3450: IF (NVL(l_create_sr_asl,'N') <> 'Y') THEN
3451: l_create_sr_asl := 'N';
3452: ELSE
3459: ELSE
3460: l_create_sr_asl := 'N';
3461: END IF;
3462: END IF;
3463: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
3464: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 02. Result= ' || l_create_sr_asl;
3465: IF (g_po_wf_debug = 'Y') THEN
3466: /* DEBUG */
3467: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3468: END IF;
3469: EXCEPTION
3470: WHEN OTHERS THEN
3471: l_create_sr_asl := 'N';
3472: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
3473: END Create_SR_ASL_Yes_No;
3474: -- DKC 10/10/99
3475: PROCEDURE Send_WS_Notif_Yes_No
3476: (
3496: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3497: END IF;
3498: -- Do nothing in cancel or timeout mode
3499: --
3500: IF (funcmode <> wf_engine.eng_run) THEN
3501: resultout := wf_engine.eng_null;
3502: RETURN;
3503: END IF;
3504: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3497: END IF;
3498: -- Do nothing in cancel or timeout mode
3499: --
3500: IF (funcmode <> wf_engine.eng_run) THEN
3501: resultout := wf_engine.eng_null;
3502: RETURN;
3503: END IF;
3504: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3505: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3500: IF (funcmode <> wf_engine.eng_run) THEN
3501: resultout := wf_engine.eng_null;
3502: RETURN;
3503: END IF;
3504: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3505: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3506: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3507: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, l_notifier);
3508: IF (l_notifier IS NOT NULL) THEN
3501: resultout := wf_engine.eng_null;
3502: RETURN;
3503: END IF;
3504: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3505: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3506: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3507: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, l_notifier);
3508: IF (l_notifier IS NOT NULL) THEN
3509: l_send_notif := 'Y';
3502: RETURN;
3503: END IF;
3504: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3505: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3506: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3507: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, l_notifier);
3508: IF (l_notifier IS NOT NULL) THEN
3509: l_send_notif := 'Y';
3510: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3508: IF (l_notifier IS NOT NULL) THEN
3509: l_send_notif := 'Y';
3510: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3511: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
3512: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_NOTIF_PERFORMER', avalue => l_notifier);
3513: ELSE
3514: l_send_notif := 'N';
3515: END IF;
3516: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3512: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_NOTIF_PERFORMER', avalue => l_notifier);
3513: ELSE
3514: l_send_notif := 'N';
3515: END IF;
3516: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3517: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 02. Result= ' || l_send_notif;
3518: IF (g_po_wf_debug = 'Y') THEN
3519: /* DEBUG */
3520: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3557: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3558: END IF;
3559: -- Do nothing in cancel or timeout mode
3560: --
3561: IF (funcmode <> wf_engine.eng_run) THEN
3562: resultout := wf_engine.eng_null;
3563: RETURN;
3564: END IF;
3565: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3558: END IF;
3559: -- Do nothing in cancel or timeout mode
3560: --
3561: IF (funcmode <> wf_engine.eng_run) THEN
3562: resultout := wf_engine.eng_null;
3563: RETURN;
3564: END IF;
3565: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3566: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3561: IF (funcmode <> wf_engine.eng_run) THEN
3562: resultout := wf_engine.eng_null;
3563: RETURN;
3564: END IF;
3565: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3566: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3567: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3568: -- BINDING FPJ START
3569: IF ((l_document_type <> 'RELEASE') AND l_document_subtype IN ('STANDARD','BLANKET','CONTRACT')) THEN
3562: resultout := wf_engine.eng_null;
3563: RETURN;
3564: END IF;
3565: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3566: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3567: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3568: -- BINDING FPJ START
3569: IF ((l_document_type <> 'RELEASE') AND l_document_subtype IN ('STANDARD','BLANKET','CONTRACT')) THEN
3570: SELECT acceptance_required_flag
3563: RETURN;
3564: END IF;
3565: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3566: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3567: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3568: -- BINDING FPJ START
3569: IF ((l_document_type <> 'RELEASE') AND l_document_subtype IN ('STANDARD','BLANKET','CONTRACT')) THEN
3570: SELECT acceptance_required_flag
3571: INTO l_acceptance_flag
3583: IF (l_notifier IS NOT NULL) THEN
3584: l_send_notif := 'Y';
3585: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3586: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
3587: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_NOTIF_PERFORMER', avalue => l_notifier);
3588: ELSE
3589: l_send_notif := 'N';
3590: END IF;
3591: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER', avalue => l_notifier_resp);
3587: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_NOTIF_PERFORMER', avalue => l_notifier);
3588: ELSE
3589: l_send_notif := 'N';
3590: END IF;
3591: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER', avalue => l_notifier_resp);
3592: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3593: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 02. Result= ' || l_send_notif;
3594: IF (g_po_wf_debug = 'Y') THEN
3595: /* DEBUG */
3588: ELSE
3589: l_send_notif := 'N';
3590: END IF;
3591: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER', avalue => l_notifier_resp);
3592: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3593: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 02. Result= ' || l_send_notif;
3594: IF (g_po_wf_debug = 'Y') THEN
3595: /* DEBUG */
3596: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3630: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3631: END IF;
3632: -- Do nothing in cancel or timeout mode
3633: --
3634: IF (funcmode <> wf_engine.eng_run) THEN
3635: resultout := wf_engine.eng_null;
3636: RETURN;
3637: END IF;
3638: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3631: END IF;
3632: -- Do nothing in cancel or timeout mode
3633: --
3634: IF (funcmode <> wf_engine.eng_run) THEN
3635: resultout := wf_engine.eng_null;
3636: RETURN;
3637: END IF;
3638: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3639: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3634: IF (funcmode <> wf_engine.eng_run) THEN
3635: resultout := wf_engine.eng_null;
3636: RETURN;
3637: END IF;
3638: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3639: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3640: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3641: l_notifier :=wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER');
3642: IF (l_notifier IS NOT NULL) THEN
3635: resultout := wf_engine.eng_null;
3636: RETURN;
3637: END IF;
3638: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3639: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3640: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3641: l_notifier :=wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER');
3642: IF (l_notifier IS NOT NULL) THEN
3643: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3636: RETURN;
3637: END IF;
3638: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3639: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3640: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3641: l_notifier :=wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER');
3642: IF (l_notifier IS NOT NULL) THEN
3643: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3644: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
3637: END IF;
3638: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3639: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3640: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3641: l_notifier :=wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER');
3642: IF (l_notifier IS NOT NULL) THEN
3643: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3644: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
3645: l_send_notif := 'Y';
3645: l_send_notif := 'Y';
3646: ELSE
3647: l_send_notif := 'N';
3648: END IF;
3649: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3650: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 02. Result= ' || l_send_notif;
3651: IF (g_po_wf_debug = 'Y') THEN
3652: /* DEBUG */
3653: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3911: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3912: END IF;
3913: -- Do nothing in cancel or timeout mode
3914: --
3915: IF (funcmode <> wf_engine.eng_run) THEN
3916: resultout := wf_engine.eng_null;
3917: RETURN;
3918: END IF;
3919: /* Bug 2687751.
3912: END IF;
3913: -- Do nothing in cancel or timeout mode
3914: --
3915: IF (funcmode <> wf_engine.eng_run) THEN
3916: resultout := wf_engine.eng_null;
3917: RETURN;
3918: END IF;
3919: /* Bug 2687751.
3920: * For blankets, the org context was not getting set and hence
3920: * For blankets, the org context was not getting set and hence
3921: * sql query which selecs vendor_site_id below from po_vendor_sites
3922: * was throwing an exception. Hence setting the org context here.
3923: */
3924: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
3925: IF l_orgid IS NOT NULL THEN
3926: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3927: END IF;
3928: x_progress := '001';
3926: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3927: END IF;
3928: x_progress := '001';
3929: -- Create the attribute email document
3930: l_email_doc := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_DOCUMENT');
3931: -- the value of l_email_doc should be Y or N
3932: IF (NVL(l_email_doc,'N') <> 'Y') THEN
3933: l_email_doc := 'N';
3934: END IF;
3933: l_email_doc := 'N';
3934: END IF;
3935: -- Here, we are creating an entry in wf_local_users and assigning that to the email performer
3936: IF (l_email_doc = 'Y') THEN
3937: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3938: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3939: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3940: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADDRESS');
3941: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
3934: END IF;
3935: -- Here, we are creating an entry in wf_local_users and assigning that to the email performer
3936: IF (l_email_doc = 'Y') THEN
3937: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3938: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3939: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3940: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADDRESS');
3941: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
3942: IF (l_document_type IN ('PO', 'PA')) THEN
3935: -- Here, we are creating an entry in wf_local_users and assigning that to the email performer
3936: IF (l_email_doc = 'Y') THEN
3937: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3938: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3939: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3940: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADDRESS');
3941: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
3942: IF (l_document_type IN ('PO', 'PA')) THEN
3943: l_po_header_id := l_document_id;
3936: IF (l_email_doc = 'Y') THEN
3937: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3938: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3939: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3940: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADDRESS');
3941: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
3942: IF (l_document_type IN ('PO', 'PA')) THEN
3943: l_po_header_id := l_document_id;
3944: elsif (l_document_type = 'RELEASE') THEN
3937: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3938: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3939: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3940: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADDRESS');
3941: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
3942: IF (l_document_type IN ('PO', 'PA')) THEN
3943: l_po_header_id := l_document_id;
3944: elsif (l_document_type = 'RELEASE') THEN
3945: SELECT po_header_id
4017: END IF;
4018: /* End Bug 9108606 */
4019: /*Begin Bug 9283386 Setting DOCUMENT_DISPLAY_NAME in l_lang_code*/
4020: l_doc_display_name := PO_DOC_STYLE_PVT.GET_STYLE_DISPLAY_NAME(l_po_header_id,l_lang_code);
4021: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_DISPLAY_NAME', avalue => l_doc_display_name);
4022: l_doc_display_name:=wf_engine.getItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_DISPLAY_NAME');
4023: /*End Bug 9283386*/
4024: /* Bug 2989951. AdHocUser Name should be concatenation of the E-mail Address and the language */
4025: l_po_email_performer := l_po_email_add||'.'||l_adhocuser_lang;
4018: /* End Bug 9108606 */
4019: /*Begin Bug 9283386 Setting DOCUMENT_DISPLAY_NAME in l_lang_code*/
4020: l_doc_display_name := PO_DOC_STYLE_PVT.GET_STYLE_DISPLAY_NAME(l_po_header_id,l_lang_code);
4021: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_DISPLAY_NAME', avalue => l_doc_display_name);
4022: l_doc_display_name:=wf_engine.getItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_DISPLAY_NAME');
4023: /*End Bug 9283386*/
4024: /* Bug 2989951. AdHocUser Name should be concatenation of the E-mail Address and the language */
4025: l_po_email_performer := l_po_email_add||'.'||l_adhocuser_lang;
4026: l_po_email_performer := upper(l_po_email_performer);
4043: WF_DIRECTORY.CreateAdHocUser(l_po_email_performer, l_display_name, l_adhocuser_lang, l_adhocuser_territory, NULL, l_notification_preference, l_po_email_add, NULL, 'ACTIVE', NULL);
4044: ELSE
4045: WF_DIRECTORY.SETADHOCUSERATTR(l_po_email_performer, l_display_name, l_notification_preference, l_adhocuser_lang, l_adhocuser_territory, l_po_email_add, NULL);
4046: END IF;
4047: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_EMAIL_PERFORMER', avalue => l_po_email_performer);
4048: /* set the performer from thr profilr to send the second email */
4049: /* Bug 2989951. Secondary AdHocUser Name should be concatenation of the Secondary E-mail Address and the language
4050: l_po_email_performer_prof := 'PO_SECONDRY_EMAIL_ADD';
4051: l_display_name_prof := 'PO_SECONDRY_EMAIL_ADD'; */
4070: ELSE
4071: WF_DIRECTORY.SETADHOCUSERATTR(l_po_email_performer_prof, l_display_name_prof, l_notification_preference, l_adhocuser_lang, l_adhocuser_territory, l_po_email_add_prof, NULL);
4072: END IF;
4073: --EMAILPO FPH END--
4074: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_EMAIL_PERFORMER2', avalue => l_po_email_performer_prof);
4075: x_progress := '005';
4076: -- bug 4727400 : updates need to autonomous, PA needs to be take care of.
4077: update_print_count(l_document_id,l_document_type);
4078: --Bug#2843760: Moved portion of code which does the PO archiving to internal procedure ARCHIVE_PO
4077: update_print_count(l_document_id,l_document_type);
4078: --Bug#2843760: Moved portion of code which does the PO archiving to internal procedure ARCHIVE_PO
4079: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
4080: END IF;
4081: resultout := wf_engine.eng_completed || ':' || l_email_doc ;
4082: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 02. Result= ' || l_email_doc;
4083: IF (g_po_wf_debug = 'Y') THEN
4084: /* DEBUG */
4085: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4083: IF (g_po_wf_debug = 'Y') THEN
4084: /* DEBUG */
4085: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4086: END IF;
4087: -- resultout := wf_engine.eng_completed || ':' || 'Y' ;
4088: EXCEPTION
4089: WHEN OTHERS THEN
4090: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4091: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4118: END IF;
4119: -- Do nothing in cancel or timeout mode
4120: --
4121: IF (funcmode <> wf_engine.eng_run) THEN
4122: resultout := wf_engine.eng_null;
4123: RETURN;
4124: END IF;
4125: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4118: END IF;
4119: -- Do nothing in cancel or timeout mode
4120: --
4121: IF (funcmode <> wf_engine.eng_run) THEN
4122: resultout := wf_engine.eng_null;
4123: RETURN;
4124: END IF;
4125: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4126: IF l_orgid IS NOT NULL THEN
4121: IF (funcmode <> wf_engine.eng_run) THEN
4122: resultout := wf_engine.eng_null;
4123: RETURN;
4124: END IF;
4125: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4126: IF l_orgid IS NOT NULL THEN
4127: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4128: END IF;
4129: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 02';
4128: END IF;
4129: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 02';
4130: PrintDocument(itemtype,itemkey);
4131: --
4132: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4133: --
4134: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4135: EXCEPTION
4136: WHEN OTHERS THEN
4162: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4163: END IF;
4164: -- Do nothing in cancel or timeout mode
4165: --
4166: IF (funcmode <> wf_engine.eng_run) THEN
4167: resultout := wf_engine.eng_null;
4168: RETURN;
4169: END IF;
4170: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4163: END IF;
4164: -- Do nothing in cancel or timeout mode
4165: --
4166: IF (funcmode <> wf_engine.eng_run) THEN
4167: resultout := wf_engine.eng_null;
4168: RETURN;
4169: END IF;
4170: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4171: IF l_orgid IS NOT NULL THEN
4166: IF (funcmode <> wf_engine.eng_run) THEN
4167: resultout := wf_engine.eng_null;
4168: RETURN;
4169: END IF;
4170: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4171: IF l_orgid IS NOT NULL THEN
4172: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4173: END IF;
4174: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 02';
4173: END IF;
4174: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 02';
4175: FaxDocument(itemtype,itemkey);
4176: --
4177: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4178: --
4179: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4180: EXCEPTION
4181: WHEN OTHERS THEN
4217: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4218: END IF;
4219: -- Do nothing in cancel or timeout mode
4220: --
4221: IF (funcmode <> wf_engine.eng_run) THEN
4222: resultout := wf_engine.eng_null;
4223: RETURN;
4224: END IF;
4225: /* Bug# 2377333
4218: END IF;
4219: -- Do nothing in cancel or timeout mode
4220: --
4221: IF (funcmode <> wf_engine.eng_run) THEN
4222: resultout := wf_engine.eng_null;
4223: RETURN;
4224: END IF;
4225: /* Bug# 2377333
4226: ** Setting application context
4226: ** Setting application context
4227: */
4228: --Context Setting Revamp
4229: --PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey);
4230: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4231: IF l_orgid IS NOT NULL THEN
4232: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4233: END IF;
4234: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
4230: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4231: IF l_orgid IS NOT NULL THEN
4232: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4233: END IF;
4234: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
4235: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
4236: IF l_doc_type ='REQUISITION' THEN
4237: x_progress := '002';
4238: SELECT NVL(authorization_status, 'INCOMPLETE')
4231: IF l_orgid IS NOT NULL THEN
4232: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4233: END IF;
4234: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
4235: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
4236: IF l_doc_type ='REQUISITION' THEN
4237: x_progress := '002';
4238: SELECT NVL(authorization_status, 'INCOMPLETE')
4239: INTO l_auth_stat
4252: FROM PO_RELEASES
4253: WHERE po_release_id = l_doc_id;
4254: END IF;
4255: IF l_auth_stat = 'APPROVED' THEN
4256: resultout := wf_engine.eng_completed || ':' || 'Y' ;
4257: x_resultout := 'Y';
4258: ELSE
4259: resultout := wf_engine.eng_completed || ':' || 'N';
4260: x_resultout := 'N';
4255: IF l_auth_stat = 'APPROVED' THEN
4256: resultout := wf_engine.eng_completed || ':' || 'Y' ;
4257: x_resultout := 'Y';
4258: ELSE
4259: resultout := wf_engine.eng_completed || ':' || 'N';
4260: x_resultout := 'N';
4261: END IF;
4262: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 02. Result=' || x_resultout;
4263: IF (g_po_wf_debug = 'Y') THEN
4297: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4298: END IF;
4299: -- Do nothing in cancel or timeout mode
4300: --
4301: IF (funcmode <> wf_engine.eng_run) THEN
4302: resultout := wf_engine.eng_null;
4303: RETURN;
4304: END IF;
4305: l_create_po_mode := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'SEND_CREATEPO_TO_BACKGROUND');
4298: END IF;
4299: -- Do nothing in cancel or timeout mode
4300: --
4301: IF (funcmode <> wf_engine.eng_run) THEN
4302: resultout := wf_engine.eng_null;
4303: RETURN;
4304: END IF;
4305: l_create_po_mode := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'SEND_CREATEPO_TO_BACKGROUND');
4306: /* Bug 678291 by dkfchan
4301: IF (funcmode <> wf_engine.eng_run) THEN
4302: resultout := wf_engine.eng_null;
4303: RETURN;
4304: END IF;
4305: l_create_po_mode := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'SEND_CREATEPO_TO_BACKGROUND');
4306: /* Bug 678291 by dkfchan
4307: ** if the approval mode is background, set the result to 'BACKGROUD'
4308: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
4309: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
4304: END IF;
4305: l_create_po_mode := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'SEND_CREATEPO_TO_BACKGROUND');
4306: /* Bug 678291 by dkfchan
4307: ** if the approval mode is background, set the result to 'BACKGROUD'
4308: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
4309: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
4310: */
4311: IF NVL(l_create_po_mode,'N') = 'Y' THEN
4312: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4308: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
4309: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
4310: */
4311: IF NVL(l_create_po_mode,'N') = 'Y' THEN
4312: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4313: ELSE
4314: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
4315: END IF;
4316: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: ' || 'Create PO Mode= ' || l_create_po_mode;
4310: */
4311: IF NVL(l_create_po_mode,'N') = 'Y' THEN
4312: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4313: ELSE
4314: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
4315: END IF;
4316: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: ' || 'Create PO Mode= ' || l_create_po_mode;
4317: IF (g_po_wf_debug = 'Y') THEN
4318: /* DEBUG */
4353: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4354: END IF;
4355: -- Do nothing in cancel or timeout mode
4356: --
4357: IF (funcmode <> wf_engine.eng_run) THEN
4358: resultout := wf_engine.eng_null;
4359: RETURN;
4360: END IF;
4361: fnd_profile.get('PO_WORKFLOW_APPROVAL_MODE', l_approval_mode);
4354: END IF;
4355: -- Do nothing in cancel or timeout mode
4356: --
4357: IF (funcmode <> wf_engine.eng_run) THEN
4358: resultout := wf_engine.eng_null;
4359: RETURN;
4360: END IF;
4361: fnd_profile.get('PO_WORKFLOW_APPROVAL_MODE', l_approval_mode);
4362: /* Bug 678291 by dkfchan
4360: END IF;
4361: fnd_profile.get('PO_WORKFLOW_APPROVAL_MODE', l_approval_mode);
4362: /* Bug 678291 by dkfchan
4363: ** if the approval mode is background, set the result to 'BACKGROUD'
4364: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
4365: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
4366: */
4367: IF l_approval_mode = 'BACKGROUND' OR l_approval_mode IS NULL THEN
4368: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4364: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
4365: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
4366: */
4367: IF l_approval_mode = 'BACKGROUND' OR l_approval_mode IS NULL THEN
4368: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4369: ELSE
4370: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
4371: END IF;
4372: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: ' || 'Approval Mode= ' || l_approval_mode;
4366: */
4367: IF l_approval_mode = 'BACKGROUND' OR l_approval_mode IS NULL THEN
4368: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4369: ELSE
4370: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
4371: END IF;
4372: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: ' || 'Approval Mode= ' || l_approval_mode;
4373: IF (g_po_wf_debug = 'Y') THEN
4374: /* DEBUG */
4717: IF (g_po_wf_debug = 'Y') THEN
4718: /* DEBUG */
4719: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4720: END IF;
4721: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_NUMBER', avalue => ReqHdr_rec.segment1);
4722: --
4723: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DOCUMENT_ID', avalue => ReqHdr_rec.requisition_header_id);
4724: --
4725: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_ID', avalue => ReqHdr_rec.preparer_id);
4719: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4720: END IF;
4721: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_NUMBER', avalue => ReqHdr_rec.segment1);
4722: --
4723: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DOCUMENT_ID', avalue => ReqHdr_rec.requisition_header_id);
4724: --
4725: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_ID', avalue => ReqHdr_rec.preparer_id);
4726: --
4727: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => ReqHdr_rec.authorization_status);
4721: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_NUMBER', avalue => ReqHdr_rec.segment1);
4722: --
4723: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DOCUMENT_ID', avalue => ReqHdr_rec.requisition_header_id);
4724: --
4725: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_ID', avalue => ReqHdr_rec.preparer_id);
4726: --
4727: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => ReqHdr_rec.authorization_status);
4728: --
4729: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_DESCRIPTION', avalue => ReqHdr_rec.description);
4723: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DOCUMENT_ID', avalue => ReqHdr_rec.requisition_header_id);
4724: --
4725: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_ID', avalue => ReqHdr_rec.preparer_id);
4726: --
4727: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => ReqHdr_rec.authorization_status);
4728: --
4729: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_DESCRIPTION', avalue => ReqHdr_rec.description);
4730: --
4731: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE', avalue => ReqHdr_rec.closed_code);
4725: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_ID', avalue => ReqHdr_rec.preparer_id);
4726: --
4727: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => ReqHdr_rec.authorization_status);
4728: --
4729: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_DESCRIPTION', avalue => ReqHdr_rec.description);
4730: --
4731: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE', avalue => ReqHdr_rec.closed_code);
4732: --
4733: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'EMERGENCY_PO_NUMBER', avalue => ReqHdr_rec.emergency_po_num);
4727: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => ReqHdr_rec.authorization_status);
4728: --
4729: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_DESCRIPTION', avalue => ReqHdr_rec.description);
4730: --
4731: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE', avalue => ReqHdr_rec.closed_code);
4732: --
4733: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'EMERGENCY_PO_NUMBER', avalue => ReqHdr_rec.emergency_po_num);
4734: --
4735: -- Bug#3147435
4729: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_DESCRIPTION', avalue => ReqHdr_rec.description);
4730: --
4731: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE', avalue => ReqHdr_rec.closed_code);
4732: --
4733: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'EMERGENCY_PO_NUMBER', avalue => ReqHdr_rec.emergency_po_num);
4734: --
4735: -- Bug#3147435
4736: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 02 Start of Hdr Att for JRAD';
4737: IF (g_po_wf_debug = 'Y') THEN
4753: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4754: END IF;
4755: /* Bug 1100247 Amitabh*/
4756: PO_REQAPPROVAL_INIT1.get_user_name(ReqHdr_rec.preparer_id, x_username, x_user_display_name);
4757: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_USER_NAME' , avalue => x_username);
4758: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_DISPLAY_NAME' , avalue => x_user_display_name);
4759: /* Get the translated values for the DOC_TYPE, DOC_SUBTYPE, AUTH_STATUS and
4760: ** CLOSED_CODE. These will be displayed in the notifications.
4761: */
4754: END IF;
4755: /* Bug 1100247 Amitabh*/
4756: PO_REQAPPROVAL_INIT1.get_user_name(ReqHdr_rec.preparer_id, x_username, x_user_display_name);
4757: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_USER_NAME' , avalue => x_username);
4758: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_DISPLAY_NAME' , avalue => x_user_display_name);
4759: /* Get the translated values for the DOC_TYPE, DOC_SUBTYPE, AUTH_STATUS and
4760: ** CLOSED_CODE. These will be displayed in the notifications.
4761: */
4762: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
4758: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_DISPLAY_NAME' , avalue => x_user_display_name);
4759: /* Get the translated values for the DOC_TYPE, DOC_SUBTYPE, AUTH_STATUS and
4760: ** CLOSED_CODE. These will be displayed in the notifications.
4761: */
4762: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
4763: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
4764: OPEN C1(ReqHdr_rec.authorization_status);
4765: FETCH C1 INTO l_auth_stat;
4766:
4759: /* Get the translated values for the DOC_TYPE, DOC_SUBTYPE, AUTH_STATUS and
4760: ** CLOSED_CODE. These will be displayed in the notifications.
4761: */
4762: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
4763: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
4764: OPEN C1(ReqHdr_rec.authorization_status);
4765: FETCH C1 INTO l_auth_stat;
4766:
4767: CLOSE C1;
4779: FETCH C4 into l_doc_subtype_disp;
4780: CLOSE C4;
4781: */
4782: -- MIPR changes
4783: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
4784:
4785: OPEN mipr_csr(l_doc_id);
4786: FETCH mipr_csr INTO l_clm_mipr_type;
4787: CLOSE mipr_csr;
4788:
4789: --
4790: --PR Amendment
4791: l_is_amendment_approval := PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>itemtype, itemkey=>itemkey, aname=>'IS_AMENDMENT_APPROVAL');
4792: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS_DISP', avalue => l_auth_stat);
4793: --
4794: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE_DISP', avalue => l_closed_code);
4795: --
4796: IF l_clm_mipr_type IS NOT NULL THEN
4790: --PR Amendment
4791: l_is_amendment_approval := PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>itemtype, itemkey=>itemkey, aname=>'IS_AMENDMENT_APPROVAL');
4792: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS_DISP', avalue => l_auth_stat);
4793: --
4794: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE_DISP', avalue => l_closed_code);
4795: --
4796: IF l_clm_mipr_type IS NOT NULL THEN
4797: l_mipr_type_disp := fnd_message.get_string('ICX','ICX_CLM_MIPR') || l_clm_mipr_type;
4798: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP', avalue => l_mipr_type_disp);
4794: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CLOSED_CODE_DISP', avalue => l_closed_code);
4795: --
4796: IF l_clm_mipr_type IS NOT NULL THEN
4797: l_mipr_type_disp := fnd_message.get_string('ICX','ICX_CLM_MIPR') || l_clm_mipr_type;
4798: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP', avalue => l_mipr_type_disp);
4799: ELSE
4800: IF(l_is_amendment_approval <> 'Y') THEN
4801: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP', avalue => l_doc_type_disp);
4802: ELSE
4797: l_mipr_type_disp := fnd_message.get_string('ICX','ICX_CLM_MIPR') || l_clm_mipr_type;
4798: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP', avalue => l_mipr_type_disp);
4799: ELSE
4800: IF(l_is_amendment_approval <> 'Y') THEN
4801: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP', avalue => l_doc_type_disp);
4802: ELSE
4803: --Bug # 13626231
4804: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP',
4805: avalue => fnd_message.get_string('PO','PO_DOC_REQ_AMENDMENT'));
4800: IF(l_is_amendment_approval <> 'Y') THEN
4801: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP', avalue => l_doc_type_disp);
4802: ELSE
4803: --Bug # 13626231
4804: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE_DISP',
4805: avalue => fnd_message.get_string('PO','PO_DOC_REQ_AMENDMENT'));
4806: END IF;
4807: END IF;
4808:
4811: ** Desc: We will only be using one display attribute for type and
4812: ** subtype - DOCUMENT_TYPE_DISP, hence commenting the code below
4813: */
4814: /*
4815: wf_engine.SetItemAttrText ( itemtype => itemtype,
4816: itemkey => itemkey,
4817: aname => 'DOCUMENT_SUBTYPE_DISP',
4818: avalue => l_doc_subtype_disp);
4819: */
4816: itemkey => itemkey,
4817: aname => 'DOCUMENT_SUBTYPE_DISP',
4818: avalue => l_doc_subtype_disp);
4819: */
4820: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
4821: l_currency_code := PO_CORE_S2.get_base_currency;
4822: /*Start Bug#3406460 - call to fnd function to get precision */
4823: fnd_currency.get_info(l_currency_code, l_precision, l_ext_precision, l_min_acct_unit);
4824: /* End Bug#3406460*/
4830: ** will show the total in the BASE/FUNCTIONAL currency.
4831: ** For POs, we will show it in the Document currency specified by the user.
4832: */
4833: l_req_amount_disp := TO_CHAR(l_req_amount,FND_CURRENCY.GET_FORMAT_MASK( l_currency_code, g_currency_format_mask));
4834: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'FUNCTIONAL_CURRENCY', avalue => l_currency_code);
4835: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_AMOUNT_DSP', avalue => l_req_amount_disp);
4836: --Modified by Eric Ma for IL PO Notification on Apr-13,2009,Begin
4837: ---------------------------------------------------------------------------
4838: --get tax region
4831: ** For POs, we will show it in the Document currency specified by the user.
4832: */
4833: l_req_amount_disp := TO_CHAR(l_req_amount,FND_CURRENCY.GET_FORMAT_MASK( l_currency_code, g_currency_format_mask));
4834: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'FUNCTIONAL_CURRENCY', avalue => l_currency_code);
4835: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'REQ_AMOUNT_DSP', avalue => l_req_amount_disp);
4836: --Modified by Eric Ma for IL PO Notification on Apr-13,2009,Begin
4837: ---------------------------------------------------------------------------
4838: --get tax region
4839: lv_tax_region := JAI_PO_WF_UTIL_PUB.get_tax_region ( pv_document_type => JAI_PO_WF_UTIL_PUB.G_REQ_DOC_TYPE , pn_document_id => l_doc_id );
4849: END IF; --(lv_tax_region ='JAI')
4850: ---------------------------------------------------------------------------
4851: --Modified by Eric Ma for IL PO Notification on Apr-13,2009,End
4852: l_tax_amount_disp := TO_CHAR(l_tax_amount,FND_CURRENCY.GET_FORMAT_MASK( l_currency_code, g_currency_format_mask));
4853: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'TAX_AMOUNT_DSP', avalue => l_tax_amount_disp);
4854: l_total_amount := l_req_amount + l_tax_amount;
4855: l_total_amount_disp := TO_CHAR(l_total_amount,FND_CURRENCY.GET_FORMAT_MASK( l_currency_code, g_currency_format_mask));
4856: /* bug 3105327
4857: support approval currency in notification header and subject
5222: l_document_subtype VARCHAR2(25);
5223: x_progress VARCHAR2(3):= '000';
5224: BEGIN
5225: x_progress := '001';
5226: l_document_type_code := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
5227: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
5228: OPEN C1(l_document_type_code, l_document_subtype);
5229: FETCH C1 INTO CanOwnerApproveFlag;
5230:
5223: x_progress VARCHAR2(3):= '000';
5224: BEGIN
5225: x_progress := '001';
5226: l_document_type_code := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
5227: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
5228: OPEN C1(l_document_type_code, l_document_subtype);
5229: FETCH C1 INTO CanOwnerApproveFlag;
5230:
5231: CLOSE C1;
5796: 'USER_ID', l_user_id
5797: )
5798: ;
5799: -- Send the concurrent request to print document.
5800: l_document_type := wf_engine.GetItemAttrText
5801: (
5802: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE'
5803: )
5804: ;
5801: (
5802: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE'
5803: )
5804: ;
5805: l_document_num := wf_engine.GetItemAttrText
5806: (
5807: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_NUMBER'
5808: )
5809: ;
5808: )
5809: ;
5810: /*Bug 6692126 Get the item attributes DOCUMENT_ID,DOCUMENT_SUBTYPE
5811: and WITH_TERMS and pass it to Print_PO and Print_Release procedures*/
5812: l_document_id := wf_engine.GetItemAttrNumber
5813: (
5814: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID'
5815: )
5816: ;
5813: (
5814: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID'
5815: )
5816: ;
5817: l_document_subtype := wf_engine.GetItemAttrText
5818: (
5819: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE'
5820: )
5821: ;
5830: END IF;
5831: /*Bug6692126 Donot set the item attribute with_terms for requisitions
5832: as this attribute doesnot exist in req approval workflow*/
5833: IF l_document_type <> 'REQUISITION' THEN
5834: l_withterms := wf_engine.GetItemAttrText
5835: (
5836: itemtype => itemtype, itemkey => itemkey, aname => 'WITH_TERMS'
5837: )
5838: ;
5839: END IF;
5840: -- Bug 4918772
5841: -- The global variable 4918772 should be populated. This is used by
5842: -- the print/fax routines
5843: g_document_subtype := wf_engine.GetItemAttrText
5844: (
5845: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE'
5846: )
5847: ;
5846: )
5847: ;
5848: -- End Bug 4918772
5849: -- Context Setting Revamp.
5850: /* changed the call from wf_engine.setiteattrtext to
5851: po_wf_util_pkg.setitemattrtext because the later handles
5852: attribute not found exception. req change order wf also
5853: uses these procedures and does not have the preparer_printer
5854: attribute, hence this was required */
5941: l_document_num, l_qty_precision, l_user_id
5942: )
5943: ;
5944: ELSIF l_document_type = 'RELEASE' THEN
5945: l_release_num := wf_engine.GetItemAttrNumber
5946: (
5947: itemtype => itemtype, itemkey => itemkey, aname => 'RELEASE_NUM'
5948: )
5949: ;
5962: , l_document_subtype,l_withterms
5963: )
5964: ;
5965: END IF;
5966: wf_engine.SetItemAttrNumber
5967: (
5968: itemtype => itemtype, itemkey => itemkey, aname => 'CONCURRENT_REQUEST_ID', avalue => l_request_id
5969: )
5970: ;
6082: 'USER_ID', l_user_id
6083: )
6084: ;
6085: -- Send the concurrent request to fax document.
6086: l_document_type := wf_engine.GetItemAttrText
6087: (
6088: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE'
6089: )
6090: ;
6087: (
6088: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE'
6089: )
6090: ;
6091: l_document_num := wf_engine.GetItemAttrText
6092: (
6093: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_NUMBER'
6094: )
6095: ;
6105: /*Bug 6692126 Get the document_id ,document subtype and with terms
6106: item attribute and pass it to Fax_PO and Fax_Release procedures
6107: Donot rely on global variable.Instead get the document subtype
6108: and pass it as a paramter */
6109: l_document_id := wf_engine.GetItemAttrNumber
6110: (
6111: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID'
6112: )
6113: ;
6110: (
6111: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID'
6112: )
6113: ;
6114: l_document_subtype := wf_engine.GetItemAttrText
6115: (
6116: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE'
6117: )
6118: ;
6115: (
6116: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE'
6117: )
6118: ;
6119: l_withterms := wf_engine.GetItemAttrText
6120: (
6121: itemtype => itemtype, itemkey => itemkey, aname => 'WITH_TERMS'
6122: )
6123: ;
6120: (
6121: itemtype => itemtype, itemkey => itemkey, aname => 'WITH_TERMS'
6122: )
6123: ;
6124: l_document_type := wf_engine.GetItemAttrText
6125: (
6126: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE'
6127: )
6128: ;
6128: ;
6129: -- Bug 4918772
6130: -- The global variable 4918772 should be populated. This is used by
6131: -- the print/fax routines
6132: g_document_subtype := wf_engine.GetItemAttrText
6133: (
6134: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE'
6135: )
6136: ;
6137: -- End Bug 4918772
6138: -- Context Setting revamp : setting the printer to that of the preparer, so that
6139: -- irrespective of who submits the request, the printing should happen
6140: -- on preparer's printer
6141: /* changed the call from wf_engine.setiteattrtext to
6142: po_wf_util_pkg.setitemattrtext because the later handles
6143: attrbute not found exception. req change order wf also
6144: uses these procedures and does not have the preparer_printer
6145: attribute, hence this was required */
6163: (
6164: 'PO', 'PA'
6165: )
6166: THEN
6167: l_fax_enable := wf_engine.GetItemAttrText
6168: (
6169: itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT'
6170: )
6171: ;
6168: (
6169: itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT'
6170: )
6171: ;
6172: l_fax_num := wf_engine.GetItemAttrText
6173: (
6174: itemtype => itemtype, itemkey => itemkey, aname => 'FAX_NUMBER'
6175: )
6176: ;
6180: l_document_num, l_qty_precision, l_user_id, l_fax_enable, l_fax_num,l_document_id,l_draft_id, l_document_subtype,l_withterms
6181: )
6182: ;
6183: ELSIF l_document_type = 'RELEASE' THEN
6184: l_release_num := wf_engine.GetItemAttrNumber
6185: (
6186: itemtype => itemtype, itemkey => itemkey, aname => 'RELEASE_NUM'
6187: )
6188: ;
6185: (
6186: itemtype => itemtype, itemkey => itemkey, aname => 'RELEASE_NUM'
6187: )
6188: ;
6189: l_fax_enable := wf_engine.GetItemAttrText
6190: (
6191: itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT'
6192: )
6193: ;
6190: (
6191: itemtype => itemtype, itemkey => itemkey, aname => 'FAX_DOCUMENT'
6192: )
6193: ;
6194: l_fax_num := wf_engine.GetItemAttrText
6195: (
6196: itemtype => itemtype, itemkey => itemkey, aname => 'FAX_NUMBER'
6197: )
6198: ;
6202: l_document_num, l_qty_precision, TO_CHAR(l_release_num), l_user_id, l_fax_enable, l_fax_num,l_document_id
6203: )
6204: ;
6205: END IF;
6206: wf_engine.SetItemAttrNumber
6207: (
6208: itemtype => itemtype, itemkey => itemkey, aname => 'CONCURRENT_REQUEST_ID', avalue => l_request_id
6209: )
6210: ;
6814: (
6815: funcmode='RUN'
6816: )
6817: THEN
6818: l_document_id := wf_engine.GetItemAttrNumber
6819: (
6820: itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID'
6821: )
6822: ;
6930: IF (g_po_wf_debug = 'Y') THEN
6931: /* DEBUG */
6932: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
6933: END IF;
6934: preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
6935: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_ID');
6936: x_username := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_USER_NAME');
6937: -- return Y if forward from user name is null.
6938: /* Bug5142627(forward fix 3733830) After the fix 2308846 the FORWARD_FROM_ID might be null
6931: /* DEBUG */
6932: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
6933: END IF;
6934: preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
6935: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_ID');
6936: x_username := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_USER_NAME');
6937: -- return Y if forward from user name is null.
6938: /* Bug5142627(forward fix 3733830) After the fix 2308846 the FORWARD_FROM_ID might be null
6939: when it is just submitted for approval and no-approver-found.
6932: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
6933: END IF;
6934: preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
6935: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_ID');
6936: x_username := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_USER_NAME');
6937: -- return Y if forward from user name is null.
6938: /* Bug5142627(forward fix 3733830) After the fix 2308846 the FORWARD_FROM_ID might be null
6939: when it is just submitted for approval and no-approver-found.
6940: So this also should be excluded.
6939: when it is just submitted for approval and no-approver-found.
6940: So this also should be excluded.
6941: */
6942: IF (approver_id IS NULL OR preparer_id = approver_id OR x_username IS NULL) THEN
6943: resultout := wf_engine.eng_completed || ':' || 'Y';
6944: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
6945: ELSE
6946: resultout := wf_engine.eng_completed || ':' || 'N';
6947: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
6942: IF (approver_id IS NULL OR preparer_id = approver_id OR x_username IS NULL) THEN
6943: resultout := wf_engine.eng_completed || ':' || 'Y';
6944: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
6945: ELSE
6946: resultout := wf_engine.eng_completed || ':' || 'N';
6947: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
6948: END IF;
6949: EXCEPTION
6950: WHEN OTHERS THEN
6966: l_document_subtype VARCHAR2(25);
6967: l_document_id NUMBER;
6968: l_org_id NUMBER;
6969: BEGIN
6970: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
6971: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
6972: l_org_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
6973: PO_MOAC_UTILS_PVT.set_org_context(l_org_id) ; --
6974: IF (l_document_type IN ('PO', 'PA')) THEN
6967: l_document_id NUMBER;
6968: l_org_id NUMBER;
6969: BEGIN
6970: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
6971: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
6972: l_org_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
6973: PO_MOAC_UTILS_PVT.set_org_context(l_org_id) ; --
6974: IF (l_document_type IN ('PO', 'PA')) THEN
6975: SELECT st.DISPLAYED_FIELD
6968: l_org_id NUMBER;
6969: BEGIN
6970: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
6971: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
6972: l_org_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
6973: PO_MOAC_UTILS_PVT.set_org_context(l_org_id) ; --
6974: IF (l_document_type IN ('PO', 'PA')) THEN
6975: SELECT st.DISPLAYED_FIELD
6976: || ' '
7035: l_name VARCHAR2(100);
7036: l_preparer_id NUMBER;
7037: l_disp VARCHAR2(240);
7038: BEGIN
7039: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
7040: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, l_name, l_disp);
7041: RETURN(l_name);
7042: END;
7043: PROCEDURE send_error_notif
7095: IF (g_po_wf_debug = 'Y') THEN
7096: /* DEBUG */
7097: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7098: END IF;
7099: wf_engine.CreateProcess( ItemType => Err_ItemType, ItemKey => Err_ItemKey, process => 'PLSQL_ERROR_NOTIF');
7100: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 70';
7101: IF (g_po_wf_debug = 'Y') THEN
7102: /* DEBUG */
7103: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7102: /* DEBUG */
7103: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7104: END IF;
7105: -- Set the attributes
7106: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_DOC', avalue => doc);
7107: --
7108: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_LOC', avalue => loc);
7109: --
7110: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_MSG', avalue => msg);
7104: END IF;
7105: -- Set the attributes
7106: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_DOC', avalue => doc);
7107: --
7108: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_LOC', avalue => loc);
7109: --
7110: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_MSG', avalue => msg);
7111: --
7112: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PREPARER_USER_NAME' , avalue => username);
7106: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_DOC', avalue => doc);
7107: --
7108: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_LOC', avalue => loc);
7109: --
7110: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_MSG', avalue => msg);
7111: --
7112: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PREPARER_USER_NAME' , avalue => username);
7113: --
7114: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 100';
7108: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_LOC', avalue => loc);
7109: --
7110: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_MSG', avalue => msg);
7111: --
7112: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PREPARER_USER_NAME' , avalue => username);
7113: --
7114: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 100';
7115: IF (g_po_wf_debug = 'Y') THEN
7116: /* DEBUG */
7115: IF (g_po_wf_debug = 'Y') THEN
7116: /* DEBUG */
7117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7118: END IF;
7119: wf_engine.StartProcess(itemtype => Err_ItemType, itemkey => Err_ItemKey);
7120: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 900';
7121: IF (g_po_wf_debug = 'Y') THEN
7122: /* DEBUG */
7123: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7173: IF (g_po_wf_debug = 'Y') THEN
7174: /* DEBUG */
7175: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7176: END IF;
7177: l_error_number := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOC_MGR_ERROR_NUM');
7178: l_progress := 'Is_Document_Manager_Error_1_2: 002 - '|| TO_CHAR(l_error_number);
7179: IF (g_po_wf_debug = 'Y') THEN
7180: /* DEBUG */
7181: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7214: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7215: END IF;
7216: -- Do nothing in cancel or timeout mode
7217: --
7218: IF (funcmode <> wf_engine.eng_run) THEN
7219: resultout := wf_engine.eng_null;
7220: RETURN;
7221: END IF;
7222: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
7215: END IF;
7216: -- Do nothing in cancel or timeout mode
7217: --
7218: IF (funcmode <> wf_engine.eng_run) THEN
7219: resultout := wf_engine.eng_null;
7220: RETURN;
7221: END IF;
7222: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
7223: /* the value of l_po_email_add_prof has a value or it is null*/
7218: IF (funcmode <> wf_engine.eng_run) THEN
7219: resultout := wf_engine.eng_null;
7220: RETURN;
7221: END IF;
7222: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'EMAIL_ADD_FROM_PROFILE');
7223: /* the value of l_po_email_add_prof has a value or it is null*/
7224: IF l_po_email_add_prof IS NULL THEN
7225: l_prof_value := 'N';
7226: ELSE
7226: ELSE
7227: l_prof_value := 'Y';
7228: END IF;
7229: --
7230: resultout := wf_engine.eng_completed || ':' || l_prof_value ;
7231: --
7232: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 02. Result= ' || l_prof_value;
7233: IF (g_po_wf_debug = 'Y') THEN
7234: /* DEBUG */
7260: IF (g_po_wf_debug = 'Y') THEN
7261: /* DEBUG */
7262: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7263: END IF;
7264: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7265: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7266: l_count := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RETRY_COUNT');
7267: SELECT COUNT(*)
7268: INTO l_error_count
7261: /* DEBUG */
7262: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7263: END IF;
7264: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7265: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7266: l_count := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RETRY_COUNT');
7267: SELECT COUNT(*)
7268: INTO l_error_count
7269: FROM wf_items
7262: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7263: END IF;
7264: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7265: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7266: l_count := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RETRY_COUNT');
7267: SELECT COUNT(*)
7268: INTO l_error_count
7269: FROM wf_items
7270: WHERE parent_item_type=l_item_type
7326: IF (g_po_wf_debug = 'Y') THEN
7327: /* DEBUG */
7328: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7329: END IF;
7330: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7331: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7332: /* Bug# 2708702 kagarwal
7333: ** Fix Details: Make all the Set and Get calls for parent item type to use the PO wrapper
7334: ** PO_WF_UTIL_PKG so that the missing attribute errors are ignored.
7327: /* DEBUG */
7328: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7329: END IF;
7330: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7331: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7332: /* Bug# 2708702 kagarwal
7333: ** Fix Details: Make all the Set and Get calls for parent item type to use the PO wrapper
7334: ** PO_WF_UTIL_PKG so that the missing attribute errors are ignored.
7335: */
7374: /* Bug# 2655410: kagarwal
7375: ** Desc: We will only be using one display attribute for type and
7376: ** subtype - DOCUMENT_TYPE_DISP, hence commenting the code below
7377: */
7378: /* wf_engine.SetItemAttrText ( itemtype => itemType,
7379: itemkey => itemkey,
7380: aname => 'DOCUMENT_SUBTYPE_DISP' ,
7381: avalue => l_doc_subtype_disp);
7382: */
7422: This may not be correct since acceptance_requried_flag may be updated in the DB.
7423: Thus, we shall query acceptance_required_flag from po_headers/po_releases view.
7424: */
7425: x_progress := '001';
7426: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7427: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7428: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
7429: IF(l_document_type <> 'RELEASE') THEN
7430: SELECT acceptance_required_flag
7423: Thus, we shall query acceptance_required_flag from po_headers/po_releases view.
7424: */
7425: x_progress := '001';
7426: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7427: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7428: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
7429: IF(l_document_type <> 'RELEASE') THEN
7430: SELECT acceptance_required_flag
7431: INTO l_acceptance_flag
7424: */
7425: x_progress := '001';
7426: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7427: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7428: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
7429: IF(l_document_type <> 'RELEASE') THEN
7430: SELECT acceptance_required_flag
7431: INTO l_acceptance_flag
7432: FROM po_headers_all --bug 4764963
7501: l_nid NUMBER;
7502: l_ntf_role_name VARCHAR2(320);
7503: BEGIN
7504: -- set the org context
7505: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7506: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
7507: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7508: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7509: -- commented out the usage of accptance_type (FPI)
7503: BEGIN
7504: -- set the org context
7505: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7506: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
7507: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7508: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7509: -- commented out the usage of accptance_type (FPI)
7510: /* x_accp_type := PO_WF_UTIL_PKG.GetItemAttrText(itemtype => itemtype,
7511: itemkey => itemkey,
7504: -- set the org context
7505: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7506: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
7507: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7508: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7509: -- commented out the usage of accptance_type (FPI)
7510: /* x_accp_type := PO_WF_UTIL_PKG.GetItemAttrText(itemtype => itemtype,
7511: itemkey => itemkey,
7512: aname => 'ACCEPTANCE_TYPE'); */
7636: l_nid NUMBER;
7637: l_ntf_role_name VARCHAR2(320);
7638: BEGIN
7639: -- set the org context
7640: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7641: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
7642: x_progress := '001';
7643: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7644: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7639: -- set the org context
7640: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7641: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
7642: x_progress := '001';
7643: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7644: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7645: -- commented out the usage of accptance_type (FPI)
7646: /* x_accp_type := PO_WF_UTIL_PKG.GetItemAttrText(itemtype => itemtype,
7647: itemkey => itemkey,
7640: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7641: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
7642: x_progress := '001';
7643: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7644: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7645: -- commented out the usage of accptance_type (FPI)
7646: /* x_accp_type := PO_WF_UTIL_PKG.GetItemAttrText(itemtype => itemtype,
7647: itemkey => itemkey,
7648: aname => 'ACCEPTANCE_TYPE'); */
7788: -- Bug 2850566
7789: -- Commented out the select statement as it is handled in the PO_ACCEPTANCES rowhandler
7790: -- SELECT po_acceptances_s.nextval into x_Acceptance_id FROM sys.dual;
7791: -- commented out the usage of accptance_type (FPI)
7792: /* x_Acceptance_Lookup_Code := wf_engine.GetItemAttrText( itemtype => itemtype,
7793: itemkey => itemkey,
7794: aname => 'ACCEPTANCE_LOOKUP_CODE'); */
7795: x_acceptance_note := PO_WF_UTIL_PKG.GetItemAttrText( itemtype => itemtype, itemkey => itemkey, aname => 'ACCEPTANCE_COMMENTS');
7796: -- commented out the usage of accptance_type (FPI)
7800: else
7801: x_Acceptance_Lookup_Code := 'Unacceptable Changes';
7802: end if;
7803: end if; */
7804: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7805: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7806: -- abort any outstanding acceptance notifications for any previous revision of the document.
7807: IF x_document_type_code <> 'RELEASE' THEN
7808: x_Po_Header_Id := x_document_id;
7801: x_Acceptance_Lookup_Code := 'Unacceptable Changes';
7802: end if;
7803: end if; */
7804: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
7805: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
7806: -- abort any outstanding acceptance notifications for any previous revision of the document.
7807: IF x_document_type_code <> 'RELEASE' THEN
7808: x_Po_Header_Id := x_document_id;
7809: SELECT revision_num,
7830: l_acc_po_header_id := x_po_header_id;
7831: ELSE
7832: l_acc_po_header_id := NULL;
7833: END IF;
7834: l_rspndr_usr_name := wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'SUPPLIER_USER_NAME');
7835: BEGIN
7836: SELECT user_id
7837: INTO l_Last_Updated_By
7838: FROM fnd_user
7920: END IF;
7921: IF (X_Application_Id = -1) THEN
7922: X_Application_Id := NULL;
7923: END IF;
7924: l_user_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
7925: --
7926: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
7927: --
7928: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
7922: X_Application_Id := NULL;
7923: END IF;
7924: l_user_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
7925: --
7926: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
7927: --
7928: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
7929: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.L_USER_ID= ' || TO_CHAR(l_user_id) || ' L_APPLICATION_ID= ' || TO_CHAR(l_application_id) || 'L_RESPONSIBILITY_ID= ' || TO_CHAR(l_responsibility_id);
7930: IF (g_po_wf_debug = 'Y') THEN
7924: l_user_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
7925: --
7926: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
7927: --
7928: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
7929: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.L_USER_ID= ' || TO_CHAR(l_user_id) || ' L_APPLICATION_ID= ' || TO_CHAR(l_application_id) || 'L_RESPONSIBILITY_ID= ' || TO_CHAR(l_responsibility_id);
7930: IF (g_po_wf_debug = 'Y') THEN
7931: /* DEBUG */
7932: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7993: /* DEBUG */
7994: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7995: END IF;
7996: -- Do nothing in cancel or timeout mode
7997: IF (funcmode <> wf_engine.eng_run) THEN
7998: resultout := wf_engine.eng_null;
7999: RETURN;
8000: END IF;
8001: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
7994: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7995: END IF;
7996: -- Do nothing in cancel or timeout mode
7997: IF (funcmode <> wf_engine.eng_run) THEN
7998: resultout := wf_engine.eng_null;
7999: RETURN;
8000: END IF;
8001: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
8002: l_user_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'USER_ID');
8027: ELSE
8028: l_massupdate_releases := 'N';
8029: END IF;
8030: END IF;
8031: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
8032: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 02. Result= ' || l_massupdate_releases;
8033: IF (g_po_wf_debug = 'Y') THEN
8034: /* DEBUG */
8035: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8036: END IF;
8037: EXCEPTION
8038: WHEN OTHERS THEN
8039: l_massupdate_releases := 'N';
8040: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
8041: END MassUpdate_Releases_Yes_No;
8042: PROCEDURE MassUpdate_Releases_Workflow
8043: (
8044: itemtype IN VARCHAR2,
8105: l_progress := ': 02. Result= ' || l_update_releases;
8106: IF (g_po_wf_debug = 'Y') THEN
8107: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8108: END IF;
8109: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8110: EXCEPTION
8111: WHEN OTHERS THEN
8112: l_update_releases := 'N';
8113: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'|| ' Result= ' || l_update_releases;
8110: EXCEPTION
8111: WHEN OTHERS THEN
8112: l_update_releases := 'N';
8113: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'|| ' Result= ' || l_update_releases;
8114: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8115: IF (g_po_wf_debug = 'Y') THEN
8116: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8117: END IF;
8118: END MassUpdate_Releases_Workflow;
8147: IF (l_supplier_comm IS NULL) THEN
8148: l_supplier_comm := 'N';
8149: END IF;
8150: /*IF (l_supplier_comm IS NULL)*/
8151: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
8152: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 02. Result= ' || l_supplier_comm;
8153: IF (g_po_wf_debug = 'Y') THEN
8154: /* DEBUG */
8155: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8156: END IF;
8157: EXCEPTION
8158: WHEN OTHERS THEN
8159: l_supplier_comm := 'Y';
8160: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
8161: END Send_Supplier_Comm_Yes_No;
8162: /* RETROACTIVE FPI END */
8163: /************************************************************************************
8164: * Added this procedure as part of Bug #: 2843760
8214: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 01';
8215: IF (g_po_wf_debug = 'Y') THEN
8216: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8217: END IF;
8218: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8219: /* Bug# 2846210
8220: ** Desc: Setting application context as this wf api will be executed
8221: ** after the background engine is run.
8222: */
8220: ** Desc: Setting application context as this wf api will be executed
8221: ** after the background engine is run.
8222: */
8223: Set_doc_mgr_context(itemtype, itemkey);
8224: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
8225: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
8226: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE');
8227: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 02. ' || 'l_document_id = ' || l_document_id || 'l_document_type = ' || l_document_type || 'l_retro_change = ' || l_retro_change ;
8228: IF (g_po_wf_debug = 'Y') THEN
8221: ** after the background engine is run.
8222: */
8223: Set_doc_mgr_context(itemtype, itemkey);
8224: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
8225: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
8226: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE');
8227: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 02. ' || 'l_document_id = ' || l_document_id || 'l_document_type = ' || l_document_type || 'l_retro_change = ' || l_retro_change ;
8228: IF (g_po_wf_debug = 'Y') THEN
8229: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8288: END IF;
8289: PO_RETROACTIVE_PRICING_PVT.Reset_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8290: END IF;
8291: /*IF (l_reset_retro_update)*/
8292: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8293: EXCEPTION
8294: WHEN OTHERS THEN
8295: l_update_releases := 'N';
8296: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 09.'|| ' Result= ' || l_update_releases;
8293: EXCEPTION
8294: WHEN OTHERS THEN
8295: l_update_releases := 'N';
8296: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 09.'|| ' Result= ' || l_update_releases;
8297: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8298: IF (g_po_wf_debug = 'Y') THEN
8299: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8300: END IF;
8301: END Retro_Invoice_Release_WF;
8464: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8465: END IF;
8466: l_progress := '110';
8467: -- Get the Catalog Admin User Name
8468: l_cat_admin_user_name := wf_engine.GetItemAttrText ( itemtype => p_item_type, itemkey => p_item_key, aname => 'CATALOG_ADMIN_USER_NAME');
8469: l_progress := '130';
8470: IF (g_po_wf_debug = 'Y') THEN
8471: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,'Item Attribute value for CATALOG_ADMIN_USER_NAME='|| l_cat_admin_user_name);
8472: END IF;
8471: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,'Item Attribute value for CATALOG_ADMIN_USER_NAME='|| l_cat_admin_user_name);
8472: END IF;
8473: IF l_cat_admin_user_name IS NOT NULL THEN
8474: l_progress := '150';
8475: x_result_out := wf_engine.eng_completed || ':' || 'Y' ;
8476: ELSE
8477: l_progress := '190';
8478: x_result_out := wf_engine.eng_completed || ':' || 'N' ;
8479: END IF;
8474: l_progress := '150';
8475: x_result_out := wf_engine.eng_completed || ':' || 'Y' ;
8476: ELSE
8477: l_progress := '190';
8478: x_result_out := wf_engine.eng_completed || ':' || 'N' ;
8479: END IF;
8480: l_progress := '200';
8481: EXCEPTION
8482: WHEN OTHERS THEN
8566: END IF;
8567: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
8568: -- Set the item attribute tied to the performer of the
8569: -- approval notification
8570: wf_engine.SetItemAttrText ( itemtype => p_item_type , itemkey => p_item_key , aname => 'CATALOG_ADMIN_USER_NAME', avalue => l_user_name);
8571: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 170';
8572: END IF; -- End of check for "CAT ADMIN"
8573: END IF; -- End of Check for "PA" (Agreement check)
8574: l_progress := '200';
8836: L_Doc_Id NUMBER;
8837: L_Doc_Type Po_Action_History.Object_Type_Code%TYPE;
8838: L_Doc_Subtype Po_Action_History.Object_Sub_Type_Code%TYPE;
8839: BEGIN
8840: L_Doc_Type := Wf_Engine.Getitemattrtext (Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_TYPE');
8841: L_Doc_Subtype := Wf_Engine.Getitemattrtext(Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_SUBTYPE');
8842: L_Doc_Id := Wf_Engine.Getitemattrnumber (Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_ID');
8843: UpdateActionHistory ( p_doc_id => L_Doc_Id, p_doc_type => L_Doc_Type, p_doc_subtype => L_Doc_Subtype, p_action => 'NO ACTION' );
8844: END Update_Action_History_Timeout;
8837: L_Doc_Type Po_Action_History.Object_Type_Code%TYPE;
8838: L_Doc_Subtype Po_Action_History.Object_Sub_Type_Code%TYPE;
8839: BEGIN
8840: L_Doc_Type := Wf_Engine.Getitemattrtext (Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_TYPE');
8841: L_Doc_Subtype := Wf_Engine.Getitemattrtext(Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_SUBTYPE');
8842: L_Doc_Id := Wf_Engine.Getitemattrnumber (Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_ID');
8843: UpdateActionHistory ( p_doc_id => L_Doc_Id, p_doc_type => L_Doc_Type, p_doc_subtype => L_Doc_Subtype, p_action => 'NO ACTION' );
8844: END Update_Action_History_Timeout;
8845: --
8838: L_Doc_Subtype Po_Action_History.Object_Sub_Type_Code%TYPE;
8839: BEGIN
8840: L_Doc_Type := Wf_Engine.Getitemattrtext (Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_TYPE');
8841: L_Doc_Subtype := Wf_Engine.Getitemattrtext(Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_SUBTYPE');
8842: L_Doc_Id := Wf_Engine.Getitemattrnumber (Itemtype => Itemtype, Itemkey => Itemkey, Aname => 'DOCUMENT_ID');
8843: UpdateActionHistory ( p_doc_id => L_Doc_Id, p_doc_type => L_Doc_Type, p_doc_subtype => L_Doc_Subtype, p_action => 'NO ACTION' );
8844: END Update_Action_History_Timeout;
8845: --
8846: --
9031: l_progress varchar2(255);
9032:
9033: BEGIN
9034:
9035: l_revision_num_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
9036: itemkey => itemkey,
9037: aname => 'HAS_REVISION_NUM_INCREMENTED');
9038:
9039: l_progress := 'PO_REQAPPROVAL_INIT1.check_rev_num_supplier_notif: HAS_REVISION_NUM_INCREMENTED = '||l_revision_num_flag;
9037: aname => 'HAS_REVISION_NUM_INCREMENTED');
9038:
9039: l_progress := 'PO_REQAPPROVAL_INIT1.check_rev_num_supplier_notif: HAS_REVISION_NUM_INCREMENTED = '||l_revision_num_flag;
9040:
9041: resultout := wf_engine.eng_completed || ':' || l_revision_num_flag ;
9042:
9043: EXCEPTION
9044: WHEN OTHERS THEN
9045: IF (g_po_wf_debug = 'Y') THEN
9061: l_doc_type varchar2(10);
9062:
9063: BEGIN
9064:
9065: l_po_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
9066: itemkey => itemkey,
9067: aname => 'DOCUMENT_ID');
9068:
9069: l_po_revision_num_curr := wf_engine.GetItemAttrText( itemtype => itemtype,
9065: l_po_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
9066: itemkey => itemkey,
9067: aname => 'DOCUMENT_ID');
9068:
9069: l_po_revision_num_curr := wf_engine.GetItemAttrText( itemtype => itemtype,
9070: itemkey => itemkey,
9071: aname => 'NEW_PO_REVISION_NUM');
9072:
9073: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
9069: l_po_revision_num_curr := wf_engine.GetItemAttrText( itemtype => itemtype,
9070: itemkey => itemkey,
9071: aname => 'NEW_PO_REVISION_NUM');
9072:
9073: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
9074: itemkey => itemkey,
9075: aname => 'DOCUMENT_TYPE');
9076:
9077: IF l_doc_type IN ('PO', 'PA') THEN