[Home] [Help]
659: begin
660: seLECT DEVICE_ID INTO dev_ID FROM
661: ( SELECT wbed.DEVICE_ID FROM
662: wms_bus_event_devices wbed,
663: wms_devices_b wd
664: WHERE
665: wd.device_id = wbed.device_id
666: AND WBED.organization_id = WD.organization_id
667: and wd.ENABLED_FLAG = 'Y'
681: IF (dev_id <> 0 ) THEN
682: BEGIN
683: SELECT force_sign_on_flag
684: INTO l_force_sign_on_flag
685: FROM wms_devices_b
686: WHERE device_id = dev_id;
687: IF(l_force_sign_on_flag='Y') THEN
688: BEGIN
689: SELECT device_id
723: BEGIN
724: SELECT DEVICE_ID INTO dev_ID FROM
725: ( SELECT wbed.DEVICE_ID FROM
726: wms_bus_event_devices wbed,
727: wms_devices_b wd
728: WHERE
729: wd.device_id = wbed.device_id
730: AND WBED.organization_id = WD.organization_id
731: and wd.ENABLED_FLAG = 'Y'
745: IF (dev_id <> 0 ) THEN
746: BEGIN
747: SELECT force_sign_on_flag
748: INTO l_force_sign_on_flag
749: FROM wms_devices_b
750: WHERE device_id = dev_id;
751: IF(l_force_sign_on_flag='Y') THEN
752: BEGIN
753: SELECT device_id
792: IF wdrrec.business_event_id in (wms_be_task_complete) THEN
793: BEGIN
794: select nvl(notification_flag, 'N')
795: into l_notification_flag
796: from wms_devices_b
797: where device_id = dev_id;
798: EXCEPTION
799: WHEN no_data_found THEN
800: IF (l_debug = 1) THEN
822: --allocation bus event
823: IF wdrrec.business_event_id IN (wms_be_pick_release, wms_be_mo_task_alloc) then BEGIN
824: select Nvl(lot_serial_capable,'N')
825: into l_lot_ser_ok
826: from WMS_DEVICES_B
827: where device_id = dev_id;
828: EXCEPTION
829: WHEN no_data_found THEN
830: l_lot_ser_ok := 'N';
922: wdr.serial_number serial,
923: wdr.status_msg STATUSMSG, wdr.last_update_date timestamp,
924: wdr.business_event_id bus_event_id
925: FROM wms_device_requests wdr, mfg_lookups ml1, mfg_lookups ml2,
926: wms_devices_vl wd, mtl_parameters mp1, mtl_item_locations_kfv milk1,
927: mtl_parameters mp2, mtl_item_locations_kfv milk2, wms_license_plate_numbers wlpn,
928: mtl_system_items_kfv msik
929: WHERE ml1.lookup_type(+)= 'WMS_TASK_TYPES' AND ml1.lookup_code(+) = wdr.task_type_id
930: AND ml2.lookup_type(+)='WMS_BUS_EVENT_TYPES'
959: wdr.lot_qty||l_seperator||
960: wdr.serial_number||l_seperator||wdr.status_msg||l_seperator||wdr.last_update_date
961: CSV_LINE
962: FROM wms_device_requests wdr, mfg_lookups ml1, mfg_lookups ml2,
963: wms_devices_vl wd, mtl_parameters mp1, mtl_item_locations_kfv milk1,
964: mtl_parameters mp2, mtl_item_locations_kfv milk2, wms_license_plate_numbers wlpn,
965: mtl_system_items_kfv msik
966: WHERE ml1.lookup_type(+) = 'WMS_TASK_TYPES' AND ml1.lookup_code(+) = wdr.task_type_id
967: AND ml2.lookup_type(+)='WMS_BUS_EVENT_TYPES'
1004: END IF;
1005: BEGIN
1006: SELECT rtrim(out_directory,'/'), out_file_prefix, nvl(LOT_SERIAL_CAPABLE, 'N'), name
1007: INTO l_file_dir, l_file_prefix, l_lot_serial_enabled, l_dev_name
1008: FROM wms_devices
1009: WHERE device_id = p_device_id;
1010:
1011: SELECT request_id INTO l_seq_id
1012: FROM wms_device_requests
1750: -- consider this record for further processing
1751: if (l_seldev <> 0) then
1752: select Nvl(lot_serial_capable,'N')
1753: into l_lot_ser_ok
1754: from WMS_DEVICES_B
1755: where device_id = l_seldev;
1756: -- If Details enabled for device, retrieve the Lot/Serialdetails
1757: IF (l_lot_ser_ok = 'Y') THEN
1758: retrieve_Lot_Serial_Details(l_wdr, x_return_status);
1780: -- update the request records' RELATION_ID with the parent_request_id
1781: IF(p_bus_event in (wms_be_task_complete, wms_be_task_skip, wms_be_task_cancel)) THEN
1782: select nvl(notification_flag, 'N')
1783: into l_notification_flag
1784: from WMS_DEVICES_B
1785: where device_id = l_cur_dev.device_id;
1786:
1787: IF (l_debug = 1) THEN
1788: trace('Event is task complete/skip/cancel, check whether need to update relation_id, notification_flag='||l_notification_flag);
1811: END IF;
1812:
1813: select d.OUTPUT_METHOD_ID, p.WCS_ENABLED
1814: into l_deviotype, l_wcs_enabled
1815: from WMS_DEVICES_B d, mtl_parameters p
1816: where d.device_id = l_cur_dev.device_id
1817: and p.organization_id = d.organization_id;
1818:
1819:
2285: -- consider this record for further processing
2286: if (l_seldev <> 0) then
2287: select Nvl(lot_serial_capable,'N')
2288: into l_lot_ser_ok
2289: from WMS_DEVICES_B
2290: where device_id = l_seldev;
2291: -- If Details enabled for device, retrieve the Lot/Serialdetails
2292: IF (l_lot_ser_ok = 'Y') THEN
2293: retrieve_Lot_Serial_Details(l_wdr, x_return_status);
2315: -- update the request records' RELATION_ID with the parent_request_id
2316: IF(p_bus_event in (wms_be_task_complete, wms_be_task_skip, wms_be_task_cancel)) THEN
2317: select nvl(notification_flag, 'N')
2318: into l_notification_flag
2319: from WMS_DEVICES_B
2320: where device_id = l_cur_dev.device_id;
2321:
2322: IF (l_debug = 1) THEN
2323: trace('Event is task complete/skip/cancel, check whether need to update relation_id, notification_flag='||l_notification_flag);
2346: END IF;
2347:
2348: select d.OUTPUT_METHOD_ID, p.WCS_ENABLED
2349: into l_deviotype, l_wcs_enabled
2350: from WMS_DEVICES_B d, mtl_parameters p
2351: where d.device_id = l_cur_dev.device_id
2352: and p.organization_id = d.organization_id;
2353:
2354:
2702: BEGIN
2703: --Check whether any device exist
2704: SELECT 1 INTO l_device_cnt FROM DUAL WHERE exists
2705: (SELECT 1
2706: FROM wms_devices_b
2707: WHERE ORGANIZATION_ID= p_org_id);
2708: EXCEPTION
2709: WHEN NO_DATA_FOUND THEN
2710: l_device_cnt:=0;