[Home] [Help]
35: AND active_ind = 'Y'
36: ORDER BY device_type_id, business_event_id, sequence_id;
37:
38: v_value VARCHAR2 (4000) := NULL;
39: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
40: BEGIN
41: -- Get it out of the configuration table
42: OPEN c_config_parameter (p_device_type_id,
43: p_business_event_id,
85: AND ACTIVE_IND = 'Y'
86: ORDER BY DEVICE_TYPE_ID, BUSINESS_EVENT_ID, SEQUENCE_ID;
87:
88: V_VALUE VARCHAR2 (4000) := NULL;
89: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
90: BEGIN
91: -- GET IT OUT OF THE CONFIGURATION TABLE
92: OPEN C_CONFIG_PARAMETER (P_DEVICE_TYPE_ID,
93: P_BUSINESS_EVENT_ID,
118: )
119: IS
120: v_task_group VARCHAR2 (128);
121: v_group_skip BOOLEAN;
122: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
123: BEGIN
124: COMMIT;
125: -- Process request tasks
126: v_group_skip := FALSE;
194: x_msg_data OUT NOCOPY VARCHAR2
195: )
196: IS
197: v_response VARCHAR2 (4000);
198: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
199: BEGIN
200: /* uncomment below for debugging; first argument is user_id for inv debug log */
201: -- fnd_global.apps_initialize(2330, 21676, 385);
202: if l_debug > 0 then
259: l_msg_template_id NUMBER;
260: l_return_status VARCHAR2(10);
261: l_msg_count NUMBER;
262: l_msg_data VARCHAR2(4000);
263: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
264: l_directive_cnt number := 0;
265: PRAGMA AUTONOMOUS_TRANSACTION;
266: BEGIN
267: v_response := p_response;
520: v_directive wms_carousel_directive_queue%ROWTYPE;
521: v_dir_dep_seg_id VARCHAR2 (64) := NULL;
522: v_dir_dep_seq_id NUMBER := NULL;
523: v_query VARCHAR2 (1024);
524: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
525: l_directive_count NUMBER := 0;
526: PRAGMA AUTONOMOUS_TRANSACTION;
527: BEGIN
528: IF (l_debug > 0) THEN
732: p_dir_dep_seq_id IN NUMBER
733: )
734: IS
735: v_query VARCHAR2(4000);
736: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
737: l_directive_queue_status VARCHAR2 (3);
738: BEGIN
739: IF (l_debug > 0) THEN
740: LOG (p_task.device_id, 'Building directive strings: request_id='
838: p_query IN VARCHAR2,
839: p_result OUT NOCOPY VARCHAR2
840: )
841: IS
842: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
843: BEGIN
844: -- Do nothing if empty
845: IF (p_query is NULL) --NVL (p_query, 'null') = 'null'
846: THEN
888: v_dep_id NUMBER;
889: i NUMBER;
890: v_pos1 NUMBER;
891: v_pos2 NUMBER;
892: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
893: BEGIN
894: -- Any dependency speficied ?
895: IF NVL (p_dir_dep_seg_id, 'null') = 'null'
896: OR NVL (p_dir_dep_seq_id, 0) = 0
1034: FOR UPDATE;
1035:
1036: v_status wms_carousel_directive_queue.status%TYPE;
1037: v_count NUMBER := 1;
1038: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1039: l_exec_action VARCHAR2 (4000);
1040: l_directive_pause_delay NUMBER;
1041: l_directive_cascade_failure VARCHAR2 (4000);
1042: PRAGMA AUTONOMOUS_TRANSACTION;
1441:
1442: --
1443: PROCEDURE cancel_task (p_request_id IN NUMBER, p_device_id IN NUMBER, p_task_id IN NUMBER DEFAULT NULL)
1444: IS
1445: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1446: BEGIN
1447: IF (l_debug > 0) THEN
1448: LOG (p_device_id, 'Cancelling task at WMS request, request_id='
1449: || p_request_id
1456:
1457: --
1458: PROCEDURE skip_task (p_request_id IN NUMBER, p_device_id IN NUMBER, p_task_id IN NUMBER DEFAULT NULL)
1459: IS
1460: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1461: BEGIN
1462: IF (l_debug > 0) THEN
1463: LOG (p_device_id, 'Skipping task at WMS request, request_id='
1464: || p_request_id
1472: --
1473: --
1474: PROCEDURE complete_task (p_request_id IN NUMBER, p_device_id IN NUMBER, p_task_id IN NUMBER DEFAULT NULL)
1475: IS
1476: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1477: BEGIN
1478: IF (l_debug > 0) THEN
1479: LOG (p_device_id, 'Completing task at WMS request, request_id='
1480: || p_request_id
1552: l_pipe_removed NUMBER;
1553: l_reading_pipe VARCHAR2(40);
1554: l_device_pause_delay NUMBER;
1555: --4311016
1556: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1557: PRAGMA AUTONOMOUS_TRANSACTION;
1558: BEGIN
1559: x_return_status := fnd_api.g_ret_sts_success;
1560: -- Get pipe NAME
1695: ORDER BY sequence_id) wmc
1696: WHERE ROWNUM <= p_comp_no)
1697: WHERE rnum >= p_comp_no;
1698: l_msg_component msg_components%ROWTYPE;
1699: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1700: PRAGMA AUTONOMOUS_TRANSACTION;
1701: BEGIN
1702: x_return_status := fnd_api.g_ret_sts_success;
1703: OPEN msg_components (p_template_id, p_component_no);
1823: l_dom_node xmldom.domnode;
1824: l_nodelist xmldom.domnodelist;
1825: l_attributes_buffer VARCHAR2 (4000);
1826: l_response_record WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE;
1827: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1828: PRAGMA AUTONOMOUS_TRANSACTION;
1829: BEGIN
1830: x_return_status := fnd_api.g_ret_sts_success;
1831: l_template_id := p_template_id;
2323: p_msg_component IN VARCHAR2,
2324: p_response_record IN OUT NOCOPY WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE
2325: )
2326: IS
2327: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2328: BEGIN
2329: IF l_debug > 0 THEN
2330: log (p_device_id, 'In Populate_response_record. p_component_code='
2331: || p_component_code
2528: p_device_id IN NUMBER,
2529: p_response_record IN WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE
2530: )
2531: IS
2532: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2533: BEGIN
2534: IF (l_debug > 0) THEN
2535: log
2536: (p_device_id, 'In log_response_record. Contents of the response record are--->');
2613: )
2614: IS
2615: l_count NUMBER := 0;
2616: l_time DATE;
2617: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2618: BEGIN
2619: l_time := SYSDATE + (p_delay_in_seconds/(86400));
2620: WHILE l_time > SYSDATE LOOP
2621: l_count := l_count + 1;