[Home] [Help]
27: AND change_request_group_id = p_change_request_group_id
28: AND request_level = 'SHIPMENT'
29: AND initiator = 'SUPPLIER'
30: AND 1 = (SELECT count(*)
31: FROM po_distributions POD
32: WHERE POD.line_location_id =
33: NVL(PCR.document_line_location_id, PCR.parent_line_location_id));
34:
35: -- there is only one distribution for this shipment
88: PCR.WF_Item_type, PCR.WF_Item_key, PCR.Parent_Change_Request_Id,
89: PCR.Validation_Error, PCR.Approval_Required_Flag,
90: PCR.Old_Supplier_Order_Number, PCR.New_Supplier_Order_Number,
91: PCR.Old_Supplier_Order_Line_Number, PCR.New_Supplier_Order_Line_Number,PCR.Old_Amount,PCR.New_Amount
92: FROM po_change_requests PCR, po_distributions_all POD
93: WHERE PCR.change_request_id = l_change_request_id
94: AND POD.line_location_id =
95: NVL(PCR.document_line_location_id, PCR.parent_line_location_id);
96:
337:
338: if ((p_parent_line_location_id is null) OR (p_parent_line_location_id = 0)) then
339:
340: select count(*) into l_distribution_count
341: from po_distributions_all where line_location_id = p_document_line_location_id;
342:
343: else /* line is a split shipment */
344:
345: select count(*) into l_distribution_count
342:
343: else /* line is a split shipment */
344:
345: select count(*) into l_distribution_count
346: from po_distributions_all where line_location_id = p_parent_line_location_id;
347:
348: end if; /* split shipment test */
349:
350: end if;
415: CURSOR changed_distributions_cursor IS
416: SELECT PCR.document_distribution_id, PCR.new_quantity, Decode(PCR.parent_line_location_id, null, null, PCR.document_shipment_number),
417: POD.po_distribution_id parent_distribution_id, PCR.new_amount
418: FROM po_change_requests PCR,
419: po_distributions POD
420: where PCR.request_status = 'BUYER_APP'
421: AND PCR.document_header_id = p_po_header_id
422: AND PCR.change_request_group_id = p_change_request_group_id
423: AND PCR.request_level = 'DISTRIBUTION'
444: l_err_msg_name_tbl po_tbl_varchar30;
445: l_err_msg_text_tbl po_tbl_varchar2000;
446: l_line_changes PO_LINES_REC_TYPE;
447: l_shipment_changes PO_SHIPMENTS_REC_TYPE;
448: l_distribution_changes PO_DISTRIBUTIONS_REC_TYPE;
449: l_changes PO_CHANGES_REC_TYPE;
450: /* << Complex work changes for R12 >>*/
451: l_new_progress_type_tbl PO_TBL_VARCHAR30;
452: l_new_pay_description_tbl PO_TBL_VARCHAR240;
593: CLOSE changed_distributions_cursor;
594:
595: l_progress := '008';
596:
597: l_distribution_changes := PO_DISTRIBUTIONS_REC_TYPE.create_object (
598: p_po_distribution_id => l_po_distribution_id_tbl,
599: p_quantity_ordered => l_quantity_tbl,
600: p_parent_distribution_id => l_parent_distribution_id_tbl,
601: p_split_shipment_num => l_split_shipment_num_tbl,