[Home] [Help]
688: l_document_org_id PO_HEADERS.ORG_ID%TYPE; -- Bug 3362534
689:
690: -- Bug 3639067 START
691: l_drop_ship_flag PO_LINE_LOCATIONS_ALL.drop_ship_flag%TYPE;
692: l_session_gt_key PO_SESSION_GT.key%TYPE;
693: l_req_header_id PO_TBL_NUMBER;
694: l_req_line_id PO_TBL_NUMBER;
695: -- Bug 3639067 END
696:
825: -- To do this, we filter p_req_line_id, p_req_header_id to construct
826: -- new tables l_req_line_id, l_req_header_id that contain only the req lines
827: -- with drop_ship_flag = 'Y'.
828:
829: -- SQL What: Retrieve a key to identify our records in PO_SESSION_GT.
830: SELECT PO_SESSION_GT_S.nextval
831: INTO l_session_gt_key
832: FROM dual;
833:
826: -- new tables l_req_line_id, l_req_header_id that contain only the req lines
827: -- with drop_ship_flag = 'Y'.
828:
829: -- SQL What: Retrieve a key to identify our records in PO_SESSION_GT.
830: SELECT PO_SESSION_GT_S.nextval
831: INTO l_session_gt_key
832: FROM dual;
833:
834: ----------------------------------------------------------------
831: INTO l_session_gt_key
832: FROM dual;
833:
834: ----------------------------------------------------------------
835: -- PO_SESSION_GT column mapping
836: --
837: -- num1 requisition_line_id
838: -- num2 requisition_header_id
839: ----------------------------------------------------------------
837: -- num1 requisition_line_id
838: -- num2 requisition_header_id
839: ----------------------------------------------------------------
840:
841: -- SQL What: Insert into PO_SESSION_GT the IDs of the req lines that have
842: -- drop_ship_flag = 'Y'
843: FORALL i IN 1..p_req_line_id.COUNT
844: INSERT INTO po_session_gt
845: (key, num1, num2)
840:
841: -- SQL What: Insert into PO_SESSION_GT the IDs of the req lines that have
842: -- drop_ship_flag = 'Y'
843: FORALL i IN 1..p_req_line_id.COUNT
844: INSERT INTO po_session_gt
845: (key, num1, num2)
846: SELECT l_session_gt_key, PRL.requisition_line_id, PRL.requisition_header_id
847: FROM po_requisition_lines_all PRL
848: WHERE PRL.requisition_line_id = p_req_line_id(i)
847: FROM po_requisition_lines_all PRL
848: WHERE PRL.requisition_line_id = p_req_line_id(i)
849: AND PRL.drop_ship_flag = 'Y';
850:
851: -- SQL What: Select the req line and header IDs from PO_SESSION_GT into
852: -- the PL/SQL tables l_req_line_id and l_req_header_id.
853: SELECT GT.num1, GT.num2
854: BULK COLLECT INTO l_req_line_id, l_req_header_id
855: FROM po_session_gt GT
851: -- SQL What: Select the req line and header IDs from PO_SESSION_GT into
852: -- the PL/SQL tables l_req_line_id and l_req_header_id.
853: SELECT GT.num1, GT.num2
854: BULK COLLECT INTO l_req_line_id, l_req_header_id
855: FROM po_session_gt GT
856: WHERE key = l_session_gt_key;
857:
858: IF (g_debug_stmt) THEN
859: PO_DEBUG.debug_var (
1329: END IF;
1330:
1331: l_progress := '030';
1332:
1333: SELECT PO_SESSION_GT_S.nextval
1334: INTO l_seq_id
1335: FROM DUAL;
1336:
1337: IF (g_fnd_debug = 'Y') THEN
1342: );
1343: END IF;
1344:
1345: FORALL i IN 1..p_entity_id_tbl.COUNT
1346: INSERT INTO po_session_gt
1347: ( key,
1348: num1,
1349: num2 )
1350: VALUES
1373: DECODE (PH.cancel_flag,
1374: 'Y', 'Y', -- po is cancelled
1375: 'N')))
1376: BULK COLLECT INTO x_purge_allowed_tbl
1377: FROM po_session_gt PSG,
1378: po_headers_all PH,
1379: po_line_locations_all PLL
1380: WHERE PSG.key = l_seq_id
1381: AND PSG.num1 = PLL.line_location_id (+)
1412:
1413: END IF;
1414:
1415: l_progress := '070';
1416: DELETE FROM po_session_gt WHERE key = l_seq_id;
1417:
1418: IF (FND_API.to_boolean(p_commit)) THEN
1419:
1420: l_progress := '080';