[Home] [Help]
29: p_sequence_id IN NUMBER DEFAULT NULL
30: )
31: IS
32: SELECT CONFIG_VALUE
33: FROM wms_carousel_configuration
34: WHERE CONFIG_NAME = p_name
35: AND NVL (sequence_id, 0) = NVL (p_sequence_id, 0)
36: AND active_ind = 'Y';
37: BEGIN
144:
145: -- Obtain total object count
146: SELECT MAX (sequence_id)
147: INTO v_object_count
148: FROM wms_carousel_configuration
149: WHERE CONFIG_NAME = 'DIAG_OBJECT_NAME';
150:
151: -- Obtain version key parameter
152: v_version_key :=
330:
331: -- Obtain total object count
332: SELECT MAX (sequence_id)
333: INTO v_privilege_count
334: FROM wms_carousel_configuration
335: WHERE CONFIG_NAME = 'DIAG_PRIVILEGE_OBJECT';
336:
337: -- Check all objects
338: FOR i IN 1 .. v_privilege_count
514:
515: CURSOR c_configuration
516: IS
517: SELECT *
518: FROM wms_carousel_configuration
519: WHERE CONFIG_NAME <> 'DIAG_CONFIG_HASH_VALUE';
520: BEGIN
521: -- Calculate the hash value
522: FOR v_row IN c_configuration
554: -- Calculate the hash value
555: v_calc_hash_value := calculate_config_hash_value;
556:
557: -- Update
558: UPDATE wms_carousel_configuration
559: SET CONFIG_VALUE = v_calc_hash_value
560: WHERE CONFIG_NAME = 'DIAG_CONFIG_HASH_VALUE' AND active_ind = 'Y';
561:
562: -- Commit
628: IS
629: v_statement VARCHAR2 (1024);
630: v_statement1 VARCHAR2 (1024);
631: v_insert VARCHAR2 (10240);
632: v_row wms.wms_carousel_configuration%ROWTYPE;
633:
634: TYPE my_curs_type IS REF CURSOR; -- must be weakly typed
635:
636: c_config my_curs_type;
645: || ' and zones '
646: || p_zones
647: );
648: DBMS_OUTPUT.put_line ('set scan off;');
649: DBMS_OUTPUT.put_line ('delete from wms_carousel_configuration;');
650: -- Build dynamic SQL
651: v_statement :=
652: 'select * from wms.wms_carousel_configuration where (1 = 0 ';
653:
648: DBMS_OUTPUT.put_line ('set scan off;');
649: DBMS_OUTPUT.put_line ('delete from wms_carousel_configuration;');
650: -- Build dynamic SQL
651: v_statement :=
652: 'select * from wms.wms_carousel_configuration where (1 = 0 ';
653:
654: IF p_device_type_ids <> '*'
655: THEN
656: v_statement :=
689: FETCH c_config
690: INTO v_row;
691:
692: EXIT WHEN c_config%NOTFOUND;
693: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
694: DBMS_OUTPUT.put_line
695: (' (name, device_type_id, sequence_id, zone, active_ind, value)'
696: );
697: DBMS_OUTPUT.put_line ('values');
792:
793: CLOSE c_config;
794:
795: -- Add hash value parameter
796: DBMS_OUTPUT.put_line ('insert into wms_carousel_configuration');
797: DBMS_OUTPUT.put_line (' (name, value)');
798: DBMS_OUTPUT.put_line ('values');
799: DBMS_OUTPUT.put_line ( ' (''DIAG_CONFIG_HASH_VALUE'','
800: || v_calc_hash_value
821: -- Cursor for receive pipes
822: CURSOR c_receive_pipes
823: IS
824: SELECT *
825: FROM wms_carousel_configuration
826: WHERE CONFIG_NAME = 'RECEIVE_PIPE' AND active_ind = 'Y';
827:
828: CURSOR c_zone_job (p_zone IN VARCHAR2)
829: IS
1037: COMMIT;
1038: -- Update to simulation mode
1039: LOG ('Changing zone ' || p_zone || ' to simulation mode');
1040:
1041: UPDATE wms_carousel_configuration
1042: SET CONFIG_VALUE = 'ON'
1043: WHERE CONFIG_NAME = 'SIMULATION_MODE'
1044: AND (device_type_id = p_device_type_id OR device_type_id IS NULL)
1045: AND (SUBINVENTORY = p_zone OR SUBINVENTORY IS NULL);
1099:
1100: -- Update to non-simulation mode
1101: LOG ('Switching off simulation in zone ' || p_zone);
1102:
1103: UPDATE wms_carousel_configuration
1104: SET CONFIG_VALUE = 'OFF'
1105: WHERE CONFIG_NAME = 'SIMULATION_MODE'
1106: AND (device_type_id = p_device_type_id OR device_type_id IS NULL)
1107: AND (SUBINVENTORY = p_zone OR SUBINVENTORY IS NULL);