[Home] [Help]
608: -- Blankets only: If 'Y', the workflow will update existing sourcing rules
609: -- and ASL entries.
610: --MassUpdateReleases
611: --
612: -- on the releases of the blanket or standard POs of the GA with the
613: -- retroactive price change on the blanket/GA line.
614: --RetroactivePriceChange
615: --
616: -- this release/PO has been updated with a retroactive price change.
611: --
612: -- on the releases of the blanket or standard POs of the GA with the
613: -- retroactive price change on the blanket/GA line.
614: --RetroactivePriceChange
615: --
617: -- This flag is used to differentiate between approval of releases from
618: -- the form and from the Mass Update Releases concurrent program.
619: --OrgAssignChange
827: END;
828: -- Bug 5218538 START
829: -- Update the XML/EDI flags in the database based on p_xml_flag.
830: -- Do this before the commit, to avoid deadlock situations.
831: IF ((p_xml_flag IS NOT NULL) AND ((DocumentTypeCode='RELEASE' AND DocumentSubtype='BLANKET') OR (DocumentTypeCode='PO' AND DocumentSubtype='STANDARD'))) THEN
832: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Updating the xml_flag: ' || p_xml_flag;
833: IF (g_po_wf_debug = 'Y') THEN
834: /* DEBUG */
835: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1191: IF l_is_mod = 'N' THEN -- Mod Project
1192: SELECT revision_num,
1193: DECODE(TYPE_LOOKUP_CODE, 'BLANKET',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_BLKT'),
1194: 'CONTRACT',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_CNTR'),
1195: 'STANDARD',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_STD'),
1196: 'PLANNED',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_PLND')),
1197: NVL(CONTERMS_EXIST_FLAG,'N'), --
1198: segment1 -- Bug 3284628
1199: INTO l_revision_num,
1261: WHEN OTHERS THEN
1262: NULL;
1263: END;
1264: -- bug4176111
1265: -- The default of communicate price change should be 'Y' for Standard PO
1266: -- /Releases, and 'N' for everything else
1267: l_communicatePriceChange := CommunicatePriceChange;
1268: IF (l_CommunicatePriceChange IS NULL) THEN
1269: IF (DocumentTypeCode ='RELEASE' AND DocumentSubtype='BLANKET') OR (DocumentTypeCode='PO' AND DocumentSubtype='STANDARD') THEN
1265: -- The default of communicate price change should be 'Y' for Standard PO
1266: -- /Releases, and 'N' for everything else
1267: l_communicatePriceChange := CommunicatePriceChange;
1268: IF (l_CommunicatePriceChange IS NULL) THEN
1269: IF (DocumentTypeCode ='RELEASE' AND DocumentSubtype='BLANKET') OR (DocumentTypeCode='PO' AND DocumentSubtype='STANDARD') THEN
1270: l_communicatePriceChange := 'Y';
1271: ELSE
1272: l_communicatePriceChange := 'N';
1273: END IF;
1276: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'DOCUMENT_NUMBER', avalue => l_document_number);
1277: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => l_itemtype, itemkey => l_itemkey, aname => 'DOCUMENT_NUM_REL', avalue => l_doc_num_rel);
1278: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => l_itemtype, itemkey => l_itemkey, aname => 'REVISION_NUMBER', avalue => l_revision_num);
1279: PO_WF_UTIL_PKG.SetItemAttrNumber (itemtype => l_itemtype, itemkey => l_itemkey, aname => 'PO_REVISION_NUM', avalue => l_revision_num);
1280: IF (DocumentTypeCode = 'PA' AND DocumentSubtype IN ('BLANKET','CONTRACT')) OR (DocumentTypeCode = 'PO' AND DocumentSubtype = 'STANDARD') THEN
1281: l_doc_display_name := PO_DOC_STYLE_PVT.GET_STYLE_DISPLAY_NAME(DocumentID);
1282: END IF;
1283: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => l_itemtype, itemkey => l_itemkey, aname => 'DOCUMENT_DISPLAY_NAME', avalue => l_doc_display_name);
1284: IF x_agent_id IS NOT NULL THEN
1882: l_open_form := 'PO_POXPOEPO:PO_HEADER_ID=' || '&' || 'DOCUMENT_ID' || ' ACCESS_LEVEL_CODE=MODIFY' || ' POXPOEPO_CALLING_FORM=POXSTNOT';
1883: END IF;
1884: -------------------------------------------------------------------------------------
1885: -- Modified by Eric Ma for IL PO Notification on Apr-13,2009 ,End
1886: ELSIF NVL(l_ga_flag,'N') = 'Y' OR l_doc_subtype = 'STANDARD' THEN
1887: BEGIN
1888: SELECT style_id
1889: INTO l_style_id
1890: FROM po_headers_all
1918: END IF;
1919: ELSE
1920: l_edit_po_url := NULL;
1921: END IF;
1922: IF PO_DOC_STYLE_GRP.is_standard_doc_style(l_style_id) = 'Y' THEN
1923: -- Modified by Eric Ma for IL PO Notification on Apr-13,2009 ,Begin
1924: -------------------------------------------------------------------------------------
1925: IF lv_tax_region='JAI' THEN
1926: --open indian localization form
1925: IF lv_tax_region='JAI' THEN
1926: --open indian localization form
1927: l_open_form:=JAI_PO_WF_UTIL_PUB.Get_Jai_Open_Form_Command (pv_document_type => JAI_PO_WF_UTIL_PUB.G_PO_DOC_TYPE);
1928: ELSE
1929: --STANDARD PO FORM
1930: --Bug 7716930
1931: l_open_form := 'PO_POXPOEPO:PO_HEADER_ID=' || '&' || 'DOCUMENT_ID' || ' ACCESS_LEVEL_CODE=MODIFY' || ' POXPOEPO_CALLING_FORM=POXSTNOT';
1932: END IF;
1933: -------------------------------------------------------------------------------------
1943: IF lv_tax_region='JAI' THEN
1944: --open indian localization form
1945: l_open_form:=JAI_PO_WF_UTIL_PUB.Get_Jai_Open_Form_Command (pv_document_type => JAI_PO_WF_UTIL_PUB.G_REL_DOC_TYPE);
1946: ELSE
1947: --STANDARD RELEASE FORM
1948: --Bug 7716930
1949: l_open_form := 'PO_POXPOERL:PO_RELEASE_ID=' || '&' || 'DOCUMENT_ID' || ' ACCESS_LEVEL_CODE=MODIFY' || ' POXPOERL_CALLING_FORM=POXSTNOT';
1950: END IF;
1951: -------------------------------------------------------------------------------------
3565: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3566: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3567: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3568: -- BINDING FPJ START
3569: IF ((l_document_type <> 'RELEASE') AND l_document_subtype IN ('STANDARD','BLANKET','CONTRACT')) THEN
3570: SELECT acceptance_required_flag
3571: INTO l_acceptance_flag
3572: FROM po_headers_all
3573: WHERE po_header_Id = l_document_id;
4840: IF (lv_tax_region ='JAI') THEN
4841: --Get IL tax
4842: JAI_PO_WF_UTIL_PUB.Get_Jai_Tax_Amount( pv_document_type => JAI_PO_WF_UTIL_PUB.G_REQ_DOC_TYPE , pn_document_id => l_doc_id , xn_excl_tax_amount => l_tax_amount , xn_excl_nr_tax_amount => ln_jai_excl_nr_tax );
4843: ELSE
4844: --Get Standard Ebtax
4845: OPEN req_tax_csr(l_doc_id);
4846: FETCH req_tax_csr INTO l_tax_amount;
4847:
4848: CLOSE req_tax_csr;
7356: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
7357: END IF;
7358: END IF;
7359: /* if l_ga_flag = 'N' */
7360: IF (l_doc_type = 'PA' AND l_doc_subtype IN ('BLANKET','CONTRACT')) OR (l_doc_type = 'PO' AND l_doc_subtype = 'STANDARD') THEN
7361: l_doc_type_disp:= PO_DOC_STYLE_PVT.get_style_display_name(l_document_id);
7362: ELSE
7363: OPEN docDisp(l_doc_type, l_doc_subtype);
7364: FETCH docDisp INTO l_doc_type_disp;
8089: -- communicated to supplier. Need to pick up the workflow
8090: -- attribute CO_H_RETROACTIVE_SUPPLIER_COMM here from the
8091: -- Blanket Approval Workflow and pass it in the procedure
8092: -- call below so that it may be set correctly for Release/
8093: -- Standard PO Approval as well.
8094: l_communicate_update := PO_WF_UTIL_PKG.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'CO_H_RETROACTIVE_SUPPLIER_COMM');
8095: PO_RETROACTIVE_PRICING_PVT. MassUpdate_Releases
8096: ( p_api_version => 1.0, p_validation_level => 100, p_vendor_id => l_vendor_id,
8097: p_vendor_site_id => l_vendor_site_id , p_po_header_id => l_document_id,
8137: l_document_subtype := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
8138: -- Bug 3694128 : The communication depends on the WF attribute only
8139: -- for std PO's and blanket releases. For all other documents we
8140: -- always communicate.
8141: IF (l_retro_change = 'Y') AND ((l_document_type = 'RELEASE' AND l_document_subtype = 'BLANKET') OR (l_document_type = 'PO' AND l_document_subtype = 'STANDARD')) THEN
8142: l_supplier_comm := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_H_RETROACTIVE_SUPPLIER_COMM');
8143: ELSE
8144: l_supplier_comm := 'Y';
8145: END IF;
8610: IS
8611: l_url VARCHAR2(1000);
8612: l_page_function VARCHAR2(25);
8613: BEGIN
8614: IF p_doc_subtype = 'STANDARD' THEN
8615: l_page_function := 'PO_ORDER';
8616: ELSIF p_doc_subtype = 'BLANKET' THEN
8617: l_page_function := 'PO_BLANKET';
8618: ELSIF p_doc_subtype = 'CONTRACT' THEN
8669: IS
8670: l_url VARCHAR2(1000);
8671: l_page_function VARCHAR2(25);
8672: BEGIN
8673: IF p_doc_subtype = 'STANDARD' THEN
8674: l_page_function := 'PO_ORDER';
8675: ELSIF p_doc_subtype = 'BLANKET' THEN
8676: l_page_function := 'PO_BLANKET';
8677: ELSIF p_doc_subtype = 'CONTRACT' THEN