[Home] [Help]
12: -----------------------------------------------------
13: -- trace
14: -----------------------------------------------------
15: PROCEDURE trace(p_msg IN VARCHAR2, p_level IN NUMBER) IS
16: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17: BEGIN
18: IF (l_debug = 1) THEN
19: inv_trx_util_pub.trace(p_msg, 'WMS_DEVICE_INTEGRATION_PVT', p_level);
20: END IF;
39: l_qty NUMBER;
40: l_uom VARCHAR2(3);
41: l_rev VARCHAR2(10);
42:
43: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
44: BEGIN
45:
46: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
47: x_request_id := l_request_id;
145: l_temp_sub VARCHAR2(30);
146: l_temp_loc NUMBER;
147: l_xfr_lpn_id NUMBER; --Added for Bug#8512121
148:
149: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
150: BEGIN
151:
152: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
153: x_request_id := l_request_id;
296: l_qty NUMBER;
297: l_uom VARCHAR2(3);
298: l_rev VARCHAR2(10);
299:
300: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
301: BEGIN
302:
303: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
304: x_request_id := l_request_id;
423: l_qty NUMBER;
424: l_uom VARCHAR2(3);
425: l_rev VARCHAR2(10);
426:
427: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
428: BEGIN
429:
430: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
431: x_request_id := l_request_id;
531:
532: l_qty NUMBER;
533: l_count NUMBER :=0 ;
534:
535: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
536: BEGIN
537:
538: FOR l_rec IN lot_ser_cursor LOOP
539: IF (l_rec.lot_num IS NOT NULL OR l_rec.ser_num IS NOT NULL) THEN
631: dev_id number := 0;
632: par_task_id number := null;
633: l_lot_ser_ok VARCHAR2(1);
634: l_notification_flag VARCHAR2(1);
635: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
636: l_force_sign_on_flag Varchar2(1) :='N';
637: l_dev_id NUMBER :=0;
638: l_current_release_level NUMBER := WMS_CONTROL.g_current_release_level;
639: l_j_release_level NUMBER := INV_RELEASE.g_j_release_level;
884: PROCEDURE WriteToFile(p_xml IN CLOB, p_file_dir IN VARCHAR2, p_file_name IN VARCHAR2) IS
885: l_xmlstr varchar2(32767);
886: l_line varchar2(2000);
887: l_file UTL_FILE.FILE_TYPE;
888: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
889: BEGIN
890: l_file := utl_file.fopen(rtrim(p_file_dir,'/'), p_file_name, 'w');
891: l_xmlstr := dbms_lob.substr(p_xml, 32767);
892: loop
1016: l_csv_column_list VARCHAR2(200) :=
1017: 'DEVICE,REQUESTID,TASKTYPE,BUSINESSEVENT,TASKID,SEQUENCEID,RELATIONID,ORG,SUB,'||'LOC,TRANSFERORG,TRANSFERSUB,TRANSFERLOC,LPN,XFERLPN,ITEM,REVISION,QUANTITY,UOM,LOT,LOTQTY,SERIAL,ERRORCODE,TIMESTAMP'; --Added for Bug#8512121
1018:
1019: l_order_num NUMBER;
1020: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1021: BEGIN
1022: IF (l_debug = 1) THEN
1023: trace('In generate xml/csv, device_id = ' || p_device_id);
1024: trace('Getting output dir, file name, lot/serial enabled, device name');
1269: l_counter NUMBER := 0;
1270: CURSOR cur_dev IS SELECT * FROM wms_device_requests where device_id is
1271: not null;
1272:
1273: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1274: BEGIN
1275: x_device_records_exist := 'Y';
1276:
1277: FOR l_rec IN cur_dev LOOP
1387:
1388: PROCEDURE move_resubmit_rows(p_request_id number, p_bus_event_id number)IS
1389:
1390:
1391: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1392: BEGIN
1393:
1394: IF (l_debug = 1) THEN
1395: trace('Move from Hist table to temp table');
1473: ---------------------------------------------------------
1474: FUNCTION GET_MSG_STACK RETURN VARCHAR2 IS
1475: l_msg_count number;
1476: l_msg_data varchar2(240);
1477: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1478: BEGIN
1479: fnd_msg_pub.count_And_get(
1480: p_count => l_msg_count,
1481: p_data => l_msg_data,
1556: l_xfr_subinv VARCHAR2(10) := '';
1557: l_xfr_locator_id NUMBER := NULL;
1558: --Added for bug#9233592 end
1559:
1560: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1561: BEGIN
1562: -- FOR PICK RELEASE AND REPLENISHMENT TASK ALLOCATION PARAMETER
1563: --'wms_call_device_request' SHOULD HAVE BEEN
1564: -- SET UP THROUGH CALL FROM PICK RELEASE AND MO PICK SLIP REPORT
2060: x_msg_data OUT NOCOPY VARCHAR2)
2061: IS
2062: l_request_id VARCHAR2(40);
2063: l_xfer_lpn_id NUMBER := NULL; --Added for Bug#8778050
2064: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2065: BEGIN
2066: DEVICE_REQUEST(
2067: p_init_msg_list=>p_init_msg_list,
2068: p_bus_event=>p_bus_event,
2146: l_device_records_exists VARCHAR2(1);
2147: l_setup_row_cnt NUMBER := 0 ;
2148: l_wcs_enabled VARCHAR2(1) := 'N'; --MHE
2149:
2150: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2151: BEGIN
2152: -- FOR PICK RELEASE AND REPLENISHMENT TASK ALLOCATION PARAMETER
2153: --'wms_call_device_request' SHOULD HAVE BEEN
2154: -- SET UP THROUGH CALL FROM PICK RELEASE AND MO PICK SLIP REPORT
2602: l_msg_count NUMBER;
2603: l_msg_data VARCHAR2(240);
2604: l_wcs_enabled VARCHAR2(1);
2605: l_successful_row_cnt NUMBER;
2606: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2607: BEGIN
2608: IF (l_debug = 1) THEN
2609: trace('RESUBMIT REQUEST::req ID :='||p_business_event_id||':p_request_id:='||p_request_id);
2610: END IF;
2778: IS
2779: l_setup_row_cnt NUMBER:=0;
2780: l_device_cnt NUMBER:=0;
2781: l_request_id NUMBER :=0;
2782: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2783: BEGIN
2784:
2785: IF p_org_id IS NOT NULL THEN
2786: BEGIN
2863: p_purge_name IN VARCHAR2 )
2864: IS
2865: l_ret boolean;
2866:
2867: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2868: BEGIN
2869:
2870: IF (p_purge_date IS NULL OR p_orgid IS NULL)THEN
2871: l_ret := fnd_concurrent.set_completion_status('ERROR', 'WMS_MISS_REQ_PARAMETER');