[Home] [Help]
794: END IF;
795: --
796:
797: if x_wf_created = 0 then
798: wf_engine.CreateProcess( ItemType => l_itemtype,
799: ItemKey => l_itemkey,
800: process => l_workflow_process );
801: end if;
802:
808: FND_PROFILE.GET('PO_SECONDRY_EMAIL_ADD', EmailAddProfile);
809:
810: if NVL(ActionOriginatedFrom, 'Approval') = 'POS_DATE_CHG' then
811:
812: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
813: itemkey => l_itemkey,
814: aname => 'WEB_SUPPLIER_REQUEST',
815: avalue => 'Y');
816: end if;
881:
882: END IF;
883:
884: --
885: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
886: itemkey => l_itemkey,
887: aname => 'DOCUMENT_ID',
888: avalue => DocumentID);
889: --
886: itemkey => l_itemkey,
887: aname => 'DOCUMENT_ID',
888: avalue => DocumentID);
889: --
890: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
891: itemkey => l_itemkey,
892: aname => 'DOCUMENT_TYPE',
893: avalue => DocumentTypeCode);
894: --
892: aname => 'DOCUMENT_TYPE',
893: avalue => DocumentTypeCode);
894: --
895:
896: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
897: itemkey => l_itemkey,
898: aname => 'DOCUMENT_SUBTYPE',
899: avalue => DocumentSubtype);
900: --
899: avalue => DocumentSubtype);
900: --
901: g_document_subtype := DocumentSubtype;
902: --
903: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
904: itemkey => l_itemkey,
905: aname => 'PREPARER_ID',
906: avalue => PreparerID);
907: --
904: itemkey => l_itemkey,
905: aname => 'PREPARER_ID',
906: avalue => PreparerID);
907: --
908: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
909: itemkey => l_itemkey,
910: aname => 'FORWARD_TO_ID',
911: avalue => ForwardToID);
912: --
922: ** correctly.
923: */
924:
925: if (forwardFromID is not NULL) then
926: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
927: itemkey => l_itemkey,
928: aname => 'FORWARD_FROM_ID',
929: avalue => forwardFromID);
930:
928: aname => 'FORWARD_FROM_ID',
929: avalue => forwardFromID);
930:
931: else
932: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
933: itemkey => l_itemkey,
934: aname => 'FORWARD_FROM_ID',
935: avalue => forwardFromID);
936: end if;
935: avalue => forwardFromID);
936: end if;
937:
938: --
939: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
940: itemkey => l_itemkey,
941: aname => 'APPROVAL_PATH_ID',
942: avalue => DefaultApprovalPathID);
943: --
940: itemkey => l_itemkey,
941: aname => 'APPROVAL_PATH_ID',
942: avalue => DefaultApprovalPathID);
943: --
944: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
945: itemkey => l_itemkey,
946: aname => 'NOTE',
947: avalue => Note);
948: --
945: itemkey => l_itemkey,
946: aname => 'NOTE',
947: avalue => Note);
948: --
949: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
950: itemkey => l_itemkey,
951: aname => 'PRINT_DOCUMENT',
952: avalue => PrintFlag);
953:
962: /* Bug6708182 FPDS-NG ER. */
963: /* Bug 6708182 Start */
964: IF DocumentTypeCode IN ('PO', 'RELEASE') THEN
965:
966: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
967: itemkey => l_itemkey,
968: aname => 'FPDSNG_FLAG',
969: avalue => FpdsngFlag);
970: END IF;
995:
996:
997: END IF;
998:
999: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1000: itemkey => l_itemkey,
1001: aname => 'ACCEPTANCE_REQUIRED',
1002: avalue => x_acceptance_required_flag);
1003:
1000: itemkey => l_itemkey,
1001: aname => 'ACCEPTANCE_REQUIRED',
1002: avalue => x_acceptance_required_flag);
1003:
1004: wf_engine.SetItemAttrDate ( itemtype => l_itemtype,
1005: itemkey => l_itemkey,
1006: aname => 'ACCEPTANCE_DUE_DATE',
1007: avalue => x_acceptance_due_date);
1008:
1005: itemkey => l_itemkey,
1006: aname => 'ACCEPTANCE_DUE_DATE',
1007: avalue => x_acceptance_due_date);
1008:
1009: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
1010: itemkey => l_itemkey,
1011: aname => 'BUYER_USER_ID',
1012: avalue => x_agent_id);
1013:
1115: l_userkey := l_document_number; -- Bug 3284628
1116: end if;
1117:
1118: BEGIN
1119: wf_engine.SetItemUserKey(itemtype => l_itemtype,
1120: itemkey => l_itemkey,
1121: userkey => l_userkey);
1122:
1123: EXCEPTION
1143:
1144:
1145:
1146: -- Bug 3284628 START
1147: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1148: itemkey => l_itemkey,
1149: aname => 'DOCUMENT_NUMBER',
1150: avalue => l_document_number);
1151: -- Bug 3284628 END
1151: -- Bug 3284628 END
1152:
1153: /* bug 2115200 */
1154:
1155: wf_engine.SetItemAttrText (itemtype => l_itemtype,
1156: itemkey => l_itemkey,
1157: aname => 'DOCUMENT_NUM_REL',
1158: avalue => l_doc_num_rel);
1159:
1156: itemkey => l_itemkey,
1157: aname => 'DOCUMENT_NUM_REL',
1158: avalue => l_doc_num_rel);
1159:
1160: wf_engine.SetItemAttrText (itemtype => l_itemtype,
1161: itemkey => l_itemkey,
1162: aname => 'REVISION_NUMBER',
1163: avalue => l_revision_num);
1164:
1168: l_doc_display_name := PO_DOC_STYLE_PVT.GET_STYLE_DISPLAY_NAME(DocumentID);
1169:
1170: END IF;
1171:
1172: wf_engine.SetItemAttrText (itemtype => l_itemtype,
1173: itemkey => l_itemkey,
1174: aname => 'DOCUMENT_DISPLAY_NAME',
1175: avalue => l_doc_display_name);
1176:
1188: x_buyer_username,
1189: x_buyer_display_name);
1190: x_progress := '004';
1191:
1192: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1193: itemkey => l_itemkey,
1194: aname => 'BUYER_USER_NAME',
1195: avalue => x_buyer_username);
1196: end if;
1196: end if;
1197:
1198:
1199: --DKC 10/10/99
1200: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1201: itemkey => l_itemkey,
1202: aname => 'FAX_DOCUMENT',
1203: avalue => FaxFlag);
1204: --DKC 10/10/99
1201: itemkey => l_itemkey,
1202: aname => 'FAX_DOCUMENT',
1203: avalue => FaxFlag);
1204: --DKC 10/10/99
1205: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1206: itemkey => l_itemkey,
1207: aname => 'FAX_NUMBER',
1208: avalue => FaxNumber);
1209:
1207: aname => 'FAX_NUMBER',
1208: avalue => FaxNumber);
1209:
1210:
1211: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1212: itemkey => l_itemkey,
1213: aname => 'EMAIL_DOCUMENT',
1214: avalue => EmailFlag);
1215:
1212: itemkey => l_itemkey,
1213: aname => 'EMAIL_DOCUMENT',
1214: avalue => EmailFlag);
1215:
1216: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1217: itemkey => l_itemkey,
1218: aname => 'EMAIL_ADDRESS',
1219: avalue => EmailAddress);
1220:
1217: itemkey => l_itemkey,
1218: aname => 'EMAIL_ADDRESS',
1219: avalue => EmailAddress);
1220:
1221: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1222: itemkey => l_itemkey,
1223: aname => 'EMAIL_ADD_FROM_PROFILE',
1224: avalue => EmailAddProfile);
1225:
1223: aname => 'EMAIL_ADD_FROM_PROFILE',
1224: avalue => EmailAddProfile);
1225:
1226:
1227: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1228: itemkey => l_itemkey,
1229: aname => 'CREATE_SOURCING_RULE',
1230: avalue => createsourcingrule);
1231:
1228: itemkey => l_itemkey,
1229: aname => 'CREATE_SOURCING_RULE',
1230: avalue => createsourcingrule);
1231:
1232: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1233: itemkey => l_itemkey,
1234: aname => 'UPDATE_SOURCING_RULE',
1235: avalue => updatesourcingrule);
1236:
1233: itemkey => l_itemkey,
1234: aname => 'UPDATE_SOURCING_RULE',
1235: avalue => updatesourcingrule);
1236:
1237: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1238: itemkey => l_itemkey,
1239: aname => 'RELEASE_GENERATION_METHOD',
1240: avalue => ReleaseGenMethod);
1241:
1353:
1354: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1355:
1356: /* Set the Org_id item attribute. We will use it to get the context for every activity */
1357: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
1358: itemkey => l_itemkey,
1359: aname => 'ORG_ID',
1360: avalue => x_orgid);
1361:
1362: END IF;
1363:
1364:
1365: -- DKC 02/06/01
1366: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1367: itemkey => l_itemkey,
1368: aname => 'PO_EMAIL_HEADER',
1369: avalue => 'PLSQL:PO_EMAIL_GENERATE.GENERATE_HEADER/'|| to_char(DocumentID) || ':' || DocumentTypeCode);
1370:
1369: avalue => 'PLSQL:PO_EMAIL_GENERATE.GENERATE_HEADER/'|| to_char(DocumentID) || ':' || DocumentTypeCode);
1370:
1371:
1372: -- DKC 02/06/01
1373: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1374: itemkey => l_itemkey,
1375: aname => 'PO_EMAIL_BODY',
1376: avalue => 'PLSQLCLOB:PO_EMAIL_GENERATE.GENERATE_HTML/'|| to_char(DocumentID) || ':' || DocumentTypeCode);
1377:
1385: * itemkey to use local variable l_itemkey. This was left out in the
1386: * SetItemAttrText for PO_TERMS_CONDITIONS. Changing this as part
1387: * of bug 2687751.
1388: */
1389: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1390: itemkey => l_itemkey,
1391: aname => 'PO_TERMS_CONDITIONS',
1392: avalue => 'PLSQLCLOB:PO_EMAIL_GENERATE.GENERATE_TERMS/'|| l_itemtype || ':' || l_itemkey);
1393:
1550:
1551: END IF;
1552: --
1553: IF DocumentTypeCode = 'REQUISITION' AND p_source_type_code = 'INVENTORY' THEN
1554: wf_engine.SetItemAttrText ( itemtype => l_itemtype,
1555: itemkey => l_itemkey,
1556: aname => 'SOURCE_TYPE_CODE',
1557: avalue => p_source_type_code);
1558:
1604:
1605:
1606: /* l_application_id := 201; */
1607: --
1608: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
1609: itemkey => l_itemkey,
1610: aname => 'USER_ID',
1611: avalue => l_user_id);
1612: --
1609: itemkey => l_itemkey,
1610: aname => 'USER_ID',
1611: avalue => l_user_id);
1612: --
1613: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
1614: itemkey => l_itemkey,
1615: aname => 'APPLICATION_ID',
1616: avalue => l_application_id);
1617: --
1614: itemkey => l_itemkey,
1615: aname => 'APPLICATION_ID',
1616: avalue => l_application_id);
1617: --
1618: wf_engine.SetItemAttrNumber ( itemtype => l_itemtype,
1619: itemkey => l_itemkey,
1620: aname => 'RESPONSIBILITY_ID',
1621: avalue => l_responsibility_id);
1622:
1654:
1655: --
1656:
1657:
1658: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to wf_engine.StartProcess()' ||
1659: ' parameter DefaultApprovalPathID= ' || to_char(DefaultApprovalPathID);
1660: IF (g_po_wf_debug = 'Y') THEN
1661: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1662: END IF;
1661: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1662: END IF;
1663:
1664: --
1665: wf_engine.StartProcess( itemtype => l_itemtype,
1666: itemkey => l_itemkey );
1667:
1668: END IF;
1669:
1755:
1756:
1757: -- Do nothing in cancel or timeout mode
1758: --
1759: if (funcmode <> wf_engine.eng_run) then
1760:
1761: resultout := wf_engine.eng_null;
1762: return;
1763:
1757: -- Do nothing in cancel or timeout mode
1758: --
1759: if (funcmode <> wf_engine.eng_run) then
1760:
1761: resultout := wf_engine.eng_null;
1762: return;
1763:
1764: end if;
1765:
1771: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
1772:
1773: -- Set the multi-org context
1774:
1775: x_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1776: itemkey => itemkey,
1777: aname => 'ORG_ID');
1778:
1779: IF x_orgid is NOT NULL THEN
1781: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1782:
1783: END IF;
1784:
1785: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
1786: itemkey => itemkey,
1787: aname => 'DOCUMENT_TYPE');
1788:
1789: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1785: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
1786: itemkey => itemkey,
1787: aname => 'DOCUMENT_TYPE');
1788:
1789: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1790: itemkey => itemkey,
1791: aname => 'DOCUMENT_ID');
1792:
1793: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
1789: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1790: itemkey => itemkey,
1791: aname => 'DOCUMENT_ID');
1792:
1793: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
1794: itemkey => itemkey,
1795: aname => 'DOCUMENT_SUBTYPE');
1796:
1797: /* Since we are just starting the workflow assign the preparer_id to
1801: ** If the preparer can not approve, then process FIND APPROVER will
1802: ** find an approver and put his/her employee_id in APPROVER_EMPID
1803: ** item attribute.
1804: */
1805: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1806: itemkey => itemkey,
1807: aname => 'PREPARER_ID');
1808:
1809: /*7125551, including the sql to get the value of l_can_modify_flag here*/
1813: FROM po_document_types
1814: WHERE DOCUMENT_TYPE_CODE = l_document_type
1815: AND DOCUMENT_SUBTYPE = l_doc_subtype;
1816:
1817: wf_engine.SetItemAttrNumber (itemtype => itemtype,
1818: itemkey => itemkey,
1819: aname => 'APPROVER_EMPID',
1820: avalue => l_preparer_id);
1821:
1828: x_user_display_name);
1829:
1830: -- Bug 711141 fix (setting process owner here)
1831:
1832: wf_engine.SetItemOwner (itemtype => itemtype,
1833: itemkey => itemkey,
1834:
1835: /* { Bug 2148872: owner => 'PER:' || l_preparer_id);
1836:
1833: itemkey => itemkey,
1834:
1835: /* { Bug 2148872: owner => 'PER:' || l_preparer_id);
1836:
1837: wf_engine.SetItemOwner needs 'owner' parameter to be passed as
1838: the internal user name of the owner in wf_users. To pass it as
1839: "PER:person_id" has been disallowed by WF. */
1840:
1841: owner => x_username); -- Bug 2148872 }
1846: l_conc_copies := to_number(fnd_profile.value('CONC_COPIES'));
1847: l_conc_save_output := fnd_profile.value('CONC_SAVE_OUTPUT');
1848:
1849:
1850: /* changed the call from wf_engine.setiteattrtext to
1851: po_wf_util_pkg.setitemattrtext because the later handles
1852: attrbute not found exception. req change order wf also
1853: uses these procedures and does not have the preparer_printer
1854: attribute, hence this was required */
1870: avalue => l_conc_save_output);
1871:
1872: --Context Setting revamp (end)
1873:
1874: wf_engine.SetItemAttrText ( itemtype => itemType,
1875: itemkey => itemkey,
1876: aname => 'PREPARER_USER_NAME' ,
1877: avalue => x_username);
1878:
1875: itemkey => itemkey,
1876: aname => 'PREPARER_USER_NAME' ,
1877: avalue => x_username);
1878:
1879: wf_engine.SetItemAttrText ( itemtype => itemType,
1880: itemkey => itemkey,
1881: aname => 'PREPARER_DISPLAY_NAME' ,
1882: avalue => x_user_display_name);
1883:
1880: itemkey => itemkey,
1881: aname => 'PREPARER_DISPLAY_NAME' ,
1882: avalue => x_user_display_name);
1883:
1884: wf_engine.SetItemAttrText ( itemtype => itemType,
1885: itemkey => itemkey,
1886: aname => 'APPROVER_USER_NAME' ,
1887: avalue => x_username);
1888:
1885: itemkey => itemkey,
1886: aname => 'APPROVER_USER_NAME' ,
1887: avalue => x_username);
1888:
1889: wf_engine.SetItemAttrText ( itemtype => itemType,
1890: itemkey => itemkey,
1891: aname => 'APPROVER_DISPLAY_NAME' ,
1892: avalue => x_user_display_name);
1893:
1902: ** correctly.
1903: */
1904:
1905:
1906: l_forward_from_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1907: itemkey => itemkey,
1908: aname => 'FORWARD_FROM_ID');
1909:
1910: IF (l_forward_from_id <> l_preparer_id) THEN
1911:
1912: PO_REQAPPROVAL_INIT1.get_user_name(l_forward_from_id, x_ff_username,
1913: x_ff_user_display_name);
1914:
1915: wf_engine.SetItemAttrText ( itemtype => itemType,
1916: itemkey => itemkey,
1917: aname => 'FORWARD_FROM_USER_NAME' ,
1918: avalue => x_ff_username);
1919:
1916: itemkey => itemkey,
1917: aname => 'FORWARD_FROM_USER_NAME' ,
1918: avalue => x_ff_username);
1919:
1920: wf_engine.SetItemAttrText ( itemtype => itemType,
1921: itemkey => itemkey,
1922: aname => 'FORWARD_FROM_DISP_NAME' ,
1923: avalue => x_ff_user_display_name);
1924:
1923: avalue => x_ff_user_display_name);
1924:
1925: ELSE
1926:
1927: wf_engine.SetItemAttrText ( itemtype => itemType,
1928: itemkey => itemkey,
1929: aname => 'FORWARD_FROM_USER_NAME' ,
1930: avalue => x_username);
1931:
1928: itemkey => itemkey,
1929: aname => 'FORWARD_FROM_USER_NAME' ,
1930: avalue => x_username);
1931:
1932: wf_engine.SetItemAttrText ( itemtype => itemType,
1933: itemkey => itemkey,
1934: aname => 'FORWARD_FROM_DISP_NAME' ,
1935: avalue => x_user_display_name);
1936:
1940: /* Get the username (this is the name used to forward the notification to)
1941: ** from the FORWARD_TO_ID. We need to do this here!
1942: ** Also set the item attribute FORWARD_TO_USERNAME to that username.
1943: */
1944: l_forward_to_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1945: itemkey => itemkey,
1946: aname => 'FORWARD_TO_ID');
1947:
1948: IF l_forward_to_id is NOT NULL THEN
1956: PO_REQAPPROVAL_INIT1.get_user_name(l_forward_to_id, x_ft_username,
1957: x_ft_user_display_name);
1958:
1959: /* Set the forward-to display name */
1960: wf_engine.SetItemAttrText ( itemtype => itemType,
1961: itemkey => itemkey,
1962: aname => 'FORWARD_TO_USERNAME' ,
1963: avalue => x_ft_username);
1964:
1961: itemkey => itemkey,
1962: aname => 'FORWARD_TO_USERNAME' ,
1963: avalue => x_ft_username);
1964:
1965: wf_engine.SetItemAttrText ( itemtype => itemType,
1966: itemkey => itemkey,
1967: aname => 'FORWARD_TO_DISPLAY_NAME' ,
1968: avalue => x_ft_user_display_name);
1969:
1974: */
1975:
1976: IF l_document_type = 'REQUISITION' THEN
1977:
1978: wf_engine.SetItemAttrNumber (itemtype => itemtype,
1979: itemkey => itemkey,
1980: aname => 'RESPONDER_ID',
1981: avalue => l_preparer_id);
1982:
1979: itemkey => itemkey,
1980: aname => 'RESPONDER_ID',
1981: avalue => l_preparer_id);
1982:
1983: wf_engine.SetItemAttrText ( itemtype => itemType,
1984: itemkey => itemkey,
1985: aname => 'RESPONDER_USER_NAME' ,
1986: avalue => x_username);
1987:
1984: itemkey => itemkey,
1985: aname => 'RESPONDER_USER_NAME' ,
1986: avalue => x_username);
1987:
1988: wf_engine.SetItemAttrText ( itemtype => itemType,
1989: itemkey => itemkey,
1990: aname => 'RESPONDER_DISPLAY_NAME' ,
1991: avalue => x_user_display_name);
1992:
2169: l_resubmit_req_url := l_resubmit_url;
2170:
2171: -- End of fix. Bug 636924, lpo, 03/31/98
2172:
2173: wf_engine.SetItemAttrText ( itemtype => itemType,
2174: itemkey => itemkey,
2175: aname => 'REQ_URL' ,
2176: avalue => l_open_req_url);
2177:
2174: itemkey => itemkey,
2175: aname => 'REQ_URL' ,
2176: avalue => l_open_req_url);
2177:
2178: wf_engine.SetItemAttrText ( itemtype => itemType,
2179: itemkey => itemkey,
2180: aname => 'REQ_UPDATE_URL' ,
2181: avalue => l_update_req_url);
2182:
2182:
2183: -- Bug 636924, lpo, 03/31/98
2184: -- Added resubmit workflow attribute.
2185:
2186: wf_engine.SetItemAttrText ( itemtype => itemType,
2187: itemkey => itemkey,
2188: aname => 'REQ_RESUBMIT_URL' ,
2189: avalue => l_resubmit_req_url);
2190:
2187: itemkey => itemkey,
2188: aname => 'REQ_RESUBMIT_URL' ,
2189: avalue => l_resubmit_req_url);
2190:
2191: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype,
2192: itemkey => itemkey,
2193: aname => 'INTERFACE_SOURCE_CODE');
2194:
2195: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
2191: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype,
2192: itemkey => itemkey,
2193: aname => 'INTERFACE_SOURCE_CODE');
2194:
2195: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
2196: itemkey => itemkey,
2197: aname => 'DOCUMENT_SUBTYPE');
2198:
2199: /* bug 7125551, as part of this bug, commenting out the below sql and including it at the beginning of this procedure so
2209: -- modify.
2210:
2211: if l_can_modify_flag = 'N' and l_interface_source = 'POR' then
2212:
2213: wf_engine.SetItemAttrText ( itemtype => itemType,
2214: itemkey => itemkey,
2215: aname => 'OPEN_FORM_COMMAND' ,
2216: avalue => '');
2217: end if;
2225: */
2226: fnd_message.set_name ('PO','PO_WF_NOTIF_REQUIRES_APPROVAL');
2227: l_error_msg := fnd_message.get;
2228:
2229: wf_engine.SetItemAttrText ( itemtype => itemType,
2230: itemkey => itemkey,
2231: aname => 'REQUIRES_APPROVAL_MSG' ,
2232: avalue => l_error_msg);
2233:
2230: itemkey => itemkey,
2231: aname => 'REQUIRES_APPROVAL_MSG' ,
2232: avalue => l_error_msg);
2233:
2234: wf_engine.SetItemAttrText ( itemtype => itemType,
2235: itemkey => itemkey,
2236: aname => 'WRONG_FORWARD_TO_MSG' ,
2237: avalue => '');
2238:
2298: END IF;
2299:
2300: /* Set the doc authorization_status into original_autorization_status */
2301:
2302: wf_engine.SetItemAttrText ( itemtype => itemType,
2303: itemkey => itemkey,
2304: aname => 'ORIG_AUTH_STATUS' ,
2305: avalue => l_authorization_status);
2306:
2312: /* bug 2480327 notification UI enhancement
2313: add &#NID to PLSQL document attributes
2314: */
2315:
2316: wf_engine.SetItemAttrText(itemtype => itemtype,
2317: itemkey => itemkey,
2318: aname => 'PO_REQ_APPROVE_MSG',
2319: avalue =>
2320: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVE_MSG/'||
2321: itemtype||':'||
2322: itemkey||':'||
2323: '&'||'#NID');
2324:
2325: wf_engine.SetItemAttrText(itemtype => itemtype,
2326: itemkey => itemkey,
2327: aname => 'PO_REQ_APPROVED_MSG',
2328: avalue =>
2329: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_APPROVED_MSG/'||
2330: itemtype||':'||
2331: itemkey||':'||
2332: '&'||'#NID');
2333:
2334: wf_engine.SetItemAttrText(itemtype => itemtype,
2335: itemkey => itemkey,
2336: aname => 'PO_REQ_NO_APPROVER_MSG',
2337: avalue =>
2338: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_NO_APPROVER_MSG/'||
2339: itemtype||':'||
2340: itemkey||':'||
2341: '&'||'#NID');
2342:
2343: wf_engine.SetItemAttrText(itemtype => itemtype,
2344: itemkey => itemkey,
2345: aname => 'PO_REQ_REJECT_MSG',
2346: avalue =>
2347: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_PO_REQ_REJECT_MSG/'||
2348: itemtype||':'||
2349: itemkey||':'||
2350: '&'||'#NID');
2351:
2352: wf_engine.SetItemAttrText(itemtype => itemtype,
2353: itemkey => itemkey,
2354: aname => 'REQ_LINES_DETAILS',
2355: avalue =>
2356: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'||
2356: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_REQ_LINES_DETAILS/'||
2357: itemtype||':'||
2358: itemkey);
2359:
2360: wf_engine.SetItemAttrText(itemtype => itemtype,
2361: itemkey => itemkey,
2362: aname => 'ACTION_HISTORY',
2363: avalue =>
2364: 'PLSQL:PO_WF_REQ_NOTIFICATION.GET_ACTION_HISTORY/'||
2366: itemkey);
2367:
2368: elsif l_document_type IN ('PO', 'PA', 'RELEASE') then
2369:
2370: wf_engine.SetItemAttrText(itemtype => itemtype,
2371: itemkey => itemkey,
2372: aname => 'PO_APPROVE_MSG',
2373: avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' ||
2374: itemtype || ':' || itemkey);
2373: avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_PO_APPROVE_MSG/' ||
2374: itemtype || ':' || itemkey);
2375:
2376: --
2377: wf_engine.SetItemAttrText(itemtype => itemtype,
2378: itemkey => itemkey,
2379: aname => 'PO_LINES_DETAILS',
2380: avalue => 'PLSQLCLOB:PO_WF_PO_NOTIFICATION.GET_PO_LINES_DETAILS/'||
2381: itemtype||':'|| itemkey);
2379: aname => 'PO_LINES_DETAILS',
2380: avalue => 'PLSQLCLOB:PO_WF_PO_NOTIFICATION.GET_PO_LINES_DETAILS/'||
2381: itemtype||':'|| itemkey);
2382:
2383: wf_engine.SetItemAttrText(itemtype => itemtype,
2384: itemkey => itemkey,
2385: aname => 'ACTION_HISTORY',
2386: avalue => 'PLSQL:PO_WF_PO_NOTIFICATION.GET_ACTION_HISTORY/'||
2387: itemtype||':'|| itemkey);
2398: --Bug 6164753
2399:
2400:
2401: --
2402: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2403: --
2404:
2405: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 03'||
2406: 'Open Form Command= ' || l_open_form;
2446:
2447:
2448: -- Do nothing in cancel or timeout mode
2449: --
2450: if (funcmode <> wf_engine.eng_run) then
2451:
2452: resultout := wf_engine.eng_null;
2453: return;
2454:
2448: -- Do nothing in cancel or timeout mode
2449: --
2450: if (funcmode <> wf_engine.eng_run) then
2451:
2452: resultout := wf_engine.eng_null;
2453: return;
2454:
2455: end if;
2456:
2461: --Context Setting Revamp
2462: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2463:
2464:
2465: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2466: itemkey => itemkey,
2467: aname => 'ORG_ID');
2468:
2469: IF l_orgid is NOT NULL THEN
2471: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2472:
2473: END IF;
2474:
2475: l_requisition_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2476: itemkey => itemkey,
2477: aname => 'DOCUMENT_ID');
2478:
2479:
2479:
2480: GetReqAttributes(l_requisition_header_id,itemtype,itemkey);
2481:
2482: --
2483: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2484: --
2485: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 02';
2486: IF (g_po_wf_debug = 'Y') THEN
2487: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2523: BEGIN
2524:
2525: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2526: --
2527: if (funcmode <> wf_engine.eng_run) then
2528:
2529: resultout := wf_engine.eng_null;
2530: return;
2531:
2525: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2526: --
2527: if (funcmode <> wf_engine.eng_run) then
2528:
2529: resultout := wf_engine.eng_null;
2530: return;
2531:
2532: end if;
2533:
2531:
2532: end if;
2533:
2534: -- Set the multi-org context
2535: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2536: itemkey => itemkey,
2537: aname => 'ORG_ID');
2538:
2539: IF l_orgid is NOT NULL THEN
2542:
2543: END IF;
2544:
2545: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2546: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2547: itemkey => itemkey,
2548: aname => 'DOCUMENT_ID');
2549:
2550: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2546: l_doc_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2547: itemkey => itemkey,
2548: aname => 'DOCUMENT_ID');
2549:
2550: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2551: itemkey => itemkey,
2552: aname => 'DOCUMENT_TYPE');
2553:
2554: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2550: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2551: itemkey => itemkey,
2552: aname => 'DOCUMENT_TYPE');
2553:
2554: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2555: itemkey => itemkey,
2556: aname => 'AUTHORIZATION_STATUS');
2557:
2558: l_note := wf_engine.GetItemAttrText (itemtype => itemtype,
2554: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2555: itemkey => itemkey,
2556: aname => 'AUTHORIZATION_STATUS');
2557:
2558: l_note := wf_engine.GetItemAttrText (itemtype => itemtype,
2559: itemkey => itemkey,
2560: aname => 'NOTE');
2561:
2562: IF l_doc_type = 'REQUISITION' THEN
2563:
2564: -- Bug 3326847: Change l_requisition_header_id to l_doc_header_id
2565: SetReqAuthStat(l_doc_header_id, itemtype,itemkey,l_note, 'PRE-APPROVED');
2566:
2567: wf_engine.SetItemAttrText ( itemtype => itemtype,
2568: itemkey => itemkey,
2569: aname => 'AUTHORIZATION_STATUS',
2570: avalue => 'PRE-APPROVED');
2571:
2575: -- Bug 3327847: Added code to set POs to 'PRE-APPROVED' status.
2576:
2577: SetPOAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED');
2578:
2579: wf_engine.SetItemAttrText ( itemtype => itemtype,
2580: itemkey => itemkey,
2581: aname => 'AUTHORIZATION_STATUS',
2582: avalue => 'PRE-APPROVED');
2583:
2586: -- Bug 3327847: Added code to set Releases to 'PRE-APPROVED' status.
2587:
2588: SetRelAuthStat(l_doc_header_id, itemtype, itemkey, l_note, 'PRE-APPROVED');
2589:
2590: wf_engine.SetItemAttrText ( itemtype => itemtype,
2591: itemkey => itemkey,
2592: aname => 'AUTHORIZATION_STATUS',
2593: avalue => 'PRE-APPROVED');
2594:
2593: avalue => 'PRE-APPROVED');
2594:
2595: END IF;
2596: --
2597: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2598: --
2599:
2600: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2601: IF (g_po_wf_debug = 'Y') THEN
2643:
2644:
2645: -- Do nothing in cancel or timeout mode
2646: --
2647: if (funcmode <> wf_engine.eng_run) then
2648:
2649: resultout := wf_engine.eng_null;
2650: return;
2651:
2645: -- Do nothing in cancel or timeout mode
2646: --
2647: if (funcmode <> wf_engine.eng_run) then
2648:
2649: resultout := wf_engine.eng_null;
2650: return;
2651:
2652: end if;
2653:
2651:
2652: end if;
2653:
2654: -- Set the multi-org context
2655: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2656: itemkey => itemkey,
2657: aname => 'ORG_ID');
2658:
2659: IF l_orgid is NOT NULL THEN
2661: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2662:
2663: END IF;
2664:
2665: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2666: itemkey => itemkey,
2667: aname => 'DOCUMENT_ID');
2668:
2669: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2665: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2666: itemkey => itemkey,
2667: aname => 'DOCUMENT_ID');
2668:
2669: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2670: itemkey => itemkey,
2671: aname => 'DOCUMENT_TYPE');
2672:
2673: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2669: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2670: itemkey => itemkey,
2671: aname => 'DOCUMENT_TYPE');
2672:
2673: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2674: itemkey => itemkey,
2675: aname => 'AUTHORIZATION_STATUS');
2676:
2677: l_note := wf_engine.GetItemAttrText (itemtype => itemtype,
2673: l_authorization_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2674: itemkey => itemkey,
2675: aname => 'AUTHORIZATION_STATUS');
2676:
2677: l_note := wf_engine.GetItemAttrText (itemtype => itemtype,
2678: itemkey => itemkey,
2679: aname => 'NOTE');
2680:
2681: /* If the Doc is INCOMPLETE or REJECTED (not IN PROCESS or PRE-APPROVED), then
2715: SetRelAuthStat(l_document_id, itemtype,itemkey,l_note, 'IN PROCESS');
2716:
2717: END IF;
2718:
2719: wf_engine.SetItemAttrText ( itemtype => itemtype,
2720: itemkey => itemkey,
2721: aname => 'AUTHORIZATION_STATUS',
2722: avalue => 'IN PROCESS' );
2723:
2725:
2726: END IF;
2727:
2728: --
2729: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2730: --
2731:
2732: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2733: IF (g_po_wf_debug = 'Y') THEN
2774:
2775:
2776: -- Do nothing in cancel or timeout mode
2777: --
2778: if (funcmode <> wf_engine.eng_run) then
2779:
2780: resultout := wf_engine.eng_null;
2781: return;
2782:
2776: -- Do nothing in cancel or timeout mode
2777: --
2778: if (funcmode <> wf_engine.eng_run) then
2779:
2780: resultout := wf_engine.eng_null;
2781: return;
2782:
2783: end if;
2784:
2782:
2783: end if;
2784:
2785: -- Set the multi-org context
2786: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2787: itemkey => itemkey,
2788: aname => 'ORG_ID');
2789:
2790: IF l_orgid is NOT NULL THEN
2792: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2793:
2794: END IF;
2795:
2796: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2797: itemkey => itemkey,
2798: aname => 'ORIG_AUTH_STATUS');
2799:
2800: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2796: l_orig_auth_stat := wf_engine.GetItemAttrText (itemtype => itemtype,
2797: itemkey => itemkey,
2798: aname => 'ORIG_AUTH_STATUS');
2799:
2800: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2801: itemkey => itemkey,
2802: aname => 'DOCUMENT_TYPE');
2803:
2804: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype,
2800: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2801: itemkey => itemkey,
2802: aname => 'DOCUMENT_TYPE');
2803:
2804: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype,
2805: itemkey => itemkey,
2806: aname => 'DOCUMENT_SUBTYPE');
2807:
2808: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2804: l_doc_subtype := wf_engine.GetItemAttrText(itemtype => itemtype,
2805: itemkey => itemkey,
2806: aname => 'DOCUMENT_SUBTYPE');
2807:
2808: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2809: itemkey => itemkey,
2810: aname => 'DOCUMENT_ID');
2811:
2812: /* If the doc is APPROVED then don't reset the status. We should
2845: END IF;
2846:
2847: IF l_auth_stat <> 'APPROVED' THEN
2848:
2849: wf_engine.SetItemAttrText ( itemtype => itemtype,
2850: itemkey => itemkey,
2851: aname => 'AUTHORIZATION_STATUS',
2852: avalue => l_orig_auth_stat);
2853:
2877: p_action => 'NO ACTION'
2878: ) ;
2879: */
2880: --
2881: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2882: --
2883:
2884: EXCEPTION
2885: WHEN OTHERS THEN
2918:
2919:
2920: -- Do nothing in cancel or timeout mode
2921: --
2922: if (funcmode <> wf_engine.eng_run) then
2923:
2924: resultout := wf_engine.eng_null;
2925: return;
2926:
2920: -- Do nothing in cancel or timeout mode
2921: --
2922: if (funcmode <> wf_engine.eng_run) then
2923:
2924: resultout := wf_engine.eng_null;
2925: return;
2926:
2927: end if;
2928:
2926:
2927: end if;
2928:
2929: -- Set the multi-org context
2930: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2931: itemkey => itemkey,
2932: aname => 'ORG_ID');
2933:
2934: IF l_orgid is NOT NULL THEN
2936: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2937:
2938: END IF;
2939:
2940: l_doc_id := wf_engine.GetItemAttrText (itemtype => itemtype,
2941: itemkey => itemkey,
2942: aname => 'DOCUMENT_ID');
2943:
2944: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2940: l_doc_id := wf_engine.GetItemAttrText (itemtype => itemtype,
2941: itemkey => itemkey,
2942: aname => 'DOCUMENT_ID');
2943:
2944: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
2945: itemkey => itemkey,
2946: aname => 'DOCUMENT_TYPE');
2947:
2948: IF l_doc_type = 'REQUISITION' THEN
2960: END IF;
2961:
2962:
2963: --
2964: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2965: --
2966:
2967: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 02';
2968: IF (g_po_wf_debug = 'Y') THEN
3008:
3009:
3010: -- Do nothing in cancel or timeout mode
3011: --
3012: if (funcmode <> wf_engine.eng_run) then
3013:
3014: resultout := wf_engine.eng_null;
3015: return;
3016:
3010: -- Do nothing in cancel or timeout mode
3011: --
3012: if (funcmode <> wf_engine.eng_run) then
3013:
3014: resultout := wf_engine.eng_null;
3015: return;
3016:
3017: end if;
3018:
3015: return;
3016:
3017: end if;
3018:
3019: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype,
3020: itemkey => itemkey,
3021: aname => 'INTERFACE_SOURCE_CODE');
3022:
3023: /* For one time upgrade of notifications for the client, we want to
3025: ** the VERIFY AUTHORITY path. Therefore, set the RESULT to N
3026: */
3027: IF NVL(l_interface_source,'X') = 'ONE_TIME_UPGRADE' THEN
3028: --
3029: resultout := wf_engine.eng_completed || ':' || 'N';
3030: --
3031: ELSE
3032:
3033: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3029: resultout := wf_engine.eng_completed || ':' || 'N';
3030: --
3031: ELSE
3032:
3033: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3034: itemkey => itemkey,
3035: aname => 'DOCUMENT_TYPE');
3036: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3037: itemkey => itemkey,
3032:
3033: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3034: itemkey => itemkey,
3035: aname => 'DOCUMENT_TYPE');
3036: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3037: itemkey => itemkey,
3038: aname => 'DOCUMENT_ID');
3039:
3040: -- Set the multi-org context
3037: itemkey => itemkey,
3038: aname => 'DOCUMENT_ID');
3039:
3040: -- Set the multi-org context
3041: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3042: itemkey => itemkey,
3043: aname => 'ORG_ID');
3044:
3045: IF l_orgid is NOT NULL THEN
3050:
3051: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3052:
3053: --
3054: resultout := wf_engine.eng_completed || ':' || x_CanOwnerApproveFlag ;
3055: --
3056:
3057: END IF;
3058:
3099:
3100:
3101: -- Do nothing in cancel or timeout mode
3102: --
3103: if (funcmode <> wf_engine.eng_run) then
3104:
3105: resultout := wf_engine.eng_null;
3106: return;
3107:
3101: -- Do nothing in cancel or timeout mode
3102: --
3103: if (funcmode <> wf_engine.eng_run) then
3104:
3105: resultout := wf_engine.eng_null;
3106: return;
3107:
3108: end if;
3109:
3113:
3114: --Context Setting Revamp
3115: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
3116:
3117: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3118: itemkey => itemkey,
3119: aname => 'DOCUMENT_TYPE');
3120:
3121: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3117: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3118: itemkey => itemkey,
3119: aname => 'DOCUMENT_TYPE');
3120:
3121: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3122: itemkey => itemkey,
3123: aname => 'DOCUMENT_ID');
3124:
3125: -- Bug 762194: Need to set multi-org context.
3123: aname => 'DOCUMENT_ID');
3124:
3125: -- Bug 762194: Need to set multi-org context.
3126:
3127: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3128: itemkey => itemkey,
3129: aname => 'ORG_ID');
3130:
3131: IF l_orgid is NOT NULL THEN
3158:
3159: IF l_auth_stat = 'PRE-APPROVED' THEN
3160:
3161: --
3162: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3163: --
3164:
3165: ELSIF l_auth_stat = 'IN PROCESS' THEN
3166: --
3163: --
3164:
3165: ELSIF l_auth_stat = 'IN PROCESS' THEN
3166: --
3167: resultout := wf_engine.eng_completed || ':' || 'N' ;
3168: --
3169:
3170: ELSE
3171: -- The doc is either APPROVED, INCOMPLETE or REJECTED. This invalid, therefore
3169:
3170: ELSE
3171: -- The doc is either APPROVED, INCOMPLETE or REJECTED. This invalid, therefore
3172: -- we will exit the workflow with an INVALID ACTION status.
3173: resultout := wf_engine.eng_completed || ':' || 'INVALID_AUTH_STATUS' ;
3174: --
3175:
3176: END IF;
3177:
3232:
3233:
3234: -- Do nothing in cancel or timeout mode
3235: --
3236: if (funcmode <> wf_engine.eng_run) then
3237:
3238: resultout := wf_engine.eng_null;
3239: return;
3240:
3234: -- Do nothing in cancel or timeout mode
3235: --
3236: if (funcmode <> wf_engine.eng_run) then
3237:
3238: resultout := wf_engine.eng_null;
3239: return;
3240:
3241: end if;
3242:
3239: return;
3240:
3241: end if;
3242:
3243: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3244: itemkey => itemkey,
3245: aname => 'DOCUMENT_ID');
3246:
3247: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3243: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3244: itemkey => itemkey,
3245: aname => 'DOCUMENT_ID');
3246:
3247: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3248: itemkey => itemkey,
3249: aname => 'DOCUMENT_TYPE');
3250:
3251: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
3247: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3248: itemkey => itemkey,
3249: aname => 'DOCUMENT_TYPE');
3250:
3251: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
3252: itemkey => itemkey,
3253: aname => 'DOCUMENT_SUBTYPE');
3254:
3255: /* Bug 1100247 Amitabh
3269: ** PREPARER_USER_NAME and PREPARER_DISPLAY_NAME.
3270: **
3271: */
3272:
3273: l_employee_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3274: itemkey => itemkey,
3275: aname => 'APPROVER_EMPID');
3276:
3277: PO_WF_UTIL_PKG.SetItemAttrNumber (itemtype => itemtype,
3278: itemkey => itemkey,
3279: aname => 'SUBMITTER_ID',
3280: avalue => l_employee_id);
3281:
3282: l_note := wf_engine.GetItemAttrText (itemtype => itemtype,
3283: itemkey => itemkey,
3284: aname => 'NOTE');
3285:
3286: -- Set the multi-org context
3283: itemkey => itemkey,
3284: aname => 'NOTE');
3285:
3286: -- Set the multi-org context
3287: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3288: itemkey => itemkey,
3289: aname => 'ORG_ID');
3290:
3291: IF l_orgid is NOT NULL THEN
3293: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3294:
3295: END IF;
3296:
3297: l_path_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3298: itemkey => itemkey,
3299: aname => 'APPROVAL_PATH_ID');
3300:
3301: PO_REQAPPROVAL_INIT1.InsertActionHistSubmit(itemtype,itemkey,l_doc_id, l_doc_type,
3302: l_doc_subtype, l_employee_id, 'SUBMIT', l_note, l_path_id);
3303:
3304:
3305: --
3306: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
3307: --
3308:
3309:
3310: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 02';
3343:
3344:
3345: -- Do nothing in cancel or timeout mode
3346: --
3347: if (funcmode <> wf_engine.eng_run) then
3348:
3349: resultout := wf_engine.eng_null;
3350: return;
3351:
3345: -- Do nothing in cancel or timeout mode
3346: --
3347: if (funcmode <> wf_engine.eng_run) then
3348:
3349: resultout := wf_engine.eng_null;
3350: return;
3351:
3352: end if;
3353:
3351:
3352: end if;
3353:
3354: --
3355: resultout := wf_engine.eng_completed || ':' || 'PASSED_VERIFICATION' ;
3356: --
3357:
3358: END Set_End_VerifyDoc_Passed;
3359:
3377: BEGIN
3378:
3379: -- Do nothing in cancel or timeout mode
3380: --
3381: if (funcmode <> wf_engine.eng_run) then
3382:
3383: resultout := wf_engine.eng_null;
3384: return;
3385:
3379: -- Do nothing in cancel or timeout mode
3380: --
3381: if (funcmode <> wf_engine.eng_run) then
3382:
3383: resultout := wf_engine.eng_null;
3384: return;
3385:
3386: end if;
3387:
3385:
3386: end if;
3387:
3388: --
3389: resultout := wf_engine.eng_completed || ':' || 'FAILED_VERIFICATION' ;
3390: --
3391:
3392: END Set_End_VerifyDoc_Failed;
3393:
3412: x_progress varchar2(100);
3413: BEGIN
3414:
3415: --
3416: resultout := wf_engine.eng_completed || ':' || 'VALID_ACTION' ;
3417: --
3418:
3419: x_progress := 'PO_REQAPPROVAL_INIT1.Set_End_Valid_Action: RESULT=VALID_ACTION';
3420: IF (g_po_wf_debug = 'Y') THEN
3443:
3444: BEGIN
3445:
3446: --
3447: resultout := wf_engine.eng_completed || ':' || 'INVALID_ACTION' ;
3448: --
3449:
3450: END Set_End_Invalid_Action;
3451:
3466:
3467: l_interface_source varchar2(25);
3468: BEGIN
3469:
3470: l_interface_source := wf_engine.GetItemAttrText (itemtype => itemtype,
3471: itemkey => itemkey,
3472: aname => 'INTERFACE_SOURCE_CODE');
3473:
3474: IF l_interface_source <> 'PO_FORM' THEN
3473:
3474: IF l_interface_source <> 'PO_FORM' THEN
3475:
3476: --
3477: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3478: --
3479: ELSE
3480: --
3481: resultout := wf_engine.eng_completed || ':' || 'N' ;
3477: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3478: --
3479: ELSE
3480: --
3481: resultout := wf_engine.eng_completed || ':' || 'N' ;
3482: --
3483: END IF;
3484:
3485: END Is_Interface_ReqImport;
3511:
3512: BEGIN
3513:
3514:
3515: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3516: itemkey => itemkey,
3517: aname => 'DOCUMENT_TYPE');
3518:
3519: --
3527: end if;
3528:
3529: --
3530:
3531: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3532: itemkey => itemkey,
3533: aname => 'DOCUMENT_ID');
3534:
3535: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3531: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3532: itemkey => itemkey,
3533: aname => 'DOCUMENT_ID');
3534:
3535: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3536: itemkey => itemkey,
3537: aname => 'ORG_ID');
3538:
3539: IF l_orgid is NOT NULL THEN
3549: p_doc_id => l_document_id)
3550: = 'Y' ) THEN
3551:
3552: --
3553: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3554: --
3555: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 01';
3556: IF (g_po_wf_debug = 'Y') THEN
3557: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3558: END IF;
3559:
3560: ELSE
3561: --
3562: resultout := wf_engine.eng_completed || ':' || 'N' ;
3563: --
3564: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 02';
3565: IF (g_po_wf_debug = 'Y') THEN
3566: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3618:
3619: IF ((l_reserve_at_compl = 'N' ) OR (x_CanOwnerApproveFlag = 'N')) THEN
3620:
3621: --
3622: resultout := wf_engine.eng_completed || ':' || 'N' ;
3623: --
3624: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 01';
3625: IF (g_po_wf_debug = 'Y') THEN
3626: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3627: END IF;
3628:
3629: ELSE
3630: --
3631: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3632: --
3633: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 02';
3634: IF (g_po_wf_debug = 'Y') THEN
3635: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3696: END IF;
3697:
3698: -- Do nothing in cancel or timeout mode
3699: --
3700: if (funcmode <> wf_engine.eng_run) then
3701:
3702: resultout := wf_engine.eng_null;
3703: return;
3704:
3698: -- Do nothing in cancel or timeout mode
3699: --
3700: if (funcmode <> wf_engine.eng_run) then
3701:
3702: resultout := wf_engine.eng_null;
3703: return;
3704:
3705: end if;
3706: /* Bug #: 1384323 draising
3709: database rather rather than the org id attribute.
3710: */
3711:
3712: /*
3713: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3714: itemkey => itemkey,
3715: aname => 'ORG_ID');
3716:
3717: IF l_orgid is NOT NULL THEN
3719: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3720:
3721: END IF;
3722: */
3723: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3724: itemkey => itemkey,
3725: aname => 'DOCUMENT_TYPE');
3726: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
3727: itemkey => itemkey,
3722: */
3723: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3724: itemkey => itemkey,
3725: aname => 'DOCUMENT_TYPE');
3726: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
3727: itemkey => itemkey,
3728: aname => 'DOCUMENT_SUBTYPE');
3729: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3730: itemkey => itemkey,
3725: aname => 'DOCUMENT_TYPE');
3726: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
3727: itemkey => itemkey,
3728: aname => 'DOCUMENT_SUBTYPE');
3729: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3730: itemkey => itemkey,
3731: aname => 'DOCUMENT_ID');
3732:
3733: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3733: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3734:
3735: IF l_orgid is NOT NULL THEN
3736: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3737: wf_engine.SetItemAttrNumber (itemtype => itemtype ,
3738: itemkey => itemkey ,
3739: aname => 'ORG_ID' ,
3740: avalue => l_orgid );
3741: END IF;
3788: Close_Old_Notif(itemtype, l_wf_item_key);
3789:
3790: END IF;
3791:
3792: resultout := wf_engine.eng_completed ;
3793:
3794: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 02.';
3795: IF (g_po_wf_debug = 'Y') THEN
3796: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3827:
3828:
3829: -- Do nothing in cancel or timeout mode
3830: --
3831: if (funcmode <> wf_engine.eng_run) then
3832:
3833: resultout := wf_engine.eng_null;
3834: return;
3835:
3829: -- Do nothing in cancel or timeout mode
3830: --
3831: if (funcmode <> wf_engine.eng_run) then
3832:
3833: resultout := wf_engine.eng_null;
3834: return;
3835:
3836: end if;
3837:
3834: return;
3835:
3836: end if;
3837:
3838: l_print_doc := wf_engine.GetItemAttrText (itemtype => itemtype,
3839: itemkey => itemkey,
3840: aname => 'PRINT_DOCUMENT');
3841:
3842: /* the value of l_print_doc should be Y or N */
3844: l_print_doc := 'N';
3845: END IF;
3846:
3847: --
3848: resultout := wf_engine.eng_completed || ':' || l_print_doc ;
3849: --
3850: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 02. Result= ' || l_print_doc;
3851: IF (g_po_wf_debug = 'Y') THEN
3852: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3886:
3887:
3888: -- Do nothing in cancel or timeout mode
3889: --
3890: if (funcmode <> wf_engine.eng_run) then
3891:
3892: resultout := wf_engine.eng_null;
3893: return;
3894:
3888: -- Do nothing in cancel or timeout mode
3889: --
3890: if (funcmode <> wf_engine.eng_run) then
3891:
3892: resultout := wf_engine.eng_null;
3893: return;
3894:
3895: end if;
3896:
3893: return;
3894:
3895: end if;
3896:
3897: l_fax_doc := wf_engine.GetItemAttrText (itemtype => itemtype,
3898: itemkey => itemkey,
3899: aname => 'FAX_DOCUMENT');
3900:
3901: /* the value of l_fax_doc should be Y or N */
3903: l_fax_doc := 'N';
3904: END IF;
3905:
3906: --
3907: resultout := wf_engine.eng_completed || ':' || l_fax_doc ;
3908: --
3909: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 02. Result= ' || l_fax_doc;
3910: IF (g_po_wf_debug = 'Y') THEN
3911: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3946: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3947: END IF;
3948:
3949: -- Do nothing in cancel or timeout mode
3950: if (funcmode <> wf_engine.eng_run) then
3951:
3952: resultout := wf_engine.eng_null;
3953: return;
3954:
3948:
3949: -- Do nothing in cancel or timeout mode
3950: if (funcmode <> wf_engine.eng_run) then
3951:
3952: resultout := wf_engine.eng_null;
3953: return;
3954:
3955: end if;
3956:
3953: return;
3954:
3955: end if;
3956:
3957: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3958: itemkey => itemkey,
3959: aname => 'ORG_ID');
3960:
3961:
3958: itemkey => itemkey,
3959: aname => 'ORG_ID');
3960:
3961:
3962: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3963: itemkey => itemkey,
3964: aname => 'USER_ID');
3965:
3966: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3962: l_user_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3963: itemkey => itemkey,
3964: aname => 'USER_ID');
3965:
3966: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3967: itemkey => itemkey,
3968: aname => 'RESPONSIBILITY_ID');
3969:
3970: l_appl_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3966: l_resp_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3967: itemkey => itemkey,
3968: aname => 'RESPONSIBILITY_ID');
3969:
3970: l_appl_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3971: itemkey => itemkey,
3972: aname => 'APPLICATION_ID');
3973:
3974: /* Since the call may be started from background engine (new seesion),
3990: -- end if;
3991:
3992:
3993:
3994: l_create_sr_asl := wf_engine.GetItemAttrText (itemtype => itemtype,
3995: itemkey => itemkey,
3996: aname => 'CREATE_SOURCING_RULE');
3997: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3998: itemkey => itemkey,
3993:
3994: l_create_sr_asl := wf_engine.GetItemAttrText (itemtype => itemtype,
3995: itemkey => itemkey,
3996: aname => 'CREATE_SOURCING_RULE');
3997: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3998: itemkey => itemkey,
3999: aname => 'DOCUMENT_TYPE');
4000: l_document_subtype := wf_engine.GetItemAttrText (itemtype =>itemtype,
4001: itemkey => itemkey,
3996: aname => 'CREATE_SOURCING_RULE');
3997: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3998: itemkey => itemkey,
3999: aname => 'DOCUMENT_TYPE');
4000: l_document_subtype := wf_engine.GetItemAttrText (itemtype =>itemtype,
4001: itemkey => itemkey,
4002: aname => 'DOCUMENT_SUBTYPE');
4003:
4004: /* the value of CREATE_SOURCING_RULE should be Y or N */
4015: l_create_sr_asl := 'N';
4016: end if;
4017: END IF;
4018:
4019: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
4020:
4021: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 02. Result= ' || l_create_sr_asl;
4022: IF (g_po_wf_debug = 'Y') THEN
4023: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4025:
4026: EXCEPTION
4027: WHEN OTHERS THEN
4028: l_create_sr_asl := 'N';
4029: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
4030: END Create_SR_ASL_Yes_No;
4031:
4032:
4033:
4061:
4062:
4063: -- Do nothing in cancel or timeout mode
4064: --
4065: if (funcmode <> wf_engine.eng_run) then
4066:
4067: resultout := wf_engine.eng_null;
4068: return;
4069:
4063: -- Do nothing in cancel or timeout mode
4064: --
4065: if (funcmode <> wf_engine.eng_run) then
4066:
4067: resultout := wf_engine.eng_null;
4068: return;
4069:
4070: end if;
4071:
4069:
4070: end if;
4071:
4072:
4073: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4074: itemkey => itemkey,
4075: aname => 'DOCUMENT_TYPE');
4076:
4077: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4073: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4074: itemkey => itemkey,
4075: aname => 'DOCUMENT_TYPE');
4076:
4077: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4078: itemkey => itemkey,
4079: aname => 'DOCUMENT_ID');
4080:
4081: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4077: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4078: itemkey => itemkey,
4079: aname => 'DOCUMENT_ID');
4080:
4081: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4082: itemkey => itemkey,
4083: aname => 'DOCUMENT_SUBTYPE');
4084:
4085: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, l_notifier);
4089: l_send_notif := 'Y';
4090: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
4091: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
4092:
4093: wf_engine.SetItemAttrText (itemtype => itemtype,
4094: itemkey => itemkey,
4095: aname => 'PO_WF_NOTIF_PERFORMER',
4096: avalue => l_notifier);
4097: else
4097: else
4098: l_send_notif := 'N';
4099: end if;
4100:
4101: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
4102:
4103: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 02. Result= ' || l_send_notif;
4104: IF (g_po_wf_debug = 'Y') THEN
4105: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4149:
4150:
4151: -- Do nothing in cancel or timeout mode
4152: --
4153: if (funcmode <> wf_engine.eng_run) then
4154:
4155: resultout := wf_engine.eng_null;
4156: return;
4157:
4151: -- Do nothing in cancel or timeout mode
4152: --
4153: if (funcmode <> wf_engine.eng_run) then
4154:
4155: resultout := wf_engine.eng_null;
4156: return;
4157:
4158: end if;
4159:
4157:
4158: end if;
4159:
4160:
4161: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4162: itemkey => itemkey,
4163: aname => 'DOCUMENT_TYPE');
4164:
4165: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4161: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4162: itemkey => itemkey,
4163: aname => 'DOCUMENT_TYPE');
4164:
4165: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4166: itemkey => itemkey,
4167: aname => 'DOCUMENT_ID');
4168:
4169: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4165: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4166: itemkey => itemkey,
4167: aname => 'DOCUMENT_ID');
4168:
4169: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4170: itemkey => itemkey,
4171: aname => 'DOCUMENT_SUBTYPE');
4172:
4173: -- BINDING FPJ START
4194: l_send_notif := 'Y';
4195: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
4196: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
4197:
4198: wf_engine.SetItemAttrText (itemtype => itemtype,
4199: itemkey => itemkey,
4200: aname => 'PO_WF_NOTIF_PERFORMER',
4201: avalue => l_notifier);
4202: else
4202: else
4203: l_send_notif := 'N';
4204: end if;
4205:
4206: wf_engine.SetItemAttrText (itemtype => itemtype,
4207: itemkey => itemkey,
4208: aname => 'PO_WF_ACK_NOTIF_PERFORMER',
4209: avalue => l_notifier_resp);
4210:
4207: itemkey => itemkey,
4208: aname => 'PO_WF_ACK_NOTIF_PERFORMER',
4209: avalue => l_notifier_resp);
4210:
4211: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
4212:
4213:
4214: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 02. Result= ' || l_send_notif;
4215: IF (g_po_wf_debug = 'Y') THEN
4257:
4258:
4259: -- Do nothing in cancel or timeout mode
4260: --
4261: if (funcmode <> wf_engine.eng_run) then
4262:
4263: resultout := wf_engine.eng_null;
4264: return;
4265:
4259: -- Do nothing in cancel or timeout mode
4260: --
4261: if (funcmode <> wf_engine.eng_run) then
4262:
4263: resultout := wf_engine.eng_null;
4264: return;
4265:
4266: end if;
4267:
4264: return;
4265:
4266: end if;
4267:
4268: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4269: itemkey => itemkey,
4270: aname => 'DOCUMENT_TYPE');
4271:
4272: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4268: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4269: itemkey => itemkey,
4270: aname => 'DOCUMENT_TYPE');
4271:
4272: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4273: itemkey => itemkey,
4274: aname => 'DOCUMENT_ID');
4275:
4276: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4272: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4273: itemkey => itemkey,
4274: aname => 'DOCUMENT_ID');
4275:
4276: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4277: itemkey => itemkey,
4278: aname => 'DOCUMENT_SUBTYPE');
4279:
4280: l_notifier:=wf_engine.GetItemAttrText (itemtype => itemtype,
4276: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4277: itemkey => itemkey,
4278: aname => 'DOCUMENT_SUBTYPE');
4279:
4280: l_notifier:=wf_engine.GetItemAttrText (itemtype => itemtype,
4281: itemkey => itemkey,
4282: aname => 'PO_WF_ACK_NOTIF_PERFORMER');
4283:
4284: if (l_notifier is not null) then
4289: l_send_notif := 'N';
4290: end if;
4291:
4292:
4293: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
4294:
4295: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 02. Result= ' || l_send_notif;
4296: IF (g_po_wf_debug = 'Y') THEN
4297: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4608:
4609:
4610: -- Do nothing in cancel or timeout mode
4611: --
4612: if (funcmode <> wf_engine.eng_run) then
4613:
4614: resultout := wf_engine.eng_null;
4615: return;
4616:
4610: -- Do nothing in cancel or timeout mode
4611: --
4612: if (funcmode <> wf_engine.eng_run) then
4613:
4614: resultout := wf_engine.eng_null;
4615: return;
4616:
4617: end if;
4618:
4620: * For blankets, the org context was not getting set and hence
4621: * sql query which selecs vendor_site_id below from po_vendor_sites
4622: * was throwing an exception. Hence setting the org context here.
4623: */
4624: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4625: itemkey => itemkey,
4626: aname => 'ORG_ID');
4627:
4628: IF l_orgid is NOT NULL THEN
4632: END IF;
4633:
4634: x_progress := '001';
4635: -- Create the attribute email document
4636: l_email_doc := wf_engine.GetItemAttrText (itemtype => itemtype,
4637: itemkey => itemkey,
4638: aname => 'EMAIL_DOCUMENT');
4639:
4640:
4647: -- Here, we are creating an entry in wf_local_users and assigning that to the email performer
4648: IF (l_email_doc = 'Y') THEN
4649:
4650:
4651: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4652: itemkey => itemkey,
4653: aname => 'DOCUMENT_TYPE');
4654:
4655: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4651: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
4652: itemkey => itemkey,
4653: aname => 'DOCUMENT_TYPE');
4654:
4655: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4656: itemkey => itemkey,
4657: aname => 'DOCUMENT_SUBTYPE');
4658:
4659: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4655: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4656: itemkey => itemkey,
4657: aname => 'DOCUMENT_SUBTYPE');
4658:
4659: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4660: itemkey => itemkey,
4661: aname => 'DOCUMENT_ID');
4662:
4663: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype,
4659: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4660: itemkey => itemkey,
4661: aname => 'DOCUMENT_ID');
4662:
4663: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype,
4664: itemkey => itemkey,
4665: aname => 'EMAIL_ADDRESS');
4666:
4667: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype,
4663: l_po_email_add := wf_engine.GetItemAttrText (itemtype => itemtype,
4664: itemkey => itemkey,
4665: aname => 'EMAIL_ADDRESS');
4666:
4667: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype,
4668: itemkey => itemkey,
4669: aname => 'EMAIL_ADD_FROM_PROFILE');
4670:
4671:
4729: WF_DIRECTORY.SETADHOCUSERATTR(l_po_email_performer, l_display_name, l_notification_preference, l_adhocuser_lang, l_adhocuser_territory, l_po_email_add, null);
4730:
4731: end if;
4732:
4733: wf_engine.SetItemAttrText ( itemtype => itemtype,
4734: itemkey => itemkey,
4735: aname => 'PO_WF_EMAIL_PERFORMER',
4736: avalue => l_po_email_performer);
4737:
4764:
4765: end if;
4766: --EMAILPO FPH END--
4767:
4768: wf_engine.SetItemAttrText ( itemtype => itemtype,
4769: itemkey => itemkey,
4770: aname => 'PO_WF_EMAIL_PERFORMER2',
4771: avalue => l_po_email_performer_prof);
4772:
4784:
4785: END IF;
4786:
4787:
4788: resultout := wf_engine.eng_completed || ':' || l_email_doc ;
4789:
4790: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 02. Result= ' || l_email_doc;
4791: IF (g_po_wf_debug = 'Y') THEN
4792: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4791: IF (g_po_wf_debug = 'Y') THEN
4792: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4793: END IF;
4794:
4795: -- resultout := wf_engine.eng_completed || ':' || 'Y' ;
4796:
4797: EXCEPTION
4798: WHEN OTHERS THEN
4799: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4839:
4840:
4841: -- Do nothing in cancel or timeout mode
4842: --
4843: if (funcmode <> wf_engine.eng_run) then
4844:
4845: resultout := wf_engine.eng_null;
4846: return;
4847:
4841: -- Do nothing in cancel or timeout mode
4842: --
4843: if (funcmode <> wf_engine.eng_run) then
4844:
4845: resultout := wf_engine.eng_null;
4846: return;
4847:
4848: end if;
4849:
4846: return;
4847:
4848: end if;
4849:
4850: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4851: itemkey => itemkey,
4852: aname => 'ORG_ID');
4853:
4854: IF l_orgid is NOT NULL THEN
4860: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 02';
4861:
4862: PrintDocument(itemtype,itemkey);
4863: --
4864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4865: --
4866: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4867:
4868: EXCEPTION
4900:
4901:
4902: -- Do nothing in cancel or timeout mode
4903: --
4904: if (funcmode <> wf_engine.eng_run) then
4905:
4906: resultout := wf_engine.eng_null;
4907: return;
4908:
4902: -- Do nothing in cancel or timeout mode
4903: --
4904: if (funcmode <> wf_engine.eng_run) then
4905:
4906: resultout := wf_engine.eng_null;
4907: return;
4908:
4909: end if;
4910:
4907: return;
4908:
4909: end if;
4910:
4911: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4912: itemkey => itemkey,
4913: aname => 'ORG_ID');
4914:
4915: IF l_orgid is NOT NULL THEN
4921: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 02';
4922:
4923: FaxDocument(itemtype,itemkey);
4924: --
4925: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4926: --
4927: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4928:
4929: EXCEPTION
4974:
4975:
4976: -- Do nothing in cancel or timeout mode
4977: --
4978: if (funcmode <> wf_engine.eng_run) then
4979:
4980: resultout := wf_engine.eng_null;
4981: return;
4982:
4976: -- Do nothing in cancel or timeout mode
4977: --
4978: if (funcmode <> wf_engine.eng_run) then
4979:
4980: resultout := wf_engine.eng_null;
4981: return;
4982:
4983: end if;
4984:
4987: */
4988: --Context Setting Revamp
4989: --PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey);
4990:
4991: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4992: itemkey => itemkey,
4993: aname => 'ORG_ID');
4994:
4995: IF l_orgid is NOT NULL THEN
4997: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4998:
4999: END IF;
5000:
5001: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
5002: itemkey => itemkey,
5003: aname => 'DOCUMENT_TYPE');
5004:
5005: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
5001: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
5002: itemkey => itemkey,
5003: aname => 'DOCUMENT_TYPE');
5004:
5005: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
5006: itemkey => itemkey,
5007: aname => 'DOCUMENT_ID');
5008: IF l_doc_type='REQUISITION' THEN
5009:
5033: END IF;
5034:
5035: IF l_auth_stat = 'APPROVED' THEN
5036:
5037: resultout := wf_engine.eng_completed || ':' || 'Y' ;
5038: x_resultout := 'Y';
5039: ELSE
5040: resultout := wf_engine.eng_completed || ':' || 'N';
5041: x_resultout := 'N';
5036:
5037: resultout := wf_engine.eng_completed || ':' || 'Y' ;
5038: x_resultout := 'Y';
5039: ELSE
5040: resultout := wf_engine.eng_completed || ':' || 'N';
5041: x_resultout := 'N';
5042: END IF;
5043:
5044: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 02. Result=' || x_resultout;
5086:
5087:
5088: -- Do nothing in cancel or timeout mode
5089: --
5090: if (funcmode <> wf_engine.eng_run) then
5091:
5092: resultout := wf_engine.eng_null;
5093: return;
5094:
5088: -- Do nothing in cancel or timeout mode
5089: --
5090: if (funcmode <> wf_engine.eng_run) then
5091:
5092: resultout := wf_engine.eng_null;
5093: return;
5094:
5095: end if;
5096:
5093: return;
5094:
5095: end if;
5096:
5097: l_create_po_mode := wf_engine.GetItemAttrText (itemtype => itemtype,
5098: itemkey => itemkey,
5099: aname => 'SEND_CREATEPO_TO_BACKGROUND');
5100:
5101: /* Bug 678291 by dkfchan
5099: aname => 'SEND_CREATEPO_TO_BACKGROUND');
5100:
5101: /* Bug 678291 by dkfchan
5102: ** if the approval mode is background, set the result to 'BACKGROUD'
5103: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
5104: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
5105: */
5106:
5107: IF NVL(l_create_po_mode,'N') = 'Y' THEN
5104: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
5105: */
5106:
5107: IF NVL(l_create_po_mode,'N') = 'Y' THEN
5108: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
5109: ELSE
5110: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
5111: END IF;
5112:
5106:
5107: IF NVL(l_create_po_mode,'N') = 'Y' THEN
5108: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
5109: ELSE
5110: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
5111: END IF;
5112:
5113: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: ' ||
5114: 'Create PO Mode= ' || l_create_po_mode;
5158:
5159:
5160: -- Do nothing in cancel or timeout mode
5161: --
5162: if (funcmode <> wf_engine.eng_run) then
5163:
5164: resultout := wf_engine.eng_null;
5165: return;
5166:
5160: -- Do nothing in cancel or timeout mode
5161: --
5162: if (funcmode <> wf_engine.eng_run) then
5163:
5164: resultout := wf_engine.eng_null;
5165: return;
5166:
5167: end if;
5168:
5169: fnd_profile.get('PO_WORKFLOW_APPROVAL_MODE', l_approval_mode);
5170:
5171: /* Bug 678291 by dkfchan
5172: ** if the approval mode is background, set the result to 'BACKGROUD'
5173: ** Removed the original method which set the WF_ENGINE.THRESHOLD to -1.
5174: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
5175: */
5176:
5177: IF l_approval_mode = 'BACKGROUND' or l_approval_mode is NULL THEN
5174: ** This fix depends on the change poxwfrqa.wft and poxwfpoa.wft also.
5175: */
5176:
5177: IF l_approval_mode = 'BACKGROUND' or l_approval_mode is NULL THEN
5178: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
5179: ELSE
5180: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
5181: END IF;
5182:
5176:
5177: IF l_approval_mode = 'BACKGROUND' or l_approval_mode is NULL THEN
5178: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
5179: ELSE
5180: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
5181: END IF;
5182:
5183: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: ' ||
5184: 'Approval Mode= ' || l_approval_mode;
5564: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5565: END IF;
5566:
5567:
5568: wf_engine.SetItemAttrText ( itemtype => itemtype,
5569: itemkey => itemkey,
5570: aname => 'DOCUMENT_NUMBER',
5571: avalue => ReqHdr_rec.segment1);
5572: --
5569: itemkey => itemkey,
5570: aname => 'DOCUMENT_NUMBER',
5571: avalue => ReqHdr_rec.segment1);
5572: --
5573: wf_engine.SetItemAttrNumber ( itemtype => itemType,
5574: itemkey => itemkey,
5575: aname => 'DOCUMENT_ID',
5576: avalue => ReqHdr_rec.requisition_header_id);
5577: --
5574: itemkey => itemkey,
5575: aname => 'DOCUMENT_ID',
5576: avalue => ReqHdr_rec.requisition_header_id);
5577: --
5578: wf_engine.SetItemAttrNumber ( itemtype => itemType,
5579: itemkey => itemkey,
5580: aname => 'PREPARER_ID',
5581: avalue => ReqHdr_rec.preparer_id);
5582: --
5579: itemkey => itemkey,
5580: aname => 'PREPARER_ID',
5581: avalue => ReqHdr_rec.preparer_id);
5582: --
5583: wf_engine.SetItemAttrText ( itemtype => itemtype,
5584: itemkey => itemkey,
5585: aname => 'AUTHORIZATION_STATUS',
5586: avalue => ReqHdr_rec.authorization_status);
5587: --
5585: aname => 'AUTHORIZATION_STATUS',
5586: avalue => ReqHdr_rec.authorization_status);
5587: --
5588:
5589: wf_engine.SetItemAttrText ( itemtype => itemtype,
5590: itemkey => itemkey,
5591: aname => 'REQ_DESCRIPTION',
5592: avalue => ReqHdr_rec.description);
5593: --
5590: itemkey => itemkey,
5591: aname => 'REQ_DESCRIPTION',
5592: avalue => ReqHdr_rec.description);
5593: --
5594: wf_engine.SetItemAttrText ( itemtype => itemtype,
5595: itemkey => itemkey,
5596: aname => 'CLOSED_CODE',
5597: avalue => ReqHdr_rec.closed_code);
5598: --
5596: aname => 'CLOSED_CODE',
5597: avalue => ReqHdr_rec.closed_code);
5598: --
5599:
5600: wf_engine.SetItemAttrText ( itemtype => itemtype,
5601: itemkey => itemkey,
5602: aname => 'EMERGENCY_PO_NUMBER',
5603: avalue => ReqHdr_rec.emergency_po_num);
5604: --
5634: /* Bug 1100247 Amitabh*/
5635: PO_REQAPPROVAL_INIT1.get_user_name(ReqHdr_rec.preparer_id, x_username,
5636: x_user_display_name);
5637:
5638: wf_engine.SetItemAttrText ( itemtype => itemType,
5639: itemkey => itemkey,
5640: aname => 'PREPARER_USER_NAME' ,
5641: avalue => x_username);
5642:
5639: itemkey => itemkey,
5640: aname => 'PREPARER_USER_NAME' ,
5641: avalue => x_username);
5642:
5643: wf_engine.SetItemAttrText ( itemtype => itemType,
5644: itemkey => itemkey,
5645: aname => 'PREPARER_DISPLAY_NAME' ,
5646: avalue => x_user_display_name);
5647:
5647:
5648: /* Get the translated values for the DOC_TYPE, DOC_SUBTYPE, AUTH_STATUS and
5649: ** CLOSED_CODE. These will be displayed in the notifications.
5650: */
5651: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
5652: itemkey => itemkey,
5653: aname => 'DOCUMENT_TYPE');
5654:
5655: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
5651: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
5652: itemkey => itemkey,
5653: aname => 'DOCUMENT_TYPE');
5654:
5655: l_doc_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
5656: itemkey => itemkey,
5657: aname => 'DOCUMENT_SUBTYPE');
5658:
5659: OPEN C1(ReqHdr_rec.authorization_status);
5676: CLOSE C4;
5677: */
5678:
5679: --
5680: wf_engine.SetItemAttrText ( itemtype => itemtype,
5681: itemkey => itemkey,
5682: aname => 'AUTHORIZATION_STATUS_DISP',
5683: avalue => l_auth_stat);
5684: --
5681: itemkey => itemkey,
5682: aname => 'AUTHORIZATION_STATUS_DISP',
5683: avalue => l_auth_stat);
5684: --
5685: wf_engine.SetItemAttrText ( itemtype => itemtype,
5686: itemkey => itemkey,
5687: aname => 'CLOSED_CODE_DISP',
5688: avalue => l_closed_code);
5689: --
5686: itemkey => itemkey,
5687: aname => 'CLOSED_CODE_DISP',
5688: avalue => l_closed_code);
5689: --
5690: wf_engine.SetItemAttrText ( itemtype => itemtype,
5691: itemkey => itemkey,
5692: aname => 'DOCUMENT_TYPE_DISP',
5693: avalue => l_doc_type_disp);
5694: --
5696: ** Desc: We will only be using one display attribute for type and
5697: ** subtype - DOCUMENT_TYPE_DISP, hence commenting the code below
5698: */
5699: /*
5700: wf_engine.SetItemAttrText ( itemtype => itemtype,
5701: itemkey => itemkey,
5702: aname => 'DOCUMENT_SUBTYPE_DISP',
5703: avalue => l_doc_subtype_disp);
5704: */
5702: aname => 'DOCUMENT_SUBTYPE_DISP',
5703: avalue => l_doc_subtype_disp);
5704: */
5705:
5706: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
5707: itemkey => itemkey,
5708: aname => 'DOCUMENT_ID');
5709:
5710: l_currency_code := PO_CORE_S2.get_base_currency;
5726:
5727: l_req_amount_disp := TO_CHAR(l_req_amount,FND_CURRENCY.GET_FORMAT_MASK(
5728: l_currency_code, g_currency_format_mask));
5729:
5730: wf_engine.SetItemAttrText ( itemtype => itemtype,
5731: itemkey => itemkey,
5732: aname => 'FUNCTIONAL_CURRENCY',
5733: avalue => l_currency_code);
5734:
5731: itemkey => itemkey,
5732: aname => 'FUNCTIONAL_CURRENCY',
5733: avalue => l_currency_code);
5734:
5735: wf_engine.SetItemAttrText ( itemtype => itemtype,
5736: itemkey => itemkey,
5737: aname => 'REQ_AMOUNT_DSP',
5738: avalue => l_req_amount_disp);
5739:
5743:
5744: l_tax_amount_disp := TO_CHAR(l_tax_amount,FND_CURRENCY.GET_FORMAT_MASK(
5745: l_currency_code, g_currency_format_mask));
5746:
5747: wf_engine.SetItemAttrText ( itemtype => itemtype,
5748: itemkey => itemkey,
5749: aname => 'TAX_AMOUNT_DSP',
5750: avalue => l_tax_amount_disp);
5751:
6135:
6136: BEGIN
6137:
6138: x_progress := '001';
6139: l_document_type_code := wf_engine.GetItemAttrText (itemtype => itemtype,
6140: itemkey => itemkey,
6141: aname => 'DOCUMENT_TYPE');
6142:
6143: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6139: l_document_type_code := wf_engine.GetItemAttrText (itemtype => itemtype,
6140: itemkey => itemkey,
6141: aname => 'DOCUMENT_TYPE');
6142:
6143: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6144: itemkey => itemkey,
6145: aname => 'DOCUMENT_SUBTYPE');
6146:
6147: open C1(l_document_type_code, l_document_subtype);
6665: FND_PROFILE.GET('USER_ID', l_user_id);
6666:
6667: -- Send the concurrent request to print document.
6668:
6669: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
6670: itemkey => itemkey,
6671: aname => 'DOCUMENT_TYPE');
6672:
6673: l_document_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6669: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
6670: itemkey => itemkey,
6671: aname => 'DOCUMENT_TYPE');
6672:
6673: l_document_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6674: itemkey => itemkey,
6675: aname => 'DOCUMENT_NUMBER');
6676:
6677: /*Bug 6692126 Get the item attributes DOCUMENT_ID,DOCUMENT_SUBTYPE
6676:
6677: /*Bug 6692126 Get the item attributes DOCUMENT_ID,DOCUMENT_SUBTYPE
6678: and WITH_TERMS and pass it to Print_PO and Print_Release procedures*/
6679:
6680: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6681: itemkey => itemkey,
6682: aname => 'DOCUMENT_ID');
6683:
6684: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6680: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6681: itemkey => itemkey,
6682: aname => 'DOCUMENT_ID');
6683:
6684: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6685: itemkey => itemkey,
6686: aname => 'DOCUMENT_SUBTYPE');
6687:
6688: /*Bug6692126 Donot set the item attribute with_terms for requisitions
6687:
6688: /*Bug6692126 Donot set the item attribute with_terms for requisitions
6689: as this attribute doesnot exist in req approval workflow*/
6690: IF l_document_type <> 'REQUISITION' THEN
6691: l_withterms := wf_engine.GetItemAttrText (itemtype => itemtype,
6692: itemkey => itemkey,
6693: aname => 'WITH_TERMS');
6694: END IF;
6695:
6695:
6696: -- Bug 4918772
6697: -- The global variable 4918772 should be populated. This is used by
6698: -- the print/fax routines
6699: g_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6700: itemkey => itemkey,
6701: aname => 'DOCUMENT_SUBTYPE');
6702: -- End Bug 4918772
6703:
6702: -- End Bug 4918772
6703:
6704:
6705: -- Context Setting Revamp.
6706: /* changed the call from wf_engine.setiteattrtext to
6707: po_wf_util_pkg.setitemattrtext because the later handles
6708: attribute not found exception. req change order wf also
6709: uses these procedures and does not have the preparer_printer
6710: attribute, hence this was required */
6768: l_user_id);
6769:
6770: ELSIF l_document_type = 'RELEASE' THEN
6771:
6772: l_release_num := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6773: itemkey => itemkey,
6774: aname => 'RELEASE_NUM');
6775:
6776: --Bug 6692126 Pass document_id,documentsubtype parameters
6783: l_user_id,
6784: l_document_id,l_document_subtype,l_withterms);
6785: END IF;
6786:
6787: wf_engine.SetItemAttrNumber (itemtype => itemtype,
6788: itemkey => itemkey,
6789: aname => 'CONCURRENT_REQUEST_ID',
6790: avalue => l_request_id);
6791:
6846: FND_PROFILE.GET('USER_ID', l_user_id);
6847:
6848: -- Send the concurrent request to fax document.
6849:
6850: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
6851: itemkey => itemkey,
6852: aname => 'DOCUMENT_TYPE');
6853:
6854: l_document_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6850: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
6851: itemkey => itemkey,
6852: aname => 'DOCUMENT_TYPE');
6853:
6854: l_document_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6855: itemkey => itemkey,
6856: aname => 'DOCUMENT_NUMBER');
6857:
6858: /*Bug 6692126 Get the document_id ,document subtype and with terms
6859: item attribute and pass it to Fax_PO and Fax_Release procedures
6860: Donot rely on global variable.Instead get the document subtype
6861: and pass it as a paramter */
6862:
6863: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6864: itemkey => itemkey,
6865: aname => 'DOCUMENT_ID');
6866:
6867: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6863: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6864: itemkey => itemkey,
6865: aname => 'DOCUMENT_ID');
6866:
6867: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6868: itemkey => itemkey,
6869: aname => 'DOCUMENT_SUBTYPE');
6870:
6871: l_withterms := wf_engine.GetItemAttrText (itemtype => itemtype,
6867: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6868: itemkey => itemkey,
6869: aname => 'DOCUMENT_SUBTYPE');
6870:
6871: l_withterms := wf_engine.GetItemAttrText (itemtype => itemtype,
6872: itemkey => itemkey,
6873: aname => 'WITH_TERMS');
6874:
6875: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
6871: l_withterms := wf_engine.GetItemAttrText (itemtype => itemtype,
6872: itemkey => itemkey,
6873: aname => 'WITH_TERMS');
6874:
6875: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
6876: itemkey => itemkey,
6877: aname => 'DOCUMENT_TYPE');
6878:
6879: -- Bug 4918772
6878:
6879: -- Bug 4918772
6880: -- The global variable 4918772 should be populated. This is used by
6881: -- the print/fax routines
6882: g_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
6883: itemkey => itemkey,
6884: aname => 'DOCUMENT_SUBTYPE');
6885: -- End Bug 4918772
6886:
6887:
6888: -- Context Setting revamp : setting the printer to that of the preparer, so that
6889: -- irrespective of who submits the request, the printing should happen
6890: -- on preparer's printer
6891: /* changed the call from wf_engine.setiteattrtext to
6892: po_wf_util_pkg.setitemattrtext because the later handles
6893: attrbute not found exception. req change order wf also
6894: uses these procedures and does not have the preparer_printer
6895: attribute, hence this was required */
6903: end if;
6904:
6905: IF l_document_type IN ('PO', 'PA') THEN
6906:
6907: l_fax_enable := wf_engine.GetItemAttrText (itemtype => itemtype,
6908: itemkey => itemkey,
6909: aname => 'FAX_DOCUMENT');
6910:
6911: l_fax_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6907: l_fax_enable := wf_engine.GetItemAttrText (itemtype => itemtype,
6908: itemkey => itemkey,
6909: aname => 'FAX_DOCUMENT');
6910:
6911: l_fax_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6912: itemkey => itemkey,
6913: aname => 'FAX_NUMBER');
6914:
6915: --Bug 6692126 Pass document_id ,document subtype and with terms parameters
6918: l_user_id, l_fax_enable, l_fax_num,l_document_id,l_document_subtype,l_withterms);
6919:
6920: ELSIF l_document_type = 'RELEASE' THEN
6921:
6922: l_release_num := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6923: itemkey => itemkey,
6924: aname => 'RELEASE_NUM');
6925:
6926: l_fax_enable := wf_engine.GetItemAttrText (itemtype => itemtype,
6922: l_release_num := wf_engine.GetItemAttrNumber (itemtype => itemtype,
6923: itemkey => itemkey,
6924: aname => 'RELEASE_NUM');
6925:
6926: l_fax_enable := wf_engine.GetItemAttrText (itemtype => itemtype,
6927: itemkey => itemkey,
6928: aname => 'FAX_DOCUMENT');
6929:
6930: l_fax_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6926: l_fax_enable := wf_engine.GetItemAttrText (itemtype => itemtype,
6927: itemkey => itemkey,
6928: aname => 'FAX_DOCUMENT');
6929:
6930: l_fax_num := wf_engine.GetItemAttrText (itemtype => itemtype,
6931: itemkey => itemkey,
6932: aname => 'FAX_NUMBER');
6933:
6934: --Bug 6692126 Pass document_id ,document subtype parameters
6938: l_fax_enable, l_fax_num,l_document_id);
6939:
6940: END IF;
6941:
6942: wf_engine.SetItemAttrNumber (itemtype => itemtype,
6943: itemkey => itemkey,
6944: aname => 'CONCURRENT_REQUEST_ID',
6945: avalue => l_request_id);
6946:
7496: l_preparer_user_name varchar2(100);
7497:
7498: BEGIN
7499: IF (funcmode='RUN') THEN
7500: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7501: itemkey => itemkey,
7502: aname => 'DOCUMENT_ID');
7503:
7504: IF l_document_id IS NOT NULL THEN
7634: IF (g_po_wf_debug = 'Y') THEN
7635: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
7636: END IF;
7637:
7638: preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7639: itemkey => itemkey,
7640: aname => 'PREPARER_ID');
7641:
7642: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7638: preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7639: itemkey => itemkey,
7640: aname => 'PREPARER_ID');
7641:
7642: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7643: itemkey => itemkey,
7644: aname => 'FORWARD_FROM_ID');
7645:
7646: x_username := wf_engine.GetItemAttrText (itemtype => itemtype,
7642: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7643: itemkey => itemkey,
7644: aname => 'FORWARD_FROM_ID');
7645:
7646: x_username := wf_engine.GetItemAttrText (itemtype => itemtype,
7647: itemkey => itemkey,
7648: aname => 'FORWARD_FROM_USER_NAME');
7649:
7650: -- return Y if forward from user name is null.
7653: So this also should be excluded.
7654: */
7655: if (approver_id is null OR
7656: preparer_id = approver_id OR x_username is null) then
7657: resultout := wf_engine.eng_completed || ':' || 'Y';
7658: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
7659: else
7660: resultout := wf_engine.eng_completed || ':' || 'N';
7661: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
7656: preparer_id = approver_id OR x_username is null) then
7657: resultout := wf_engine.eng_completed || ':' || 'Y';
7658: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
7659: else
7660: resultout := wf_engine.eng_completed || ':' || 'N';
7661: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
7662: end if;
7663:
7664: EXCEPTION
7684: l_org_id number;
7685:
7686: BEGIN
7687:
7688: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
7689: itemkey => itemkey,
7690: aname => 'DOCUMENT_TYPE');
7691:
7692: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7688: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
7689: itemkey => itemkey,
7690: aname => 'DOCUMENT_TYPE');
7691:
7692: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7693: itemkey => itemkey,
7694: aname => 'DOCUMENT_ID');
7695:
7696: l_org_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7692: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7693: itemkey => itemkey,
7694: aname => 'DOCUMENT_ID');
7695:
7696: l_org_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7697: itemkey => itemkey,
7698: aname => 'ORG_ID');
7699:
7700: PO_MOAC_UTILS_PVT.set_org_context(l_org_id) ; --
7760: l_disp varchar2(240);
7761:
7762: BEGIN
7763:
7764: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7765: itemkey => itemkey,
7766: aname => 'PREPARER_ID');
7767:
7768: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, l_name, l_disp);
7827: -- Get Document Id for the Errored Item.
7828:
7829: IF (document_id IS NULL) THEN
7830:
7831: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7832: itemkey => itemkey,
7833: aname => 'DOCUMENT_ID');
7834: ELSE
7835:
7849: IF (g_po_wf_debug = 'Y') THEN
7850: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7851: END IF;
7852:
7853: wf_engine.CreateProcess( ItemType => Err_ItemType,
7854: ItemKey => Err_ItemKey,
7855: process => 'PLSQL_ERROR_NOTIF');
7856:
7857: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 70';
7859: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7860: END IF;
7861:
7862: -- Set the attributes
7863: wf_engine.SetItemAttrText ( itemtype => Err_ItemType,
7864: itemkey => Err_ItemKey,
7865: aname => 'PLSQL_ERROR_DOC',
7866: avalue => doc);
7867:
7865: aname => 'PLSQL_ERROR_DOC',
7866: avalue => doc);
7867:
7868: --
7869: wf_engine.SetItemAttrText ( itemtype => Err_ItemType,
7870: itemkey => Err_ItemKey,
7871: aname => 'PLSQL_ERROR_LOC',
7872: avalue => loc);
7873: --
7870: itemkey => Err_ItemKey,
7871: aname => 'PLSQL_ERROR_LOC',
7872: avalue => loc);
7873: --
7874: wf_engine.SetItemAttrText ( itemtype => Err_ItemType,
7875: itemkey => Err_ItemKey,
7876: aname => 'PLSQL_ERROR_MSG',
7877: avalue => msg);
7878: --
7875: itemkey => Err_ItemKey,
7876: aname => 'PLSQL_ERROR_MSG',
7877: avalue => msg);
7878: --
7879: wf_engine.SetItemAttrText ( itemtype => Err_ItemType,
7880: itemkey => Err_ItemKey,
7881: aname => 'PREPARER_USER_NAME' ,
7882: avalue => username);
7883: --
7886: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7887: END IF;
7888:
7889:
7890: wf_engine.StartProcess(itemtype => Err_ItemType,
7891: itemkey => Err_ItemKey);
7892:
7893: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 900';
7894: IF (g_po_wf_debug = 'Y') THEN
7950: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7951: END IF;
7952:
7953: l_error_number:=
7954: wf_engine.GetItemAttrNumber ( itemtype => itemtype,
7955: itemkey => itemkey,
7956: aname => 'DOC_MGR_ERROR_NUM');
7957:
7958: l_progress := 'Is_Document_Manager_Error_1_2: 002 - '||
8003:
8004:
8005: -- Do nothing in cancel or timeout mode
8006: --
8007: if (funcmode <> wf_engine.eng_run) then
8008:
8009: resultout := wf_engine.eng_null;
8010: return;
8011:
8005: -- Do nothing in cancel or timeout mode
8006: --
8007: if (funcmode <> wf_engine.eng_run) then
8008:
8009: resultout := wf_engine.eng_null;
8010: return;
8011:
8012: end if;
8013:
8010: return;
8011:
8012: end if;
8013:
8014: l_po_email_add_prof := wf_engine.GetItemAttrText (itemtype => itemtype,
8015: itemkey => itemkey,
8016: aname => 'EMAIL_ADD_FROM_PROFILE');
8017:
8018: /* the value of l_po_email_add_prof has a value or it is null*/
8022: l_prof_value := 'Y';
8023: END IF;
8024:
8025: --
8026: resultout := wf_engine.eng_completed || ':' || l_prof_value ;
8027: --
8028: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 02. Result= ' || l_prof_value;
8029: IF (g_po_wf_debug = 'Y') THEN
8030: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
8059: IF (g_po_wf_debug = 'Y') THEN
8060: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8061: END IF;
8062:
8063: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8064: itemkey => itemkey,
8065: aname => 'ERROR_ITEM_TYPE');
8066: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8067: itemkey => itemkey,
8062:
8063: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8064: itemkey => itemkey,
8065: aname => 'ERROR_ITEM_TYPE');
8066: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8067: itemkey => itemkey,
8068: aname => 'ERROR_ITEM_KEY');
8069: l_count:= wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8070: itemkey => itemkey,
8065: aname => 'ERROR_ITEM_TYPE');
8066: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8067: itemkey => itemkey,
8068: aname => 'ERROR_ITEM_KEY');
8069: l_count:= wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8070: itemkey => itemkey,
8071: aname => 'RETRY_COUNT');
8072:
8073:
8143: IF (g_po_wf_debug = 'Y') THEN
8144: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8145: END IF;
8146:
8147: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8148: itemkey => itemkey,
8149: aname => 'ERROR_ITEM_TYPE');
8150: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8151: itemkey => itemkey,
8146:
8147: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8148: itemkey => itemkey,
8149: aname => 'ERROR_ITEM_TYPE');
8150: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype,
8151: itemkey => itemkey,
8152: aname => 'ERROR_ITEM_KEY');
8153:
8154: /* Bug# 2708702 kagarwal
8250: ** Desc: We will only be using one display attribute for type and
8251: ** subtype - DOCUMENT_TYPE_DISP, hence commenting the code below
8252: */
8253:
8254: /* wf_engine.SetItemAttrText ( itemtype => itemType,
8255: itemkey => itemkey,
8256: aname => 'DOCUMENT_SUBTYPE_DISP' ,
8257: avalue => l_doc_subtype_disp);
8258: */
8334:
8335: */
8336: x_progress := '001';
8337:
8338: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
8339: itemkey => itemkey,
8340: aname => 'DOCUMENT_TYPE');
8341:
8342: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
8338: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
8339: itemkey => itemkey,
8340: aname => 'DOCUMENT_TYPE');
8341:
8342: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
8343: itemkey => itemkey,
8344: aname => 'DOCUMENT_ID');
8345:
8346: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
8342: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
8343: itemkey => itemkey,
8344: aname => 'DOCUMENT_ID');
8345:
8346: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
8347: itemkey => itemkey,
8348: aname => 'DOCUMENT_SUBTYPE');
8349:
8350: if(l_document_type <> 'RELEASE') then
8433:
8434: begin
8435:
8436: -- set the org context
8437: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8438: itemkey => itemkey,
8439: aname => 'ORG_ID');
8440:
8441: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
8439: aname => 'ORG_ID');
8440:
8441: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
8442:
8443: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8444: itemkey => itemkey,
8445: aname => 'DOCUMENT_ID');
8446:
8447: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype,
8443: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8444: itemkey => itemkey,
8445: aname => 'DOCUMENT_ID');
8446:
8447: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype,
8448: itemkey => itemkey,
8449: aname => 'DOCUMENT_TYPE');
8450:
8451: -- commented out the usage of accptance_type (FPI)
8601:
8602: begin
8603:
8604: -- set the org context
8605: x_org_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8606: itemkey => itemkey,
8607: aname => 'ORG_ID');
8608:
8609: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
8608:
8609: PO_MOAC_UTILS_PVT.set_org_context(x_org_id) ; --
8610:
8611: x_progress := '001';
8612: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8613: itemkey => itemkey,
8614: aname => 'DOCUMENT_ID');
8615:
8616: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype,
8612: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8613: itemkey => itemkey,
8614: aname => 'DOCUMENT_ID');
8615:
8616: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype,
8617: itemkey => itemkey,
8618: aname => 'DOCUMENT_TYPE');
8619:
8620:
8818: -- Commented out the select statement as it is handled in the PO_ACCEPTANCES rowhandler
8819: -- SELECT po_acceptances_s.nextval into x_Acceptance_id FROM sys.dual;
8820:
8821: -- commented out the usage of accptance_type (FPI)
8822: /* x_Acceptance_Lookup_Code := wf_engine.GetItemAttrText( itemtype => itemtype,
8823: itemkey => itemkey,
8824: aname => 'ACCEPTANCE_LOOKUP_CODE'); */
8825:
8826: x_acceptance_note := PO_WF_UTIL_PKG.GetItemAttrText( itemtype => itemtype,
8835: x_Acceptance_Lookup_Code := 'Unacceptable Changes';
8836: end if;
8837: end if; */
8838:
8839: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8840: itemkey => itemkey,
8841: aname => 'DOCUMENT_ID');
8842:
8843: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype,
8839: x_document_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8840: itemkey => itemkey,
8841: aname => 'DOCUMENT_ID');
8842:
8843: x_document_type_code := wf_engine.GetItemAttrText ( itemtype => itemtype,
8844: itemkey => itemkey,
8845: aname => 'DOCUMENT_TYPE');
8846:
8847: -- abort any outstanding acceptance notifications for any previous revision of the document.
8871: ELSE
8872: l_acc_po_header_id := NULL;
8873: END IF;
8874:
8875: l_rspndr_usr_name := wf_engine.GetItemAttrText ( itemtype => itemtype,
8876: itemkey => itemkey,
8877: aname => 'SUPPLIER_USER_NAME');
8878:
8879: begin
8990: IF (X_Application_Id = -1) THEN
8991: X_Application_Id := NULL;
8992: END IF;
8993:
8994: l_user_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8995: itemkey => itemkey,
8996: aname => 'USER_ID');
8997: --
8998: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8994: l_user_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8995: itemkey => itemkey,
8996: aname => 'USER_ID');
8997: --
8998: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8999: itemkey => itemkey,
9000: aname => 'APPLICATION_ID');
9001: --
9002: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8998: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
8999: itemkey => itemkey,
9000: aname => 'APPLICATION_ID');
9001: --
9002: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
9003: itemkey => itemkey,
9004: aname => 'RESPONSIBILITY_ID');
9005:
9006: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.L_USER_ID= '
9094: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9095: END IF;
9096:
9097: -- Do nothing in cancel or timeout mode
9098: if (funcmode <> wf_engine.eng_run) then
9099:
9100: resultout := wf_engine.eng_null;
9101: return;
9102:
9096:
9097: -- Do nothing in cancel or timeout mode
9098: if (funcmode <> wf_engine.eng_run) then
9099:
9100: resultout := wf_engine.eng_null;
9101: return;
9102:
9103: end if;
9104:
9159: l_massupdate_releases := 'N';
9160: end if;
9161: END IF;
9162:
9163: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
9164:
9165: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 02. Result= ' || l_massupdate_releases;
9166: IF (g_po_wf_debug = 'Y') THEN
9167: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9169:
9170: EXCEPTION
9171: WHEN OTHERS THEN
9172: l_massupdate_releases := 'N';
9173: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
9174: END MassUpdate_Releases_Yes_No;
9175:
9176: procedure MassUpdate_Releases_Workflow( itemtype in varchar2,
9177: itemkey in varchar2,
9254: l_progress := ': 02. Result= ' || l_update_releases;
9255: IF (g_po_wf_debug = 'Y') THEN
9256: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9257: END IF;
9258: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9259: EXCEPTION
9260: WHEN OTHERS THEN
9261: l_update_releases := 'N';
9262: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'||
9260: WHEN OTHERS THEN
9261: l_update_releases := 'N';
9262: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'||
9263: ' Result= ' || l_update_releases;
9264: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9265: IF (g_po_wf_debug = 'Y') THEN
9266: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9267: END IF;
9268: END MassUpdate_Releases_Workflow;
9311: IF (l_supplier_comm IS NULL) THEN
9312: l_supplier_comm := 'N';
9313: END IF; /*IF (l_supplier_comm IS NULL)*/
9314:
9315: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
9316:
9317: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 02. Result= ' || l_supplier_comm;
9318: IF (g_po_wf_debug = 'Y') THEN
9319: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9322:
9323: EXCEPTION
9324: WHEN OTHERS THEN
9325: l_supplier_comm := 'Y';
9326: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
9327: END Send_Supplier_Comm_Yes_No;
9328:
9329: /* RETROACTIVE FPI END */
9330:
9392: IF (g_po_wf_debug = 'Y') THEN
9393: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9394: END IF;
9395:
9396: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9397:
9398: /* Bug# 2846210
9399: ** Desc: Setting application context as this wf api will be executed
9400: ** after the background engine is run.
9401: */
9402:
9403: Set_doc_mgr_context(itemtype, itemkey);
9404:
9405: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
9406: itemkey => itemkey,
9407: aname => 'DOCUMENT_ID');
9408: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
9409: itemkey => itemkey,
9404:
9405: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
9406: itemkey => itemkey,
9407: aname => 'DOCUMENT_ID');
9408: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype,
9409: itemkey => itemkey,
9410: aname => 'DOCUMENT_TYPE');
9411:
9412: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
9516: p_document_id => l_document_id,
9517: p_document_type => l_document_type);
9518: END IF; /*IF (l_reset_retro_update)*/
9519:
9520: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9521:
9522: EXCEPTION
9523: WHEN OTHERS THEN
9524: l_update_releases := 'N';
9523: WHEN OTHERS THEN
9524: l_update_releases := 'N';
9525: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 09.'||
9526: ' Result= ' || l_update_releases;
9527: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9528: IF (g_po_wf_debug = 'Y') THEN
9529: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9530: END IF;
9531:
9708: END IF;
9709:
9710: l_progress := '110';
9711: -- Get the Catalog Admin User Name
9712: l_cat_admin_user_name := wf_engine.GetItemAttrText (
9713: itemtype => p_item_type,
9714: itemkey => p_item_key,
9715: aname => 'CATALOG_ADMIN_USER_NAME');
9716:
9720: END IF;
9721:
9722: IF l_cat_admin_user_name is not null THEN
9723: l_progress := '150';
9724: x_result_out := wf_engine.eng_completed || ':' || 'Y' ;
9725: ELSE
9726: l_progress := '190';
9727: x_result_out := wf_engine.eng_completed || ':' || 'N' ;
9728: END IF;
9723: l_progress := '150';
9724: x_result_out := wf_engine.eng_completed || ':' || 'Y' ;
9725: ELSE
9726: l_progress := '190';
9727: x_result_out := wf_engine.eng_completed || ':' || 'N' ;
9728: END IF;
9729: l_progress := '200';
9730:
9731: EXCEPTION
9824:
9825: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
9826: -- Set the item attribute tied to the performer of the
9827: -- approval notification
9828: wf_engine.SetItemAttrText ( itemtype => p_item_type ,
9829: itemkey => p_item_key ,
9830: aname => 'CATALOG_ADMIN_USER_NAME',
9831: avalue => l_user_name);
9832: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 170';
10071: L_Doc_Subtype Po_Action_History.Object_Sub_Type_Code%TYPE;
10072:
10073: BEGIN
10074:
10075: L_Doc_Type := Wf_Engine.Getitemattrtext (Itemtype => Itemtype,
10076: Itemkey => Itemkey,
10077: Aname => 'DOCUMENT_TYPE');
10078:
10079: L_Doc_Subtype := Wf_Engine.Getitemattrtext(Itemtype => Itemtype,
10075: L_Doc_Type := Wf_Engine.Getitemattrtext (Itemtype => Itemtype,
10076: Itemkey => Itemkey,
10077: Aname => 'DOCUMENT_TYPE');
10078:
10079: L_Doc_Subtype := Wf_Engine.Getitemattrtext(Itemtype => Itemtype,
10080: Itemkey => Itemkey,
10081: Aname => 'DOCUMENT_SUBTYPE');
10082:
10083: L_Doc_Id := Wf_Engine.Getitemattrnumber (Itemtype => Itemtype,
10079: L_Doc_Subtype := Wf_Engine.Getitemattrtext(Itemtype => Itemtype,
10080: Itemkey => Itemkey,
10081: Aname => 'DOCUMENT_SUBTYPE');
10082:
10083: L_Doc_Id := Wf_Engine.Getitemattrnumber (Itemtype => Itemtype,
10084: Itemkey => Itemkey,
10085: Aname => 'DOCUMENT_ID');
10086:
10087: UpdateActionHistory ( p_doc_id => L_Doc_Id,