[Home] [Help]
536: -- Blankets only: If 'Y', the workflow will update existing sourcing rules
537: -- and ASL entries.
538: --MassUpdateReleases
539: --
540: -- on the releases of the blanket or standard POs of the GA with the
541: -- retroactive price change on the blanket/GA line.
542: --RetroactivePriceChange
543: --
544: -- this release/PO has been updated with a retroactive price change.
539: --
540: -- on the releases of the blanket or standard POs of the GA with the
541: -- retroactive price change on the blanket/GA line.
542: --RetroactivePriceChange
543: --
545: -- This flag is used to differentiate between approval of releases from
546: -- the form and from the Mass Update Releases concurrent program.
547: --OrgAssignChange
747: -- Do this before the commit, to avoid deadlock situations.
748: IF ((p_xml_flag IS NOT NULL)
749: AND
750: ((DocumentTypeCode='RELEASE' and DocumentSubtype='BLANKET')
751: OR (DocumentTypeCode='PO' and DocumentSubtype='STANDARD'))) THEN
752:
753: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Updating the xml_flag: ' || p_xml_flag;
754: IF (g_po_wf_debug = 'Y') THEN
755: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1040: select revision_num,
1041: DECODE(TYPE_LOOKUP_CODE,
1042: 'BLANKET',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_BLKT'),
1043: 'CONTRACT',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_CNTR'),
1044: 'STANDARD',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_STD'),
1045: 'PLANNED',FND_MESSAGE.GET_STRING('POS','POS_POTYPE_PLND')),
1046: NVL(CONTERMS_EXIST_FLAG,'N'), --
1047: segment1 -- Bug 3284628
1048: into l_revision_num,
1125: null;
1126: END;
1127:
1128: -- bug4176111
1129: -- The default of communicate price change should be 'Y' for Standard PO
1130: -- /Releases, and 'N' for everything else
1131: l_communicatePriceChange := CommunicatePriceChange;
1132:
1133: IF (l_CommunicatePriceChange IS NULL) THEN
1131: l_communicatePriceChange := CommunicatePriceChange;
1132:
1133: IF (l_CommunicatePriceChange IS NULL) THEN
1134: IF (DocumentTypeCode='RELEASE' and DocumentSubtype='BLANKET')
1135: OR (DocumentTypeCode='PO' and DocumentSubtype='STANDARD') THEN
1136:
1137: l_communicatePriceChange := 'Y';
1138: ELSE
1139: l_communicatePriceChange := 'N';
1162: aname => 'REVISION_NUMBER',
1163: avalue => l_revision_num);
1164:
1165: IF (DocumentTypeCode = 'PA' AND DocumentSubtype IN ('BLANKET','CONTRACT')) OR
1166: (DocumentTypeCode = 'PO' AND DocumentSubtype = 'STANDARD') THEN
1167:
1168: l_doc_display_name := PO_DOC_STYLE_PVT.GET_STYLE_DISPLAY_NAME(DocumentID);
1169:
1170: END IF;
2024: ' ACCESS_LEVEL_CODE="MODIFY"' ||
2025: ' POXPOEPO_CALLING_FORM="POXSTNOT"';
2026:
2027: ELSIF nvl(l_ga_flag,'N') = 'Y' OR
2028: l_doc_subtype = 'STANDARD' THEN
2029:
2030: Begin
2031: -- SQL What : Get the style id fromm po_headers
2032: -- SQL Why : To derive the style type
2066: ELSE
2067: l_edit_po_url := null;
2068: END IF;
2069:
2070: IF PO_DOC_STYLE_GRP.is_standard_doc_style(l_style_id) = 'Y' THEN
2071: --Bug 7716930
2072: l_open_form := 'PO_POXPOEPO:PO_HEADER_ID=' || '&' || 'DOCUMENT_ID' ||
2073: ' ACCESS_LEVEL_CODE="MODIFY"' ||
2074: ' POXPOEPO_CALLING_FORM="POXSTNOT"';
4172:
4173: -- BINDING FPJ START
4174:
4175: IF ((l_document_type <> 'RELEASE') AND
4176: l_document_subtype IN ('STANDARD','BLANKET','CONTRACT')) THEN
4177: SELECT acceptance_required_flag
4178: INTO l_acceptance_flag
4179: FROM po_headers_all
4180: WHERE po_header_Id = l_document_id;
8209:
8210: end if; /* if l_ga_flag = 'N' */
8211:
8212: if (l_doc_type = 'PA' AND l_doc_subtype IN ('BLANKET','CONTRACT')) OR
8213: (l_doc_type = 'PO' AND l_doc_subtype = 'STANDARD') then
8214:
8215: l_doc_type_disp:= PO_DOC_STYLE_PVT.get_style_display_name(l_document_id);
8216:
8217: else
9226: -- communicated to supplier. Need to pick up the workflow
9227: -- attribute CO_H_RETROACTIVE_SUPPLIER_COMM here from the
9228: -- Blanket Approval Workflow and pass it in the procedure
9229: -- call below so that it may be set correctly for Release/
9230: -- Standard PO Approval as well.
9231: l_communicate_update := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
9232: itemkey => itemkey,
9233: aname => 'CO_H_RETROACTIVE_SUPPLIER_COMM');
9234:
9298: -- for std PO's and blanket releases. For all other documents we
9299: -- always communicate.
9300: If (l_retro_change = 'Y') and
9301: ((l_document_type = 'RELEASE' AND l_document_subtype = 'BLANKET') OR
9302: (l_document_type = 'PO' AND l_document_subtype = 'STANDARD')) then
9303: l_supplier_comm := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
9304: itemkey => itemkey,
9305: aname => 'CO_H_RETROACTIVE_SUPPLIER_COMM');
9306: else
9874: l_page_function varchar2(25);
9875:
9876: BEGIN
9877:
9878: IF p_doc_subtype = 'STANDARD' THEN
9879: l_page_function := 'PO_ORDER';
9880: ELSIF p_doc_subtype = 'BLANKET' THEN
9881: l_page_function := 'PO_BLANKET';
9882: ELSIF p_doc_subtype = 'CONTRACT' THEN