[Home] [Help]
7: --g_rcpt_lot_qty_rec_tb rcpt_lot_qty_rec_tb_tp;
8: --g_prev_lot_number VARCHAR2(30) := NULL;
9:
10: PROCEDURE print_debug(p_err_msg VARCHAR2, p_level NUMBER DEFAULT 4) IS
11: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
12: BEGIN
13: IF (l_debug = 1) THEN
14: inv_mobile_helper_functions.tracelog(
15: p_err_msg => p_err_msg
26: , x_task_id OUT NOCOPY NUMBER
27: ) IS
28: l_project_id NUMBER := '';
29: l_task_id NUMBER := '';
30: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
31: BEGIN
32: IF (l_debug = 1) THEN
33: print_debug('get_project_task: 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 4);
34: END IF;
179: l_task_id NUMBER := p_task_id;
180: l_validation_flag VARCHAR2(1);
181: l_lpn_group_id NUMBER;
182: l_header_interface_id NUMBER;
183: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
184: --OPM Convergence
185: l_secondary_unit_of_measure VARCHAR2(25);
186: l_secondary_uom_code VARCHAR2(3);
187: l_secondary_quantity NUMBER;
1328: l_primary_uom VARCHAR2(3);
1329: l_txn_qty NUMBER;
1330: l_counter NUMBER;
1331: l_create_new NUMBER := 1;
1332: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1333: --OPM Convergence
1334: l_sec_txn_qty NUMBER;
1335: BEGIN
1336: IF (l_debug = 1) THEN
1396: ****************************************************/
1397: PROCEDURE split_qty_for_lot(p_txn_qty IN NUMBER, p_splitted_qty_rec_tb OUT NOCOPY rcpt_lot_qty_rec_tb_tp) IS
1398: l_new_txn_quantity NUMBER; -- the quanity user wants to split
1399: l_new_counter NUMBER := 0;
1400: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1401: BEGIN
1402: IF (l_debug = 1) THEN
1403: print_debug('Enter split_qty_for_lot: 1 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
1404: END IF;
1733: AND pod.po_line_id = poll.po_line_id
1734: AND pod.line_location_id = poll.line_location_id);
1735:
1736: l_rcv_rcpt_rec rcv_enter_receipts_rec_tp;
1737: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1738:
1739: --table to store all RTId, quantity and original_rti_id for lot/serial splits
1740: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
1741: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
2678: )
2679: OR rsl.source_document_code <> 'REQ'
2680: );
2681:
2682: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2683: --table to store all RTId, quantity and original_rti_id for lot/serial splits
2684: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
2685: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
2686: l_msni_count NUMBER := 0;
3345: OR oel.task_id = p_task_id)
3346: );
3347: -- don't need from and to org for the query since both have 1-to-1 relationship to shipment header
3348:
3349: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3350: --table to store all RTId, quantity and original_rti_id for lot/serial splits
3351: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
3352: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
3353: l_line_id NUMBER;
4106: AND rsh.asn_type IS NULL
4107: AND rsl.shipment_line_id = v_shipment_line_id;
4108: -- dont need from and to org for the query since both have 1-to-1 relationship to shipment header
4109:
4110: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4111: --table to store all RTId, quantity and original_rti_id for lot/serial splits
4112: l_new_rti_info inv_rcv_integration_apis.child_rec_tb_tp;
4113: l_split_lot_serial_ok BOOLEAN; --Return status of lot_serial_split API
4114: l_lpn_id NUMBER := p_lpn_id;
4907: l_msg_count NUMBER;
4908: l_msg_data VARCHAR2(4000);
4909: l_progress VARCHAR2(10);
4910: l_label_status VARCHAR2(500);
4911: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4912:
4913: l_serial_control_code NUMBER;
4914: l_transaction_interface_id NUMBER;
4915: l_product_transaction_id NUMBER;
5522: 'ASNEXP', rti.interface_transaction_id
5523: , 'SHIPMENTEXP', rti.interface_transaction_id, NULL);
5524:
5525: -- GROUP BY rti.lpn_id;
5526: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5527: BEGIN
5528: x_status := fnd_api.g_ret_sts_success;
5529: l_progress := '10';
5530:
6222: * is post-inv txn processing, because
6223: * mtlt records will not exist post-inv
6224: * txn processing.
6225: ******************************************************************************/
6226: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6227: l_line_id NUMBER;
6228: BEGIN
6229: IF p_lot_control_code = 2 THEN
6230: g_rcpt_lot_qty_rec_tb.DELETE;
6414: l_msg_count NUMBER;
6415: l_msg_data VARCHAR2(4000);
6416: l_progress VARCHAR2(10);
6417: l_wms_process_flag NUMBER := 2;
6418: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6419: --Added for bug #3989521
6420: l_po_line_location_id NUMBER := NULL;
6421: l_po_distribution_id NUMBER := NULL;
6422: l_is_asn VARCHAR2(1);
6896: l_msg_count NUMBER;
6897: l_msg_data VARCHAR2(4000);
6898: l_progress VARCHAR2(10);
6899: l_process_status VARCHAR2(10);
6900: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6901: BEGIN
6902: l_progress := '10';
6903: x_return_status := fnd_api.g_ret_sts_success;
6904:
7045: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7046: l_msg_count NUMBER;
7047: l_msg_data VARCHAR2(4000);
7048: l_progress VARCHAR2(10);
7049: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7050: BEGIN
7051: IF (l_debug = 1) THEN
7052: print_debug('rcv_insert_header_interface 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7053: END IF;
7319: l_msg_data VARCHAR2(4000);
7320: l_progress VARCHAR2(10);
7321: l_check_asn VARCHAR2(25);--Bug 4551595
7322:
7323: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7324: BEGIN
7325: -- receving api is using row_id in where clause
7326: -- so query row_id based on shipment_header_id
7327: IF (l_debug = 1) THEN
7532: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7533: l_msg_count NUMBER;
7534: l_msg_data VARCHAR2(4000);
7535: l_progress VARCHAR2(10);
7536: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7537: -- Changes for BUG 3630412
7538: l_label_status VARCHAR2(500);
7539: l_txn_id_tbl inv_label.transaction_id_rec_type;
7540: l_counter NUMBER := 0;
7798: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
7799: l_msg_count NUMBER;
7800: l_msg_data VARCHAR2(4000);
7801: l_progress VARCHAR2(10);
7802: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7803: BEGIN
7804: IF (l_debug = 1) THEN
7805: print_debug('PackUnpack_Container 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
7806: print_debug('Parameters passed : 10.1: p_from_lpn_id - ' || p_from_lpn_id, 4);
8145: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8146: l_msg_count NUMBER;
8147: l_msg_data VARCHAR2(4000);
8148: l_progress VARCHAR2(10);
8149: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8150: BEGIN
8151: IF (l_debug = 1) THEN
8152: print_debug('Enter detect_ASN_discrepancy 10 ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8153: print_debug('p_lpn_id ' || p_lpn_id , 1);
8238: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8239: l_msg_count NUMBER;
8240: l_msg_data VARCHAR2(4000);
8241: l_progress VARCHAR2(10);
8242: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8243: BEGIN
8244: IF (l_debug = 1) THEN
8245: print_debug('remove_lpn_contents 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8246: END IF;
8309: SELECT lpn_id
8310: FROM wms_license_plate_numbers
8311: WHERE source_header_id = p_shipment_header_id;
8312:
8313: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8314: BEGIN
8315: IF (l_debug = 1) THEN
8316: print_debug('clear_LPN_for_ship 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8317: END IF;
8555: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8556: l_msg_count NUMBER;
8557: l_msg_data VARCHAR2(4000);
8558: l_progress VARCHAR2(10);
8559: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8560: BEGIN
8561: IF (l_debug = 1) THEN
8562: print_debug('check_lpn_on_shipment 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8563: END IF;
8648: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8649: l_msg_count NUMBER;
8650: l_msg_data VARCHAR2(4000);
8651: l_progress VARCHAR2(10);
8652: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8653: BEGIN
8654: IF (l_debug = 1) THEN
8655: print_debug('check_lpn_on_ASN 10: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
8656: END IF;
8752: SELECT line_id
8753: FROM oe_order_lines_all
8754: WHERE header_id = l_order_header_id;
8755:
8756: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8757:
8758: -- bug 3209246
8759: CURSOR c_delivery_details(v_order_header_id NUMBER, v_order_line_id NUMBER) IS
8760: SELECT wdd1.lpn_id
8955: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8956: l_msg_count NUMBER;
8957: l_msg_data VARCHAR2(4000);
8958: l_progress VARCHAR2(10);
8959: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8960: --variables below are added for bug# 2814405
8961: l_serial_code NUMBER;
8962: l_lot_code NUMBER;
8963: l_item_id NUMBER;
9098: l_index NUMBER := 0;
9099: l_diff_txn_qty NUMBER := 0;
9100: l_partial_rcpt NUMBER := 0;
9101: l_rec_count NUMBER := 0;
9102: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9103:
9104: BEGIN
9105:
9106: IF (l_debug = 1) THEN
9226: ) IS
9227: l_rlsu_primary_quantity RCV_LOTS_SUPPLY.PRIMARY_QUANTITY%TYPE := 0;
9228: l_mtli_primary_quantity NUMBER := 0;
9229: l_current_grp_prim_qty NUMBER := 0;
9230: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9231:
9232: BEGIN
9233: IF (l_debug = 1) THEN
9234: print_debug('validate_lot_qty J: 10 Entering into Lot Qty Validation Procedure' , 4);
9341: ) IS
9342: l_rlsu_primary_quantity RCV_LOTS_SUPPLY.PRIMARY_QUANTITY%TYPE := 0;
9343: l_mtli_primary_quantity NUMBER := 0;
9344: l_current_grp_prim_qty NUMBER := 0;
9345: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9346:
9347: BEGIN
9348: IF (l_debug = 1) THEN
9349: print_debug('validate_lot_qty J: 10 Entering into Lot Qty Validation Procedure' , 4);