[Home] [Help]
PACKAGE BODY: APPS.CZ_QC_MGR
Source
1 package body CZ_QC_MGR as
2 /* $Header: czqcmgrb.pls 120.1 2007/02/09 12:17:50 lkattamu ship $ */
3
4 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
5 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
6
7 procedure ASSESS_DATA is
8 begin
9 null;
10 end;
11
12
13 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
14 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
15
16 procedure REDO_STATISTICS is
17 begin
18 CZ_BASE_MGR.REDO_STATISTICS('QC');
19 end;
20
21 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
22 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
23
24 procedure TRIGGERS_ENABLED
25 (Switch in varchar2) is
26 begin
27 CZ_BASE_MGR.TRIGGERS_ENABLED('QC',Switch);
28 end;
29
30 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
31 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
32
33 procedure CONSTRAINTS_ENABLED
34 (Switch in varchar2) is
35 begin
36 CZ_BASE_MGR.CONSTRAINTS_ENABLED('QC',Switch);
37 end;
38
39 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
40 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
41
42 procedure REDO_SEQUENCES
43 (RedoStart_Flag in varchar2,
44 incr in integer default null) is
45 begin
46 CZ_BASE_MGR.REDO_SEQUENCES('QC',RedoStart_Flag,incr);
47 end;
48
49 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
50 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
51
52 PROCEDURE Propogate_DeletedFlag IS
53 TYPE t_arr IS TABLE OF INTEGER INDEX BY BINARY_INTEGER;
54 t_cfg_id t_arr;
55 t_cfg_nbr t_arr;
56 BEGIN
57
58 SELECT config_hdr_id,config_rev_nbr
59 BULK COLLECT INTO t_cfg_id,t_cfg_nbr
60 FROM CZ_CONFIG_HDRS WHERE deleted_flag='1';
61
62 IF t_cfg_id.Count>0 THEN
63
64 FORALL i IN t_cfg_id.First..t_cfg_id.Last
65 UPDATE CZ_CONFIG_EXT_ATTRIBUTES
66 SET deleted_flag='1'
67 WHERE config_hdr_id=t_cfg_id(i) AND config_rev_nbr=t_cfg_nbr(i)
68 AND deleted_flag='0';
69 COMMIT;
70
71 FORALL i IN t_cfg_id.First..t_cfg_id.Last
72 UPDATE CZ_CONFIG_ATTRIBUTES
73 SET deleted_flag='1'
74 WHERE config_hdr_id=t_cfg_id(i) AND config_rev_nbr=t_cfg_nbr(i)
75 AND deleted_flag='0';
76 COMMIT;
77
78 FORALL i IN t_cfg_id.First..t_cfg_id.Last
79 UPDATE CZ_CONFIG_ITEMS
80 SET deleted_flag='1'
81 WHERE config_hdr_id=t_cfg_id(i) AND config_rev_nbr=t_cfg_nbr(i)
82 AND deleted_flag='0';
83 COMMIT;
84
85 FORALL i IN t_cfg_id.First..t_cfg_id.Last
86 UPDATE CZ_CONFIG_INPUTS
87 SET deleted_flag='1'
88 WHERE config_hdr_id=t_cfg_id(i) AND config_rev_nbr=t_cfg_nbr(i)
89 AND deleted_flag='0';
90 COMMIT;
91
92 FORALL i IN t_cfg_id.First..t_cfg_id.Last
93 UPDATE CZ_CONFIG_MESSAGES
94 SET deleted_flag='1'
95 WHERE config_hdr_id=t_cfg_id(i) AND config_rev_nbr=t_cfg_nbr(i)
96 AND deleted_flag='0';
97 COMMIT;
98
99 END IF;
100 END;
101
102 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
103 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
104
105 PROCEDURE PURGE IS
106 TYPE t_arr IS TABLE OF INTEGER INDEX BY BINARY_INTEGER;
107 t_cfg_id t_arr;
108 t_cfg_nbr t_arr;
109 l_usage_exists NUMBER;
110 l_error_message VARCHAR2(2000);
111 l_Return_value NUMBER;
112 l_log_return_value BOOLEAN;
113 PurgeDeleteConfigBatchsize NUMBER;
114 CURSOR cur_configs IS
115 SELECT config_hdr_id, config_rev_nbr
116 FROM cz_config_hdrs
117 WHERE (to_be_deleted_flag = '1'
118 OR deleted_flag = '1') and
119 component_instance_type = 'R';
120 BEGIN
121 BEGIN
122 SELECT value
123 INTO PurgeDeleteConfigBatchsize
124 FROM cz_db_settings
125 WHERE setting_id = 'PurgeDeleteConfigBatchsize';
126 EXCEPTION
127 WHEN NO_DATA_FOUND THEN
128 PurgeDeleteConfigBatchsize := 100;
129 END;
130 OPEN cur_configs;
131 LOOP
132 FETCH cur_configs
133 BULK COLLECT INTO t_cfg_id, t_cfg_nbr LIMIT PurgeDeleteConfigBatchsize;
134 EXIT WHEN ((cur_configs%NOTFOUND) AND (t_cfg_id.COUNT = 0));
135 IF (t_cfg_id.COUNT > 0) THEN
136 FOR i IN t_cfg_id.FIRST..t_cfg_id.LAST LOOP
137 cz_cf_api.delete_configuration (
138 t_cfg_id(i),
139 t_cfg_nbr(i),
140 l_usage_exists,
141 l_error_message,
142 l_Return_value
143 );
144 IF (l_Return_value <> 1) THEN
145 l_log_return_value := CZ_UTILS.LOG_REPORT(l_error_message,1,'CZ_QC_MGR.PURGE',11276);
146 END IF;
147 END LOOP;
148 END IF;
149 COMMIT;
150 END LOOP;
151 CLOSE cur_configs;
152 END;
153
154 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
155 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
156
157 procedure RESET_CLEAR is
158 begin
159 null;
160 end;
161
162 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
163 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
164
165 procedure MODIFIED
166 (AS_OF in OUT NOCOPY date) is
167 begin
168 CZ_BASE_MGR.MODIFIED('QC',AS_OF);
169 end;
170
171 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
172 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/
173
174 end;