[Home] [Help]
336: d_api_name CONSTANT VARCHAR2(30) := 'construct_item_records';
337: d_module CONSTANT VARCHAR2(255) := d_pkg_name || d_api_name || '.';
338: d_position NUMBER;
339:
340: l_key PO_SESSION_GT.key%TYPE;
341: l_index_tbl DBMS_SQL.NUMBER_TABLE;
342: l_line_index NUMBER;
343: BEGIN
344: d_position := 0;
363: PO_LOG.stmt(d_module, d_position, 'item', p_lines.item_tbl);
364: PO_LOG.stmt(d_module, d_position, 'item id', p_lines.item_id_tbl);
365: END IF;
366:
367: -- insert interface_line_ids within the batch in po_session_gt table;
368: -- Thus it can be used to bulk select location rows
369: FORALL i IN 1..p_lines.rec_count
370: INSERT INTO po_session_gt
371: (
366:
367: -- insert interface_line_ids within the batch in po_session_gt table;
368: -- Thus it can be used to bulk select location rows
369: FORALL i IN 1..p_lines.rec_count
370: INSERT INTO po_session_gt
371: (
372: key,
373: num1, -- index
374: num2, -- interface_line_id
391: d_position := 10;
392:
393: -- read location rows and put into x_items
394: /* Bug 6926550 modified the where clause to select
395: only matched key records from po_session_gt*/
396: SELECT
397: -- attributes from headers
398: NVL(draft_headers.ship_to_location_id, txn_headers.ship_to_location_id),
399: NVL(draft_headers.vendor_id, txn_headers.vendor_id),
567: FROM po_line_locations_interface intf_locs,
568: po_lines_interface intf_lines,
569: po_headers_draft_all draft_headers,
570: po_headers_all txn_headers,
571: po_session_gt gt
572: WHERE gt.num2 = intf_lines.interface_line_id
573: AND intf_lines.interface_line_id = intf_locs.interface_line_id
574: AND intf_locs.processing_id = PO_PDOI_PARAMS.g_processing_id
575: AND gt.num3 = draft_headers.po_header_id(+)
735: d_module CONSTANT VARCHAR2(255) := d_pkg_name || d_api_name || '.';
736: d_position NUMBER;
737:
738: l_index NUMBER;
739: l_key PO_SESSION_GT.key%TYPE;
740:
741: -- variables used to read result from po_session_gt table
742: l_index_tbl PO_TBL_NUMBER;
743: l_org_id_tbl PO_TBL_NUMBER;
737:
738: l_index NUMBER;
739: l_key PO_SESSION_GT.key%TYPE;
740:
741: -- variables used to read result from po_session_gt table
742: l_index_tbl PO_TBL_NUMBER;
743: l_org_id_tbl PO_TBL_NUMBER;
744: l_item_id_tbl PO_TBL_NUMBER;
745:
807: l_key := PO_CORE_S.get_session_gt_nextval;
808: -- check whether item exists in default inv org, default master
809: -- org or ship_to org
810: FORALL i IN INDICES OF x_proc_row_in_round_tbl
811: INSERT INTO po_session_gt
812: (
813: key,
814: num1,
815: num2,
832: --concatenated_segments = x_items.ln_item_tbl(i);
833:
834: d_position := 30;
835:
836: DELETE FROM po_session_gt
837: WHERE key = l_key
838: RETURNING num1, num2, num3 BULK COLLECT INTO
839: l_index_tbl, l_org_id_tbl, l_item_id_tbl;
840:
964:
965: l_set_process_id_tbl PO_TBL_NUMBER := PO_TBL_NUMBER();
966: l_index NUMBER;
967:
968: -- key value used to identify records in po_session_gt
969: l_key PO_SESSION_GT.key%TYPE;
970:
971: -- variables used to call Inventory API
972: l_org_id NUMBER;
965: l_set_process_id_tbl PO_TBL_NUMBER := PO_TBL_NUMBER();
966: l_index NUMBER;
967:
968: -- key value used to identify records in po_session_gt
969: l_key PO_SESSION_GT.key%TYPE;
970:
971: -- variables used to call Inventory API
972: l_org_id NUMBER;
973: l_err_text VARCHAR2(3000);
1178:
1179: l_key := PO_CORE_S.get_session_gt_nextval;
1180: -- get processed result
1181: FORALL i IN INDICES OF p_index_tbl
1182: INSERT INTO po_session_gt
1183: (
1184: key,
1185: num1,
1186: num2,
1203: WHERE set_process_id = l_set_process_id_tbl(i);
1204:
1205: d_position := 40;
1206:
1207: DELETE FROM po_session_gt
1208: WHERE key = l_key
1209: RETURNING num1, num2, num3, num4, num5, num6, char1
1210: BULK COLLECT INTO
1211: l_index_tbl,
1291:
1292: -- handle the errors thrown by item creation
1293: -- 1. read errors from item error interface table
1294: FORALL i IN INDICES OF l_error_index_tbl
1295: INSERT INTO po_session_gt
1296: (
1297: key,
1298: num1,
1299: char1,
1321: AND revision = l_revision_tbl(i));
1322:
1323: d_position := 100;
1324:
1325: DELETE FROM po_session_gt
1326: WHERE key = l_key
1327: RETURNING num1, char1, char2, char3 BULK COLLECT INTO
1328: l_error_index_tbl,
1329: l_table_name_tbl,
1402: d_module CONSTANT VARCHAR2(255) := d_pkg_name || d_api_name || '.';
1403: d_position NUMBER;
1404:
1405: l_index NUMBER;
1406: l_key po_session_gt.key%TYPE;
1407:
1408: -- variables to store results of original values defined in item
1409: l_index_tbl PO_TBL_NUMBER;
1410: l_orig_desc_tbl PO_TBL_VARCHAR2000;
1430: l_key := PO_CORE_S.get_session_gt_nextval;
1431: l_update_index_tbl := p_index_tbl;
1432:
1433: FORALL i IN INDICES OF l_update_index_tbl
1434: INSERT INTO po_session_gt(key, num1, char1, num2)
1435: SELECT l_key,
1436: l_update_index_tbl(i),
1437: description,
1438: list_price_per_unit
1441: AND organization_id = PO_PDOI_PARAMS.g_sys.def_inv_org_id;
1442:
1443: d_position := 10;
1444:
1445: DELETE FROM po_session_gt
1446: WHERE key = l_key
1447: RETURNING num1, char1, num2 BULK COLLECT INTO
1448: l_index_tbl, l_orig_desc_tbl, l_orig_list_price_tbl;
1449: