[Home] [Help]
PACKAGE BODY: APPS.PER_QH_SUMMARY_UPDATE
Source
1 PACKAGE BODY per_qh_summary_update as
2 /* $Header: peqhsumi.pkb 115.6 2003/05/14 12:48:58 adhunter noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' per_qh_summary_update.';
7 --
8 procedure update_summary_data
9 (p_effective_date in date
10 ,p_person_id in per_all_people_f.person_id%type
11 ,p_chk1_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
12 ,p_chk1_item_code in per_checklist_items.item_code%type
13 ,p_chk1_date_due in per_checklist_items.date_due%type
14 ,p_chk1_date_done in per_checklist_items.date_done%type
15 ,p_chk1_status in per_checklist_items.status%type
16 ,p_chk1_notes in per_checklist_items.notes%type
17 ,p_chk1_object_version_number in out nocopy per_checklist_items.object_version_number%type
18 ,p_chk2_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
19 ,p_chk2_item_code in per_checklist_items.item_code%type
20 ,p_chk2_date_due in per_checklist_items.date_due%type
21 ,p_chk2_date_done in per_checklist_items.date_done%type
22 ,p_chk2_status in per_checklist_items.status%type
23 ,p_chk2_notes in per_checklist_items.notes%type
24 ,p_chk2_object_version_number in out nocopy per_checklist_items.object_version_number%type
25 ,p_chk3_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
26 ,p_chk3_item_code in per_checklist_items.item_code%type
27 ,p_chk3_date_due in per_checklist_items.date_due%type
28 ,p_chk3_date_done in per_checklist_items.date_done%type
29 ,p_chk3_status in per_checklist_items.status%type
30 ,p_chk3_notes in per_checklist_items.notes%type
31 ,p_chk3_object_version_number in out nocopy per_checklist_items.object_version_number%type
32 ,p_chk4_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
33 ,p_chk4_item_code in per_checklist_items.item_code%type
34 ,p_chk4_date_due in per_checklist_items.date_due%type
35 ,p_chk4_date_done in per_checklist_items.date_done%type
36 ,p_chk4_status in per_checklist_items.status%type
37 ,p_chk4_notes in per_checklist_items.notes%type
38 ,p_chk4_object_version_number in out nocopy per_checklist_items.object_version_number%type
39 ,p_chk5_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
40 ,p_chk5_item_code in per_checklist_items.item_code%type
41 ,p_chk5_date_due in per_checklist_items.date_due%type
42 ,p_chk5_date_done in per_checklist_items.date_done%type
43 ,p_chk5_status in per_checklist_items.status%type
44 ,p_chk5_notes in per_checklist_items.notes%type
45 ,p_chk5_object_version_number in out nocopy per_checklist_items.object_version_number%type
46 ,p_chk6_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
47 ,p_chk6_item_code in per_checklist_items.item_code%type
48 ,p_chk6_date_due in per_checklist_items.date_due%type
49 ,p_chk6_date_done in per_checklist_items.date_done%type
50 ,p_chk6_status in per_checklist_items.status%type
51 ,p_chk6_notes in per_checklist_items.notes%type
52 ,p_chk6_object_version_number in out nocopy per_checklist_items.object_version_number%type
53 ,p_chk7_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
54 ,p_chk7_item_code in per_checklist_items.item_code%type
55 ,p_chk7_date_due in per_checklist_items.date_due%type
56 ,p_chk7_date_done in per_checklist_items.date_done%type
57 ,p_chk7_status in per_checklist_items.status%type
58 ,p_chk7_notes in per_checklist_items.notes%type
59 ,p_chk7_object_version_number in out nocopy per_checklist_items.object_version_number%type
60 ,p_chk8_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
61 ,p_chk8_item_code in per_checklist_items.item_code%type
62 ,p_chk8_date_due in per_checklist_items.date_due%type
63 ,p_chk8_date_done in per_checklist_items.date_done%type
64 ,p_chk8_status in per_checklist_items.status%type
65 ,p_chk8_notes in per_checklist_items.notes%type
66 ,p_chk8_object_version_number in out nocopy per_checklist_items.object_version_number%type
67 ,p_chk9_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
68 ,p_chk9_item_code in per_checklist_items.item_code%type
69 ,p_chk9_date_due in per_checklist_items.date_due%type
70 ,p_chk9_date_done in per_checklist_items.date_done%type
71 ,p_chk9_status in per_checklist_items.status%type
72 ,p_chk9_notes in per_checklist_items.notes%type
73 ,p_chk9_object_version_number in out nocopy per_checklist_items.object_version_number%type
74 ,p_chk10_checklist_item_id in out nocopy per_checklist_items.checklist_item_id%type
75 ,p_chk10_item_code in per_checklist_items.item_code%type
76 ,p_chk10_date_due in per_checklist_items.date_due%type
77 ,p_chk10_date_done in per_checklist_items.date_done%type
78 ,p_chk10_status in per_checklist_items.status%type
79 ,p_chk10_notes in per_checklist_items.notes%type
80 ,p_chk10_object_version_number in out nocopy per_checklist_items.object_version_number%type
81 ) is
82 --
83 l_checklist_item_id per_checklist_items.checklist_item_id%type;
84 l_chk_object_version_number per_checklist_items.object_version_number%type;
85 l_proc varchar2(72) := g_package||'update_summary_data';
86 --
87 begin
88 --
89 hr_utility.set_location('Entering'||l_proc, 10);
90 --
91 per_qh_summary_update.lock_summary_data
92 (p_chk1_checklist_item_id => p_chk1_checklist_item_id
93 ,p_chk1_object_version_number => p_chk1_object_version_number
94 ,p_chk2_checklist_item_id => p_chk2_checklist_item_id
95 ,p_chk2_object_version_number => p_chk2_object_version_number
96 ,p_chk3_checklist_item_id => p_chk3_checklist_item_id
97 ,p_chk3_object_version_number => p_chk3_object_version_number
98 ,p_chk4_checklist_item_id => p_chk4_checklist_item_id
99 ,p_chk4_object_version_number => p_chk4_object_version_number
100 ,p_chk5_checklist_item_id => p_chk5_checklist_item_id
101 ,p_chk5_object_version_number => p_chk5_object_version_number
102 ,p_chk6_checklist_item_id => p_chk6_checklist_item_id
103 ,p_chk6_object_version_number => p_chk6_object_version_number
104 ,p_chk7_checklist_item_id => p_chk7_checklist_item_id
105 ,p_chk7_object_version_number => p_chk7_object_version_number
106 ,p_chk8_checklist_item_id => p_chk8_checklist_item_id
107 ,p_chk8_object_version_number => p_chk8_object_version_number
108 ,p_chk9_checklist_item_id => p_chk9_checklist_item_id
109 ,p_chk9_object_version_number => p_chk9_object_version_number
110 ,p_chk10_checklist_item_id => p_chk10_checklist_item_id
111 ,p_chk10_object_version_number => p_chk10_object_version_number
112 );
113 --
114 l_checklist_item_id:=p_chk1_checklist_item_id;
115 l_chk_object_version_number:= p_chk1_object_version_number;
116 --
117 hr_utility.set_location(l_proc, 20);
118 --
119 if (l_checklist_item_id is null and
120 p_chk1_item_code is not null and
121 ( p_chk1_status is not null
122 or p_chk1_date_due is not null
123 or p_chk1_date_done is not null
124 or p_chk1_notes is not null)) or
125 (l_checklist_item_id is not null and
126 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
127 <> nvl(p_chk1_date_due,hr_api.g_date)
128 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
129 <> nvl(p_chk1_date_done,hr_api.g_date)
130 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
131 <> nvl(p_chk1_status,hr_api.g_varchar2)
132 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
133 <> nvl(p_chk1_notes,hr_api.g_varchar2))) then
134 --
135 hr_utility.set_location(l_proc, 30);
136 --
137 per_checklist_items_api.cre_or_upd_checklist_items
138 (p_checklist_item_id => l_checklist_item_id
139 ,p_effective_date => p_effective_date
140 ,p_object_version_number => l_chk_object_version_number
141 ,p_person_id => p_person_id
142 ,p_item_code => p_chk1_item_code
143 ,p_date_due => p_chk1_date_due
144 ,p_date_done => p_chk1_date_done
145 ,p_status => p_chk1_status
146 ,p_notes => p_chk1_notes
147 );
148 end if;
149 p_chk1_checklist_item_id:=l_checklist_item_id;
150 p_chk1_object_version_number:=l_chk_object_version_number;
151 --
152 l_checklist_item_id:=p_chk2_checklist_item_id;
153 l_chk_object_version_number:= p_chk2_object_version_number;
154 --
155 hr_utility.set_location(l_proc, 40);
156 --
157 if (l_checklist_item_id is null and
158 p_chk2_item_code is not null and
159 ( p_chk2_status is not null
160 or p_chk2_date_due is not null
161 or p_chk2_date_done is not null
162 or p_chk2_notes is not null)) or
163 (l_checklist_item_id is not null and
164 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
165 <> nvl(p_chk2_date_due,hr_api.g_date)
166 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
167 <> nvl(p_chk2_date_done,hr_api.g_date)
168 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
169 <> nvl(p_chk2_status,hr_api.g_varchar2)
170 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
171 <> nvl(p_chk2_notes,hr_api.g_varchar2))) then
172 --
173 hr_utility.set_location(l_proc, 50);
174 --
175 per_checklist_items_api.cre_or_upd_checklist_items
176 (p_checklist_item_id => l_checklist_item_id
177 ,p_effective_date => p_effective_date
178 ,p_object_version_number => l_chk_object_version_number
179 ,p_person_id => p_person_id
180 ,p_item_code => p_chk2_item_code
181 ,p_date_due => p_chk2_date_due
182 ,p_date_done => p_chk2_date_done
183 ,p_status => p_chk2_status
184 ,p_notes => p_chk2_notes
185 );
186 end if;
187 p_chk2_checklist_item_id:=l_checklist_item_id;
188 p_chk2_object_version_number:=l_chk_object_version_number;
189 --
190 l_checklist_item_id:=p_chk3_checklist_item_id;
191 l_chk_object_version_number:= p_chk3_object_version_number;
192 hr_utility.set_location(l_proc, 60);
193 --
194 --
195 if (l_checklist_item_id is null and
196 p_chk3_item_code is not null and
197 ( p_chk3_status is not null
198 or p_chk3_date_due is not null
199 or p_chk3_date_done is not null
200 or p_chk3_notes is not null)) or
201 (l_checklist_item_id is not null and
202 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
203 <> nvl(p_chk3_date_due,hr_api.g_date)
204 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
205 <> nvl(p_chk3_date_done,hr_api.g_date)
206 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
207 <> nvl(p_chk3_status,hr_api.g_varchar2)
208 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
209 <> nvl(p_chk3_notes,hr_api.g_varchar2))) then
210 --
211 hr_utility.set_location(l_proc, 70);
212 --
213 per_checklist_items_api.cre_or_upd_checklist_items
214 (p_checklist_item_id => l_checklist_item_id
215 ,p_effective_date => p_effective_date
216 ,p_object_version_number => l_chk_object_version_number
217 ,p_person_id => p_person_id
218 ,p_item_code => p_chk3_item_code
219 ,p_date_due => p_chk3_date_due
220 ,p_date_done => p_chk3_date_done
221 ,p_status => p_chk3_status
222 ,p_notes => p_chk3_notes
223 );
224 end if;
225 p_chk3_checklist_item_id:=l_checklist_item_id;
226 p_chk3_object_version_number:=l_chk_object_version_number;
227 --
228 l_checklist_item_id:=p_chk4_checklist_item_id;
229 l_chk_object_version_number:= p_chk4_object_version_number;
230 --
231 hr_utility.set_location(l_proc, 80);
232 --
233 if (l_checklist_item_id is null and
234 p_chk4_item_code is not null and
235 ( p_chk4_status is not null
236 or p_chk4_date_due is not null
237 or p_chk4_date_done is not null
238 or p_chk4_notes is not null)) or
239 (l_checklist_item_id is not null and
240 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
241 <> nvl(p_chk4_date_due,hr_api.g_date)
242 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
243 <> nvl(p_chk4_date_done,hr_api.g_date)
244 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
245 <> nvl(p_chk4_status,hr_api.g_varchar2)
246 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
247 <> nvl(p_chk4_notes,hr_api.g_varchar2))) then
248 --
249 hr_utility.set_location(l_proc, 90);
250 --
251 per_checklist_items_api.cre_or_upd_checklist_items
252 (p_checklist_item_id => l_checklist_item_id
253 ,p_effective_date => p_effective_date
254 ,p_object_version_number => l_chk_object_version_number
255 ,p_person_id => p_person_id
256 ,p_item_code => p_chk4_item_code
257 ,p_date_due => p_chk4_date_due
258 ,p_date_done => p_chk4_date_done
259 ,p_status => p_chk4_status
260 ,p_notes => p_chk4_notes
261 );
262 end if;
263 p_chk4_checklist_item_id:=l_checklist_item_id;
264 p_chk4_object_version_number:=l_chk_object_version_number;
265 --
266 l_checklist_item_id:=p_chk5_checklist_item_id;
267 l_chk_object_version_number:= p_chk5_object_version_number;
268 --
269 hr_utility.set_location(l_proc, 100);
270 --
271 if (l_checklist_item_id is null and
272 p_chk5_item_code is not null and
273 ( p_chk5_status is not null
274 or p_chk5_date_due is not null
275 or p_chk5_date_done is not null
276 or p_chk5_notes is not null)) or
277 (l_checklist_item_id is not null and
278 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
279 <> nvl(p_chk5_date_due,hr_api.g_date)
280 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
281 <> nvl(p_chk5_date_done,hr_api.g_date)
282 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
283 <> nvl(p_chk5_status,hr_api.g_varchar2)
284 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
285 <> nvl(p_chk5_notes,hr_api.g_varchar2))) then
286 --
287 hr_utility.set_location(l_proc, 110);
288 --
289 per_checklist_items_api.cre_or_upd_checklist_items
290 (p_checklist_item_id => l_checklist_item_id
291 ,p_effective_date => p_effective_date
292 ,p_object_version_number => l_chk_object_version_number
293 ,p_person_id => p_person_id
294 ,p_item_code => p_chk5_item_code
295 ,p_date_due => p_chk5_date_due
296 ,p_date_done => p_chk5_date_done
297 ,p_status => p_chk5_status
298 ,p_notes => p_chk5_notes
299 );
300 end if;
301 p_chk5_checklist_item_id:=l_checklist_item_id;
302 p_chk5_object_version_number:=l_chk_object_version_number;
303 --
304 l_checklist_item_id:=p_chk6_checklist_item_id;
305 l_chk_object_version_number:= p_chk6_object_version_number;
306 --
307 hr_utility.set_location(l_proc, 120);
308 --
309 if (l_checklist_item_id is null and
310 p_chk6_item_code is not null and
311 ( p_chk6_status is not null
312 or p_chk6_date_due is not null
313 or p_chk6_date_done is not null
314 or p_chk6_notes is not null)) or
315 (l_checklist_item_id is not null and
316 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
317 <> nvl(p_chk6_date_due,hr_api.g_date)
318 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
319 <> nvl(p_chk6_date_done,hr_api.g_date)
320 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
321 <> nvl(p_chk6_status,hr_api.g_varchar2)
322 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
323 <> nvl(p_chk6_notes,hr_api.g_varchar2))) then
324 --
325 hr_utility.set_location(l_proc, 130);
326 --
327 per_checklist_items_api.cre_or_upd_checklist_items
328 (p_checklist_item_id => l_checklist_item_id
329 ,p_effective_date => p_effective_date
330 ,p_object_version_number => l_chk_object_version_number
331 ,p_person_id => p_person_id
332 ,p_item_code => p_chk6_item_code
333 ,p_date_due => p_chk6_date_due
334 ,p_date_done => p_chk6_date_done
335 ,p_status => p_chk6_status
336 ,p_notes => p_chk6_notes
337 );
338 end if;
339 p_chk6_checklist_item_id:=l_checklist_item_id;
340 p_chk6_object_version_number:=l_chk_object_version_number;
341 --
342 l_checklist_item_id:=p_chk7_checklist_item_id;
343 l_chk_object_version_number:= p_chk7_object_version_number;
344 --
345 hr_utility.set_location(l_proc, 140);
346 --
347 if (l_checklist_item_id is null and
348 p_chk7_item_code is not null and
349 ( p_chk7_status is not null
350 or p_chk7_date_due is not null
351 or p_chk7_date_done is not null
352 or p_chk7_notes is not null)) or
353 (l_checklist_item_id is not null and
354 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
355 <> nvl(p_chk7_date_due,hr_api.g_date)
356 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
357 <> nvl(p_chk7_date_done,hr_api.g_date)
358 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
359 <> nvl(p_chk7_status,hr_api.g_varchar2)
360 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
361 <> nvl(p_chk7_notes,hr_api.g_varchar2))) then
362 --
363 hr_utility.set_location(l_proc, 150);
364 --
365 per_checklist_items_api.cre_or_upd_checklist_items
366 (p_checklist_item_id => l_checklist_item_id
367 ,p_effective_date => p_effective_date
368 ,p_object_version_number => l_chk_object_version_number
369 ,p_person_id => p_person_id
370 ,p_item_code => p_chk7_item_code
371 ,p_date_due => p_chk7_date_due
372 ,p_date_done => p_chk7_date_done
373 ,p_status => p_chk7_status
374 ,p_notes => p_chk7_notes
375 );
376 end if;
377 p_chk7_checklist_item_id:=l_checklist_item_id;
378 p_chk7_object_version_number:=l_chk_object_version_number;
379 --
380 l_checklist_item_id:=p_chk8_checklist_item_id;
381 l_chk_object_version_number:= p_chk8_object_version_number;
382 --
383 hr_utility.set_location(l_proc, 160);
384 --
385 if (l_checklist_item_id is null and
386 p_chk8_item_code is not null and
387 ( p_chk8_status is not null
388 or p_chk8_date_due is not null
389 or p_chk8_date_done is not null
390 or p_chk8_notes is not null)) or
391 (l_checklist_item_id is not null and
392 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
393 <> nvl(p_chk8_date_due,hr_api.g_date)
394 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
395 <> nvl(p_chk8_date_done,hr_api.g_date)
396 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
397 <> nvl(p_chk8_status,hr_api.g_varchar2)
398 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
399 <> nvl(p_chk8_notes,hr_api.g_varchar2))) then
400 --
401 hr_utility.set_location(l_proc, 170);
402 --
403 per_checklist_items_api.cre_or_upd_checklist_items
404 (p_checklist_item_id => l_checklist_item_id
405 ,p_effective_date => p_effective_date
406 ,p_object_version_number => l_chk_object_version_number
407 ,p_person_id => p_person_id
408 ,p_item_code => p_chk8_item_code
409 ,p_date_due => p_chk8_date_due
410 ,p_date_done => p_chk8_date_done
411 ,p_status => p_chk8_status
412 ,p_notes => p_chk8_notes
413 );
414 end if;
415 p_chk8_checklist_item_id:=l_checklist_item_id;
416 p_chk8_object_version_number:=l_chk_object_version_number;
417 --
418 l_checklist_item_id:=p_chk9_checklist_item_id;
419 l_chk_object_version_number:= p_chk9_object_version_number;
420 --
421 hr_utility.set_location(l_proc, 180);
422 --
423 if (l_checklist_item_id is null and
424 p_chk9_item_code is not null and
425 ( p_chk9_status is not null
426 or p_chk9_date_due is not null
427 or p_chk9_date_done is not null
428 or p_chk9_notes is not null)) or
429 (l_checklist_item_id is not null and
430 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
431 <> nvl(p_chk9_date_due,hr_api.g_date)
432 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
433 <> nvl(p_chk9_date_done,hr_api.g_date)
434 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
435 <> nvl(p_chk9_status,hr_api.g_varchar2)
436 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
437 <> nvl(p_chk9_notes,hr_api.g_varchar2))) then
438 --
439 hr_utility.set_location(l_proc, 190);
440 --
441 per_checklist_items_api.cre_or_upd_checklist_items
442 (p_checklist_item_id => l_checklist_item_id
443 ,p_effective_date => p_effective_date
444 ,p_object_version_number => l_chk_object_version_number
445 ,p_person_id => p_person_id
446 ,p_item_code => p_chk9_item_code
447 ,p_date_due => p_chk9_date_due
448 ,p_date_done => p_chk9_date_done
449 ,p_status => p_chk9_status
450 ,p_notes => p_chk9_notes
451 );
452 end if;
453 p_chk9_checklist_item_id:=l_checklist_item_id;
454 p_chk9_object_version_number:=l_chk_object_version_number;
455 --
456 l_checklist_item_id:=p_chk10_checklist_item_id;
457 l_chk_object_version_number:= p_chk10_object_version_number;
458 --
459 hr_utility.set_location(l_proc, 200);
460 --
461 if (l_checklist_item_id is null and
462 p_chk10_item_code is not null and
463 ( p_chk10_status is not null
464 or p_chk10_date_due is not null
465 or p_chk10_date_done is not null
466 or p_chk10_notes is not null)) or
467 (l_checklist_item_id is not null and
468 ( nvl(per_chk_shd.g_old_rec.date_due,hr_api.g_date)
469 <> nvl(p_chk10_date_due,hr_api.g_date)
470 or nvl(per_chk_shd.g_old_rec.date_done,hr_api.g_date)
471 <> nvl(p_chk10_date_done,hr_api.g_date)
472 or nvl(per_chk_shd.g_old_rec.status,hr_api.g_varchar2)
473 <> nvl(p_chk10_status,hr_api.g_varchar2)
474 or nvl(per_chk_shd.g_old_rec.notes,hr_api.g_varchar2)
475 <> nvl(p_chk10_notes,hr_api.g_varchar2))) then
476 --
477 hr_utility.set_location(l_proc, 210);
478 --
479 per_checklist_items_api.cre_or_upd_checklist_items
480 (p_checklist_item_id => l_checklist_item_id
481 ,p_effective_date => p_effective_date
482 ,p_object_version_number => l_chk_object_version_number
483 ,p_person_id => p_person_id
484 ,p_item_code => p_chk10_item_code
485 ,p_date_due => p_chk10_date_due
486 ,p_date_done => p_chk10_date_done
487 ,p_status => p_chk10_status
488 ,p_notes => p_chk10_notes
489 );
490 end if;
491 p_chk10_checklist_item_id:=l_checklist_item_id;
492 p_chk10_object_version_number:=l_chk_object_version_number;
493 --
494 hr_utility.set_location('Leaving'||l_proc, 220);
495 --
496 end update_summary_data;
497 --
498 procedure lock_summary_data
499 (p_chk1_checklist_item_id per_checklist_items.checklist_item_id%type
500 ,p_chk1_object_version_number per_checklist_items.object_version_number%type
501 ,p_chk2_checklist_item_id per_checklist_items.checklist_item_id%type
502 ,p_chk2_object_version_number per_checklist_items.object_version_number%type
503 ,p_chk3_checklist_item_id per_checklist_items.checklist_item_id%type
504 ,p_chk3_object_version_number per_checklist_items.object_version_number%type
505 ,p_chk4_checklist_item_id per_checklist_items.checklist_item_id%type
506 ,p_chk4_object_version_number per_checklist_items.object_version_number%type
507 ,p_chk5_checklist_item_id per_checklist_items.checklist_item_id%type
508 ,p_chk5_object_version_number per_checklist_items.object_version_number%type
509 ,p_chk6_checklist_item_id per_checklist_items.checklist_item_id%type
510 ,p_chk6_object_version_number per_checklist_items.object_version_number%type
511 ,p_chk7_checklist_item_id per_checklist_items.checklist_item_id%type
512 ,p_chk7_object_version_number per_checklist_items.object_version_number%type
513 ,p_chk8_checklist_item_id per_checklist_items.checklist_item_id%type
514 ,p_chk8_object_version_number per_checklist_items.object_version_number%type
515 ,p_chk9_checklist_item_id per_checklist_items.checklist_item_id%type
516 ,p_chk9_object_version_number per_checklist_items.object_version_number%type
517 ,p_chk10_checklist_item_id per_checklist_items.checklist_item_id%type
518 ,p_chk10_object_version_number per_checklist_items.object_version_number%type
519 ) is
520 l_proc varchar2(72) := g_package||'lock_summary_data';
521 begin
522 --
523 hr_utility.set_location('Entering:'|| l_proc, 10);
524 --
525 if p_chk1_checklist_item_id is not null then
526 per_chk_shd.lck
527 (p_checklist_item_id => p_chk1_checklist_item_id
528 ,p_object_version_number => p_chk1_object_version_number
529 );
530 end if;
531 --
532 hr_utility.set_location(l_proc, 20);
533 --
534 if p_chk2_checklist_item_id is not null then
535 per_chk_shd.lck
536 (p_checklist_item_id => p_chk2_checklist_item_id
537 ,p_object_version_number => p_chk2_object_version_number
538 );
539 end if;
540 --
541 hr_utility.set_location(l_proc, 30);
542 --
543 if p_chk3_checklist_item_id is not null then
544 per_chk_shd.lck
545 (p_checklist_item_id => p_chk3_checklist_item_id
546 ,p_object_version_number => p_chk3_object_version_number
547 );
548 end if;
549 --
550 hr_utility.set_location(l_proc, 40);
551 --
552 if p_chk4_checklist_item_id is not null then
553 per_chk_shd.lck
554 (p_checklist_item_id => p_chk4_checklist_item_id
555 ,p_object_version_number => p_chk4_object_version_number
556 );
557 end if;
558 --
559 hr_utility.set_location(l_proc, 50);
560 --
561 if p_chk5_checklist_item_id is not null then
562 per_chk_shd.lck
563 (p_checklist_item_id => p_chk5_checklist_item_id
564 ,p_object_version_number => p_chk5_object_version_number
565 );
566 end if;
567 --
568 hr_utility.set_location(l_proc, 60);
569 --
570 if p_chk6_checklist_item_id is not null then
571 per_chk_shd.lck
572 (p_checklist_item_id => p_chk6_checklist_item_id
573 ,p_object_version_number => p_chk6_object_version_number
574 );
575 end if;
576 --
577 hr_utility.set_location(l_proc, 70);
578 --
579 if p_chk7_checklist_item_id is not null then
580 per_chk_shd.lck
581 (p_checklist_item_id => p_chk7_checklist_item_id
582 ,p_object_version_number => p_chk7_object_version_number
583 );
584 end if;
585 --
586 hr_utility.set_location(l_proc, 80);
587 --
588 if p_chk8_checklist_item_id is not null then
589 per_chk_shd.lck
590 (p_checklist_item_id => p_chk8_checklist_item_id
591 ,p_object_version_number => p_chk8_object_version_number
592 );
593 end if;
594 --
595 hr_utility.set_location(l_proc, 90);
596 --
597 if p_chk9_checklist_item_id is not null then
598 per_chk_shd.lck
599 (p_checklist_item_id => p_chk9_checklist_item_id
600 ,p_object_version_number => p_chk9_object_version_number
601 );
602 end if;
603 --
604 hr_utility.set_location(l_proc, 100);
605 --
606 if p_chk10_checklist_item_id is not null then
607 per_chk_shd.lck
608 (p_checklist_item_id => p_chk10_checklist_item_id
609 ,p_object_version_number => p_chk10_object_version_number
610 );
611 end if;
612 --
613 hr_utility.set_location('Leaving'||l_proc, 110);
614 --
615 end lock_summary_data;
616 --
617 end;