14: SELECT object_version_number
15: FROM ben_copy_entity_results
16: WHERE copy_entity_result_id = p_copy_entity_result_id;
17: BEGIN
18: hr_utility.set_location ('Entering get_ovn', 10);
19: OPEN csr_ovn;
20: FETCH csr_ovn INTO l_ovn;
21: CLOSE csr_ovn;
22: hr_utility.set_location ('Leaving get_ovn'||l_ovn, 100);
18: hr_utility.set_location ('Entering get_ovn', 10);
19: OPEN csr_ovn;
20: FETCH csr_ovn INTO l_ovn;
21: CLOSE csr_ovn;
22: hr_utility.set_location ('Leaving get_ovn'||l_ovn, 100);
23: RETURN l_ovn;
24: END get_ovn;
25: --
26: --------------------------- get_dml_operation -----------------------------
35: SELECT dml_operation
36: FROM ben_copy_entity_results
37: WHERE copy_entity_result_id = p_copy_entity_result_id;
38: BEGIN
39: hr_utility.set_location ('Entering get_dml_operation', 10);
40: OPEN csr_dml_operation;
41: FETCH csr_dml_operation INTO l_dml_operation;
42: CLOSE csr_dml_operation;
43: hr_utility.set_location ('Leaving get_dml_operation '||l_dml_operation, 100);
39: hr_utility.set_location ('Entering get_dml_operation', 10);
40: OPEN csr_dml_operation;
41: FETCH csr_dml_operation INTO l_dml_operation;
42: CLOSE csr_dml_operation;
43: hr_utility.set_location ('Leaving get_dml_operation '||l_dml_operation, 100);
44: RETURN l_dml_operation;
45: END get_dml_operation;
46:
47: --
55: )
56: IS
57: l_ovn NUMBER;
58: BEGIN
59: hr_utility.set_location ('Entering delete_rec', 10);
60: if p_object_version_number is null then
61: l_ovn := get_ovn (p_copy_entity_result_id => p_copy_entity_result_id);
62: else
63: l_ovn := p_object_version_number;
66: p_copy_entity_result_id => p_copy_entity_result_id,
67: p_effective_date => p_effective_date,
68: p_object_version_number => l_ovn
69: );
70: hr_utility.set_location ('Purged the record Sucessfully... :', 90);
71: hr_utility.set_location ('Leaving delete_rec', 100);
72: EXCEPTION
73: WHEN OTHERS THEN
74: hr_utility.set_location ('Errors in delete_rec ...', 100);
67: p_effective_date => p_effective_date,
68: p_object_version_number => l_ovn
69: );
70: hr_utility.set_location ('Purged the record Sucessfully... :', 90);
71: hr_utility.set_location ('Leaving delete_rec', 100);
72: EXCEPTION
73: WHEN OTHERS THEN
74: hr_utility.set_location ('Errors in delete_rec ...', 100);
75: raise;
70: hr_utility.set_location ('Purged the record Sucessfully... :', 90);
71: hr_utility.set_location ('Leaving delete_rec', 100);
72: EXCEPTION
73: WHEN OTHERS THEN
74: hr_utility.set_location ('Errors in delete_rec ...', 100);
75: raise;
76: END delete_rec;
77:
78: --
85: )
86: IS
87: l_ovn NUMBER;
88: BEGIN
89: hr_utility.set_location ('Entering update_rec', 10);
90: l_ovn := get_ovn (p_copy_entity_result_id => p_copy_entity_result_id);
91: ben_copy_entity_results_api.update_copy_entity_results (
92: p_copy_entity_result_id => p_copy_entity_result_id,
93: p_effective_date => p_effective_date,
94: p_information104 => 'UNLINK',
95: p_object_version_number => l_ovn,
96: p_information323 => NULL
97: );
98: hr_utility.set_location ('Marked for Deletion Sucessfully... :', 90);
99: hr_utility.set_location ('Leaving update_rec', 100);
100: EXCEPTION
101: WHEN OTHERS THEN
102: hr_utility.set_location ('Errors in update_rec ...', 150);
95: p_object_version_number => l_ovn,
96: p_information323 => NULL
97: );
98: hr_utility.set_location ('Marked for Deletion Sucessfully... :', 90);
99: hr_utility.set_location ('Leaving update_rec', 100);
100: EXCEPTION
101: WHEN OTHERS THEN
102: hr_utility.set_location ('Errors in update_rec ...', 150);
103: END update_rec;
98: hr_utility.set_location ('Marked for Deletion Sucessfully... :', 90);
99: hr_utility.set_location ('Leaving update_rec', 100);
100: EXCEPTION
101: WHEN OTHERS THEN
102: hr_utility.set_location ('Errors in update_rec ...', 150);
103: END update_rec;
104: --
105: --------------------------- purge_pay_scale-----------------------------
106: --
138: FROM ben_copy_entity_results
139: WHERE information258 = p_scale_cer_id
140: AND copy_entity_txn_id = l_cet_id;
141: BEGIN
142: hr_utility.set_location ('Entering purge_pay_scale', 10);
143: -- Get Pay Scale CER Id;
144: OPEN csr_scale_cer_id;
145: FETCH csr_scale_cer_id INTO l_cet_id,l_scale_cer_id;
146: CLOSE csr_scale_cer_id;
143: -- Get Pay Scale CER Id;
144: OPEN csr_scale_cer_id;
145: FETCH csr_scale_cer_id INTO l_cet_id,l_scale_cer_id;
146: CLOSE csr_scale_cer_id;
147: hr_utility.set_location ('Pay Scale CER ID ' || l_scale_cer_id, 10);
148: hr_utility.set_location ('cet ID ' || l_cet_id, 10);
149: IF (l_scale_cer_id IS NOT NULL and l_cet_id is not null) THEN
150: OPEN csr_num_opts (l_scale_cer_id);
151: FETCH csr_num_opts INTO l_count;
144: OPEN csr_scale_cer_id;
145: FETCH csr_scale_cer_id INTO l_cet_id,l_scale_cer_id;
146: CLOSE csr_scale_cer_id;
147: hr_utility.set_location ('Pay Scale CER ID ' || l_scale_cer_id, 10);
148: hr_utility.set_location ('cet ID ' || l_cet_id, 10);
149: IF (l_scale_cer_id IS NOT NULL and l_cet_id is not null) THEN
150: OPEN csr_num_opts (l_scale_cer_id);
151: FETCH csr_num_opts INTO l_count;
152: CLOSE csr_num_opts;
153: IF (l_count = 1) THEN
154: delete_rec ( p_copy_entity_result_id => l_scale_cer_id,
155: p_effective_date => p_effective_date);
156: FOR rec_plip_cer_id IN csr_plip_cer_id (l_scale_cer_id) LOOP
157: hr_utility.set_location ( 'Plip Cer Id ' || rec_plip_cer_id.copy_entity_result_id, 10);
158: UPDATE ben_copy_entity_results
159: SET information98 = NULL,
160: information255 = NULL,
161: information258 = NULL,
161: information258 = NULL,
162: information259 = NULL,
163: information262 = NULL
164: WHERE copy_entity_result_id = rec_plip_cer_id.copy_entity_result_id;
165: hr_utility.set_location ('Plip updated successfully', 40);
166: END LOOP;
167: END IF;
168: else
169: hr_utility.set_location ('null data found ', 40);
165: hr_utility.set_location ('Plip updated successfully', 40);
166: END LOOP;
167: END IF;
168: else
169: hr_utility.set_location ('null data found ', 40);
170: END IF;
171: hr_utility.set_location ('Leaving purge_pay_scale', 100);
172: EXCEPTION
173: WHEN OTHERS THEN
167: END IF;
168: else
169: hr_utility.set_location ('null data found ', 40);
170: END IF;
171: hr_utility.set_location ('Leaving purge_pay_scale', 100);
172: EXCEPTION
173: WHEN OTHERS THEN
174: hr_utility.set_location ('Errors in purge_pay_scale ...', 100);
175: END purge_pay_scale;
170: END IF;
171: hr_utility.set_location ('Leaving purge_pay_scale', 100);
172: EXCEPTION
173: WHEN OTHERS THEN
174: hr_utility.set_location ('Errors in purge_pay_scale ...', 100);
175: END purge_pay_scale;
176: --
177: --------------------------- purge_opt_abr_hrrate_crrate -----------------------------
178: --
198: WHERE crrate.copy_entity_txn_id = p_copy_entity_txn_id
199: AND crrate.table_alias = 'CRRATE'
200: AND crrate.information169 = p_opt_result_id;
201: BEGIN
202: hr_utility.set_location ('Entering purge_opt_abr_hrrate_crrate', 10);
203: -- purge HRRATE, ABR Records
204: FOR rec_std_rates IN csr_std_rates LOOP
205: delete_rec ( p_copy_entity_result_id => rec_std_rates.copy_entity_result_id,
206: p_effective_date => p_effective_date,
206: p_effective_date => p_effective_date,
207: p_object_version_number => rec_std_rates.object_version_number);
208: END LOOP;
209:
210: hr_utility.set_location ('Purged HRRATE, ABR Recs sucessully ', 40);
211:
212: -- purge CRRATE Records
213: FOR rec_crrates IN csr_crrate LOOP
214: delete_rec ( p_copy_entity_result_id => rec_crrates.copy_entity_result_id,
216: p_object_version_number => rec_crrates.object_version_number
217: );
218: END LOOP;
219:
220: hr_utility.set_location ('Purged CRRATE Recs sucessully ', 55);
221: hr_utility.set_location ('Leaving purge_opt_abr_hrrate_crrate', 100);
222: EXCEPTION
223: WHEN OTHERS THEN
224: hr_utility.set_location ('purge_opt_abr_hrrate_crrate ', 110);
217: );
218: END LOOP;
219:
220: hr_utility.set_location ('Purged CRRATE Recs sucessully ', 55);
221: hr_utility.set_location ('Leaving purge_opt_abr_hrrate_crrate', 100);
222: EXCEPTION
223: WHEN OTHERS THEN
224: hr_utility.set_location ('purge_opt_abr_hrrate_crrate ', 110);
225: END purge_opt_abr_hrrate_crrate;
220: hr_utility.set_location ('Purged CRRATE Recs sucessully ', 55);
221: hr_utility.set_location ('Leaving purge_opt_abr_hrrate_crrate', 100);
222: EXCEPTION
223: WHEN OTHERS THEN
224: hr_utility.set_location ('purge_opt_abr_hrrate_crrate ', 110);
225: END purge_opt_abr_hrrate_crrate;
226:
227: --
228: --------------------------- remove_opt -----------------------------
244: IS
245: l_point_or_step VARCHAR2 (20);
246: l_dml_operation VARCHAR2 (40);
247: BEGIN
248: hr_utility.set_location ('Entering remove_opt', 100);
249: l_point_or_step :=
250: pqh_gsp_utility.use_point_or_step (
251: p_copy_entity_txn_id => p_copy_entity_txn_id
252: );
253: l_dml_operation :=
254: get_dml_operation (
255: p_copy_entity_result_id => p_copy_entity_result_id
256: );
257: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
258: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
259:
260: -- If GL Using Direct Steps
261: -- if l_point_or_step= 'STEP' Then
254: get_dml_operation (
255: p_copy_entity_result_id => p_copy_entity_result_id
256: );
257: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
258: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
259:
260: -- If GL Using Direct Steps
261: -- if l_point_or_step= 'STEP' Then
262:
261: -- if l_point_or_step= 'STEP' Then
262:
263: IF l_dml_operation = 'INSERT' THEN
264: -- 1) Purge ABR,HRRATE, CRRATE
265: hr_utility.set_location ( 'Calling purge_opt_abr_hrrate_crrate... :', 30);
266: pqh_gsp_grd_step_remove.purge_opt_abr_hrrate_crrate (
267: p_opt_result_id => p_copy_entity_result_id,
268: p_copy_entity_txn_id => p_copy_entity_txn_id,
269: p_effective_date => p_effective_date
269: p_effective_date => p_effective_date
270: );
271: -- 2) Get The Number of Options attached to this Pay Scale Cer Id
272: -- suppose only one then purge Pay Scale record.
273: hr_utility.set_location ('Calling purge_pay_scale... :', 40);
274:
275: IF l_point_or_step = 'STEP'
276: THEN
277: pqh_gsp_grd_step_remove.purge_pay_scale (
280: p_effective_date => p_effective_date
281: );
282: END IF; -- end of STEP
283: -- 3) purge OPT Rec
284: hr_utility.set_location ('Purge OPT ... :', 50);
285: delete_rec (
286: p_copy_entity_result_id => p_copy_entity_result_id,
287: p_effective_date => p_effective_date
288: );
299: p_effective_date => p_effective_date
300: );
301: END IF; -- end of dml_operation
302: -- end if; -- end of STEP
303: hr_utility.set_location ('Leaving remove_opt', 100);
304: END remove_opt;
305: --
306: ---------------------------remove_elig_profile-----------------------------
307: --
323: WHERE elp.copy_entity_txn_id = p_copy_entity_txn_id
324: AND elp.gs_parent_entity_result_id = p_copy_entity_result_id
325: AND elp.table_alias = 'ELP';
326: BEGIN
327: hr_utility.set_location ('Entering remove_elig_profile', 10);
328: -- Check Eligibility Profiles Exists for OIPL Rec
329: l_exits := pqh_gsp_utility.chk_profile_exists ( p_copy_entity_result_id => p_copy_entity_result_id,
330: p_copy_entity_txn_id => p_copy_entity_txn_id);
331:
328: -- Check Eligibility Profiles Exists for OIPL Rec
329: l_exits := pqh_gsp_utility.chk_profile_exists ( p_copy_entity_result_id => p_copy_entity_result_id,
330: p_copy_entity_txn_id => p_copy_entity_txn_id);
331:
332: hr_utility.set_location ( 'Eligibility Profiles Exists (Y/N) :' || l_exits, 50);
333: IF (l_exits = 'Y') THEN
334: FOR elp_recs IN csr_elp_cer_ids LOOP
335: pqh_gsp_prgrules.delete_eligibility (
336: p_copy_entity_txn_id => p_copy_entity_txn_id,
338: );
339: END LOOP;
340: END IF;
341:
342: hr_utility.set_location ('Removed Elig Profiles sucessfully ... ', 60);
343: hr_utility.set_location ('Leaving remove_elig_profile', 100);
344: EXCEPTION
345: WHEN OTHERS THEN
346: hr_utility.set_location ( 'Error in Removing Elig Profiles ... ', 100);
339: END LOOP;
340: END IF;
341:
342: hr_utility.set_location ('Removed Elig Profiles sucessfully ... ', 60);
343: hr_utility.set_location ('Leaving remove_elig_profile', 100);
344: EXCEPTION
345: WHEN OTHERS THEN
346: hr_utility.set_location ( 'Error in Removing Elig Profiles ... ', 100);
347: END remove_elig_profile;
342: hr_utility.set_location ('Removed Elig Profiles sucessfully ... ', 60);
343: hr_utility.set_location ('Leaving remove_elig_profile', 100);
344: EXCEPTION
345: WHEN OTHERS THEN
346: hr_utility.set_location ( 'Error in Removing Elig Profiles ... ', 100);
347: END remove_elig_profile;
348: --
349: ---------------------------remove_oipl_STEP_flavour -----------------------------
350: --
379: WHERE oipl.copy_entity_txn_id = p_copy_entity_txn_id
380: AND oipl.table_alias = 'COP'
381: AND oipl.copy_entity_result_id = p_copy_entity_result_id;
382: BEGIN
383: hr_utility.set_location ('Entering remove_oipl_STEP_flavour', 10);
384: l_point_or_step := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
385: l_dml_operation := get_dml_operation ( p_copy_entity_result_id => p_copy_entity_result_id);
386:
387: -- Get OPT Cer ID
387: -- Get OPT Cer ID
388: OPEN csr_opt_result_id;
389: FETCH csr_opt_result_id INTO l_opt_result_id;
390: CLOSE csr_opt_result_id;
391: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
392: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
393: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
394: hr_utility.set_location ('remove_opt value:' || p_remove_opt, 46);
395:
388: OPEN csr_opt_result_id;
389: FETCH csr_opt_result_id INTO l_opt_result_id;
390: CLOSE csr_opt_result_id;
391: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
392: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
393: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
394: hr_utility.set_location ('remove_opt value:' || p_remove_opt, 46);
395:
396: IF l_point_or_step = 'STEP' THEN
389: FETCH csr_opt_result_id INTO l_opt_result_id;
390: CLOSE csr_opt_result_id;
391: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
392: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
393: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
394: hr_utility.set_location ('remove_opt value:' || p_remove_opt, 46);
395:
396: IF l_point_or_step = 'STEP' THEN
397: IF l_dml_operation = 'INSERT' OR l_dml_operation ='COPIED' OR l_dml_operation = 'UPD_INS' THEN
390: CLOSE csr_opt_result_id;
391: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
392: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
393: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
394: hr_utility.set_location ('remove_opt value:' || p_remove_opt, 46);
395:
396: IF l_point_or_step = 'STEP' THEN
397: IF l_dml_operation = 'INSERT' OR l_dml_operation ='COPIED' OR l_dml_operation = 'UPD_INS' THEN
398: -- 1) Call Pqh_Gsp_Grd_Step_Remove.remove_opt
396: IF l_point_or_step = 'STEP' THEN
397: IF l_dml_operation = 'INSERT' OR l_dml_operation ='COPIED' OR l_dml_operation = 'UPD_INS' THEN
398: -- 1) Call Pqh_Gsp_Grd_Step_Remove.remove_opt
399: IF p_remove_opt = 'Y' THEN
400: hr_utility.set_location ('Calling remove_opt... :', 60);
401: pqh_gsp_grd_step_remove.remove_opt (
402: p_copy_entity_txn_id => p_copy_entity_txn_id,
403: p_copy_entity_result_id => l_opt_result_id,
404: p_effective_date => p_effective_date);
402: p_copy_entity_txn_id => p_copy_entity_txn_id,
403: p_copy_entity_result_id => l_opt_result_id,
404: p_effective_date => p_effective_date);
405: ELSE
406: hr_utility.set_location ('Not calling remove_opt ', 60);
407: END IF;
408:
409: -- 2) Purge Elig Profile call procedure remove_elig_profile
410: hr_utility.set_location ('Calling remove_elig_profile... :', 70);
406: hr_utility.set_location ('Not calling remove_opt ', 60);
407: END IF;
408:
409: -- 2) Purge Elig Profile call procedure remove_elig_profile
410: hr_utility.set_location ('Calling remove_elig_profile... :', 70);
411: pqh_gsp_grd_step_remove.remove_elig_profile (
412: p_copy_entity_txn_id => p_copy_entity_txn_id,
413: p_copy_entity_result_id => p_copy_entity_result_id
414: );
412: p_copy_entity_txn_id => p_copy_entity_txn_id,
413: p_copy_entity_result_id => p_copy_entity_result_id
414: );
415: -- 3) purge OIPL
416: hr_utility.set_location ('Purge OIPL... :', 80);
417: delete_rec (
418: p_copy_entity_result_id => p_copy_entity_result_id,
419: p_effective_date => p_effective_date
420: );
439: p_effective_date => p_effective_date
440: );
441: END IF; -- end of dml_operation
442: END IF; -- end of STEP
443: hr_utility.set_location ('Leaving remove_oipl_STEP_flavour', 100);
444: END remove_oipl_step_flavour;
445: --
446: --------------------------- remove_oipl_POINT_flavour-----------------------------
447: --
474: WHERE oipl.copy_entity_txn_id = p_copy_entity_txn_id
475: AND oipl.table_alias = 'COP'
476: AND oipl.copy_entity_result_id = p_copy_entity_result_id;
477: BEGIN
478: hr_utility.set_location ('Entering remove_oipl_POINT_flavour', 10);
479: l_point_or_step := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
480: l_dml_operation := get_dml_operation ( p_copy_entity_result_id => p_copy_entity_result_id);
481:
482: -- Get OPT Cer ID
482: -- Get OPT Cer ID
483: OPEN csr_opt_result_id;
484: FETCH csr_opt_result_id INTO l_opt_result_id;
485: CLOSE csr_opt_result_id;
486: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
487: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
488: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
489:
490: IF l_point_or_step = 'POINT' THEN
483: OPEN csr_opt_result_id;
484: FETCH csr_opt_result_id INTO l_opt_result_id;
485: CLOSE csr_opt_result_id;
486: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
487: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
488: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
489:
490: IF l_point_or_step = 'POINT' THEN
491: IF l_dml_operation = 'INSERT' OR l_dml_operation ='COPIED' OR l_dml_operation = 'UPD_INS' THEN
484: FETCH csr_opt_result_id INTO l_opt_result_id;
485: CLOSE csr_opt_result_id;
486: hr_utility.set_location ('l_point_or_step :' || l_point_or_step, 40);
487: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
488: hr_utility.set_location ('OPT Result Id:' || l_opt_result_id, 46);
489:
490: IF l_point_or_step = 'POINT' THEN
491: IF l_dml_operation = 'INSERT' OR l_dml_operation ='COPIED' OR l_dml_operation = 'UPD_INS' THEN
492: -- 1) Purge Standard Rates : ABR, HRRATE and Criteria Rates : CRRATE
489:
490: IF l_point_or_step = 'POINT' THEN
491: IF l_dml_operation = 'INSERT' OR l_dml_operation ='COPIED' OR l_dml_operation = 'UPD_INS' THEN
492: -- 1) Purge Standard Rates : ABR, HRRATE and Criteria Rates : CRRATE
493: /* hr_utility.set_location ( 'Calling purge_opt_abr_hrrate_crrate ... :', 70);
494: pqh_gsp_grd_step_remove.purge_opt_abr_hrrate_crrate (
495: p_opt_result_id => l_opt_result_id,
496: p_copy_entity_txn_id => p_copy_entity_txn_id,
497: p_effective_date => p_effective_date
497: p_effective_date => p_effective_date
498: );
499: */
500: -- 2) Purge Elig Profile call procedure Pqh_Gsp_Grd_Step_Remove.remove_elig_profile
501: hr_utility.set_location ( 'Calling Pqh_Gsp_Grd_Step_Remove.remove_elig_profile... :', 75);
502: pqh_gsp_grd_step_remove.remove_elig_profile (
503: p_copy_entity_txn_id => p_copy_entity_txn_id,
504: p_copy_entity_result_id => p_copy_entity_result_id
505: );
503: p_copy_entity_txn_id => p_copy_entity_txn_id,
504: p_copy_entity_result_id => p_copy_entity_result_id
505: );
506: -- 3) purge OIPL
507: hr_utility.set_location ('Purge OIPL ... :', 80);
508: delete_rec (
509: p_copy_entity_result_id => p_copy_entity_result_id,
510: p_effective_date => p_effective_date
511: );
521: p_effective_date => p_effective_date
522: );
523: END IF; -- end of dml_operation
524: END IF; -- end of POINT
525: hr_utility.set_location ('Leaving remove_oipl_POINT_flavour', 100);
526: END remove_oipl_point_flavour;
527: --
528: --------------------------- remove_oipl -----------------------------
529: --
538: IS
539: l_which_flavour VARCHAR2 (20);
540: BEGIN
541: hr_multi_message.enable_message_list;
542: hr_utility.set_location ('Entering remove_oipl', 10);
543: l_which_flavour := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
544: hr_utility.set_location ('POINT/STEP :' || l_which_flavour, 30);
545: IF (l_which_flavour = 'POINT') THEN
546: pqh_gsp_grd_step_remove.remove_oipl_point_flavour (
540: BEGIN
541: hr_multi_message.enable_message_list;
542: hr_utility.set_location ('Entering remove_oipl', 10);
543: l_which_flavour := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
544: hr_utility.set_location ('POINT/STEP :' || l_which_flavour, 30);
545: IF (l_which_flavour = 'POINT') THEN
546: pqh_gsp_grd_step_remove.remove_oipl_point_flavour (
547: p_copy_entity_txn_id => p_copy_entity_txn_id,
548: p_copy_entity_result_id => p_copy_entity_result_id,
556: p_effective_date => p_effective_date,
557: p_remove_opt => p_remove_opt
558: );
559: END IF;
560: hr_utility.set_location ('Leaving remove_oipl', 100);
561: Exception
562: when others then
563: hr_utility.set_location ('Caught an Exception', 100);
564: hr_multi_message.add;
559: END IF;
560: hr_utility.set_location ('Leaving remove_oipl', 100);
561: Exception
562: when others then
563: hr_utility.set_location ('Caught an Exception', 100);
564: hr_multi_message.add;
565: END remove_oipl;
566: --
567: --------------------------- remove_plip -----------------------------
592: AND oipl.table_alias = 'COP'
593: AND oipl.copy_entity_txn_id = p_copy_entity_txn_id;
594:
595: BEGIN
596: hr_utility.set_location ('Entering remove_plip', 10);
597:
598: l_which_flavour := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
599: l_dml_operation := get_dml_operation ( p_copy_entity_result_id => p_copy_entity_result_id);
600: hr_utility.set_location ('POINT/STEP :' || l_which_flavour, 30);
596: hr_utility.set_location ('Entering remove_plip', 10);
597:
598: l_which_flavour := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
599: l_dml_operation := get_dml_operation ( p_copy_entity_result_id => p_copy_entity_result_id);
600: hr_utility.set_location ('POINT/STEP :' || l_which_flavour, 30);
601: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
602:
603: -- Remove Rates, Elig Profiles attahced to OIPL
604: -- Remove OIPL
597:
598: l_which_flavour := pqh_gsp_utility.use_point_or_step ( p_copy_entity_txn_id => p_copy_entity_txn_id);
599: l_dml_operation := get_dml_operation ( p_copy_entity_result_id => p_copy_entity_result_id);
600: hr_utility.set_location ('POINT/STEP :' || l_which_flavour, 30);
601: hr_utility.set_location ('DML Operation :' || l_dml_operation, 45);
602:
603: -- Remove Rates, Elig Profiles attahced to OIPL
604: -- Remove OIPL
605: FOR rec_oipls IN csr_oipl_ids LOOP
621: END LOOP;
622:
623: IF l_dml_operation = 'INSERT' THEN
624: -- 1) Purge Elig Profile call procedure remove_elig_profile
625: hr_utility.set_location ('Calling remove_elig_profile... :', 70);
626: pqh_gsp_grd_step_remove.remove_elig_profile (
627: p_copy_entity_txn_id => p_copy_entity_txn_id,
628: p_copy_entity_result_id => p_copy_entity_result_id
629: );
640:
641: delete_rec ( p_copy_entity_result_id => p_copy_entity_result_id,
642: p_effective_date => p_effective_date);
643:
644: hr_utility.set_location ('Purged PLIP Rec Sucessfully... :', 85);
645: ELSE -- dml_operation = UPDATE/COPIED/UPD_INS
646: -- Mark PLIP for Deletion
647: update_rec (
648: p_copy_entity_result_id => p_copy_entity_result_id,
647: update_rec (
648: p_copy_entity_result_id => p_copy_entity_result_id,
649: p_effective_date => p_effective_date
650: );
651: hr_utility.set_location ('Marked for Deletion PLIP Rec Sucessfully... :',90);
652: END IF; -- DML Operation
653: hr_utility.set_location ('Leaving remove_plip', 100);
654: END remove_plip;
655: PROCEDURE unlink_opt_abr_hrrate_crrate (
649: p_effective_date => p_effective_date
650: );
651: hr_utility.set_location ('Marked for Deletion PLIP Rec Sucessfully... :',90);
652: END IF; -- DML Operation
653: hr_utility.set_location ('Leaving remove_plip', 100);
654: END remove_plip;
655: PROCEDURE unlink_opt_abr_hrrate_crrate (
656: p_opt_result_id IN NUMBER,
657: p_copy_entity_txn_id IN NUMBER,
677: WHERE crrate.copy_entity_txn_id = p_copy_entity_txn_id
678: AND crrate.table_alias = 'CRRATE'
679: AND crrate.information169 = p_opt_result_id;
680: BEGIN
681: hr_utility.set_location ('Entering ' || l_proc, 10);
682:
683: -- purge HRRATE, ABR Records
684: FOR rec_std_rates IN csr_std_rates
685: LOOP
688: p_effective_date => p_effective_date
689: );
690: END LOOP;
691:
692: hr_utility.set_location ('Purged HRRATE, ABR Recs sucessully ', 40);
693:
694: -- purge CRRATE Records
695: FOR rec_crrates IN csr_crrate
696: LOOP
699: p_effective_date => p_effective_date
700: );
701: END LOOP;
702:
703: hr_utility.set_location ('Purged CRRATE Recs sucessully ', 55);
704: hr_utility.set_location ('Leaving ' || l_proc, 100);
705: EXCEPTION
706: WHEN OTHERS
707: THEN
700: );
701: END LOOP;
702:
703: hr_utility.set_location ('Purged CRRATE Recs sucessully ', 55);
704: hr_utility.set_location ('Leaving ' || l_proc, 100);
705: EXCEPTION
706: WHEN OTHERS
707: THEN
708: hr_utility.set_location ('purge_opt_abr_hrrate_crrate ', 110);
704: hr_utility.set_location ('Leaving ' || l_proc, 100);
705: EXCEPTION
706: WHEN OTHERS
707: THEN
708: hr_utility.set_location ('purge_opt_abr_hrrate_crrate ', 110);
709: END unlink_opt_abr_hrrate_crrate;
710:
711: END pqh_gsp_grd_step_remove;