[Home] [Help]
PACKAGE BODY: APPS.AD_TRACKABLE_ENTITIES_PKG
Source
1 PACKAGE BODY AD_TRACKABLE_ENTITIES_PKG AS
2 -- $Header: adcodlinb.pls 120.3 2006/03/10 08:08:26 rahkumar noship $
3
4 PROCEDURE validate_name( p_te IN VARCHAR2) is
5 l_te varchar2(30);
6 BEGIN
7 l_te := p_te;
8 END validate_name;
9
10 PROCEDURE validate_level( p_level IN VARCHAR2) is
11 l_levl varchar2(30);
12 BEGIN
13 l_levl := p_level;
14 END validate_level;
15
16 PROCEDURE create_te ( p_trackable_entity_name IN VARCHAR2 ,
17 P_desc IN VARCHAR2,
18 p_type IN VARCHAR2,
19 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 ) is
20 BEGIN
21 validate_name(p_trackable_entity_name);
22 validate_name(p_type);
23
24 insert into AD_TRACKABLE_ENTITIES (
25 abbreviation, name, type, baseline, codelevel,
26 used_flag, load_flag)
27 values ( p_trackable_entity_name, p_desc, p_type, '0', '0',
28 'F' ,'F' );
29
30 COMMIT;
31 x_status := 'TRUE';
32
33 EXCEPTION
34 WHEN OTHERS THEN
35 x_status := 'FALSE';
36 RAISE;
37
38 END create_te;
39
40 PROCEDURE get_code_level (
41 p_trackable_entity_name IN VARCHAR2,
42 x_te_level OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
43 x_baseline OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
44 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
45 BEGIN
46 validate_name(p_trackable_entity_name);
47 -- Select the details of the event for the passed parameters.
48
49 select baseline, codelevel
50 into x_baseline, x_te_level
51 from AD_TRACKABLE_ENTITIES
52 where abbreviation = p_trackable_entity_name;
53
54 x_status := 'TRUE';
55
56 EXCEPTION
57 WHEN NO_DATA_FOUND THEN
58 x_status := 'FALSE';
59 WHEN OTHERS THEN
60 x_status := 'FALSE';
61 RAISE;
62
63 END get_code_level;
64
65
66 PROCEDURE set_code_level (
67 p_trackable_entity_name IN VARCHAR2,
68 p_te_level IN VARCHAR2,
69 p_baseline IN VARCHAR2,
70 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
71 BEGIN
72 validate_name(p_trackable_entity_name);
73 validate_level(p_te_level);
74 validate_level(p_baseline);
75
76 update AD_TRACKABLE_ENTITIES
77 set codelevel = p_te_level ,
78 baseline = p_baseline
79 where abbreviation = p_trackable_entity_name;
80
81 if(SQL%ROWCOUNT = 0) then
82 x_status := 'FALSE';
83 else
84 x_status := 'TRUE';
85 end if;
86
87 COMMIT;
88 EXCEPTION
89 WHEN OTHERS THEN
90 x_status := 'FALSE';
91 RAISE;
92
93 END set_code_level;
94
95
96 PROCEDURE get_used_status (
97 p_trackable_entity_name IN VARCHAR2,
98 x_used_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
99 x_te_level OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
100 x_baseline OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
101 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
102 BEGIN
103 validate_name(p_trackable_entity_name);
104
105 select baseline, codelevel, used_flag
106 into x_baseline, x_te_level, x_used_status
107 from AD_TRACKABLE_ENTITIES
108 where abbreviation = p_trackable_entity_name;
109
110 x_status := 'TRUE';
111
112 EXCEPTION
113 WHEN NO_DATA_FOUND THEN
114 x_status := 'FALSE';
115 WHEN OTHERS THEN
116 x_status := 'FALSE';
117 RAISE;
118
119 END get_used_status;
120
121
122 PROCEDURE set_used_status (
123 p_trackable_entity_name IN VARCHAR2,
124 p_used_status IN VARCHAR2,
125 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
126 BEGIN
127 validate_name(p_trackable_entity_name);
128
129 update AD_TRACKABLE_ENTITIES
130 set used_flag = p_used_status
131 where abbreviation = p_trackable_entity_name;
132
133 if(SQL%ROWCOUNT = 0) then
134 x_status := 'FALSE';
135 else
136 x_status := 'TRUE';
137 end if;
138
139 COMMIT;
140
141 EXCEPTION
142 WHEN OTHERS THEN
143 x_status := 'FALSE';
144 RAISE;
145
146 END set_used_status;
147
148 PROCEDURE get_load_status (
149 p_trackable_entity_name IN VARCHAR2,
150 x_load_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
151 x_te_level OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
152 x_baseline OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
153 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
154 BEGIN
155 validate_name(p_trackable_entity_name);
156
157 select baseline, codelevel, load_flag
158 into x_baseline, x_te_level, x_load_status
159 from AD_TRACKABLE_ENTITIES
160 where abbreviation = p_trackable_entity_name;
161
162 x_status := 'TRUE';
163
164 EXCEPTION
165 WHEN NO_DATA_FOUND THEN
166 x_status := 'FALSE';
167 WHEN OTHERS THEN
168 x_status := 'FALSE';
169 RAISE;
170
171 END get_load_status;
172
173 PROCEDURE set_load_status (
174 p_trackable_entity_name IN VARCHAR2,
175 p_load_status IN VARCHAR2,
176 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
177 BEGIN
178 validate_name(p_trackable_entity_name);
179
180 update AD_TRACKABLE_ENTITIES
181 set load_flag = p_load_status
182 where abbreviation = p_trackable_entity_name;
183
184 COMMIT;
185
186 if(SQL%ROWCOUNT = 0) then
187 x_status := 'FALSE';
188 else
189 x_status := 'TRUE';
190 end if;
191
192
193 EXCEPTION
194 WHEN OTHERS THEN
195 x_status := 'FALSE';
196 RAISE;
197
198 END set_load_status;
199
200 PROCEDURE get_te_info (
201 p_trackable_entity_name IN VARCHAR2,
202 x_desc OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
203 x_type OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
204 x_te_level OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
205 x_baseline OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
206 x_used_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
207 x_load_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
208 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
209 BEGIN
210 validate_name(p_trackable_entity_name);
211
212 select name, type, baseline, codelevel, used_flag, load_flag
213 into x_desc, x_type, x_baseline, x_te_level, x_used_status, x_load_status
214 from AD_TRACKABLE_ENTITIES
215 where abbreviation = p_trackable_entity_name;
216
217 x_status := 'TRUE';
218
219 EXCEPTION
220 WHEN NO_DATA_FOUND THEN
221 x_status := 'FALSE';
222 RAISE;
223 WHEN OTHERS THEN
224 x_status := 'FALSE';
225 RAISE;
226
227 END get_te_info;
228
229 PROCEDURE set_te_info (
230 p_trackable_entity_name IN VARCHAR2,
231 p_trackable_entity_desc IN VARCHAR2,
232 p_type IN VARCHAR2,
233 p_te_level IN VARCHAR2,
234 p_baseline IN VARCHAR2,
235 p_used_status IN VARCHAR2,
236 p_load_status IN VARCHAR2,
237 x_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
238 BEGIN
239 validate_name(p_trackable_entity_name);
240
241 UPDATE AD_TRACKABLE_ENTITIES
242 set name = p_trackable_entity_desc,
243 type = p_type,
244 baseline = p_baseline,
245 codelevel = p_te_level,
246 used_flag = p_used_status,
247 load_flag = p_load_status
248 where abbreviation = p_trackable_entity_name;
249
250 if(SQL%ROWCOUNT = 0) then
251 insert into AD_TRACKABLE_ENTITIES
252 (abbreviation, name, type, baseline, codelevel, used_flag, load_flag)
253 values (p_trackable_entity_name, p_trackable_entity_desc, p_type, p_te_level,
254 p_baseline, p_used_status, p_load_status);
255 end if;
256
257 COMMIT;
258 x_status := 'TRUE';
259
260 EXCEPTION
261 WHEN OTHERS THEN
262 x_status := 'FALSE';
263 RAISE;
264
265 END set_te_info;
266
267
268
269 END AD_TRACKABLE_ENTITIES_PKG;