[Home] [Help]
814: l_document_org_id PO_HEADERS.ORG_ID%TYPE; -- Bug 3362534
815:
816: -- Bug 3639067 START
817: l_drop_ship_flag PO_LINE_LOCATIONS_ALL.drop_ship_flag%TYPE;
818: l_session_gt_key PO_SESSION_GT.key%TYPE;
819: l_req_header_id PO_TBL_NUMBER;
820: l_req_line_id PO_TBL_NUMBER;
821: -- Bug 3639067 END
822:
951: -- To do this, we filter p_req_line_id, p_req_header_id to construct
952: -- new tables l_req_line_id, l_req_header_id that contain only the req lines
953: -- with drop_ship_flag = 'Y'.
954:
955: -- SQL What: Retrieve a key to identify our records in PO_SESSION_GT.
956: SELECT PO_SESSION_GT_S.nextval
957: INTO l_session_gt_key
958: FROM dual;
959:
952: -- new tables l_req_line_id, l_req_header_id that contain only the req lines
953: -- with drop_ship_flag = 'Y'.
954:
955: -- SQL What: Retrieve a key to identify our records in PO_SESSION_GT.
956: SELECT PO_SESSION_GT_S.nextval
957: INTO l_session_gt_key
958: FROM dual;
959:
960: ----------------------------------------------------------------
957: INTO l_session_gt_key
958: FROM dual;
959:
960: ----------------------------------------------------------------
961: -- PO_SESSION_GT column mapping
962: --
963: -- num1 requisition_line_id
964: -- num2 requisition_header_id
965: ----------------------------------------------------------------
963: -- num1 requisition_line_id
964: -- num2 requisition_header_id
965: ----------------------------------------------------------------
966:
967: -- SQL What: Insert into PO_SESSION_GT the IDs of the req lines that have
968: -- drop_ship_flag = 'Y'
969: FORALL i IN 1..p_req_line_id.COUNT
970: INSERT INTO po_session_gt
971: (key, num1, num2)
966:
967: -- SQL What: Insert into PO_SESSION_GT the IDs of the req lines that have
968: -- drop_ship_flag = 'Y'
969: FORALL i IN 1..p_req_line_id.COUNT
970: INSERT INTO po_session_gt
971: (key, num1, num2)
972: SELECT l_session_gt_key, PRL.requisition_line_id, PRL.requisition_header_id
973: FROM po_requisition_lines_all PRL
974: WHERE PRL.requisition_line_id = p_req_line_id(i)
973: FROM po_requisition_lines_all PRL
974: WHERE PRL.requisition_line_id = p_req_line_id(i)
975: AND PRL.drop_ship_flag = 'Y';
976:
977: -- SQL What: Select the req line and header IDs from PO_SESSION_GT into
978: -- the PL/SQL tables l_req_line_id and l_req_header_id.
979: SELECT GT.num1, GT.num2
980: BULK COLLECT INTO l_req_line_id, l_req_header_id
981: FROM po_session_gt GT
977: -- SQL What: Select the req line and header IDs from PO_SESSION_GT into
978: -- the PL/SQL tables l_req_line_id and l_req_header_id.
979: SELECT GT.num1, GT.num2
980: BULK COLLECT INTO l_req_line_id, l_req_header_id
981: FROM po_session_gt GT
982: WHERE key = l_session_gt_key;
983:
984: IF (g_debug_stmt) THEN
985: PO_DEBUG.debug_var (
1455: END IF;
1456:
1457: l_progress := '030';
1458:
1459: SELECT PO_SESSION_GT_S.nextval
1460: INTO l_seq_id
1461: FROM DUAL;
1462:
1463: IF (g_fnd_debug = 'Y') THEN
1468: );
1469: END IF;
1470:
1471: FORALL i IN 1..p_entity_id_tbl.COUNT
1472: INSERT INTO po_session_gt
1473: ( key,
1474: num1,
1475: num2 )
1476: VALUES
1499: DECODE (PH.cancel_flag,
1500: 'Y', 'Y', -- po is cancelled
1501: 'N')))
1502: BULK COLLECT INTO x_purge_allowed_tbl
1503: FROM po_session_gt PSG,
1504: po_headers_all PH,
1505: po_line_locations_all PLL
1506: WHERE PSG.key = l_seq_id
1507: AND PSG.num1 = PLL.line_location_id (+)
1538:
1539: END IF;
1540:
1541: l_progress := '070';
1542: DELETE FROM po_session_gt WHERE key = l_seq_id;
1543:
1544: IF (FND_API.to_boolean(p_commit)) THEN
1545:
1546: l_progress := '080';