[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;
144:
145: l_temp_sub VARCHAR2(30);
146: l_temp_loc NUMBER;
147:
148: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
149: BEGIN
150:
151: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
152: x_request_id := l_request_id;
288: l_qty NUMBER;
289: l_uom VARCHAR2(3);
290: l_rev VARCHAR2(10);
291:
292: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
293: BEGIN
294:
295: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
296: x_request_id := l_request_id;
403: l_qty NUMBER;
404: l_uom VARCHAR2(3);
405: l_rev VARCHAR2(10);
406:
407: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
408: BEGIN
409:
410: SELECT wms_device_requests_s.nextval INTO l_request_id FROM dual;
411: x_request_id := l_request_id;
511:
512: l_qty NUMBER;
513: l_count NUMBER :=0 ;
514:
515: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
516: BEGIN
517:
518: FOR l_rec IN lot_ser_cursor LOOP
519: IF (l_rec.lot_num IS NOT NULL OR l_rec.ser_num IS NOT NULL) THEN
611: dev_id number := 0;
612: par_task_id number := null;
613: l_lot_ser_ok VARCHAR2(1);
614: l_notification_flag VARCHAR2(1);
615: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
616: l_force_sign_on_flag Varchar2(1) :='N';
617: l_dev_id NUMBER :=0;
618: l_current_release_level NUMBER := WMS_CONTROL.g_current_release_level;
619: l_j_release_level NUMBER := INV_RELEASE.g_j_release_level;
864: PROCEDURE WriteToFile(p_xml IN CLOB, p_file_dir IN VARCHAR2, p_file_name IN VARCHAR2) IS
865: l_xmlstr varchar2(32767);
866: l_line varchar2(2000);
867: l_file UTL_FILE.FILE_TYPE;
868: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
869: BEGIN
870: l_file := utl_file.fopen(rtrim(p_file_dir,'/'), p_file_name, 'w');
871: l_xmlstr := dbms_lob.substr(p_xml, 32767);
872: loop
995: l_csv_column_list VARCHAR2(200) :=
996: 'DEVICE,REQUESTID,TASKTYPE,BUSINESSEVENT,TASKID,SEQUENCEID,RELATIONID,ORG,SUB,'||'LOC,TRANSFERORG,TRANSFERSUB,TRANSFERLOC,LPN,ITEM,REVISION,QUANTITY,UOM,LOT,LOTQTY,SERIAL,ERRORCODE,TIMESTAMP';
997:
998: l_order_num NUMBER;
999: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1000: BEGIN
1001: IF (l_debug = 1) THEN
1002: trace('In generate xml/csv, device_id = ' || p_device_id);
1003: trace('Getting output dir, file name, lot/serial enabled, device name');
1245: l_counter NUMBER := 0;
1246: CURSOR cur_dev IS SELECT * FROM wms_device_requests where device_id is
1247: not null;
1248:
1249: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1250: BEGIN
1251: x_device_records_exist := 'Y';
1252:
1253: FOR l_rec IN cur_dev LOOP
1355:
1356: PROCEDURE move_resubmit_rows(p_request_id number, p_bus_event_id number)IS
1357:
1358:
1359: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1360: BEGIN
1361:
1362: IF (l_debug = 1) THEN
1363: trace('Move from Hist table to temp table');
1441: ---------------------------------------------------------
1442: FUNCTION GET_MSG_STACK RETURN VARCHAR2 IS
1443: l_msg_count number;
1444: l_msg_data varchar2(240);
1445: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1446: BEGIN
1447: fnd_msg_pub.count_And_get(
1448: p_count => l_msg_count,
1449: p_data => l_msg_data,
1517: l_device_records_exists VARCHAR2(1);
1518: l_setup_row_cnt NUMBER := 0 ;
1519: l_wcs_enabled VARCHAR2(1) := 'N'; --MHE
1520:
1521: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1522: BEGIN
1523: -- FOR PICK RELEASE AND REPLENISHMENT TASK ALLOCATION PARAMETER
1524: --'wms_call_device_request' SHOULD HAVE BEEN
1525: -- SET UP THROUGH CALL FROM PICK RELEASE AND MO PICK SLIP REPORT
1977: x_msg_count OUT NOCOPY NUMBER,
1978: x_msg_data OUT NOCOPY VARCHAR2)
1979: IS
1980: l_request_id VARCHAR2(40);
1981: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1982: BEGIN
1983: DEVICE_REQUEST(
1984: p_init_msg_list=>p_init_msg_list,
1985: p_bus_event=>p_bus_event,
2062: l_device_records_exists VARCHAR2(1);
2063: l_setup_row_cnt NUMBER := 0 ;
2064: l_wcs_enabled VARCHAR2(1) := 'N'; --MHE
2065:
2066: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2067: BEGIN
2068: -- FOR PICK RELEASE AND REPLENISHMENT TASK ALLOCATION PARAMETER
2069: --'wms_call_device_request' SHOULD HAVE BEEN
2070: -- SET UP THROUGH CALL FROM PICK RELEASE AND MO PICK SLIP REPORT
2518: l_msg_count NUMBER;
2519: l_msg_data VARCHAR2(240);
2520: l_wcs_enabled VARCHAR2(1);
2521: l_successful_row_cnt NUMBER;
2522: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2523: BEGIN
2524: IF (l_debug = 1) THEN
2525: trace('RESUBMIT REQUEST::req ID :='||p_business_event_id||':p_request_id:='||p_request_id);
2526: END IF;
2694: IS
2695: l_setup_row_cnt NUMBER:=0;
2696: l_device_cnt NUMBER:=0;
2697: l_request_id NUMBER :=0;
2698: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2699: BEGIN
2700:
2701: IF p_org_id IS NOT NULL THEN
2702: BEGIN
2776: p_purge_name IN VARCHAR2 )
2777: IS
2778: l_ret boolean;
2779:
2780: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2781: BEGIN
2782:
2783: IF (p_purge_date IS NULL OR p_orgid IS NULL)THEN
2784: l_ret := fnd_concurrent.set_completion_status('ERROR', 'WMS_MISS_REQ_PARAMETER');