[Home] [Help]
14: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
15:
16: -- START Forward declarations for package private procedures:
17: PROCEDURE call_po_change_api (
18: p_chg IN OUT NOCOPY PO_CHANGES_REC_TYPE,
19: x_return_status OUT NOCOPY VARCHAR2
20: );
21: -- END Forward declarations for package private procedures
22:
129: l_cur_po_release_id PO_RELEASES_ALL.po_release_id%TYPE;
130: l_cur_req_header_id PO_REQUISITION_HEADERS_ALL.requisition_header_id%TYPE;
131: l_start_index NUMBER;
132:
133: l_po_changes PO_CHANGES_REC_TYPE;
134: l_errors PO_API_ERRORS_REC_TYPE;
135: l_req_changes PO_REQ_CHANGES_REC_TYPE;
136: -- Bug 3292895 END
137:
218: EXIT WHEN ((l_cur_po_header_id IS NULL) AND (l_cur_po_release_id IS NULL));
219:
220: -- Create a change object for the PO/release.
221: l_progress := '040';
222: l_po_changes := PO_CHANGES_REC_TYPE.create_object (
223: p_po_header_id => l_cur_po_header_id,
224: p_po_release_id => l_cur_po_release_id );
225:
226: -- Add the shipment changes for this PO/release to the change object.
682:
683: -- Bug 3248723 START
684: l_original_org_id NUMBER := PO_MOAC_UTILS_PVT.get_current_org_id ; --
685: l_approved_date PO_LINE_LOCATIONS_ALL.approved_date%TYPE;
686: l_chg PO_CHANGES_REC_TYPE;
687: -- Bug 3248723 END
688: l_document_org_id PO_HEADERS.ORG_ID%TYPE; -- Bug 3362534
689:
690: -- Bug 3639067 START
753:
754: IF (l_approved_date IS NULL) THEN -- Delete the shipment.
755: l_progress := '030';
756: -- Create a change object with a request to delete the shipment.
757: l_chg := PO_CHANGES_REC_TYPE.create_object (
758: p_po_header_id => p_po_header_id(i),
759: p_po_release_id => p_po_release_id(i) );
760: l_chg.shipment_changes.add_change (
761: p_po_line_location_id => p_po_line_location_id(i),
952: -- Indicates procedure return status.
953: --End of Comments
954: -------------------------------------------------------------------------------
955: PROCEDURE call_po_change_api (
956: p_chg IN OUT NOCOPY PO_CHANGES_REC_TYPE,
957: x_return_status OUT NOCOPY VARCHAR2
958: ) IS
959: l_proc_name CONSTANT VARCHAR2(30) := 'call_po_change_api';
960: