[Home] [Help]
26: PROCEDURE populate_history(p_device_id IN NUMBER)
27: IS
28: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
29: --might need to change this to transfer only required columns
30: CURSOR cur_dev IS SELECT * FROM wms_device_requests where device_id = p_device_id;
31:
32: l_cnt NUMBER := 0;
33: BEGIN
34:
45:
46: l_cnt := l_cnt +1;
47:
48:
49: INSERT INTO wms_device_requests_hist
50: (request_id,
51: business_event_id,
52: organization_id,
53: lpn_id,
139: END IF;
140:
141: --populate the WDR table
142: IF l_device_req_id_pkg IS NULL THEN
143: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
144: l_device_req_id_pkg := l_request_id;
145: ELSE
146: l_request_id := l_device_req_id_pkg;
147: END IF;
160:
161: END IF;
162:
163:
164: INSERT INTO wms_device_requests (request_id,
165: business_event_id,
166: organization_id,
167: lpn_id,
168: device_id,
224: IF l_xml_stat <> 'S' THEN
225:
226: l_msg_data := fnd_msg_pub.get(fnd_msg_pub.G_LAST,'F');--only last message
227:
228: UPDATE wms_device_requests
229: SET status_code = l_xml_stat,
230: status_msg = l_msg_data
231: WHERE device_id = p_device_id;
232: END IF;
264: IF (l_return_status<> FND_API.g_ret_sts_success) THEN
265:
266: l_msg_data := fnd_msg_pub.get(fnd_msg_pub.G_LAST,'F');--only last message
267:
268: UPDATE wms_device_requests
269: SET status_code = l_return_status,
270: status_msg = l_msg_data
271: WHERE device_id = p_device_id;
272:
2278: END IF;
2279:
2280:
2281: -- IF there is error then update wms_epc
2282: -- No need to insert into wms_device_Requests, as transaction is going
2283: --TO fail because OF the multiple palletS
2284:
2285: IF l_is_error = 1 THEN
2286:
2358: BEGIN
2359:
2360: x_return_status := 'S';
2361:
2362: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
2363: l_device_req_id_pkg := l_request_id; --to be used for the pallet record
2364:
2365:
2366: --By the time this API is called
2655:
2656: IF x_return_status = 'E' THEN
2657:
2658: --1. UPDATE WMS_EPC TABLE FOR FAILURE FOR ALL READS
2659: --2. INSERT INTO WMS_DEVICE_REQUESTs TABLE FOR READ CASE TAGS, NOT THE PALLET
2660: -- pallet will be transferred in the process_rfid_txn table and all
2661: -- above records will be moved TO the wms_device_request_hist table
2662:
2663: /* we can not use the group_id to update wms_epc table in one shot
2677:
2678: IF p_tag_info(j).parent_lpn_id IS NOT NULL THEN --Pallet rec
2679: --will be handled later
2680:
2681: INSERT INTO wms_device_requests (request_id,
2682: business_event_id,
2683: organization_id,
2684: lpn_id,
2685: device_id,
2716:
2717: IF p_tag_info(j).parent_lpn_id IS NOT NULL THEN --Pallet rec
2718: --will be handled later
2719:
2720: INSERT INTO wms_device_requests (request_id,
2721: business_event_id,
2722: organization_id,
2723: lpn_id,
2724: device_id,
3112: IF l_return_status IS NULL OR l_return_status = 'E' OR l_return_status = 'U'THEN
3113:
3114: --Error mesg should have been at the point of failure
3115:
3116: --Insert record into the WMS_DEVICE_REQUESTS table
3117: --Generate xml/call API for truck_load business event
3118: --populate in the history table
3119: ROLLBACK TO wms_rfid_sp1;
3120: generate_xml_csv_api(l_device_id,wms_device_integration_pvt.wms_be_TRUCK_LOAD,l_organization_id,l_lpn_id,l_output_method_id,l_subinventory_code,l_locator_id,'E', p_event_date,l_request_id,l_return_status);
3155: l_return_status = 'U' THEN
3156:
3157: --Error mesg should have been at the point of failure
3158:
3159: --Insert record into the WMS_DEVICE_REQUESTS table
3160: --Generate xml/call API for truck_load business event
3161: --populate in the history table
3162: ROLLBACK TO wms_rfid_sp1;
3163: generate_xml_csv_api(l_device_id,wms_device_integration_pvt.wms_be_TRUCK_LOAD_SHIP,l_organization_id,l_lpn_id,l_output_method_id,l_subinventory_code,l_locator_id,'E', p_event_date,l_request_id,l_return_status);
3208: IF l_return_status IS NULL OR l_return_status = 'E' THEN
3209:
3210: --Error mesg should have been at the point of failure
3211:
3212: --Insert record into the WMS_DEVICE_REQUESTS table
3213: --Generate xml/call API for truck_load business event
3214: --populate in the history table
3215:
3216: ROLLBACK TO wms_rfid_sp1;
3252:
3253:
3254: IF l_return_status IS NULL OR l_return_status = 'E' THEN
3255:
3256: --Insert record into the WMS_DEVICE_REQUESTS table
3257: --Generate xml/call API for truck_load business event
3258: --populate in the history table
3259:
3260: ROLLBACK TO wms_rfid_sp1;
3466:
3467: IF (l_debug = 1) THEN
3468: trace('process_rfid_txn:Delete requested rows from WDR');
3469: END IF;
3470: delete from wms_device_requests;--since temp table is session specific
3471:
3472: IF (l_debug = 1) THEN
3473: trace('process_rfid_txn :End of processing for current read');
3474: END IF;
3502: trace('x_return_mesg :' || x_return_mesg);
3503: END IF;
3504:
3505:
3506: delete from wms_device_requests;--since temp table is session specific
3507: COMMIT;
3508:
3509: WHEN OTHERS THEN
3510: ROLLBACK TO wms_rfid_sp1;