[Home] [Help]
23: , p_organization_id IN NUMBER)
24: RETURN NUMBER IS
25: l_receipt_source_code VARCHAR2(30) := l_rcv_transaction_rec.receipt_source_code;
26: l_interface_transaction_id NUMBER;
27: l_group_id NUMBER := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
28: l_user_id NUMBER := inv_rcv_common_apis.g_po_startup_value.user_id;
29: l_logon_id NUMBER := inv_rcv_common_apis.g_po_startup_value.logon_id;
30: l_source_document_code VARCHAR2(30) := l_rcv_transaction_rec.source_document_code;
31: l_dest_type_code VARCHAR2(30) := l_rcv_transaction_rec.destination_type_code;
24: RETURN NUMBER IS
25: l_receipt_source_code VARCHAR2(30) := l_rcv_transaction_rec.receipt_source_code;
26: l_interface_transaction_id NUMBER;
27: l_group_id NUMBER := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
28: l_user_id NUMBER := inv_rcv_common_apis.g_po_startup_value.user_id;
29: l_logon_id NUMBER := inv_rcv_common_apis.g_po_startup_value.logon_id;
30: l_source_document_code VARCHAR2(30) := l_rcv_transaction_rec.source_document_code;
31: l_dest_type_code VARCHAR2(30) := l_rcv_transaction_rec.destination_type_code;
32: l_quantity NUMBER := l_rcv_transaction_rec.transaction_quantity;
25: l_receipt_source_code VARCHAR2(30) := l_rcv_transaction_rec.receipt_source_code;
26: l_interface_transaction_id NUMBER;
27: l_group_id NUMBER := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
28: l_user_id NUMBER := inv_rcv_common_apis.g_po_startup_value.user_id;
29: l_logon_id NUMBER := inv_rcv_common_apis.g_po_startup_value.logon_id;
30: l_source_document_code VARCHAR2(30) := l_rcv_transaction_rec.source_document_code;
31: l_dest_type_code VARCHAR2(30) := l_rcv_transaction_rec.destination_type_code;
32: l_quantity NUMBER := l_rcv_transaction_rec.transaction_quantity;
33: l_uom VARCHAR2(30) := l_rcv_transaction_rec.transaction_uom;
33: l_uom VARCHAR2(30) := l_rcv_transaction_rec.transaction_uom;
34: l_shipment_hdr_id NUMBER := l_rcv_transaction_rec.shipment_header_id;
35: l_shipment_line_id NUMBER := l_rcv_transaction_rec.shipment_line_id;
36: l_substitute_code VARCHAR2(30) := l_rcv_transaction_rec.substitute_unordered_code;
37: l_employee_id NUMBER := inv_rcv_common_apis.g_po_startup_value.employee_id;
38: l_parent_transaction_id NUMBER := l_rcv_transaction_rec.rcv_transaction_id;
39: l_inspection_code VARCHAR2(30) := l_rcv_transaction_rec.inspection_status_code;
40: l_quality_code VARCHAR2(30) := l_rcv_transaction_rec.inspection_quality_code;
41: l_po_hdr_id NUMBER := l_rcv_transaction_rec.po_header_id;
73: l_attribute14 VARCHAR2(150) := l_rcv_transaction_rec.attribute14;
74: l_attribute15 VARCHAR2(150) := l_rcv_transaction_rec.attribute15;
75: l_transaction_type VARCHAR2(30) := l_rcv_transaction_rec.transaction_type;
76: l_location_id NUMBER := l_rcv_transaction_rec.location_id;
77: l_processor_value VARCHAR2(10) := inv_rcv_common_apis.g_po_startup_value.transaction_mode;
78: l_category_id NUMBER := l_rcv_transaction_rec.category_id;
79: l_vendor_lot VARCHAR2(30) := l_rcv_transaction_rec.vendor_lot_num;
80: l_reason_id NUMBER := l_rcv_transaction_rec.reason_id;
81: l_primary_qty NUMBER := l_rcv_transaction_rec.primary_quantity;
182: --dbms_output.put_line('Inserted with intf. txn id:'||l_interface_transaction_id);
183:
184: --Since we call the Transfer API for a receiving subinventory with WMS
185: --patchset J, do not need this validation
186: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
187: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
188: IF (l_debug = 1) THEN
189: print_debug('WMS patch level is < J. Setting txntype to TRANSFER for RECEIVING dest', 4);
190: END IF;
183:
184: --Since we call the Transfer API for a receiving subinventory with WMS
185: --patchset J, do not need this validation
186: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
187: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
188: IF (l_debug = 1) THEN
189: print_debug('WMS patch level is < J. Setting txntype to TRANSFER for RECEIVING dest', 4);
190: END IF;
191: IF l_rcv_transaction_rec.destination_type_code = 'RECEIVING' THEN
224: * Populate the LPN_GROUP_ID and validation_flag columns if INV and PO
225: * patch levels are J or higher else set them to NULL
226: * Insert these two additional columns in RTI
227: */
228: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
229: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
230: l_validation_flag := 'Y';
231: l_lpn_group_id := l_group_id;
232: -- bug 3452845
225: * patch levels are J or higher else set them to NULL
226: * Insert these two additional columns in RTI
227: */
228: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
229: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
230: l_validation_flag := 'Y';
231: l_lpn_group_id := l_group_id;
232: -- bug 3452845
233: l_transaction_date := Sysdate;
237: l_transaction_date := Trunc(Sysdate);
238: END IF;
239:
240: --
241: l_operating_unit_id := inv_rcv_common_apis.get_operating_unit_id( l_receipt_source_code,
242: l_po_hdr_id,
243: l_req_line_id,
244: l_oe_order_header_id );
245:
521: END IF;
522: END insert_interface_code;
523:
524: PROCEDURE insert_lot_serial(
525: p_lot_serial_break_tbl IN inv_rcv_common_apis.trans_rec_tb_tp
526: , p_transaction_temp_id IN NUMBER
527: , p_lot_control_code IN NUMBER
528: , p_serial_control_code IN NUMBER
529: , p_interface_transaction_id IN NUMBER
533: IF (l_debug = 1) THEN
534: print_debug('entering insert_lot_serial 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
535: END IF;
536:
537: inv_rcv_common_apis.BREAK(
538: p_transaction_temp_id
539: , p_lot_serial_break_tbl
540: , p_lot_control_code
541: , p_serial_control_code);
737: l_ratedisplay NUMBER;
738: l_interface_transaction_id NUMBER;
739: -- This keeps track of the number with which the record was inserted.
740:
741: l_lot_serial_break_tbl inv_rcv_common_apis.trans_rec_tb_tp;
742: -- table that will store the record into which the lot/serial entered
743: -- have to be broken.
744:
745: l_po_distribution_id NUMBER;
924: * If WMS and PO patch levels are J or higher, set the value of lpn_id and
925: * transfer_lpn_id in RTI from the input parameters and we should not
926: * refer to the MMTT columns since they would not be updating them
927: */
928: IF ((inv_rcv_common_apis.g_wms_patch_level < inv_rcv_common_apis.g_patchset_j) OR
929: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
930: IF l_content_lpn_id IS NOT NULL THEN
931: p_rcv_transaction_rec.lpn_id := l_content_lpn_id;
932:
925: * transfer_lpn_id in RTI from the input parameters and we should not
926: * refer to the MMTT columns since they would not be updating them
927: */
928: IF ((inv_rcv_common_apis.g_wms_patch_level < inv_rcv_common_apis.g_patchset_j) OR
929: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
930: IF l_content_lpn_id IS NOT NULL THEN
931: p_rcv_transaction_rec.lpn_id := l_content_lpn_id;
932:
933: BEGIN
1212: END IF;
1213:
1214: -- Part of the code in RCV_LOCATOR_CONTROL.SET_LOCATOR_ATTRIBUTES('INIT');
1215: IF (
1216: NVL(inv_rcv_common_apis.g_rcv_global_var.express_mode, 'NO') = 'NO'
1217: AND p_rcv_transaction_rec.subinventory_dsp IS NOT NULL
1218: AND p_rcv_transaction_rec.destination_type_code = 'INVENTORY'
1219: AND p_rcv_transaction_rec.subinventory_locator_control IN(2, 3)
1220: ) THEN
1265:
1266: IF (l_asn_line_flag = 'ASN') THEN
1267:
1268: --Check if the destination is expense
1269: inv_rcv_common_apis.get_po_routing_id(
1270: x_po_routing_id => l_po_routing_id,
1271: x_is_expense => l_is_expense,
1272: p_po_header_id => p_rcv_rcvtxn_rec.po_header_id,
1273: p_po_release_id => p_rcv_rcvtxn_rec.po_release_id,
1341: END IF;
1342:
1343: l_rate := p_rcv_transaction_rec.currency_conversion_rate;
1344:
1345: IF (inv_rcv_common_apis.g_po_startup_value.display_inverse_rate = 'Y') THEN
1346: l_ratedisplay := 1 / l_rate;
1347: ELSE
1348: l_ratedisplay := l_rate;
1349: END IF;
1359: IF (l_debug = 1) THEN
1360: print_debug('populate_default_values 130: ', 4);
1361: END IF;
1362:
1363: IF (NVL(inv_rcv_common_apis.g_rcv_global_var.express_mode, 'NO') <> 'YES'
1364: AND p_rcv_transaction_rec.inspection_detail <> 'Y') THEN
1365: --dbms_output.put_line('before insert');
1366:
1367: -- Before this must populate the passed in parameters in the
1377: --IF WMS and PO patch levels are J or higher, from teh putaway UI, we will create
1378: --a TRANSFER transaction if the subinventory type is RECEIVING. If the Deliver API is
1379: --called, then the destination sub should be a storage subinventory. So we should set
1380: --the destination type code to Inventory
1381: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
1382: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
1383: p_rcv_transaction_rec.destination_type_code := 'INVENTORY';
1384: END IF;
1385:
1378: --a TRANSFER transaction if the subinventory type is RECEIVING. If the Deliver API is
1379: --called, then the destination sub should be a storage subinventory. So we should set
1380: --the destination type code to Inventory
1381: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
1382: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
1383: p_rcv_transaction_rec.destination_type_code := 'INVENTORY';
1384: END IF;
1385:
1386: -- bug 3198278
1390: -- exception since one cannot do a transfer in a storage sub.
1391: -- If the destination_type_code is receiving then the
1392: -- transaction_type is defaulted to be transfer in insert_interface_code
1393: IF p_rcv_transaction_rec.destination_type_code = 'RECEIVING'
1394: AND ((inv_rcv_common_apis.g_wms_patch_level >= inv_rcv_common_apis.g_patchset_j)
1395: AND (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
1396: l_subinventory_type := wms_putaway_utils.get_subinventory_type
1397: (p_subinventory_code => p_subinventory_code
1398: , p_organization_id => p_organization_id);
1391: -- If the destination_type_code is receiving then the
1392: -- transaction_type is defaulted to be transfer in insert_interface_code
1393: IF p_rcv_transaction_rec.destination_type_code = 'RECEIVING'
1394: AND ((inv_rcv_common_apis.g_wms_patch_level >= inv_rcv_common_apis.g_patchset_j)
1395: AND (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
1396: l_subinventory_type := wms_putaway_utils.get_subinventory_type
1397: (p_subinventory_code => p_subinventory_code
1398: , p_organization_id => p_organization_id);
1399: IF Nvl(l_subinventory_type,1) = 1 THEN
1437: * on the interface tables (MTLI/MSNI).
1438: * If either of these are not installed, use the existing logic to break
1439: * lots and serials based on temp records MTLI/MSNT
1440: */
1441: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
1442: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
1443:
1444: l_lot_serial_break_tbl(1).transaction_id := l_interface_transaction_id;
1445: l_lot_serial_break_tbl(1).primary_quantity := p_rcv_transaction_rec.primary_quantity;
1438: * If either of these are not installed, use the existing logic to break
1439: * lots and serials based on temp records MTLI/MSNT
1440: */
1441: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
1442: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
1443:
1444: l_lot_serial_break_tbl(1).transaction_id := l_interface_transaction_id;
1445: l_lot_serial_break_tbl(1).primary_quantity := p_rcv_transaction_rec.primary_quantity;
1446:
1472: -- database rollback) you would see this quantity as pending to be transacted if
1473: -- we inserted the rows as transaction_status_code = 'PENDING'
1474:
1475: l_rcv_transaction_id := p_rcv_transaction_rec.rcv_transaction_id;
1476: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
1477:
1478: UPDATE rcv_transactions_interface
1479: SET transaction_status_code = 'PENDING'
1480: , processing_status_code = 'PENDING'
1513: l_rcv_transaction_rec rcvtxn_transaction_rec_tp;
1514: l_rcv_rcvtxn_rec rcvtxn_enter_rec_cursor_rec;
1515: -- local record in which the values returned from the cursor are fetched.
1516:
1517: l_rcvtxn_match_table_detail inv_rcv_common_apis.cascaded_trans_tab_type;
1518: -- local variable to store the output of the matching algorithm
1519:
1520: l_msg_count NUMBER;
1521: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1645:
1646: l_progress := '10';
1647:
1648: BEGIN
1649: inv_rcv_common_apis.init_startup_values(p_organization_id);
1650: EXCEPTION
1651: WHEN NO_DATA_FOUND THEN
1652: fnd_message.set_name('INV', 'INV_RCV_PARAM');
1653: fnd_msg_pub.ADD;
1655: END;
1656:
1657: l_progress := '20';
1658:
1659: IF inv_rcv_common_apis.g_rcv_global_var.interface_group_id IS NULL THEN
1660: SELECT rcv_interface_groups_s.NEXTVAL
1661: INTO l_group_id
1662: FROM DUAL;
1663:
1660: SELECT rcv_interface_groups_s.NEXTVAL
1661: INTO l_group_id
1662: FROM DUAL;
1663:
1664: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
1665: ELSE
1666: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
1667: END IF;
1668:
1662: FROM DUAL;
1663:
1664: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
1665: ELSE
1666: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
1667: END IF;
1668:
1669: l_progress := '30';
1670: -- call matching algorithm
1823: CLOSE l_curs_rcvtxn_detail;
1824: END IF;
1825:
1826: l_progress := '90';
1827: inv_rcv_common_apis.do_check(
1828: p_organization_id => p_organization_id
1829: , p_inventory_item_id => p_item_id
1830: , p_transaction_type_id => 18
1831: , p_primary_quantity => l_total_primary_qty
1891: l_rcv_transaction_rec rcvtxn_transaction_rec_tp;
1892: l_rcv_rcvtxn_rec rcvtxn_enter_rec_cursor_rec;
1893: -- local record in which the values returned from the cursor are fetched.
1894:
1895: l_rcvtxn_match_table_detail inv_rcv_common_apis.cascaded_trans_tab_type;
1896: -- local variable to store the output of the matching algorithm
1897:
1898: l_msg_count NUMBER;
1899: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2141: l_progress := '10';
2142:
2143: --dbms_output.put_line('In create po');
2144: BEGIN
2145: inv_rcv_common_apis.init_startup_values(p_organization_id);
2146: EXCEPTION
2147: WHEN NO_DATA_FOUND THEN
2148: fnd_message.set_name('INV', 'INV_RCV_PARAM');
2149: fnd_msg_pub.ADD;
2152:
2153: l_progress := '20';
2154:
2155: -- default l_group_id ?? clear group id after done
2156: IF inv_rcv_common_apis.g_rcv_global_var.interface_group_id IS NULL THEN
2157: SELECT rcv_interface_groups_s.NEXTVAL
2158: INTO l_group_id
2159: FROM DUAL;
2160:
2157: SELECT rcv_interface_groups_s.NEXTVAL
2158: INTO l_group_id
2159: FROM DUAL;
2160:
2161: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
2162: ELSE
2163: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
2164: END IF;
2165:
2159: FROM DUAL;
2160:
2161: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
2162: ELSE
2163: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
2164: END IF;
2165:
2166: l_progress := '30';
2167: -- call matching algorithm
2188: * If INV and PO J are installed, then the lots for the parent transaction will
2189: * be stored in rcv_lots_supply. We must match the lot number passed with that
2190: * of the parent transaction and also the parent_txn_id
2191: */
2192: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2193: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2194: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := p_lot_number;
2195: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).parent_transaction_id := p_parent_txn_id;
2196: ELSE
2189: * be stored in rcv_lots_supply. We must match the lot number passed with that
2190: * of the parent transaction and also the parent_txn_id
2191: */
2192: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2193: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2194: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := p_lot_number;
2195: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).parent_transaction_id := p_parent_txn_id;
2196: ELSE
2197: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := NULL;
2445: END IF;
2446: l_progress := '70';
2447:
2448: -- Only call split MO for patchset J or higher
2449: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2450: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2451: -- Added addition check for p_original_txn_temp_id: if it is null,
2452: -- then simply insert RTI with the MMTT column as null
2453: IF p_original_txn_temp_id IS NULL OR l_rcvtxn_match_table_detail.COUNT = 1 THEN
2446: l_progress := '70';
2447:
2448: -- Only call split MO for patchset J or higher
2449: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2450: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2451: -- Added addition check for p_original_txn_temp_id: if it is null,
2452: -- then simply insert RTI with the MMTT column as null
2453: IF p_original_txn_temp_id IS NULL OR l_rcvtxn_match_table_detail.COUNT = 1 THEN
2454: l_new_txn_temp_id := p_original_txn_temp_id;
2542: /* FP-J Lot/Serial Support Enhancement
2543: * Populate the table to store the information of the RTIs created used for
2544: * splitting the lots and serials based on RTI quantity
2545: */
2546: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2547: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2548: l_new_rti_info(match_result_count).orig_interface_trx_id := p_transaction_temp_id;
2549: l_new_rti_info(match_result_count).new_interface_trx_id := g_interface_transaction_id;
2550: l_new_rti_info(match_result_count).quantity := l_rcv_transaction_rec.transaction_quantity;
2543: * Populate the table to store the information of the RTIs created used for
2544: * splitting the lots and serials based on RTI quantity
2545: */
2546: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2547: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2548: l_new_rti_info(match_result_count).orig_interface_trx_id := p_transaction_temp_id;
2549: l_new_rti_info(match_result_count).new_interface_trx_id := g_interface_transaction_id;
2550: l_new_rti_info(match_result_count).quantity := l_rcv_transaction_rec.transaction_quantity;
2551: l_new_rti_info(match_result_count).sec_qty := l_rcv_transaction_rec.sec_transaction_quantity;--OPM Convergence
2565: /* FP-J Lot/Serial Support Enhancement
2566: * Call the split_lot API to split the lots and serials inserted from the UI
2567: * based on the quantity of each RTI record
2568: */
2569: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2570: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2571:
2572: IF (p_lot_control_code > 1 OR p_serial_control_code > 1) THEN
2573: --BUG 3326408
2566: * Call the split_lot API to split the lots and serials inserted from the UI
2567: * based on the quantity of each RTI record
2568: */
2569: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2570: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2571:
2572: IF (p_lot_control_code > 1 OR p_serial_control_code > 1) THEN
2573: --BUG 3326408
2574: IF (p_lot_control_code > 1 AND p_serial_control_code = 6) THEN
2608: END IF; --END IF check lot and serial controls
2609: END IF; --END IF check INV J and PO J installed
2610:
2611: l_progress := '90';
2612: inv_rcv_common_apis.do_check(
2613: p_organization_id => p_organization_id
2614: , p_inventory_item_id => p_item_id
2615: , p_transaction_type_id => 18
2616: , p_primary_quantity => l_total_primary_qty
2673: l_rcv_transaction_rec rcvtxn_transaction_rec_tp;
2674: l_rcv_rcvtxn_rec rcvtxn_enter_rec_cursor_rec;
2675: -- local record in which the values returned from the cursor are fetched.
2676:
2677: l_rcvtxn_match_table_detail inv_rcv_common_apis.cascaded_trans_tab_type;
2678: -- local variable to store the output of the matching algorithm
2679:
2680: l_msg_count NUMBER;
2681: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2814: l_progress := '10';
2815:
2816: BEGIN
2817: /*Begin Bug Fix 4158984
2818: Setting value of INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num to a
2819: dummy value of -9999 as if this value is null, we are generating recepit
2820: numbers during delivery transaction which is not required.
2821: We are setting value back to null after call to inv_rcv_common_apis.init_startup_values.
2822: */
2817: /*Begin Bug Fix 4158984
2818: Setting value of INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num to a
2819: dummy value of -9999 as if this value is null, we are generating recepit
2820: numbers during delivery transaction which is not required.
2821: We are setting value back to null after call to inv_rcv_common_apis.init_startup_values.
2822: */
2823: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := -9999;
2824: inv_rcv_common_apis.init_startup_values(p_organization_id);
2825: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := NULL;
2819: dummy value of -9999 as if this value is null, we are generating recepit
2820: numbers during delivery transaction which is not required.
2821: We are setting value back to null after call to inv_rcv_common_apis.init_startup_values.
2822: */
2823: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := -9999;
2824: inv_rcv_common_apis.init_startup_values(p_organization_id);
2825: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := NULL;
2826: /*End bug 4158984*/
2827: EXCEPTION
2820: numbers during delivery transaction which is not required.
2821: We are setting value back to null after call to inv_rcv_common_apis.init_startup_values.
2822: */
2823: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := -9999;
2824: inv_rcv_common_apis.init_startup_values(p_organization_id);
2825: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := NULL;
2826: /*End bug 4158984*/
2827: EXCEPTION
2828: WHEN NO_DATA_FOUND THEN
2821: We are setting value back to null after call to inv_rcv_common_apis.init_startup_values.
2822: */
2823: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := -9999;
2824: inv_rcv_common_apis.init_startup_values(p_organization_id);
2825: INV_RCV_COMMON_APIS.g_rcv_global_var.receipt_num := NULL;
2826: /*End bug 4158984*/
2827: EXCEPTION
2828: WHEN NO_DATA_FOUND THEN
2829: fnd_message.set_name('INV', 'INV_RCV_PARAM');
2833:
2834: l_progress := '20';
2835:
2836: -- default l_group_id ?? clear group id after done
2837: IF inv_rcv_common_apis.g_rcv_global_var.interface_group_id IS NULL THEN
2838: SELECT rcv_interface_groups_s.NEXTVAL
2839: INTO l_group_id
2840: FROM DUAL;
2841:
2838: SELECT rcv_interface_groups_s.NEXTVAL
2839: INTO l_group_id
2840: FROM DUAL;
2841:
2842: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
2843: ELSE
2844: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
2845: END IF;
2846:
2840: FROM DUAL;
2841:
2842: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
2843: ELSE
2844: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
2845: END IF;
2846:
2847: -- default some header level variables based on the header id passed
2848: SELECT asn_type
2893: * If INV and PO J are installed, then the lots for the parent transaction will
2894: * be stored in rcv_lots_supply. We must match the lot number passed with that
2895: * of the parent transaction and also the parent_txn_id
2896: */
2897: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2898: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2899: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := p_lot_number;
2900: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).parent_transaction_id := p_parent_txn_id;
2901: ELSE
2894: * be stored in rcv_lots_supply. We must match the lot number passed with that
2895: * of the parent transaction and also the parent_txn_id
2896: */
2897: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
2898: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
2899: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := p_lot_number;
2900: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).parent_transaction_id := p_parent_txn_id;
2901: ELSE
2902: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := NULL;
3077: end if;
3078:
3079:
3080:
3081: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3082: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3083: -- Added addition check for p_original_txn_temp_id: if it is null,
3084: -- then simply insert RTI with the MMTT column as null
3085: IF p_original_txn_temp_id IS NULL OR l_rcvtxn_match_table_detail.COUNT = 1 THEN
3078:
3079:
3080:
3081: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3082: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3083: -- Added addition check for p_original_txn_temp_id: if it is null,
3084: -- then simply insert RTI with the MMTT column as null
3085: IF p_original_txn_temp_id IS NULL OR l_rcvtxn_match_table_detail.COUNT = 1 THEN
3086: l_new_txn_temp_id := p_original_txn_temp_id;
3177: /* FP-J Lot/Serial Support Enhancement
3178: * Populate the table to store the information of the RTIs created used for
3179: * splitting the lots and serials based on RTI quantity
3180: */
3181: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3182: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3183: l_new_rti_info(match_result_count).orig_interface_trx_id := p_transaction_temp_id;
3184: l_new_rti_info(match_result_count).new_interface_trx_id := g_interface_transaction_id;
3185: l_new_rti_info(match_result_count).quantity := l_rcv_transaction_rec.transaction_quantity;
3178: * Populate the table to store the information of the RTIs created used for
3179: * splitting the lots and serials based on RTI quantity
3180: */
3181: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3182: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3183: l_new_rti_info(match_result_count).orig_interface_trx_id := p_transaction_temp_id;
3184: l_new_rti_info(match_result_count).new_interface_trx_id := g_interface_transaction_id;
3185: l_new_rti_info(match_result_count).quantity := l_rcv_transaction_rec.transaction_quantity;
3186: IF (l_debug = 1) THEN
3190:
3191: /* FP-J Lot/Serial Support Enhancement
3192: * No updates to rcv_serials_supply if INV J and PO J are installed
3193: */
3194: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
3195: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
3196: IF l_rcv_rcvtxn_rec.req_line_id IS NOT NULL
3197: AND p_serial_control_code NOT IN(1, 6) THEN
3198: -- update rss for req
3191: /* FP-J Lot/Serial Support Enhancement
3192: * No updates to rcv_serials_supply if INV J and PO J are installed
3193: */
3194: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
3195: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
3196: IF l_rcv_rcvtxn_rec.req_line_id IS NOT NULL
3197: AND p_serial_control_code NOT IN(1, 6) THEN
3198: -- update rss for req
3199: update_rcv_serials_supply(
3223: /* FP-J Lot/Serial Support Enhancement
3224: * Call the split_lot API to split the lots and serials inserted from the UI
3225: * based on the quantity of each RTI record
3226: */
3227: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3228: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3229: l_msni_count := 0;
3230: IF (p_lot_control_code > 1 OR p_serial_control_code > 1) THEN
3231: --BUG 3326408, 3405320
3224: * Call the split_lot API to split the lots and serials inserted from the UI
3225: * based on the quantity of each RTI record
3226: */
3227: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3228: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3229: l_msni_count := 0;
3230: IF (p_lot_control_code > 1 OR p_serial_control_code > 1) THEN
3231: --BUG 3326408, 3405320
3232: --If there are any serials confirmed from the UI for an item that is
3277: END IF;
3278: END IF; --END IF check lot and serial control controls
3279: END IF; --END IF check INV J and PO J installed
3280:
3281: inv_rcv_common_apis.do_check(
3282: p_organization_id => p_organization_id
3283: , p_inventory_item_id => p_item_id
3284: , p_transaction_type_id => 61
3285: , p_primary_quantity => l_total_primary_qty
3342: l_rcv_transaction_rec rcvtxn_transaction_rec_tp;
3343: l_rcv_rcvtxn_rec rcvtxn_enter_rec_cursor_rec;
3344: -- local record in which the values returned from the cursor are fetched.
3345:
3346: l_rcvtxn_match_table_detail inv_rcv_common_apis.cascaded_trans_tab_type;
3347: -- local variable to store the output of the matching algorithm
3348:
3349: l_msg_count NUMBER;
3350: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3481:
3482: l_progress := '10';
3483:
3484: BEGIN
3485: inv_rcv_common_apis.init_startup_values(p_organization_id);
3486: EXCEPTION
3487: WHEN NO_DATA_FOUND THEN
3488: fnd_message.set_name('INV', 'INV_RCV_PARAM');
3489: fnd_msg_pub.ADD;
3492:
3493: l_progress := '20';
3494:
3495: -- default l_group_id ?? clear group id after done
3496: IF inv_rcv_common_apis.g_rcv_global_var.interface_group_id IS NULL THEN
3497: SELECT rcv_interface_groups_s.NEXTVAL
3498: INTO l_group_id
3499: FROM DUAL;
3500:
3497: SELECT rcv_interface_groups_s.NEXTVAL
3498: INTO l_group_id
3499: FROM DUAL;
3500:
3501: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
3502: ELSE
3503: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
3504: END IF;
3505:
3499: FROM DUAL;
3500:
3501: inv_rcv_common_apis.g_rcv_global_var.interface_group_id := l_group_id;
3502: ELSE
3503: l_group_id := inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
3504: END IF;
3505:
3506: l_progress := '30';
3507: -- call matching algorithm
3525: * If INV and PO J are installed, then the lots for the parent transaction will
3526: * be stored in rcv_lots_supply. We must match the lot number passed with that
3527: * of the parent transaction and also the parent_txn_id
3528: */
3529: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3530: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3531: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := p_lot_number;
3532: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).parent_transaction_id := p_parent_txn_id;
3533: ELSE
3526: * be stored in rcv_lots_supply. We must match the lot number passed with that
3527: * of the parent transaction and also the parent_txn_id
3528: */
3529: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3530: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3531: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := p_lot_number;
3532: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).parent_transaction_id := p_parent_txn_id;
3533: ELSE
3534: g_rcvtxn_match_table_gross(g_rcvtxn_detail_index).lot_number := NULL;
3700: l_total_primary_qty := l_total_primary_qty + l_rcv_transaction_rec.primary_quantity;
3701: l_progress := '70';
3702:
3703: -- Only call split mo if J or higher
3704: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3705: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3706: -- Added addition check for p_original_txn_temp_id: if it is null,
3707: -- then simply insert RTI with the MMTT column as null
3708: IF p_original_txn_temp_id IS NULL OR l_rcvtxn_match_table_detail.COUNT = 1 THEN
3701: l_progress := '70';
3702:
3703: -- Only call split mo if J or higher
3704: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3705: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3706: -- Added addition check for p_original_txn_temp_id: if it is null,
3707: -- then simply insert RTI with the MMTT column as null
3708: IF p_original_txn_temp_id IS NULL OR l_rcvtxn_match_table_detail.COUNT = 1 THEN
3709: l_new_txn_temp_id := p_original_txn_temp_id;
3797: /* FP-J Lot/Serial Support Enhancement
3798: * Populate the table to store the information of the RTIs created used for
3799: * splitting the lots and serials based on RTI quantity
3800: */
3801: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3802: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3803: l_new_rti_info(match_result_count).orig_interface_trx_id := p_transaction_temp_id;
3804: l_new_rti_info(match_result_count).new_interface_trx_id := g_interface_transaction_id;
3805: l_new_rti_info(match_result_count).quantity := l_rcv_transaction_rec.transaction_quantity;
3798: * Populate the table to store the information of the RTIs created used for
3799: * splitting the lots and serials based on RTI quantity
3800: */
3801: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3802: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3803: l_new_rti_info(match_result_count).orig_interface_trx_id := p_transaction_temp_id;
3804: l_new_rti_info(match_result_count).new_interface_trx_id := g_interface_transaction_id;
3805: l_new_rti_info(match_result_count).quantity := l_rcv_transaction_rec.transaction_quantity;
3806: IF (l_debug = 1) THEN
3817: /* FP-J Lot/Serial Support Enhancement
3818: * Call the split_lot API to split the lots and serials inserted from the UI
3819: * based on the quantity of each RTI record
3820: */
3821: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3822: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3823: IF (p_lot_control_code > 1 OR p_serial_control_code > 1) THEN
3824:
3825: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3818: * Call the split_lot API to split the lots and serials inserted from the UI
3819: * based on the quantity of each RTI record
3820: */
3821: IF ((inv_rcv_common_apis.g_inv_patch_level >= inv_rcv_common_apis.g_patchset_j) AND
3822: (inv_rcv_common_apis.g_po_patch_level >= inv_rcv_common_apis.g_patchset_j_po)) THEN
3823: IF (p_lot_control_code > 1 OR p_serial_control_code > 1) THEN
3824:
3825: l_split_lot_serial_ok := inv_rcv_integration_apis.split_lot_serial(
3826: p_api_version => 1.0
3842: END IF; --END IF check lot and serial controls
3843: END IF; --END IF check INV J and PO J installed
3844:
3845: l_progress := '90';
3846: inv_rcv_common_apis.do_check(
3847: p_organization_id => p_organization_id
3848: , p_inventory_item_id => p_item_id
3849: , p_transaction_type_id => 15
3850: , p_primary_quantity => l_total_primary_qty
4151: /* Bug 2443163 */
4152: /* SELECT MIN(rti.interface_transaction_id) */
4153: SELECT MAX(rti.interface_transaction_id)
4154: FROM rcv_transactions_interface rti
4155: WHERE rti.GROUP_ID = inv_rcv_common_apis.g_rcv_global_var.interface_group_id
4156: GROUP BY rti.lpn_id;
4157:
4158: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4159: BEGIN
4163: IF (l_debug = 1) THEN
4164: print_debug('create_osp_std_rcvtxn_intf_rec: 10' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4165: END IF;
4166:
4167: IF inv_rcv_common_apis.g_po_startup_value.sob_id IS NULL THEN
4168: --BUG 3444177: User HOR for performance reasons
4169: SELECT TO_NUMBER(hoi.org_information1)
4170: INTO inv_rcv_common_apis.g_po_startup_value.sob_id
4171: FROM hr_organization_information hoi
4166:
4167: IF inv_rcv_common_apis.g_po_startup_value.sob_id IS NULL THEN
4168: --BUG 3444177: User HOR for performance reasons
4169: SELECT TO_NUMBER(hoi.org_information1)
4170: INTO inv_rcv_common_apis.g_po_startup_value.sob_id
4171: FROM hr_organization_information hoi
4172: WHERE hoi.organization_id = p_organization_id
4173: AND (hoi.org_information_context || '') = 'Accounting Information' ;
4174: END IF;
4174: END IF;
4175:
4176: l_progress := '20';
4177: -- first check if the transaction date satisfies the validation.
4178: inv_rcv_common_apis.validate_trx_date(
4179: p_trx_date => SYSDATE
4180: , p_organization_id => p_organization_id
4181: , p_sob_id => inv_rcv_common_apis.g_po_startup_value.sob_id
4182: , x_return_status => x_status
4177: -- first check if the transaction date satisfies the validation.
4178: inv_rcv_common_apis.validate_trx_date(
4179: p_trx_date => SYSDATE
4180: , p_organization_id => p_organization_id
4181: , p_sob_id => inv_rcv_common_apis.g_po_startup_value.sob_id
4182: , x_return_status => x_status
4183: , x_error_code => x_message
4184: );
4185:
4251:
4252: /* FP-J Lot/Serial Support Enhancement
4253: * If INV J and PO J are installed, do not call label printing API at this stage
4254: */
4255: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
4256: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
4257: l_counter := 1;
4258: OPEN c_rti_txn_id;
4259:
4252: /* FP-J Lot/Serial Support Enhancement
4253: * If INV J and PO J are installed, do not call label printing API at this stage
4254: */
4255: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
4256: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
4257: l_counter := 1;
4258: OPEN c_rti_txn_id;
4259:
4260: LOOP
4346: /* Bug 2443163 */
4347: /* SELECT MIN(rti.interface_transaction_id) */
4348: SELECT MAX(rti.interface_transaction_id)
4349: FROM rcv_transactions_interface rti
4350: WHERE rti.GROUP_ID = inv_rcv_common_apis.g_rcv_global_var.interface_group_id
4351: GROUP BY rti.lpn_id;
4352:
4353: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4354: BEGIN
4359: print_debug('create_std_rcvtxn_intf_rec: 10' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
4360: print_debug(' p_rcv_act_rjt_qty_type => '||p_rcv_act_rjt_qty_type,1);
4361: END IF;
4362:
4363: IF inv_rcv_common_apis.g_po_startup_value.sob_id IS NULL THEN
4364: --BUG 3444177: User HOR for performance reasons
4365: SELECT TO_NUMBER(hoi.org_information1)
4366: INTO inv_rcv_common_apis.g_po_startup_value.sob_id
4367: FROM hr_organization_information hoi
4362:
4363: IF inv_rcv_common_apis.g_po_startup_value.sob_id IS NULL THEN
4364: --BUG 3444177: User HOR for performance reasons
4365: SELECT TO_NUMBER(hoi.org_information1)
4366: INTO inv_rcv_common_apis.g_po_startup_value.sob_id
4367: FROM hr_organization_information hoi
4368: WHERE hoi.organization_id = p_organization_id
4369: AND (hoi.org_information_context || '') = 'Accounting Information' ;
4370: END IF;
4370: END IF;
4371:
4372: l_progress := '20';
4373: -- first check if the transaction date satisfies the validation.
4374: inv_rcv_common_apis.validate_trx_date(
4375: p_trx_date => SYSDATE
4376: , p_organization_id => p_organization_id
4377: , p_sob_id => inv_rcv_common_apis.g_po_startup_value.sob_id
4378: , x_return_status => x_status
4373: -- first check if the transaction date satisfies the validation.
4374: inv_rcv_common_apis.validate_trx_date(
4375: p_trx_date => SYSDATE
4376: , p_organization_id => p_organization_id
4377: , p_sob_id => inv_rcv_common_apis.g_po_startup_value.sob_id
4378: , x_return_status => x_status
4379: , x_error_code => x_message
4380: );
4381:
4624:
4625: /* FP-J Lot/Serial Support Enhancement
4626: * If INV J and PO J are installed, do not call label printing API at this stage
4627: */
4628: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
4629: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
4630: l_counter := 1;
4631: OPEN c_rti_txn_id;
4632:
4625: /* FP-J Lot/Serial Support Enhancement
4626: * If INV J and PO J are installed, do not call label printing API at this stage
4627: */
4628: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
4629: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
4630: l_counter := 1;
4631: OPEN c_rti_txn_id;
4632:
4633: LOOP
4727:
4728: CURSOR c_rti_txn_id IS
4729: SELECT DISTINCT rti.interface_transaction_id
4730: FROM rcv_transactions_interface rti
4731: WHERE rti.GROUP_ID = inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
4732:
4733: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4734: BEGIN
4735: x_return_status := fnd_api.g_ret_sts_success;
4761: END IF;
4762:
4763: --First check if the transaction date satisfies the validation.
4764: --If the transaction date is invalid then error out the transaction
4765: IF inv_rcv_common_apis.g_po_startup_value.sob_id IS NULL THEN
4766: --BUG 3444177: User HOR for performance reasons
4767: BEGIN
4768: SELECT TO_NUMBER(hoi.org_information1)
4769: INTO inv_rcv_common_apis.g_po_startup_value.sob_id
4765: IF inv_rcv_common_apis.g_po_startup_value.sob_id IS NULL THEN
4766: --BUG 3444177: User HOR for performance reasons
4767: BEGIN
4768: SELECT TO_NUMBER(hoi.org_information1)
4769: INTO inv_rcv_common_apis.g_po_startup_value.sob_id
4770: FROM hr_organization_information hoi
4771: WHERE hoi.organization_id = p_organization_id
4772: AND (hoi.org_information_context || '') = 'Accounting Information' ;
4773: EXCEPTION
4781: END IF;
4782:
4783: l_progress := '15';
4784:
4785: inv_rcv_common_apis.validate_trx_date(
4786: p_trx_date => SYSDATE
4787: , p_organization_id => p_organization_id
4788: , p_sob_id => inv_rcv_common_apis.g_po_startup_value.sob_id
4789: , x_return_status => x_return_status
4784:
4785: inv_rcv_common_apis.validate_trx_date(
4786: p_trx_date => SYSDATE
4787: , p_organization_id => p_organization_id
4788: , p_sob_id => inv_rcv_common_apis.g_po_startup_value.sob_id
4789: , x_return_status => x_return_status
4790: , x_error_code => x_msg_data
4791: );
4792:
5013:
5014: /* FP-J Lot/Serial Support Enhancement
5015: * If INV J and PO J are installed, do not call label printing API at this stage
5016: */
5017: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
5018: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
5019: OPEN c_rti_txn_id;
5020:
5021: LOOP
5014: /* FP-J Lot/Serial Support Enhancement
5015: * If INV J and PO J are installed, do not call label printing API at this stage
5016: */
5017: IF ((inv_rcv_common_apis.g_inv_patch_level < inv_rcv_common_apis.g_patchset_j) OR
5018: (inv_rcv_common_apis.g_po_patch_level < inv_rcv_common_apis.g_patchset_j_po)) THEN
5019: OPEN c_rti_txn_id;
5020:
5021: LOOP
5022: l_counter := 1;
5085: PROCEDURE rcvtxn_clear_global IS
5086: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5087: BEGIN
5088: g_rcvtxn_detail_index := 1;
5089: inv_rcv_common_apis.g_po_startup_value := NULL;
5090: inv_rcv_common_apis.g_rcv_global_var := NULL;
5091: g_rcvtxn_match_table_gross.DELETE;
5092: END rcvtxn_clear_global;
5093:
5086: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5087: BEGIN
5088: g_rcvtxn_detail_index := 1;
5089: inv_rcv_common_apis.g_po_startup_value := NULL;
5090: inv_rcv_common_apis.g_rcv_global_var := NULL;
5091: g_rcvtxn_match_table_gross.DELETE;
5092: END rcvtxn_clear_global;
5093:
5094: PROCEDURE update_rcv_serials_supply(