[Home] [Help]
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,
8098: p_category_struct_id => l_category_struct_id, -- Bug 3592705
8099: p_category_from => NULL, p_category_to => NULL, p_item_from => NULL,
8237: -- the PO/Release, then approve it.
8238: -- In this case, d_globals.retroactive_change_flag is lost.
8239: -- Always trust l_retro_change='Y'
8240: IF (l_retro_change IS NULL OR l_retro_change = 'N') THEN
8241: l_retro_change := PO_RETROACTIVE_PRICING_PVT.Is_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8242: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 03' || 'l_retro_change = ' || l_retro_change ;
8243: IF (g_po_wf_debug = 'Y') THEN
8244: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8245: END IF;
8245: END IF;
8246: END IF;
8247: /*IF (l_retro_change IS NULL OR l_retro_change = 'N')*/
8248: IF (l_retro_change = 'Y') THEN
8249: l_retroactive_update := PO_RETROACTIVE_PRICING_PVT.Get_Retro_Mode;
8250: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 04' || 'l_retroactive_update = ' || l_retroactive_update;
8251: IF (g_po_wf_debug = 'Y') THEN
8252: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8253: END IF;
8266: -- Set 'CO_R_RETRO_CHANGE' attribute so that later Workflow process can
8267: -- use this attribute safely
8268: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE', avalue => l_retro_change);
8269: IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES') THEN
8270: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 06. Calling ' || 'PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release';
8271: IF (g_po_wf_debug = 'Y') THEN
8272: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8273: END IF;
8274: PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release ( p_api_version => 1.0, p_document_id => l_document_id, p_document_type => l_document_type , x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
8270: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 06. Calling ' || 'PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release';
8271: IF (g_po_wf_debug = 'Y') THEN
8272: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8273: END IF;
8274: PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release ( p_api_version => 1.0, p_document_id => l_document_id, p_document_type => l_document_type , x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
8275: IF (l_return_status <> 'S') THEN
8276: l_update_releases := 'N';
8277: END IF;
8278: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 07. Result= ' || l_update_releases;
8285: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 08. Reset_Retro_Update';
8286: IF (g_po_wf_debug = 'Y') THEN
8287: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8288: END IF;
8289: PO_RETROACTIVE_PRICING_PVT.Reset_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8290: END IF;
8291: /*IF (l_reset_retro_update)*/
8292: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8293: EXCEPTION