[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:
2277: END IF;
2278:
2279:
2280: -- IF there is error then update wms_epc
2281: -- No need to insert into wms_device_Requests, as transaction is going
2282: --TO fail because OF the multiple palletS
2283:
2284: IF l_is_error = 1 THEN
2285:
2357: BEGIN
2358:
2359: x_return_status := 'S';
2360:
2361: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
2362: l_device_req_id_pkg := l_request_id; --to be used for the pallet record
2363:
2364:
2365: --By the time this API is called
2654:
2655: IF x_return_status = 'E' THEN
2656:
2657: --1. UPDATE WMS_EPC TABLE FOR FAILURE FOR ALL READS
2658: --2. INSERT INTO WMS_DEVICE_REQUESTs TABLE FOR READ CASE TAGS, NOT THE PALLET
2659: -- pallet will be transferred in the process_rfid_txn table and all
2660: -- above records will be moved TO the wms_device_request_hist table
2661:
2662: /* we can not use the group_id to update wms_epc table in one shot
2676:
2677: IF p_tag_info(j).parent_lpn_id IS NOT NULL THEN --Pallet rec
2678: --will be handled later
2679:
2680: INSERT INTO wms_device_requests (request_id,
2681: business_event_id,
2682: organization_id,
2683: lpn_id,
2684: device_id,
2715:
2716: IF p_tag_info(j).parent_lpn_id IS NOT NULL THEN --Pallet rec
2717: --will be handled later
2718:
2719: INSERT INTO wms_device_requests (request_id,
2720: business_event_id,
2721: organization_id,
2722: lpn_id,
2723: device_id,
3111: IF l_return_status IS NULL OR l_return_status = 'E' OR l_return_status = 'U'THEN
3112:
3113: --Error mesg should have been at the point of failure
3114:
3115: --Insert record into the WMS_DEVICE_REQUESTS table
3116: --Generate xml/call API for truck_load business event
3117: --populate in the history table
3118: ROLLBACK TO wms_rfid_sp1;
3119: 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);
3154: l_return_status = 'U' THEN
3155:
3156: --Error mesg should have been at the point of failure
3157:
3158: --Insert record into the WMS_DEVICE_REQUESTS table
3159: --Generate xml/call API for truck_load business event
3160: --populate in the history table
3161: ROLLBACK TO wms_rfid_sp1;
3162: 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);
3207: IF l_return_status IS NULL OR l_return_status = 'E' THEN
3208:
3209: --Error mesg should have been at the point of failure
3210:
3211: --Insert record into the WMS_DEVICE_REQUESTS table
3212: --Generate xml/call API for truck_load business event
3213: --populate in the history table
3214:
3215: ROLLBACK TO wms_rfid_sp1;
3251:
3252:
3253: IF l_return_status IS NULL OR l_return_status = 'E' THEN
3254:
3255: --Insert record into the WMS_DEVICE_REQUESTS table
3256: --Generate xml/call API for truck_load business event
3257: --populate in the history table
3258:
3259: ROLLBACK TO wms_rfid_sp1;
3465:
3466: IF (l_debug = 1) THEN
3467: trace('process_rfid_txn:Delete requested rows from WDR');
3468: END IF;
3469: delete from wms_device_requests;--since temp table is session specific
3470:
3471: IF (l_debug = 1) THEN
3472: trace('process_rfid_txn :End of processing for current read');
3473: END IF;
3501: trace('x_return_mesg :' || x_return_mesg);
3502: END IF;
3503:
3504:
3505: delete from wms_device_requests;--since temp table is session specific
3506: COMMIT;
3507:
3508: WHEN OTHERS THEN
3509: ROLLBACK TO wms_rfid_sp1;