[Home] [Help]
5: -----------------------------------------------------
6: -- Global declarations
7: -----------------------------------------------------
8: SUBTYPE WDR_ROW IS WMS_DEVICE_REQUESTS%ROWTYPE;
9: SUBTYPE WDRH_ROW IS WMS_DEVICE_REQUESTS_HIST%ROWTYPE;
10:
11:
12: -----------------------------------------------------
13: -- trace
633: dev_id := 0;
634: BEGIN
635: SELECT device_id, task_id
636: INTO dev_id, par_task_id
637: FROM wms_device_requests_hist
638: WHERE request_id = p_parent_request_id
639: AND ROWNUM < 2;
640: EXCEPTION
641: WHEN OTHERS THEN
1255: trace('outfile_name='||l_rec.outfile_name||'request_id:'||l_rec.request_id||'task_id:'||l_rec.task_id);
1256: END IF;
1257: */
1258: l_counter := l_counter +1;
1259: INSERT INTO wms_device_requests_hist (request_id,
1260: task_id,
1261: relation_id,
1262: sequence_id,
1263: task_summary,
1426: ,TRANSFER_ORG_ID
1427: ,TRANSFER_SUB_CODE
1428: ,UOM
1429: ,XFER_LPN_ID
1430: from wms_device_requests_hist
1431: WHERE request_id = p_request_id
1432: AND status_code ='P'
1433: AND Nvl(business_event_id,-1) = Nvl(p_bus_event_id,-1);
1434:
1601: RAISE FND_API.G_EXC_ERROR;
1602: ELSE
1603: BEGIN
1604: SELECT request_id INTO l_parent_request_id
1605: FROM wms_device_requests_hist
1606: WHERE request_id = p_request_id
1607: AND task_summary = 'Y';
1608: EXCEPTION
1609: WHEN no_data_found THEN
1795: update wms_device_requests
1796: set relation_id = l_parent_request_id
1797: where device_id = l_cur_dev.device_id;
1798:
1799: update wms_device_requests_hist
1800: set relation_id = l_parent_request_id
1801: where request_id = l_parent_request_id;
1802: EXCEPTION
1803: WHEN others THEN
2013:
2014: Inserting into WDR is kept transparent to the OPM team who will call this
2015: through a wrapper API in a group package
2016:
2017: The request traffic will get logged in the wms_device_requests_hist table
2018: in addition to being captured in wms_carousel_log
2019: */
2020: PROCEDURE DEVICE_REQUEST(
2021: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2146: RAISE FND_API.G_EXC_ERROR;
2147: ELSE
2148: BEGIN
2149: SELECT request_id INTO l_parent_request_id
2150: FROM wms_device_requests_hist
2151: WHERE request_id = p_request_id
2152: AND task_summary = 'Y';
2153: EXCEPTION
2154: WHEN no_data_found THEN
2330: update wms_device_requests
2331: set relation_id = l_parent_request_id
2332: where device_id = l_cur_dev.device_id;
2333:
2334: update wms_device_requests_hist
2335: set relation_id = l_parent_request_id
2336: where request_id = l_parent_request_id;
2337: EXCEPTION
2338: WHEN others THEN
2500: P_business_event_id IN NUMBER
2501: )IS
2502:
2503: CURSOR x_cur IS SELECT distinct device_id dev_id
2504: FROM wms_device_requests_hist
2505: WHERE Nvl(device_id, -1) = Nvl( p_device_id, -1)
2506: AND request_id = p_request_id
2507: AND status_code ='P'
2508: AND Nvl(sequence_id,-1) = Nvl(p_sequence_id,nvl(sequence_id, -1))
2536: IF (l_debug = 1) THEN
2537: trace('deleting all current error records from WDRH');
2538: END IF;
2539: --delete all current error records from WDRH
2540: DELETE FROM wms_device_requests_hist
2541: WHERE request_id = p_request_id
2542: AND status_code ='P'
2543: AND Nvl(sequence_id,-1) = Nvl(p_sequence_id,nvl(sequence_id, -1))
2544: AND Nvl(task_id,-1) = Nvl(p_task_trx_id,nvl(task_id, -1))
2571: ELSE--other business event
2572: BEGIN
2573: SELECT nvl(WCS_ENABLED,'N') into l_wcs_enabled FROM MTL_PARAMETERS
2574: WHERE ORGANIZATION_ID = (SELECT ORGANIZATION_ID
2575: FROM wms_device_requests_hist
2576: WHERE request_id = p_request_id
2577: AND status_code ='P'
2578: AND Nvl(business_event_id,-1) = Nvl(p_business_event_id,-1)
2579: AND ROWNUM < 2);
2605: x_status_msg => l_stat_msg );
2606: END IF;
2607:
2608: IF ( l_req_stat <> FND_API.g_ret_sts_success) THEN
2609: UPDATE wms_device_requests_hist
2610: SET status_code = l_req_stat,
2611: status_msg = l_stat_msg
2612: WHERE device_id = l_rec.dev_id
2613: AND request_id = p_request_id;
2611: status_msg = l_stat_msg
2612: WHERE device_id = l_rec.dev_id
2613: AND request_id = p_request_id;
2614: ELSE
2615: UPDATE wms_device_requests_hist
2616: SET status_code = 'S'
2617: WHERE device_id = l_rec.dev_id
2618: AND request_id = p_request_id;
2619: END IF;
2638: ( p_count => l_dev_req_type,
2639: p_data => l_req_stat
2640: );
2641: --this is set to P in the form while making call to concurrent req
2642: UPDATE wms_device_requests_hist
2643: SET status_code = 'E',resubmit_date = null
2644: WHERE request_id = p_request_id
2645: AND BUSINESS_EVENT_ID =p_business_event_id
2646: AND status_code = 'P';
2656: p_data => l_req_stat
2657: );
2658:
2659: --this is set to P in the form while making call to concurrent req
2660: UPDATE wms_device_requests_hist
2661: SET status_code = 'E',resubmit_date = null
2662: WHERE request_id = p_request_id
2663: AND BUSINESS_EVENT_ID =p_business_event_id
2664: AND status_code = 'P';
2674: ( p_count => l_dev_req_type,
2675: p_data => l_req_stat
2676: );
2677: --this is set to P in the form while making call to concurrent req
2678: UPDATE wms_device_requests_hist
2679: SET status_code = 'E',resubmit_date = null
2680: WHERE request_id = p_request_id
2681: AND BUSINESS_EVENT_ID =p_business_event_id
2682: AND status_code = 'P';
2784: l_ret := fnd_concurrent.set_completion_status('ERROR', 'WMS_MISS_REQ_PARAMETER');
2785: x_retcode := 2;
2786: x_errbuf := 'ERROR';
2787: ELSE
2788: delete from wms_device_requests_hist
2789: where creation_date < p_purge_date and organization_id = p_orgid ;
2790: delete from wms_lpn_histories
2791: where creation_date < p_purge_date and organization_id = p_orgid ;
2792: delete from wms_dispatched_tasks_history