[Home] [Help]
112: p_document_id := p_po_header_id;
113: select type_lookup_code into v_type_code
114: from po_headers_all
115: where po_header_id= p_po_header_id;
116: if (v_type_code in ('STANDARD','PLANNED')) then
117: v_document_type := 'PO';
118: v_document_subtype := v_type_code;
119: elsif (v_type_code in ('BLANKET','CONTRACT')) then
120: v_document_type := 'PA';
190: (p_po_number IN varchar2, --PO # of the PO being modified or
191: --the Blanket's PO #
192: p_release_number IN number, -- Release number if the PO Type
193: -- is release or null
194: p_po_type IN varchar2, -- RELEASE or STANDARD.
195: p_revision_num IN number, -- Revision number of the PO or the release
196: p_tp_id IN number, -- vendor_id
197: p_tp_site_id IN number, -- vendor_site_id
198: p_reason IN varchar2,
344: into l_max_rev
345: from po_headers_archive_all
346: where PO_HEADER_ID = l_po_header_id;
347:
348: if (upper(p_po_type) = 'STANDARD') then
349: l_po_type := 'PO';
350: else
351: l_po_type := p_po_type;
352: end if;
394: procedure validate_line_change (
395: p_po_number IN varchar2, --PO # of the PO being modified or the Blanket's PO #
396: p_release_number IN number, -- Release number if the PO Type
397: -- is release or null
398: p_po_type IN varchar2, -- RELEASE or STANDARD.
399: p_revision_num IN number, -- Revision number of the PO or the release
400: p_tp_id IN number, -- vendor_id
401: p_tp_site_id IN number, -- vendor_site_id
402: p_line_num IN number, -- Line number being modified
469: FSPA.ORG_ID = PLA.ORG_ID AND
470: pha.po_header_id = PLA.PO_HEADER_ID and
471: pha.segment1 = p_po_number and
472: pha.org_id = l_org_id AND
473: pha.TYPE_LOOKUP_CODE = 'STANDARD' and
474: PLA.line_num = p_line_num and
475: PLA.PO_HEADER_ID = POCR.DOCUMENT_HEADER_ID (+) AND
476: PLA.PO_LINE_ID = POCR.DOCUMENT_LINE_ID (+) AND
477: POCR.REQUEST_LEVEL (+)= 'LINE' AND
530: end if;
531:
532:
533: --Validate price change request
534: --Price change is allowed at the line level only for standard po type
535: if (p_po_type = 'RELEASE' and p_price is not null) then
536: /*
537: PO_REL_PRICE_CHANGE_INVALID = 'At line level price cannot be
538: changed for PO Releases.'
685: into l_max_rev
686: from po_headers_archive_all
687: where PO_HEADER_ID = l_po_header_id;
688:
689: if (upper(p_po_type) = 'STANDARD') then
690: l_po_type := 'PO';
691: else
692: l_po_type := p_po_type;
693: end if;
744: Added l_org_id variable to capture org_id*/
745: procedure validate_shipment_change (
746: p_po_number IN varchar2, --PO # of the PO being modified or the Blanket's PO #
747: p_release_number IN number, -- Release number if the PO Type is release or null
748: p_po_type IN varchar2, -- RELEASE or STANDARD.
749: p_revision_num IN number, -- Revision number of the PO or the release
750: p_tp_id IN number, -- vendor_id
751: p_tp_site_id IN number, -- vendor_site_id
752: p_line_num IN number, -- Line number being modified
892:
893: end;
894:
895:
896: else -- (p_po_type = 'STANDARD')
897: begin
898: -- Bug 7287009 - Start
899: /*Used vendor id and vendor site id combination to fetch org_id.
900: Org_id is used in the second query's where clause to restrict
965: return;
966:
967: when others then
968: x_error_status_out := x_error_status_out ||
969: 'Error at finding the standard old info.' ||
970: SQLERRM;
971: x_error_id_out := 2;
972: return;
973:
1046: p_is_change := 1;
1047:
1048:
1049: /*
1050: check if the po type is STANDARD, raise error.
1051: Price at the shipment level can be changed only for releases.
1052: */
1053: if (p_po_type <> 'RELEASE') then
1054: /*
1052: */
1053: if (p_po_type <> 'RELEASE') then
1054: /*
1055: PO_STN_PRICE_CHANGE_INVALID = 'At shipment level price cannot
1056: be changed for STANDARD POs.'
1057: */
1058: x_error_id_out := 2;
1059: x_error_status_out := x_error_status_out ||
1060: fnd_message.get_string('PO', 'PO_STN_PRICE_CHANGE_INVALID');
1303: into l_max_rev
1304: from po_headers_archive_all
1305: where PO_HEADER_ID = l_po_header_id;
1306:
1307: if (upper(p_po_type) = 'STANDARD') then
1308: l_po_type := 'PO';
1309: else
1310: l_po_type := p_po_type;
1311: end if;
1520: x_error_id_out := 2;
1521: return;
1522: end if;
1523:
1524: else -- assume that it is a STANDARD PO
1525: --Check if the given PO exists and belongs to the given TP
1526: select count(1) into l_count
1527: from po_headers_all pha
1528: where pha.segment1 = p_po_number
1566: where segment1 = p_po_number
1567: and org_id = l_org_id
1568: and TYPE_LOOKUP_CODE NOT IN ('QUOTATION','RFQ');
1569:
1570: --Common validation for STANDARD and BLANKET PO for both CHANGE and ACKNOWLEDGE
1571: if (l_po_status in ('CANCELLED', 'CLOSED', 'FINALLY CLOSED',
1572: 'CLOSED FOR INVOICE', 'CLOSED FOR RECEIVING',
1573: 'SUPPLIER_CHANGE_PENDING', 'FROZEN',
1574: 'ON HOLD', 'PARTIALLY_ACKNOWLEDGED',