[Home] [Help]
111: PROCEDURE mydebug(msg IN VARCHAR2) IS
112: l_msg VARCHAR2(5100);
113: l_ts VARCHAR2(30);
114: BEGIN
115: -- select to_char(sysdate,'MM/DD/YYYY HH:MM:SS') INTO l_ts from dual;
116: -- l_msg:=l_ts||' '||msg;
117:
118: l_msg := msg;
119: inv_mobile_helper_functions.tracelog(p_err_msg => l_msg
578: IF ((p_lpn > 0) AND(p_org_id > 0)) THEN
579: BEGIN
580: SELECT 1
581: INTO l_project_comingle
582: FROM DUAL
583: WHERE EXISTS(
584: SELECT 1
585: FROM mtl_txn_request_lines
586: WHERE lpn_id = p_lpn
1350: -- If not, we have to create it
1351: BEGIN
1352: SELECT 1
1353: INTO l_rcount
1354: FROM DUAL
1355: WHERE EXISTS(
1356: SELECT 1
1357: FROM mtl_txn_request_lines l, mtl_txn_request_headers h
1358: WHERE l.lpn_id = l_lpn_id
1785: IF l_task_dispatched_flag = 'N' THEN
1786: BEGIN
1787: SELECT '1'
1788: INTO wdt_exist
1789: FROM DUAL
1790: WHERE EXISTS(SELECT transaction_temp_id
1791: FROM wms_dispatched_tasks
1792: WHERE transaction_temp_id = l_pregen_suggestion.transaction_temp_id);
1793: EXCEPTION
1953: BEGIN
1954:
1955: SELECT 'Y'
1956: INTO l_wlc_mol_missmatch_flag
1957: FROM dual
1958: WHERE exists
1959: (SELECT wlc.inventory_item_id
1960: FROM
1961: (SELECT parent_lpn_id,
3968: END IF;
3969:
3970: SELECT mtl_material_transactions_s.NEXTVAL
3971: INTO l_txn_header_id
3972: FROM DUAL;
3973: ELSE
3974: IF (l_debug =1) THEN
3975: mydebug('NON RCV LPN. p_new_txn_header_id: '||p_new_txn_header_id);
3976: END IF;
4085:
4086: BEGIN
4087: SELECT 1
4088: INTO l_exist_lpn
4089: FROM DUAL
4090: WHERE EXISTS(SELECT 1
4091: FROM wms_license_plate_numbers
4092: WHERE license_plate_number = p_to_lpn
4093: AND organization_id = p_org_id);
4237: -- Need to get the next value for serial temp id
4238: IF l_ser_seq IS NULL THEN
4239: SELECT mtl_material_transactions_s.NEXTVAL
4240: INTO l_ser_seq
4241: FROM DUAL;
4242: END IF;
4243: /* bug12607020 */
4244:
4245: IF (l_debug = 1) THEN
4331:
4332: IF l_product_transaction_id IS NULL THEN
4333: SELECT rcv_transactions_interface_s.NEXTVAL
4334: INTO l_product_transaction_id
4335: FROM sys.dual;
4336: END IF;
4337:
4338: l_result := TRUE;
4339:
4722:
4723: IF l_product_transaction_id IS NULL THEN
4724: SELECT rcv_transactions_interface_s.NEXTVAL
4725: INTO l_product_transaction_id
4726: FROM sys.dual;
4727: END IF;
4728:
4729: --Call the helper routine to create the MSNI record
4730: l_result := insert_msni_helper(
5492: -- Note that content_lpn_id currently is not an indexed column.
5493: BEGIN
5494: SELECT 1
5495: INTO cnt
5496: FROM DUAL
5497: WHERE EXISTS (SELECT 1
5498: FROM mtl_material_transactions_temp
5499: WHERE lpn_id = p_lpn_id
5500: AND organization_id = p_org_id
6236:
6237: BEGIN
6238: SELECT 1
6239: INTO l_mo_cnt
6240: FROM DUAL
6241: WHERE EXISTS(SELECT 1
6242: FROM mtl_txn_request_lines
6243: WHERE lpn_id = l_lpn_id
6244: AND organization_id = l_org_id
6263: To be used by Receiving and WIP*/
6264: BEGIN
6265: SELECT 1
6266: INTO l_process_flag_cnt
6267: FROM DUAL
6268: WHERE EXISTS(SELECT 1
6269: FROM mtl_txn_request_lines
6270: WHERE lpn_id = l_lpn_id
6271: AND organization_id = l_org_id
6431:
6432: BEGIN
6433: SELECT 1
6434: INTO l_so_cnt
6435: FROM DUAL
6436: WHERE EXISTS(
6437: SELECT 1
6438: FROM wsh_delivery_details_ob_grp_v wdd, wsh_delivery_assignments_v wda
6439: WHERE wdd.lpn_id = l_lpn_id
6489:
6490: BEGIN
6491: SELECT 1
6492: INTO l_mo_cnt2
6493: FROM DUAL
6494: WHERE EXISTS(
6495: SELECT 1
6496: FROM wms_dispatched_tasks wdt
6497: , mtl_material_transactions_temp mmtt
6504: AND NOT (wdt.status = 3 AND wdt.person_id = l_emp_id ));--Bug# 3116925
6505: -- AND NOT(wdt.status = 3
6506: -- AND wdt.person_id = p_user_id));
6507: /*
6508: SELECT 1 INTO l_mo_cnt2 FROM DUAL WHERE exists
6509: (SELECT 1
6510: FROM mtl_txn_request_lines mol,
6511: mtl_material_transactions_temp mmtt
6512: , wms_dispatched_tasks wdt
6909:
6910: --Calculate Sequence Number
6911: SELECT wms_exceptions_s.NEXTVAL
6912: INTO l_sequence
6913: FROM DUAL;
6914:
6915: IF (l_debug = 1) THEN
6916: mydebug('Inserting into exceptions');
6917: mydebug(l_sequence);
7222:
7223: BEGIN
7224: SELECT 1
7225: INTO l_count
7226: FROM DUAL
7227: WHERE EXISTS(
7228: SELECT 1
7229: FROM mtl_material_transactions_temp mmtt
7230: WHERE (
7259:
7260: BEGIN
7261: SELECT 1
7262: INTO l_count
7263: FROM DUAL
7264: WHERE EXISTS(
7265: SELECT 1
7266: FROM wms_license_plate_numbers wlpn
7267: WHERE wlpn.organization_id = p_org_id
8636:
8637: -- Get a new transaction header id from the sequence
8638: SELECT mtl_material_transactions_s.NEXTVAL
8639: INTO l_txn_header_id
8640: FROM DUAL;
8641:
8642: IF (l_debug = 1) THEN
8643: mydebug('Transaction header ID: ' || l_txn_header_id);
8644: END IF;
9455:
9456: BEGIN
9457: SELECT 'Y'
9458: INTO x_crossdock
9459: FROM dual
9460: WHERE exists
9461: (SELECT 1
9462: FROM mtl_txn_request_lines
9463: WHERE lpn_id = p_lpn_id