[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: if l_debug > 0 then
201: LOG(p_device_id, 'Reached response_event_handler with p_message='||p_message);
202: end if;
257: l_msg_template_id NUMBER;
258: l_return_status VARCHAR2(10);
259: l_msg_count NUMBER;
260: l_msg_data VARCHAR2(4000);
261: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
262: l_directive_cnt number := 0;
263: PRAGMA AUTONOMOUS_TRANSACTION;
264: BEGIN
265: v_response := p_response;
511: v_directive wms_carousel_directive_queue%ROWTYPE;
512: v_dir_dep_seg_id VARCHAR2 (64) := NULL;
513: v_dir_dep_seq_id NUMBER := NULL;
514: v_query VARCHAR2 (1024);
515: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
516: l_directive_count NUMBER := 0;
517: PRAGMA AUTONOMOUS_TRANSACTION;
518: BEGIN
519: IF (l_debug > 0) THEN
722: p_dir_dep_seq_id IN NUMBER
723: )
724: IS
725: v_query VARCHAR2(4000);
726: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
727: l_directive_queue_status VARCHAR2 (3);
728: BEGIN
729: IF (l_debug > 0) THEN
730: LOG (p_task.device_id, 'Building directive strings: request_id='
828: p_query IN VARCHAR2,
829: p_result OUT NOCOPY VARCHAR2
830: )
831: IS
832: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
833: BEGIN
834: -- Do nothing if empty
835: IF (p_query is NULL) --NVL (p_query, 'null') = 'null'
836: THEN
878: v_dep_id NUMBER;
879: i NUMBER;
880: v_pos1 NUMBER;
881: v_pos2 NUMBER;
882: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
883: BEGIN
884: -- Any dependency speficied ?
885: IF NVL (p_dir_dep_seg_id, 'null') = 'null'
886: OR NVL (p_dir_dep_seq_id, 0) = 0
1024: FOR UPDATE;
1025:
1026: v_status wms_carousel_directive_queue.status%TYPE;
1027: v_count NUMBER := 1;
1028: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1029: l_exec_action VARCHAR2 (4000);
1030: l_directive_pause_delay NUMBER;
1031: l_directive_cascade_failure VARCHAR2 (4000);
1032: PRAGMA AUTONOMOUS_TRANSACTION;
1431:
1432: --
1433: PROCEDURE cancel_task (p_request_id IN NUMBER, p_device_id IN NUMBER, p_task_id IN NUMBER DEFAULT NULL)
1434: IS
1435: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1436: BEGIN
1437: IF (l_debug > 0) THEN
1438: LOG (p_device_id, 'Cancelling task at WMS request, request_id='
1439: || p_request_id
1446:
1447: --
1448: PROCEDURE skip_task (p_request_id IN NUMBER, p_device_id IN NUMBER, p_task_id IN NUMBER DEFAULT NULL)
1449: IS
1450: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1451: BEGIN
1452: IF (l_debug > 0) THEN
1453: LOG (p_device_id, 'Skipping task at WMS request, request_id='
1454: || p_request_id
1462: --
1463: --
1464: PROCEDURE complete_task (p_request_id IN NUMBER, p_device_id IN NUMBER, p_task_id IN NUMBER DEFAULT NULL)
1465: IS
1466: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1467: BEGIN
1468: IF (l_debug > 0) THEN
1469: LOG (p_device_id, 'Completing task at WMS request, request_id='
1470: || p_request_id
1542: l_pipe_removed NUMBER;
1543: l_reading_pipe VARCHAR2(40);
1544: l_device_pause_delay NUMBER;
1545: --4311016
1546: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1547: PRAGMA AUTONOMOUS_TRANSACTION;
1548: BEGIN
1549: x_return_status := fnd_api.g_ret_sts_success;
1550: -- Get pipe NAME
1685: ORDER BY sequence_id) wmc
1686: WHERE ROWNUM <= p_comp_no)
1687: WHERE rnum >= p_comp_no;
1688: l_msg_component msg_components%ROWTYPE;
1689: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1690: PRAGMA AUTONOMOUS_TRANSACTION;
1691: BEGIN
1692: x_return_status := fnd_api.g_ret_sts_success;
1693: OPEN msg_components (p_template_id, p_component_no);
1813: l_dom_node xmldom.domnode;
1814: l_nodelist xmldom.domnodelist;
1815: l_attributes_buffer VARCHAR2 (4000);
1816: l_response_record WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE;
1817: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1818: PRAGMA AUTONOMOUS_TRANSACTION;
1819: BEGIN
1820: x_return_status := fnd_api.g_ret_sts_success;
1821: l_template_id := p_template_id;
2301: p_msg_component IN VARCHAR2,
2302: p_response_record IN OUT NOCOPY WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE
2303: )
2304: IS
2305: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2306: BEGIN
2307: IF l_debug > 0 THEN
2308: log (p_device_id, 'In Populate_response_record. p_component_code='
2309: || p_component_code
2506: p_device_id IN NUMBER,
2507: p_response_record IN WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE
2508: )
2509: IS
2510: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2511: BEGIN
2512: IF (l_debug > 0) THEN
2513: log
2514: (p_device_id, 'In log_response_record. Contents of the response record are--->');
2591: )
2592: IS
2593: l_count NUMBER := 0;
2594: l_time DATE;
2595: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2596: BEGIN
2597: l_time := SYSDATE + (p_delay_in_seconds/(86400));
2598: WHILE l_time > SYSDATE LOOP
2599: l_count := l_count + 1;