[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
541: IF ((p_lpn > 0) AND(p_org_id > 0)) THEN
542: BEGIN
543: SELECT 1
544: INTO l_project_comingle
545: FROM DUAL
546: WHERE EXISTS(
547: SELECT 1
548: FROM mtl_txn_request_lines
549: WHERE lpn_id = p_lpn
1205: -- If not, we have to create it
1206: BEGIN
1207: SELECT 1
1208: INTO l_rcount
1209: FROM DUAL
1210: WHERE EXISTS(
1211: SELECT 1
1212: FROM mtl_txn_request_lines l, mtl_txn_request_headers h
1213: WHERE l.lpn_id = l_lpn_id
1640: IF l_task_dispatched_flag = 'N' THEN
1641: BEGIN
1642: SELECT '1'
1643: INTO wdt_exist
1644: FROM DUAL
1645: WHERE EXISTS(SELECT transaction_temp_id
1646: FROM wms_dispatched_tasks
1647: WHERE transaction_temp_id = l_pregen_suggestion.transaction_temp_id);
1648: EXCEPTION
1808: BEGIN
1809:
1810: SELECT 'Y'
1811: INTO l_wlc_mol_missmatch_flag
1812: FROM dual
1813: WHERE exists
1814: (SELECT wlc.inventory_item_id
1815: FROM
1816: (SELECT parent_lpn_id,
3763: END IF;
3764:
3765: SELECT mtl_material_transactions_s.NEXTVAL
3766: INTO l_txn_header_id
3767: FROM DUAL;
3768: ELSE
3769: IF (l_debug =1) THEN
3770: mydebug('NON RCV LPN. p_new_txn_header_id: '||p_new_txn_header_id);
3771: END IF;
3880:
3881: BEGIN
3882: SELECT 1
3883: INTO l_exist_lpn
3884: FROM DUAL
3885: WHERE EXISTS(SELECT 1
3886: FROM wms_license_plate_numbers
3887: WHERE license_plate_number = p_to_lpn
3888: AND organization_id = p_org_id);
4024: ) THEN
4025: -- Need to get the next value for serial temp id
4026: SELECT mtl_material_transactions_s.NEXTVAL
4027: INTO l_ser_seq
4028: FROM DUAL;
4029:
4030: IF (l_debug = 1) THEN
4031: mydebug('complete_putaway: Lot and serial controlled item: ' || l_ser_seq);
4032: END IF;
4111:
4112: IF l_product_transaction_id IS NULL THEN
4113: SELECT rcv_transactions_interface_s.NEXTVAL
4114: INTO l_product_transaction_id
4115: FROM sys.dual;
4116: END IF;
4117:
4118: l_result := TRUE;
4119:
4496:
4497: IF l_product_transaction_id IS NULL THEN
4498: SELECT rcv_transactions_interface_s.NEXTVAL
4499: INTO l_product_transaction_id
4500: FROM sys.dual;
4501: END IF;
4502:
4503: --Call the helper routine to create the MSNI record
4504: l_result := insert_msni_helper(
5246: -- Note that content_lpn_id currently is not an indexed column.
5247: BEGIN
5248: SELECT 1
5249: INTO cnt
5250: FROM DUAL
5251: WHERE EXISTS (SELECT 1
5252: FROM mtl_material_transactions_temp
5253: WHERE lpn_id = p_lpn_id
5254: AND organization_id = p_org_id
5909:
5910: BEGIN
5911: SELECT 1
5912: INTO l_mo_cnt
5913: FROM DUAL
5914: WHERE EXISTS(SELECT 1
5915: FROM mtl_txn_request_lines
5916: WHERE lpn_id = l_lpn_id
5917: AND organization_id = l_org_id
5936: To be used by Receiving and WIP*/
5937: BEGIN
5938: SELECT 1
5939: INTO l_process_flag_cnt
5940: FROM DUAL
5941: WHERE EXISTS(SELECT 1
5942: FROM mtl_txn_request_lines
5943: WHERE lpn_id = l_lpn_id
5944: AND organization_id = l_org_id
6104:
6105: BEGIN
6106: SELECT 1
6107: INTO l_so_cnt
6108: FROM DUAL
6109: WHERE EXISTS(
6110: SELECT 1
6111: FROM wsh_delivery_details_ob_grp_v wdd, wsh_delivery_assignments_v wda
6112: WHERE wdd.lpn_id = l_lpn_id
6162:
6163: BEGIN
6164: SELECT 1
6165: INTO l_mo_cnt2
6166: FROM DUAL
6167: WHERE EXISTS(
6168: SELECT 1
6169: FROM wms_dispatched_tasks wdt
6170: , mtl_material_transactions_temp mmtt
6177: AND NOT (wdt.status = 3 AND wdt.person_id = l_emp_id ));--Bug# 3116925
6178: -- AND NOT(wdt.status = 3
6179: -- AND wdt.person_id = p_user_id));
6180: /*
6181: SELECT 1 INTO l_mo_cnt2 FROM DUAL WHERE exists
6182: (SELECT 1
6183: FROM mtl_txn_request_lines mol,
6184: mtl_material_transactions_temp mmtt
6185: , wms_dispatched_tasks wdt
6582:
6583: --Calculate Sequence Number
6584: SELECT wms_exceptions_s.NEXTVAL
6585: INTO l_sequence
6586: FROM DUAL;
6587:
6588: IF (l_debug = 1) THEN
6589: mydebug('Inserting into exceptions');
6590: mydebug(l_sequence);
6895:
6896: BEGIN
6897: SELECT 1
6898: INTO l_count
6899: FROM DUAL
6900: WHERE EXISTS(
6901: SELECT 1
6902: FROM mtl_material_transactions_temp mmtt
6903: WHERE (
6932:
6933: BEGIN
6934: SELECT 1
6935: INTO l_count
6936: FROM DUAL
6937: WHERE EXISTS(
6938: SELECT 1
6939: FROM wms_license_plate_numbers wlpn
6940: WHERE wlpn.organization_id = p_org_id
8293:
8294: -- Get a new transaction header id from the sequence
8295: SELECT mtl_material_transactions_s.NEXTVAL
8296: INTO l_txn_header_id
8297: FROM DUAL;
8298:
8299: IF (l_debug = 1) THEN
8300: mydebug('Transaction header ID: ' || l_txn_header_id);
8301: END IF;
9098:
9099: BEGIN
9100: SELECT 'Y'
9101: INTO x_crossdock
9102: FROM dual
9103: WHERE exists
9104: (SELECT 1
9105: FROM mtl_txn_request_lines
9106: WHERE lpn_id = p_lpn_id