[Home] [Help]
36:
37: PROCEDURE print_debug(p_err_msg VARCHAR2,
38: p_level NUMBER)
39: IS
40: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
41: BEGIN
42:
43: IF (l_debug = 1) THEN
44: inv_mobile_helper_functions.tracelog
84: l_product_txn_id NUMBER;
85: l_yes VARCHAR2(1) := inv_rcv_integration_apis.G_YES;
86: l_no VARCHAR2(1) := inv_rcv_integration_apis.G_NO;
87: l_false VARCHAR2(1) := inv_rcv_integration_apis.G_FALSE;
88: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
89: l_is_rma NUMBER;
90:
91: l_origination_type number;--OPM Convergence
92: l_expiration_action_code VARCHAR2(32);--OPM Convergence
471: AND rss.supply_type_code = 'RECEIVING'
472: AND Nvl(rss.lot_num,'@#@') = Nvl(k_lot_number,'@#@');
473: -- MOLCON
474:
475: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
476: --New variables for Lot/Serial Support
477: l_lot_control_code NUMBER;
478: l_serial_control_code NUMBER;
479: l_mo_splt_tb inv_rcv_integration_apis.mo_in_tb_tp;
1317:
1318: -- Increased lot size to 80 Char - 3ercy Thomas - B4625329
1319: l_lot_number varchar2(80);
1320:
1321: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1322: begin
1323: x_return_status := fnd_api.g_ret_sts_success;
1324:
1325: savepoint process_sl_sp;
1607: and rs.supply_type_code = 'RECEIVING'
1608: and rt.transaction_type <> 'UNORDERED'
1609: and rt.routing_header_id = g_inspection_routing;
1610:
1611: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1612: begin
1613: x_return_status := fnd_api.g_ret_sts_success;
1614:
1615: -- dbms_output.put_line('main_process_po: Just entering main_process_po');
2022: and rt.inspection_status_code = 'NOT INSPECTED'
2023: and rs.supply_type_code = 'RECEIVING'
2024: and rt.transaction_type <> 'UNORDERED'
2025: and rt.routing_header_id = g_inspection_routing;
2026: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2027: begin
2028: x_return_status := fnd_api.g_ret_sts_success;
2029:
2030: -- dbms_output.put_line('main_process_intransit: Just entering main_process_intransit');
2437: and rt.inspection_status_code = 'NOT INSPECTED'
2438: and rs.supply_type_code = 'RECEIVING'
2439: and rt.transaction_type <> 'UNORDERED'
2440: and rt.routing_header_id = g_inspection_routing;
2441: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2442: begin
2443: x_return_status := fnd_api.g_ret_sts_success;
2444:
2445: -- dbms_output.put_line('main_process_rma: Just entering main_process_rma');
2845: and rt.inspection_status_code = 'NOT INSPECTED'
2846: and rs.supply_type_code = 'RECEIVING'
2847: and rt.transaction_type <> 'UNORDERED'
2848: and rt.routing_header_id = g_inspection_routing;
2849: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2850: begin
2851: x_return_status := fnd_api.g_ret_sts_success;
2852:
2853: -- dbms_output.put_line('main_process_receipt: Just entering main_process_receipt');
3284: l_customer_site_id NUMBER;
3285: l_customer_item_number VARCHAR2(30);
3286: l_lpn_id NUMBER := p_lpn_id;
3287: l_transfer_lpn_id NUMBER := p_transfer_lpn_id;
3288: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3289: l_receipt_num VARCHAR2(30);
3290: l_validation_flag VARCHAR2(1);
3291: l_lpn_group_id NUMBER;
3292: l_mmtt_temp_id NUMBER := p_mmtt_temp_id;
3904: r_val18 varchar2(200) := NULL;
3905: r_val19 varchar2(200) := NULL;
3906: r_val20 varchar2(200) := NULL;
3907:
3908: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3909: begin
3910: x_return_status := fnd_api.g_ret_sts_success;
3911:
3912: /*
3913: dbms_output.put_line('rcv_mgr_rpc_call: group_id '
3914: || inv_RCV_COMMON_APIS.g_rcv_global_var.interface_group_id);
3915: */
3916: --bug 5169107
3917: l_timeout := fnd_profile.value('INV_RPC_TIMEOUT');
3918: if l_timeout is null then
3919: l_timeout := 300;
3920: end if;
3921: --bug 5169107
3998: SELECT rti.interface_transaction_id
3999: FROM rcv_transactions_interface rti
4000: WHERE rti.GROUP_ID = inv_rcv_common_apis.g_rcv_global_var.interface_group_id;
4001: -- GROUP BY rti.lpn_id;
4002: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4003: BEGIN
4004:
4005: --Commenting out the commit below since it would be done by the wrapper
4006: --to the receiving manager call (INV_RCV_MOBILE_PROCESS_TXN)
4119:
4120: procedure rcv_manager_conc_call
4121: is
4122: v_req_id number;
4123: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4124: begin
4125: v_req_id := fnd_request.submit_request('PO',
4126: 'RVCTP',
4127: null,
4169: end rcv_manager_conc_call;
4170:
4171: procedure launch_rcv_manager_conc
4172: is
4173: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4174: begin
4175: commit;
4176: rcv_manager_conc_call;
4177: end launch_rcv_manager_conc;
4255: AND rs.supply_type_code = 'RECEIVING'
4256: AND rt.transaction_type <> 'UNORDERED'
4257: AND rt.routing_header_id = 2; /* Inspection routing */
4258:
4259: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4260: BEGIN
4261:
4262: l_total_qty := 0;
4263:
4466: l_inspection_qty NUMBER;
4467: l_return_status VARCHAR2(10);
4468: l_msg_data VARCHAR2(5000);
4469:
4470: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4471: BEGIN
4472: --print_debug('Inside wrapper, p_type is ' || p_type, 4);
4473: --print_debug('Inside wrapper, p_id1 is ' || p_id1, 4);
4474: --print_debug('Inside wrapper, p_org is ' || to_char(p_organization_id), 4);
4596: v_count_intshp NUMBER;
4597: v_po_line_id NUMBER;
4598:
4599: l_progress VARCHAR2(30);
4600: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4601: BEGIN
4602:
4603: IF (l_debug = 1) THEN
4604: print_debug('begin obtain_receiving_info in db', 4);
4870: , p_item_id IN NUMBER
4871: ) RETURN NUMBER
4872: IS
4873: l_count NUMBER;
4874: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4875: BEGIN
4876:
4877: l_count := 1;
4878: