[Home] [Help]
54:
55: PROCEDURE print_debug(p_err_msg VARCHAR2,
56: p_level NUMBER)
57: IS
58: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
59: BEGIN
60:
61: IF (l_debug = 1) THEN
62: inv_mobile_helper_functions.tracelog
72: FUNCTION list_serials
73: RETURN serset_t PIPELINED
74: IS
75: l_api_name VARCHAR2 (30) := 'list_serials';
76: l_debug NUMBER := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
77: l_count NUMBER;
78: BEGIN
79: IF (l_debug = 1)
80: THEN
140: l_product_txn_id NUMBER;
141: l_yes VARCHAR2(1) := inv_rcv_integration_apis.G_YES;
142: l_no VARCHAR2(1) := inv_rcv_integration_apis.G_NO;
143: l_false VARCHAR2(1) := inv_rcv_integration_apis.G_FALSE;
144: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
145: l_is_rma NUMBER;
146:
147: l_origination_type number;--OPM Convergence
148: l_expiration_action_code VARCHAR2(32);--OPM Convergence
411: l_transaction_quantities number_tb_tp;
412: l_secondary_txn_quantities number_tb_tp;
413: l_rt_serial_tbl t_rt_serial_rec_tbl;
414: l_debug NUMBER
415: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
416: BEGIN
417:
418: -- below select is necessary. We are calling this api per RT and we can
419: -- have multiple RTs associated for the same mol. In that case, the second
1174: AND rls.transaction_id = rs.rcv_transaction_id
1175: AND rls.lot_num = k_lot_number;
1176:
1177: l_debug NUMBER
1178: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
1179: --New variables for Lot/Serial Support
1180: l_lot_control_code NUMBER;
1181: l_serial_control_code NUMBER;
1182: l_mo_splt_tb inv_rcv_integration_apis.mo_in_tb_tp;
2321: AND rss.supply_type_code = 'RECEIVING'
2322: AND Nvl(rss.lot_num,'@#@') = Nvl(k_lot_number,'@#@');
2323: -- MOLCON
2324:
2325: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2326: --New variables for Lot/Serial Support
2327: l_lot_control_code NUMBER;
2328: l_serial_control_code NUMBER;
2329: l_mo_splt_tb inv_rcv_integration_apis.mo_in_tb_tp;
3207: l_msg_data VARCHAR2 (1000);
3208: -- Increased lot size to 80 Char - 3ercy Thomas - B4625329
3209: l_lot_number VARCHAR2 (80);
3210: l_debug NUMBER
3211: := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
3212: --l_serial_tbl inv_rcv_std_inspect_apis.t_serial_rec_tbl;
3213: BEGIN
3214: x_return_status := fnd_api.g_ret_sts_success;
3215: SAVEPOINT process_sl_sp;
3499: and rs.supply_type_code = 'RECEIVING'
3500: and rt.transaction_type <> 'UNORDERED'
3501: and rt.routing_header_id = g_inspection_routing;
3502:
3503: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3504: begin
3505: x_return_status := fnd_api.g_ret_sts_success;
3506:
3507: -- dbms_output.put_line('main_process_po: Just entering main_process_po');
3914: and rsh.shipment_header_id = rs.shipment_header_id
3915: and rs.supply_type_code = 'RECEIVING'
3916: and rt.transaction_type <> 'UNORDERED'
3917: and rt.routing_header_id = g_inspection_routing;
3918: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3919: begin
3920: x_return_status := fnd_api.g_ret_sts_success;
3921:
3922: -- dbms_output.put_line('main_process_intransit: Just entering main_process_intransit');
4331: and rsh.shipment_header_id = rs.shipment_header_id
4332: and rs.supply_type_code = 'RECEIVING'
4333: and rt.transaction_type <> 'UNORDERED'
4334: and rt.routing_header_id = g_inspection_routing;
4335: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4336: begin
4337: x_return_status := fnd_api.g_ret_sts_success;
4338:
4339: -- dbms_output.put_line('main_process_rma: Just entering main_process_rma');
4744: and rsh.shipment_header_id = rs.shipment_header_id
4745: and rs.supply_type_code = 'RECEIVING'
4746: and rt.transaction_type <> 'UNORDERED'
4747: and rt.routing_header_id = g_inspection_routing;
4748: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4749: begin
4750: x_return_status := fnd_api.g_ret_sts_success;
4751:
4752: -- dbms_output.put_line('main_process_receipt: Just entering main_process_receipt');
5184: l_customer_site_id NUMBER;
5185: l_customer_item_number VARCHAR2(30);
5186: l_lpn_id NUMBER := p_lpn_id;
5187: l_transfer_lpn_id NUMBER := p_transfer_lpn_id;
5188: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5189: l_receipt_num VARCHAR2(30);
5190: l_validation_flag VARCHAR2(1);
5191: l_lpn_group_id NUMBER;
5192: l_mmtt_temp_id NUMBER := p_mmtt_temp_id;
5804: r_val18 varchar2(200) := NULL;
5805: r_val19 varchar2(200) := NULL;
5806: r_val20 varchar2(200) := NULL;
5807:
5808: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5809: begin
5810: x_return_status := fnd_api.g_ret_sts_success;
5811:
5812: /*
5813: dbms_output.put_line('rcv_mgr_rpc_call: group_id '
5814: || inv_RCV_COMMON_APIS.g_rcv_global_var.interface_group_id);
5815: */
5816: --bug 5169107
5817: l_timeout := fnd_profile.value('INV_RPC_TIMEOUT');
5818: if l_timeout is null then
5819: l_timeout := 300;
5820: end if;
5821: --bug 5169107
5898: SELECT rti.interface_transaction_id
5899: FROM rcv_transactions_interface rti
5900: WHERE rti.GROUP_ID = inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
5901: -- GROUP BY rti.lpn_id;
5902: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5903: BEGIN
5904:
5905: --Commenting out the commit below since it would be done by the wrapper
5906: --to the receiving manager call (INV_RCV_MOBILE_PROCESS_TXN)
6019:
6020: procedure rcv_manager_conc_call
6021: is
6022: v_req_id number;
6023: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6024: begin
6025: v_req_id := fnd_request.submit_request('PO',
6026: 'RVCTP',
6027: null,
6069: end rcv_manager_conc_call;
6070:
6071: procedure launch_rcv_manager_conc
6072: is
6073: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6074: begin
6075: commit;
6076: rcv_manager_conc_call;
6077: end launch_rcv_manager_conc;
6154: AND rs.supply_type_code = 'RECEIVING'
6155: AND rt.transaction_type <> 'UNORDERED'
6156: AND rt.routing_header_id = 2; /* Inspection routing */
6157:
6158: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6159: BEGIN
6160:
6161: l_total_qty := 0;
6162:
6365: l_inspection_qty NUMBER;
6366: l_return_status VARCHAR2(10);
6367: l_msg_data VARCHAR2(5000);
6368:
6369: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6370: BEGIN
6371: --print_debug('Inside wrapper, p_type is ' || p_type, 4);
6372: --print_debug('Inside wrapper, p_id1 is ' || p_id1, 4);
6373: --print_debug('Inside wrapper, p_org is ' || to_char(p_organization_id), 4);
6495: v_count_intshp NUMBER;
6496: v_po_line_id NUMBER;
6497:
6498: l_progress VARCHAR2(30);
6499: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6500: BEGIN
6501:
6502: IF (l_debug = 1) THEN
6503: print_debug('begin obtain_receiving_info in db', 4);
6769: , p_item_id IN NUMBER
6770: ) RETURN NUMBER
6771: IS
6772: l_count NUMBER;
6773: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6774: BEGIN
6775:
6776: l_count := 1;
6777: