[Home] [Help]
212: FOR noa_code IN c_noa_code(p_second_noa_id) LOOP
213: l_second_noa_code := noa_code.code;
214: exit;
215: END LOOP;
216: hr_utility.set_location('first noa code '||l_first_noa_code , 1);
217: hr_utility.set_location('second noa code '||l_second_noa_code, 2);
218: IF l_first_noa_code = '002' THEN
219: l_noa_code := l_second_noa_code;
220: ELSE
213: l_second_noa_code := noa_code.code;
214: exit;
215: END LOOP;
216: hr_utility.set_location('first noa code '||l_first_noa_code , 1);
217: hr_utility.set_location('second noa code '||l_second_noa_code, 2);
218: IF l_first_noa_code = '002' THEN
219: l_noa_code := l_second_noa_code;
220: ELSE
221: l_noa_code := l_first_noa_code;
219: l_noa_code := l_second_noa_code;
220: ELSE
221: l_noa_code := l_first_noa_code;
222: END IF;
223: hr_utility.set_location('l_noa_code is '||l_noa_code, 2);
224: -- Delete the RPA EI if there is a change in Effective Date or
225: -- Person
226: IF p_refresh_flag = 'N' THEN
227: IF (nvl(p_effective_date,hr_api.g_date)
227: IF (nvl(p_effective_date,hr_api.g_date)
228: <> nvl(ghr_par_shd.g_old_rec.effective_date,hr_api.g_date)) or
229: (nvl(p_person_id,hr_api.g_number)
230: <> nvl(ghr_par_shd.g_old_rec.person_id,hr_api.g_number)) then
231: hr_utility.set_location('Inside the Delete IF '||l_noa_code, 2);
232: -- Delete from ghr_pa_request_extra_info
233: DELETE ghr_pa_request_extra_info
234: WHERE INFORMATION_TYPE in ( 'GHR_US_PAR_TERM_RET_GRADE',
235: 'GHR_US_PAR_TERM_RG_PROMO',
244: AND PA_REQUEST_ID = p_pa_request_id;
245: END IF;
246: END IF;
247: IF l_noa_code IN ( '866' ,'890') THEN
248: hr_utility.set_location('Inside the c_866 loop'||l_noa_code, 3);
249: -- Delete from ghr_pa_request_extra_info
250: DELETE ghr_pa_request_extra_info
251: WHERE INFORMATION_TYPE = 'GHR_US_PAR_TERM_RET_GRADE'
252: AND PA_REQUEST_ID = p_pa_request_id;
256: WHERE INFORMATION_TYPE = 'GHR_US_PAR_TERM_RET_GRADE'
257: AND PA_REQUEST_ID = p_pa_request_id;
258: ELSIF l_noa_code = '702' THEN
259: FOR pei_id IN c_702_rei LOOP
260: hr_utility.set_location('Inside the c_702_rei loop'||l_noa_code, 3);
261: -- Delete from ghr_pa_request_extra_info
262: DELETE ghr_pa_request_extra_info
263: WHERE INFORMATION_TYPE = 'GHR_US_PAR_TERM_RG_PROMO'
264: AND PA_REQUEST_ID = p_pa_request_id;
269: AND PA_REQUEST_ID = p_pa_request_id;
270: EXIT;
271: END LOOP;
272: ELSIF l_noa_code = '740' THEN
273: hr_utility.set_location('Inside the 740 processing'||l_noa_code, 3);
274: l_existed := FALSE;
275: for pei_rec in c_740_pei loop
276: hr_utility.set_location('PEI rec id'||pei_rec.person_extra_info_id, 4);
277: for rei_rec in c_740_rei loop
272: ELSIF l_noa_code = '740' THEN
273: hr_utility.set_location('Inside the 740 processing'||l_noa_code, 3);
274: l_existed := FALSE;
275: for pei_rec in c_740_pei loop
276: hr_utility.set_location('PEI rec id'||pei_rec.person_extra_info_id, 4);
277: for rei_rec in c_740_rei loop
278: hr_utility.set_location(' REI rec id'||rei_rec.rei_information3, 5);
279: IF pei_rec.person_extra_info_id = rei_rec.rei_information3 THEN
280: l_existed := TRUE;
274: l_existed := FALSE;
275: for pei_rec in c_740_pei loop
276: hr_utility.set_location('PEI rec id'||pei_rec.person_extra_info_id, 4);
277: for rei_rec in c_740_rei loop
278: hr_utility.set_location(' REI rec id'||rei_rec.rei_information3, 5);
279: IF pei_rec.person_extra_info_id = rei_rec.rei_information3 THEN
280: l_existed := TRUE;
281: EXIT;
282: ELSE
358: l_existed := FALSE;
359: END IF;
360: end loop;
361: END IF;
362: hr_utility.set_location('Before creating RPA EI'||l_noa_code, 4);
363: IF l_noa_code = '702' THEN
364: FOR pei_id IN c_702 LOOP
365: hr_utility.set_location('In side creation of RPA EI'||l_noa_code, 4);
366: l_rei_rec.rei_information3 := pei_id.person_extra_info_id;
361: END IF;
362: hr_utility.set_location('Before creating RPA EI'||l_noa_code, 4);
363: IF l_noa_code = '702' THEN
364: FOR pei_id IN c_702 LOOP
365: hr_utility.set_location('In side creation of RPA EI'||l_noa_code, 4);
366: l_rei_rec.rei_information3 := pei_id.person_extra_info_id;
367: --l_rei_rec.rei_information4 := pei_id.ret_grade;
368: l_rei_rec.rei_information5 := null;
369: l_rei_rec.information_type := 'GHR_US_PAR_TERM_RG_PROMO';
386: END LOOP;
387: ELSIF l_noa_code IN ('866', '890') THEN
388: IF l_altered_pa_request_id is not null THEN
389: FOR pei_id IN c_866_rei_correct LOOP
390: hr_utility.set_location('866 rei correct ' , 1);
391: l_ret_grade1 := pei_id.pei_information1 || '..'|| pei_id.pei_information2 ||
392: '..' || pei_id.pei_information3 || '..' || pei_id.pei_information4 ||
393: '..' || pei_id.pei_information5 || '..' || pei_id.pei_information6 ||
394: '..' || pei_id.pei_information7 || '..' || pei_id.pei_information8
426: NULL;
427: END;
428: ---------- Bug# 2569180 To avoid PL/SQL Error
429:
430: hr_utility.set_location('866 non correct ' , 2);
431: FOR pei_id IN c_866(l_retained_grade_rec.person_extra_info_id) LOOP
432: l_ret_grade1 := pei_id.pei_information1 || '..'|| pei_id.pei_information2 ||
433: '..' || pei_id.pei_information3 || '..' || pei_id.pei_information4 ||
434: '..' || pei_id.pei_information5 || '..' || pei_id.pei_information6 ||
523: ghr_pa_request_extra_info b
524: where b.pa_request_id = p_pa_request_id );
525:
526: Begin
527: hr_utility.set_location('Entering ' || l_proc,5);
528: FOR noa_code IN c_noa_code(p_first_noa_id) LOOP
529: l_first_noa_code := noa_code.code;
530: exit;
531: END LOOP;
532: FOR noa_code IN c_noa_code(p_second_noa_id) LOOP
533: l_second_noa_code := noa_code.code;
534: exit;
535: END LOOP;
536: hr_utility.set_location('first noa code '||l_first_noa_code , 1);
537: hr_utility.set_location('second noa code '||l_second_noa_code, 2);
538: IF l_first_noa_code = '002' THEN
539: l_noa_code := l_second_noa_code;
540: ELSE
533: l_second_noa_code := noa_code.code;
534: exit;
535: END LOOP;
536: hr_utility.set_location('first noa code '||l_first_noa_code , 1);
537: hr_utility.set_location('second noa code '||l_second_noa_code, 2);
538: IF l_first_noa_code = '002' THEN
539: l_noa_code := l_second_noa_code;
540: ELSE
541: l_noa_code := l_first_noa_code;
539: l_noa_code := l_second_noa_code;
540: ELSE
541: l_noa_code := l_first_noa_code;
542: END IF;
543: hr_utility.set_location('l_noa_code is '||l_noa_code, 2);
544: IF (l_second_noa_code in ('702','866','890','740') and l_first_noa_code = '002' ) OR
545: l_first_noa_code in ('702','866','890','740')
546: THEN
547: -- New Processing for Termination of Retain Grade
554: p_refresh_flag => p_refresh_flag );
555: -- End
556: END IF;
557: If p_first_noa_id is not null then
558: hr_utility.set_location(l_proc,30);
559: hr_utility.set_location('PER ID'||p_person_id,30);
560: --
561: fetch_noa_spec_extra_info
562: (p_pa_request_id => p_pa_request_id,
555: -- End
556: END IF;
557: If p_first_noa_id is not null then
558: hr_utility.set_location(l_proc,30);
559: hr_utility.set_location('PER ID'||p_person_id,30);
560: --
561: fetch_noa_spec_extra_info
562: (p_pa_request_id => p_pa_request_id,
563: p_noa_id => p_first_noa_id,
566: p_position_id => p_position_id,
567: p_effective_date => trunc(nvl(p_effective_date,sysdate)),
568: p_refresh_flag => p_refresh_flag
569: );
570: hr_utility.set_location(l_proc,65);
571: End if;
572:
573: hr_utility.set_location('PER ID' || p_person_id,65);
574: hr_utility.set_location('Second NOa ID ' || p_second_noa_id,65);
569: );
570: hr_utility.set_location(l_proc,65);
571: End if;
572:
573: hr_utility.set_location('PER ID' || p_person_id,65);
574: hr_utility.set_location('Second NOa ID ' || p_second_noa_id,65);
575: If p_second_noa_id is not null then
576: --Bug#4089400 commented second-noa-code not in 702,866,740 clause
577: IF l_first_noa_code = '002' then --(l_second_noa_code not in ('702','866','740')) and
570: hr_utility.set_location(l_proc,65);
571: End if;
572:
573: hr_utility.set_location('PER ID' || p_person_id,65);
574: hr_utility.set_location('Second NOa ID ' || p_second_noa_id,65);
575: If p_second_noa_id is not null then
576: --Bug#4089400 commented second-noa-code not in 702,866,740 clause
577: IF l_first_noa_code = '002' then --(l_second_noa_code not in ('702','866','740')) and
578: for altered_par_rec in c_altered_par_rec loop
577: IF l_first_noa_code = '002' then --(l_second_noa_code not in ('702','866','740')) and
578: for altered_par_rec in c_altered_par_rec loop
579: l_altered_pa_request_id := altered_par_rec.altered_pa_request_id;
580: end loop;
581: hr_utility.set_location('Creation of new RPA EI Records' ,67);
582: -- Fetch the original rpa extra information and create new RPA Extra info records
583: -- with current PA request id
584: FOR orig_rei_rec IN c_orig_rei_rec LOOP
585: l_new_rei_rec := orig_rei_rec;
584: FOR orig_rei_rec IN c_orig_rei_rec LOOP
585: l_new_rei_rec := orig_rei_rec;
586: l_new_rei_rec.pa_request_id := p_pa_request_id;
587: l_new_rei_rec.pa_request_extra_info_id := NULL;
588: hr_utility.set_location('Creation of new RPA EI Records'||l_new_rei_rec.information_type ,65);
589: generic_populate_extra_info
590: (p_rei_rec => l_new_rei_rec,
591: p_org_rec => l_org_rec,
592: p_flag => 'C'
602: p_position_id => p_position_id,
603: p_effective_date => trunc(nvl(p_effective_date,sysdate)),
604: p_refresh_flag => p_refresh_flag
605: );
606: hr_utility.set_location(l_proc,150);
607: End if;
608: --
609: -- delete all the extra info records which are not required for the new noa code
610: --
611: for rei_rec in c_rei_rec loop
612: l_rei_rec.pa_request_extra_info_id := rei_rec.pa_request_extra_info_id ;
613: l_rei_rec.object_version_number := rei_rec.object_version_number ;
614: l_flag := 'D';
615: hr_utility.set_location(l_proc,160);
616: generic_populate_extra_info
617: (p_rei_rec => l_rei_rec,
618: p_org_rec => l_org_rec,
619: p_flag => l_flag
619: p_flag => l_flag
620: );
621: end loop;
622: --
623: hr_utility.set_location('Leaving ' || l_proc,135);
624: --
625: End populate_noa_spec_extra_info;
626:
627:
882: Procedure appt_info is
883: Begin
884:
885: -- Read from history if person id is not null
886: hr_utility.set_location('Person inside appt_info is ' || to_char(l_person_id),1);
887: If l_person_id is not null then
888: hr_utility.set_location('Person inside appt_info is ' || to_char(l_person_id),1);
889: -- if the person_id is not the same as the old person_id then do the foll.
890: -- If l_person_id <> nvl(ghr_par_shd.g_old_rec.person_id,hr_api.g_number) then
884:
885: -- Read from history if person id is not null
886: hr_utility.set_location('Person inside appt_info is ' || to_char(l_person_id),1);
887: If l_person_id is not null then
888: hr_utility.set_location('Person inside appt_info is ' || to_char(l_person_id),1);
889: -- if the person_id is not the same as the old person_id then do the foll.
890: -- If l_person_id <> nvl(ghr_par_shd.g_old_rec.person_id,hr_api.g_number) then
891: -- a) Get PER_GROUP1 Information
892: l_refresh_flag := l_per_refresh_flag;
935: p_information_type => 'GHR_US_PER_SEPARATE_RETIRE',
936: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
937: p_per_ei_data => l_per_ei_data
938: );
939: hr_utility.set_location('per_sep_retire' ,1);
940: set_ei(l_org_rec.rei_information7,l_per_ei_data.pei_information5,l_rei_rec.rei_information7,l_refresh_flag);
941: hr_utility.set_location('per_sep_retire' || l_rei_rec.rei_information7 ,2);
942: l_org_rec.rei_information7 := l_per_ei_data.pei_information5;
943: set_ei(l_org_rec.rei_information14,l_per_ei_data.pei_information4,l_rei_rec.rei_information14,l_refresh_flag);
937: p_per_ei_data => l_per_ei_data
938: );
939: hr_utility.set_location('per_sep_retire' ,1);
940: set_ei(l_org_rec.rei_information7,l_per_ei_data.pei_information5,l_rei_rec.rei_information7,l_refresh_flag);
941: hr_utility.set_location('per_sep_retire' || l_rei_rec.rei_information7 ,2);
942: l_org_rec.rei_information7 := l_per_ei_data.pei_information5;
943: set_ei(l_org_rec.rei_information14,l_per_ei_data.pei_information4,l_rei_rec.rei_information14,l_refresh_flag);
944: l_org_rec.rei_information14 := l_per_ei_data.pei_information4;
945: set_ei(l_org_rec.rei_information19,l_per_ei_data.pei_information3,l_rei_rec.rei_information19,l_refresh_flag);
954:
955:
956:
957:
958: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
959: -- Get PER_LEAVE Information
960: hr_utility.set_location('per_leave_info' ,1);
961: ghr_history_fetch.fetch_peopleei
962: (p_person_id => l_person_id,
956:
957:
958: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
959: -- Get PER_LEAVE Information
960: hr_utility.set_location('per_leave_info' ,1);
961: ghr_history_fetch.fetch_peopleei
962: (p_person_id => l_person_id,
963: p_information_type => 'GHR_US_PER_LEAVE_INFO',
964: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
1019: p_pos_ei_data => l_pos_ei_data
1020: );
1021: set_ei(l_org_rec.rei_information13,l_pos_ei_data.poei_information12,l_rei_rec.rei_information13,l_refresh_flag);
1022: l_org_rec.rei_information13 := l_pos_ei_data.poei_information12;
1023: hr_utility.set_location('posei in test ei - ' || l_pos_ei_data.poei_information12,2);
1024: l_pos_ei_data := null;
1025: End if;
1026: hr_utility.set_location('Appt_info Family Code: '||l_noa_family_code,10);
1027: IF NVL(l_noa_family_code,'C') <> 'CORRECT' THEN
1022: l_org_rec.rei_information13 := l_pos_ei_data.poei_information12;
1023: hr_utility.set_location('posei in test ei - ' || l_pos_ei_data.poei_information12,2);
1024: l_pos_ei_data := null;
1025: End if;
1026: hr_utility.set_location('Appt_info Family Code: '||l_noa_family_code,10);
1027: IF NVL(l_noa_family_code,'C') <> 'CORRECT' THEN
1028: OPEN c_noac_1xx;
1029: FETCH c_noac_1xx INTO l_dlei_date;
1030: IF l_dlei_date is not null THEN
1275: -- Check if FEHB exists
1276: l_new_element_name := pqp_fedhr_uspay_int_utils.return_new_element_name('Health Benefits',l_bus_group_id,l_effective_date,null);
1277: FOR l_element_entry_cur IN c_element_entry(p_assignment_id , l_new_element_name, l_effective_date) LOOP
1278: l_fehb_exists := TRUE;
1279: hr_utility.set_location('Health benefits present',111);
1280: EXIT;
1281: END LOOP;
1282: -- Check if FEHB Pre tax exists
1283: IF l_fehb_exists = FALSE THEN
1283: IF l_fehb_exists = FALSE THEN
1284: l_new_element_name := pqp_fedhr_uspay_int_utils.return_new_element_name('Health Benefits Pre tax',l_bus_group_id,l_effective_date,null);
1285: FOR l_element_entry_cur IN c_element_entry(p_assignment_id , l_new_element_name, l_effective_date) LOOP
1286: l_fehb_exists := TRUE;
1287: hr_utility.set_location('Health benefits pre tax present',111);
1288: EXIT;
1289: END LOOP;
1290: END IF;
1291:
1307: l_prev_fegli:= l_cur_element.screen_entry_value;
1308: END IF;
1309: END LOOP;
1310:
1311: hr_utility.set_location('Option' || l_enrollment_option,111);
1312: hr_utility.set_location('Health Plan' || l_health_plan,111);
1313: hr_utility.set_location('Prev. FEGLI ' || l_prev_fegli,111);
1314: hr_utility.set_location('l_person_id ' || l_person_id,111);
1315: hr_utility.set_location('p_effective_date ' || p_effective_date,111);
1308: END IF;
1309: END LOOP;
1310:
1311: hr_utility.set_location('Option' || l_enrollment_option,111);
1312: hr_utility.set_location('Health Plan' || l_health_plan,111);
1313: hr_utility.set_location('Prev. FEGLI ' || l_prev_fegli,111);
1314: hr_utility.set_location('l_person_id ' || l_person_id,111);
1315: hr_utility.set_location('p_effective_date ' || p_effective_date,111);
1316:
1309: END LOOP;
1310:
1311: hr_utility.set_location('Option' || l_enrollment_option,111);
1312: hr_utility.set_location('Health Plan' || l_health_plan,111);
1313: hr_utility.set_location('Prev. FEGLI ' || l_prev_fegli,111);
1314: hr_utility.set_location('l_person_id ' || l_person_id,111);
1315: hr_utility.set_location('p_effective_date ' || p_effective_date,111);
1316:
1317: ghr_history_fetch.fetch_peopleei
1310:
1311: hr_utility.set_location('Option' || l_enrollment_option,111);
1312: hr_utility.set_location('Health Plan' || l_health_plan,111);
1313: hr_utility.set_location('Prev. FEGLI ' || l_prev_fegli,111);
1314: hr_utility.set_location('l_person_id ' || l_person_id,111);
1315: hr_utility.set_location('p_effective_date ' || p_effective_date,111);
1316:
1317: ghr_history_fetch.fetch_peopleei
1318: (p_person_id => l_person_id,
1311: hr_utility.set_location('Option' || l_enrollment_option,111);
1312: hr_utility.set_location('Health Plan' || l_health_plan,111);
1313: hr_utility.set_location('Prev. FEGLI ' || l_prev_fegli,111);
1314: hr_utility.set_location('l_person_id ' || l_person_id,111);
1315: hr_utility.set_location('p_effective_date ' || p_effective_date,111);
1316:
1317: ghr_history_fetch.fetch_peopleei
1318: (p_person_id => l_person_id,
1319: p_information_type => 'GHR_US_PER_BENEFIT_INFO',
1323:
1324: l_date_temp_elig := fnd_date.canonical_to_date(l_per_ei_data.pei_information5);
1325: l_agency_contrib_date := fnd_date.canonical_to_date(l_per_ei_data.pei_information14);
1326:
1327: hr_utility.set_location('l_date_temp_elig' || l_per_ei_data.pei_information5,111);
1328:
1329: IF l_family_code = 'CONV_APP' THEN
1330: IF l_fehb_exists = FALSE OR (l_fehb_exists = TRUE AND NVL(l_enrollment_option,'Z') = 'Z') THEN
1331: -- FEHB Eligibility expires
1329: IF l_family_code = 'CONV_APP' THEN
1330: IF l_fehb_exists = FALSE OR (l_fehb_exists = TRUE AND NVL(l_enrollment_option,'Z') = 'Z') THEN
1331: -- FEHB Eligibility expires
1332: IF l_noa_code IN ('500', '501', '507', '508', '520', '524', '540', '541', '542', '543', '546', '548', '570', '590') THEN
1333: hr_utility.set_location('inside 1st',121);
1334: set_ei(l_org_rec.rei_information3, fnd_date.date_to_canonical(nvl(p_effective_date,sysdate)+60),l_rei_rec.rei_information3,'Y');
1335: END IF;
1336: -- FEHB Temp eligibility expires
1337: IF l_noa_code IN ('515','522','549','571') THEN
1360: l_new_element_name := NULL;
1361: l_new_element_name := pqp_fedhr_uspay_int_utils.return_new_element_name('TSP',l_bus_group_id,l_effective_date,null);
1362: FOR l_element_entry_cur IN c_element_entry(p_assignment_id , l_new_element_name, l_effective_date) LOOP
1363: l_tsp_exists := TRUE;
1364: hr_utility.set_location('TSP present',111);
1365: EXIT;
1366: END LOOP;
1367:
1368: IF l_tsp_exists = TRUE THEN
1382: set_ei(l_org_rec.rei_information12,NULL, l_rei_rec.rei_information12,'Y');
1383: END IF; -- IF nvl(l_retirement_pl
1384:
1385: -- TSP Status
1386: hr_utility.set_location('TSP status' || l_tsp_status,111);
1387: IF nvl(l_retirement_plan,hr_api.g_varchar2) IN ('D','K','L','M','N','P') AND l_tsp_status IS NULL THEN
1388: set_ei(l_org_rec.rei_information15,'I', l_rei_rec.rei_information15,'Y');
1389: ELSIF nvl(l_retirement_plan,hr_api.g_varchar2) IN ('2','4','5') THEN
1390: set_ei(l_org_rec.rei_information15,NULL, l_rei_rec.rei_information15,'Y');
1425: END IF; -- IF NVL(l_retirement_plan,hr_a
1426:
1427: ELSIF l_family_code = 'EXT_NTE' THEN
1428: IF l_noa_code IN ('760','762') THEN
1429: hr_utility.set_location('l_enrollment_option ' || l_enrollment_option,121);
1430: hr_utility.set_location('l_date_temp_elig ' || to_char(l_date_temp_elig,'dd/mm/yyyy'),121);
1431: IF l_fehb_exists = TRUE AND NVL(l_enrollment_option,'Z') = 'Z' THEN
1432: -- FEHB Eligibility date
1433: hr_utility.set_location('Inside l_enrollment_option ' || l_enrollment_option,121);
1426:
1427: ELSIF l_family_code = 'EXT_NTE' THEN
1428: IF l_noa_code IN ('760','762') THEN
1429: hr_utility.set_location('l_enrollment_option ' || l_enrollment_option,121);
1430: hr_utility.set_location('l_date_temp_elig ' || to_char(l_date_temp_elig,'dd/mm/yyyy'),121);
1431: IF l_fehb_exists = TRUE AND NVL(l_enrollment_option,'Z') = 'Z' THEN
1432: -- FEHB Eligibility date
1433: hr_utility.set_location('Inside l_enrollment_option ' || l_enrollment_option,121);
1434: set_ei(l_org_rec.rei_information3,fnd_date.date_to_canonical(l_date_temp_elig+1),l_rei_rec.rei_information3,'Y');
1429: hr_utility.set_location('l_enrollment_option ' || l_enrollment_option,121);
1430: hr_utility.set_location('l_date_temp_elig ' || to_char(l_date_temp_elig,'dd/mm/yyyy'),121);
1431: IF l_fehb_exists = TRUE AND NVL(l_enrollment_option,'Z') = 'Z' THEN
1432: -- FEHB Eligibility date
1433: hr_utility.set_location('Inside l_enrollment_option ' || l_enrollment_option,121);
1434: set_ei(l_org_rec.rei_information3,fnd_date.date_to_canonical(l_date_temp_elig+1),l_rei_rec.rei_information3,'Y');
1435: -- Enrollment
1436: IF l_date_temp_elig <= l_effective_date THEN
1437: set_ei(l_org_rec.rei_information6, 'X', l_rei_rec.rei_information6,'Y');
1456: Procedure mddds_pay is
1457: Begin
1458:
1459: -- Read from history if person id is not null
1460: hr_utility.set_location('Person inside mddds_pay is ' || to_char(l_person_id),1);
1461: If l_assignment_id is not null then
1462: hr_utility.set_location('Person inside mddds_pay is ' || to_char(l_person_id),1);
1463:
1464: l_refresh_flag := l_per_refresh_flag;
1458:
1459: -- Read from history if person id is not null
1460: hr_utility.set_location('Person inside mddds_pay is ' || to_char(l_person_id),1);
1461: If l_assignment_id is not null then
1462: hr_utility.set_location('Person inside mddds_pay is ' || to_char(l_person_id),1);
1463:
1464: l_refresh_flag := l_per_refresh_flag;
1465:
1466: ghr_api.retrieve_element_entry_value
1587:
1588: BEGIN
1589:
1590: If l_assignment_id is not null then
1591: hr_utility.set_location('Person inside premium_pay_ind is ' || to_char(l_person_id),1);
1592: l_refresh_flag := l_per_refresh_flag;
1593:
1594: ghr_api.retrieve_element_entry_value
1595: (p_element_name => 'Premium Pay',
1607:
1608: Procedure appt_transfer is -- set / reset l_update_rei
1609: Begin
1610: -- Read from history if person id is not null
1611: hr_utility.set_location('appt_transfer - person id ' || l_person_id,1);
1612: --Bug 3128526. Changed p_person_id -> l_person_id
1613: If l_person_id is not null then
1614: l_refresh_flag := l_per_refresh_flag;
1615: ghr_history_fetch.fetch_peopleei
1644:
1645: set_ei(l_org_rec.rei_information18,l_per_ei_data.pei_information5,l_rei_rec.rei_information18,l_refresh_flag);
1646: l_org_rec.rei_information18 := l_per_ei_data.pei_information5;
1647:
1648: hr_utility.set_location('RINO ' || l_rei_rec.rei_information17,1);
1649: hr_utility.set_location('RINO _CORE ' || l_per_ei_data.pei_information5,2);
1650:
1651: set_ei(l_org_rec.rei_information19,l_per_ei_data.pei_information4,l_rei_rec.rei_information19,l_refresh_flag);
1652: l_org_rec.rei_information19 := l_per_ei_data.pei_information4;
1645: set_ei(l_org_rec.rei_information18,l_per_ei_data.pei_information5,l_rei_rec.rei_information18,l_refresh_flag);
1646: l_org_rec.rei_information18 := l_per_ei_data.pei_information5;
1647:
1648: hr_utility.set_location('RINO ' || l_rei_rec.rei_information17,1);
1649: hr_utility.set_location('RINO _CORE ' || l_per_ei_data.pei_information5,2);
1650:
1651: set_ei(l_org_rec.rei_information19,l_per_ei_data.pei_information4,l_rei_rec.rei_information19,l_refresh_flag);
1652: l_org_rec.rei_information19 := l_per_ei_data.pei_information4;
1653:
1669: p_information_type => 'GHR_US_PER_SEPARATE_RETIRE',
1670: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
1671: p_per_ei_data => l_per_ei_data
1672: );
1673: hr_utility.set_location('original ' || l_org_rec.rei_information3,1);
1674: hr_utility.set_location(' person' || l_per_ei_data.pei_information7,1);
1675: hr_utility.set_location('rei ' || l_rei_rec.rei_information3,1);
1676:
1677: -- This seems wrong ???? set_ei(l_org_rec.rei_information3,l_per_ei_data.pei_information7,l_rei_rec.rei_information3,l_refresh_flag);
1670: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
1671: p_per_ei_data => l_per_ei_data
1672: );
1673: hr_utility.set_location('original ' || l_org_rec.rei_information3,1);
1674: hr_utility.set_location(' person' || l_per_ei_data.pei_information7,1);
1675: hr_utility.set_location('rei ' || l_rei_rec.rei_information3,1);
1676:
1677: -- This seems wrong ???? set_ei(l_org_rec.rei_information3,l_per_ei_data.pei_information7,l_rei_rec.rei_information3,l_refresh_flag);
1678: -- l_org_rec.rei_information3 := l_per_ei_data.pei_information7;
1671: p_per_ei_data => l_per_ei_data
1672: );
1673: hr_utility.set_location('original ' || l_org_rec.rei_information3,1);
1674: hr_utility.set_location(' person' || l_per_ei_data.pei_information7,1);
1675: hr_utility.set_location('rei ' || l_rei_rec.rei_information3,1);
1676:
1677: -- This seems wrong ???? set_ei(l_org_rec.rei_information3,l_per_ei_data.pei_information7,l_rei_rec.rei_information3,l_refresh_flag);
1678: -- l_org_rec.rei_information3 := l_per_ei_data.pei_information7;
1679:
1676:
1677: -- This seems wrong ???? set_ei(l_org_rec.rei_information3,l_per_ei_data.pei_information7,l_rei_rec.rei_information3,l_refresh_flag);
1678: -- l_org_rec.rei_information3 := l_per_ei_data.pei_information7;
1679:
1680: hr_utility.set_location('original ' || l_org_rec.rei_information3,1);
1681: hr_utility.set_location(' person' || l_per_ei_data.pei_information7,1);
1682: hr_utility.set_location('rei ' || l_rei_rec.rei_information3,1);
1683:
1684: set_ei(l_org_rec.rei_information9,l_per_ei_data.pei_information5,l_rei_rec.rei_information9,l_refresh_flag);
1677: -- This seems wrong ???? set_ei(l_org_rec.rei_information3,l_per_ei_data.pei_information7,l_rei_rec.rei_information3,l_refresh_flag);
1678: -- l_org_rec.rei_information3 := l_per_ei_data.pei_information7;
1679:
1680: hr_utility.set_location('original ' || l_org_rec.rei_information3,1);
1681: hr_utility.set_location(' person' || l_per_ei_data.pei_information7,1);
1682: hr_utility.set_location('rei ' || l_rei_rec.rei_information3,1);
1683:
1684: set_ei(l_org_rec.rei_information9,l_per_ei_data.pei_information5,l_rei_rec.rei_information9,l_refresh_flag);
1685: l_org_rec.rei_information9 := l_per_ei_data.pei_information5;
1678: -- l_org_rec.rei_information3 := l_per_ei_data.pei_information7;
1679:
1680: hr_utility.set_location('original ' || l_org_rec.rei_information3,1);
1681: hr_utility.set_location(' person' || l_per_ei_data.pei_information7,1);
1682: hr_utility.set_location('rei ' || l_rei_rec.rei_information3,1);
1683:
1684: set_ei(l_org_rec.rei_information9,l_per_ei_data.pei_information5,l_rei_rec.rei_information9,l_refresh_flag);
1685: l_org_rec.rei_information9 := l_per_ei_data.pei_information5;
1686:
1704:
1705: l_per_ei_data := null;
1706:
1707:
1708: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
1709: -- Get PER_LEAVE Information
1710: hr_utility.set_location('per_leave_info' ,1);
1711: ghr_history_fetch.fetch_peopleei
1712: (p_person_id => l_person_id,
1706:
1707:
1708: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
1709: -- Get PER_LEAVE Information
1710: hr_utility.set_location('per_leave_info' ,1);
1711: ghr_history_fetch.fetch_peopleei
1712: (p_person_id => l_person_id,
1713: p_information_type => 'GHR_US_PER_LEAVE_INFO',
1714: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
1721: END IF;
1722: l_per_ei_data := null;
1723: --Gain Or Lose
1724: set_ei(l_org_rec.rei_information23,'1B',l_rei_rec.rei_information23,l_refresh_flag);
1725: END IF; -- IF ghr_utility.is_ghr_nfc = 'TRUE'
1726: End if;
1727: If l_assignment_id is not null then
1728: l_refresh_flag := l_asg_refresh_flag;
1729: ghr_history_fetch.fetch_asgei
1782: l_org_rec.rei_information15 := l_pos_ei_data.poei_information12;
1783: End if;
1784: l_pos_ei_data := null;
1785: End if;
1786: hr_utility.set_location('Appt_transfer Family Code: '||l_noa_family_code,10);
1787: IF NVL(l_noa_family_code,'C') <> 'CORRECT' THEN
1788: OPEN c_noac_130;
1789: FETCH c_noac_130 INTO l_dlei_date;
1790: IF l_dlei_date is not null THEN
1863: -- set_ei(l_org_rec.rei_information18,l_per_ei_data.pei_information6,l_rei_rec.rei_information18,l_refresh_flag);
1864: -- l_org_rec.rei_information18 := l_per_ei_data.pei_information6;
1865: l_per_ei_data := null;
1866: -- Get PER_LEAVE Information
1867: hr_utility.set_location('per_leave_info' ,1);
1868: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
1869: ghr_history_fetch.fetch_peopleei
1870: (p_person_id => l_person_id,
1871: p_information_type => 'GHR_US_PER_LEAVE_INFO',
1864: -- l_org_rec.rei_information18 := l_per_ei_data.pei_information6;
1865: l_per_ei_data := null;
1866: -- Get PER_LEAVE Information
1867: hr_utility.set_location('per_leave_info' ,1);
1868: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
1869: ghr_history_fetch.fetch_peopleei
1870: (p_person_id => l_person_id,
1871: p_information_type => 'GHR_US_PER_LEAVE_INFO',
1872: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
1877: ELSE
1878: set_ei(l_org_rec.rei_information22,l_per_ei_data.pei_information4,l_rei_rec.rei_information22,l_refresh_flag);
1879: END IF;
1880: l_per_ei_data := null;
1881: END IF; -- IF ghr_utility.is_ghr_nfc = 'TR
1882: End if;
1883: If NVL(l_assignment_id,p_assignment_id) is not null then
1884: l_refresh_flag := l_asg_refresh_flag;
1885: ghr_history_fetch.fetch_asgei
1987: exit;
1988: END LOOP;
1989: END IF;
1990: --Bug#4126188 End
1991: hr_utility.set_location('conv_Appt Family Code: '||l_noa_family_code,10);
1992: IF NVL(l_noa_family_code,'C') <> 'CORRECT' THEN
1993: OPEN c_noac_5xx;
1994: FETCH c_noac_5xx INTO l_dlei_date;
1995: IF l_dlei_date is not null THEN
2170: Procedure realign is
2171: Begin
2172: -- Bug#3593584 The following variable is used in procedure realign
2173: -- to populate the Extra info only when noa_family_code = 'CORRECT'
2174: hr_utility.set_location('l_noa_family_code '|| l_noa_family_code,10);
2175: -- Bug#4089400 Moved the cursor to the begining of the main procedure.
2176: IF NVL(l_noa_family_code,'C') = 'CORRECT' THEN
2177:
2178: If l_assignment_id is not null then
2333: begin
2334:
2335: If l_person_id is not null then
2336: l_refresh_flag := l_per_refresh_flag;
2337: hr_utility.set_location('l_refresh_flag is ' || l_refresh_flag,1);
2338: ghr_history_fetch.fetch_peopleei
2339: (p_person_id => l_person_id,
2340: p_information_type => 'GHR_US_PER_SCD_INFORMATION',
2341: p_date_effective => nvl(p_effective_date,trunc(sysdate)),
2354: begin
2355:
2356: If l_person_id is not null then
2357: l_refresh_flag := l_per_refresh_flag;
2358: hr_utility.set_location('l_refresh_flag is ' || l_refresh_flag,4);
2359: IF NVL(l_noa_family_code,'C') = 'CORRECT' THEN
2360: ghr_history_fetch.fetch_peopleei
2361: (p_person_id => l_person_id,
2362: p_information_type => 'GHR_US_PER_GROUP1',
2376: begin
2377:
2378: If l_person_id is not null then
2379: l_refresh_flag := l_per_refresh_flag;
2380: hr_utility.set_location('l_refresh_flag is ' || l_refresh_flag,5);
2381: IF NVL(l_noa_family_code,'C') = 'CORRECT' THEN
2382: ghr_history_fetch.fetch_peopleei
2383: (p_person_id => l_person_id,
2384: p_information_type => 'GHR_US_PER_GROUP1',
2413: -- populate the date award earned field with the effective_date
2414: --
2415: IF NVL(l_noa_family_code,'C') <> 'CORRECT' THEN -- Bug 2836175
2416: l_refresh_flag := l_per_refresh_flag;
2417: hr_utility.set_location('eff. date is ' || fnd_date.date_to_canonical(p_effective_date),1);
2418:
2419: --set_ei(l_org_rec.rei_information9, fnd_date.date_to_canonical(p_effective_date), l_rei_rec.rei_information9, l_refresh_flag);
2420: --Bug 2833942
2421: set_ei(l_org_rec.rei_information9, NVL(l_rei_rec.rei_information9,fnd_date.date_to_canonical(p_effective_date)), l_rei_rec.rei_information9, l_refresh_flag);
2419: --set_ei(l_org_rec.rei_information9, fnd_date.date_to_canonical(p_effective_date), l_rei_rec.rei_information9, l_refresh_flag);
2420: --Bug 2833942
2421: set_ei(l_org_rec.rei_information9, NVL(l_rei_rec.rei_information9,fnd_date.date_to_canonical(p_effective_date)), l_rei_rec.rei_information9, l_refresh_flag);
2422:
2423: hr_utility.set_location('Eff date ' || p_effective_date,1);
2424: hr_utility.set_location('Info9 for Gov Awards ' || l_org_rec.rei_information9,1);
2425: -- Start Bug 1379280
2426: FOR c_noa_code1 in c_noa_code LOOP
2427: IF p_position_id is NOT NULL then
2420: --Bug 2833942
2421: set_ei(l_org_rec.rei_information9, NVL(l_rei_rec.rei_information9,fnd_date.date_to_canonical(p_effective_date)), l_rei_rec.rei_information9, l_refresh_flag);
2422:
2423: hr_utility.set_location('Eff date ' || p_effective_date,1);
2424: hr_utility.set_location('Info9 for Gov Awards ' || l_org_rec.rei_information9,1);
2425: -- Start Bug 1379280
2426: FOR c_noa_code1 in c_noa_code LOOP
2427: IF p_position_id is NOT NULL then
2428: FOR c_bg_id in c_bg1 LOOP
2455: l_serv_oblig_stdt DATE;
2456: l_serv_oblig_enddt DATE;
2457: BEGIN
2458: --
2459: hr_utility.set_location('Entering Service Obligation. l_person_id '||l_person_id,0);
2460: hr_utility.set_location('shadow type code '||l_org_rec.rei_information3,1);
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2456: l_serv_oblig_enddt DATE;
2457: BEGIN
2458: --
2459: hr_utility.set_location('Entering Service Obligation. l_person_id '||l_person_id,0);
2460: hr_utility.set_location('shadow type code '||l_org_rec.rei_information3,1);
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2464: hr_utility.set_location('RPAEIT start date '||l_rei_rec.rei_information5,1);
2457: BEGIN
2458: --
2459: hr_utility.set_location('Entering Service Obligation. l_person_id '||l_person_id,0);
2460: hr_utility.set_location('shadow type code '||l_org_rec.rei_information3,1);
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2464: hr_utility.set_location('RPAEIT start date '||l_rei_rec.rei_information5,1);
2465: hr_utility.set_location('RPAEIT end date '||l_rei_rec.rei_information4,1);
2458: --
2459: hr_utility.set_location('Entering Service Obligation. l_person_id '||l_person_id,0);
2460: hr_utility.set_location('shadow type code '||l_org_rec.rei_information3,1);
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2464: hr_utility.set_location('RPAEIT start date '||l_rei_rec.rei_information5,1);
2465: hr_utility.set_location('RPAEIT end date '||l_rei_rec.rei_information4,1);
2466:
2459: hr_utility.set_location('Entering Service Obligation. l_person_id '||l_person_id,0);
2460: hr_utility.set_location('shadow type code '||l_org_rec.rei_information3,1);
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2464: hr_utility.set_location('RPAEIT start date '||l_rei_rec.rei_information5,1);
2465: hr_utility.set_location('RPAEIT end date '||l_rei_rec.rei_information4,1);
2466:
2467: l_serv_oblig_code := NULL;
2460: hr_utility.set_location('shadow type code '||l_org_rec.rei_information3,1);
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2464: hr_utility.set_location('RPAEIT start date '||l_rei_rec.rei_information5,1);
2465: hr_utility.set_location('RPAEIT end date '||l_rei_rec.rei_information4,1);
2466:
2467: l_serv_oblig_code := NULL;
2468: l_serv_oblig_stdt := NULL;
2461: hr_utility.set_location('shadow start date '||l_org_rec.rei_information5,1);
2462: hr_utility.set_location('shadow end date '||l_org_rec.rei_information4,1);
2463: hr_utility.set_location('RPAEIT type code '||l_rei_rec.rei_information3,1);
2464: hr_utility.set_location('RPAEIT start date '||l_rei_rec.rei_information5,1);
2465: hr_utility.set_location('RPAEIT end date '||l_rei_rec.rei_information4,1);
2466:
2467: l_serv_oblig_code := NULL;
2468: l_serv_oblig_stdt := NULL;
2469: l_serv_oblig_enddt := NULL;
2586: --
2587: Procedure nfc_separation is
2588: --
2589: begin
2590: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
2591: set_ei(l_org_rec.rei_information12,'1B',l_rei_rec.rei_information12,l_refresh_flag);
2592: END IF;
2593: end nfc_separation;
2594:
2814: --END IF;
2815: set_ei(l_org_rec.rei_information7,l_per_ei_data.pei_information7,
2816: l_rei_rec.rei_information7,l_refresh_flag);
2817:
2818: hr_utility.set_location('rei_ei_data:'||l_rei_rec.rei_information7,0);
2819: l_per_ei_data := null;
2820: End If;
2821: End ghr_conv_dates;
2822:
2915: if p_person_id = nvl(ghr_par_shd.g_old_rec.person_id,hr_api.g_number) and
2916: (l_rei_rec_exists = 'N' or
2917: trunc(nvl(p_effective_date,sysdate)) <> trunc(nvl(ghr_par_shd.g_old_rec.effective_date,sysdate)))
2918: then
2919: hr_utility.set_location('change in eff. date only',2);
2920: l_person_id := p_person_id;
2921: l_per_refresh_flag := 'Y';
2922: Elsif p_person_id <> nvl(ghr_par_shd.g_old_rec.person_id,hr_api.g_number) then
2923: hr_utility.set_location('person id has changed',3);
2919: hr_utility.set_location('change in eff. date only',2);
2920: l_person_id := p_person_id;
2921: l_per_refresh_flag := 'Y';
2922: Elsif p_person_id <> nvl(ghr_par_shd.g_old_rec.person_id,hr_api.g_number) then
2923: hr_utility.set_location('person id has changed',3);
2924: l_person_id := p_person_id;
2925: l_per_refresh_flag := 'N';
2926: Else
2927: l_person_id := null;
2925: l_per_refresh_flag := 'N';
2926: Else
2927: l_person_id := null;
2928: End if;
2929: hr_utility.set_location('person id in the condition - refresh flag N ' || to_char(l_person_id),1);
2930: End if;
2931: If p_assignment_id is not null then
2932: if p_assignment_id = nvl(ghr_par_shd.g_old_rec.employee_assignment_id,hr_api.g_number) and
2933: (l_rei_rec_exists = 'N' or
3037: l_first_noa_code := c_noa_fam_code_rec.first_noa_code;
3038: l_la_code1 := c_noa_fam_code_rec.la_code1;
3039: l_payment_option := c_noa_fam_code_rec.payment_option;
3040: END LOOP;
3041: hr_utility.set_location('l_noa_family_code '|| l_noa_family_code,10);
3042: l_resp_id := fnd_profile.value('RESP_ID');
3043: l_application_id := fnd_profile.value('RESP_APPL_ID');
3044: hr_utility.set_location('Resp id '|| l_resp_id,10);
3045: hr_utility.set_location('appl id '|| l_application_id,10);
3040: END LOOP;
3041: hr_utility.set_location('l_noa_family_code '|| l_noa_family_code,10);
3042: l_resp_id := fnd_profile.value('RESP_ID');
3043: l_application_id := fnd_profile.value('RESP_APPL_ID');
3044: hr_utility.set_location('Resp id '|| l_resp_id,10);
3045: hr_utility.set_location('appl id '|| l_application_id,10);
3046: for c_info_type_rec in c_info_types(l_application_id,l_resp_id) loop
3047: l_information_type := c_info_type_rec.information_type;
3048: l_rei_rec := NULL;
3041: hr_utility.set_location('l_noa_family_code '|| l_noa_family_code,10);
3042: l_resp_id := fnd_profile.value('RESP_ID');
3043: l_application_id := fnd_profile.value('RESP_APPL_ID');
3044: hr_utility.set_location('Resp id '|| l_resp_id,10);
3045: hr_utility.set_location('appl id '|| l_application_id,10);
3046: for c_info_type_rec in c_info_types(l_application_id,l_resp_id) loop
3047: l_information_type := c_info_type_rec.information_type;
3048: l_rei_rec := NULL;
3049: l_org_rec := NULL; -- Bug 4691293
3122: -- call the procedure to set the refresh flags
3123: If p_refresh_flag = 'N' then
3124: set_refresh_flags;
3125: Else
3126: hr_utility.set_location('p_refresh_flag is Y',3);
3127: l_per_refresh_flag := 'Y';
3128: l_asg_refresh_flag := 'Y';
3129: l_pos_refresh_flag := 'Y';
3130: End if;
3128: l_asg_refresh_flag := 'Y';
3129: l_pos_refresh_flag := 'Y';
3130: End if;
3131: --
3132: hr_utility.set_location('INFO_TYPE_IS'|| l_information_type,0);
3133: hr_utility.set_location('PER ID is'|| l_person_id,0);
3134: if l_information_type = 'GHR_US_PAR_APPT_INFO' then
3135: hr_utility.set_location(l_proc,5);
3136: hr_utility.set_location('info type ' || l_information_type,1);
3129: l_pos_refresh_flag := 'Y';
3130: End if;
3131: --
3132: hr_utility.set_location('INFO_TYPE_IS'|| l_information_type,0);
3133: hr_utility.set_location('PER ID is'|| l_person_id,0);
3134: if l_information_type = 'GHR_US_PAR_APPT_INFO' then
3135: hr_utility.set_location(l_proc,5);
3136: hr_utility.set_location('info type ' || l_information_type,1);
3137: appt_info;
3131: --
3132: hr_utility.set_location('INFO_TYPE_IS'|| l_information_type,0);
3133: hr_utility.set_location('PER ID is'|| l_person_id,0);
3134: if l_information_type = 'GHR_US_PAR_APPT_INFO' then
3135: hr_utility.set_location(l_proc,5);
3136: hr_utility.set_location('info type ' || l_information_type,1);
3137: appt_info;
3138: elsif l_information_type = 'GHR_US_PAR_MD_DDS_PAY' then
3139: hr_utility.set_location(l_proc,15);
3132: hr_utility.set_location('INFO_TYPE_IS'|| l_information_type,0);
3133: hr_utility.set_location('PER ID is'|| l_person_id,0);
3134: if l_information_type = 'GHR_US_PAR_APPT_INFO' then
3135: hr_utility.set_location(l_proc,5);
3136: hr_utility.set_location('info type ' || l_information_type,1);
3137: appt_info;
3138: elsif l_information_type = 'GHR_US_PAR_MD_DDS_PAY' then
3139: hr_utility.set_location(l_proc,15);
3140: hr_utility.set_location('info type ' || l_information_type,3);
3135: hr_utility.set_location(l_proc,5);
3136: hr_utility.set_location('info type ' || l_information_type,1);
3137: appt_info;
3138: elsif l_information_type = 'GHR_US_PAR_MD_DDS_PAY' then
3139: hr_utility.set_location(l_proc,15);
3140: hr_utility.set_location('info type ' || l_information_type,3);
3141: mddds_pay;
3142: elsif l_information_type = 'GHR_US_PAR_PREMIUM_PAY_IND' then
3143: hr_utility.set_location(l_proc,15);
3136: hr_utility.set_location('info type ' || l_information_type,1);
3137: appt_info;
3138: elsif l_information_type = 'GHR_US_PAR_MD_DDS_PAY' then
3139: hr_utility.set_location(l_proc,15);
3140: hr_utility.set_location('info type ' || l_information_type,3);
3141: mddds_pay;
3142: elsif l_information_type = 'GHR_US_PAR_PREMIUM_PAY_IND' then
3143: hr_utility.set_location(l_proc,15);
3144: hr_utility.set_location('info type ' || l_information_type,3);
3139: hr_utility.set_location(l_proc,15);
3140: hr_utility.set_location('info type ' || l_information_type,3);
3141: mddds_pay;
3142: elsif l_information_type = 'GHR_US_PAR_PREMIUM_PAY_IND' then
3143: hr_utility.set_location(l_proc,15);
3144: hr_utility.set_location('info type ' || l_information_type,3);
3145: premium_pay_ind;
3146:
3147: elsif l_information_type = 'GHR_US_PAR_APPT_TRANSFER' then
3140: hr_utility.set_location('info type ' || l_information_type,3);
3141: mddds_pay;
3142: elsif l_information_type = 'GHR_US_PAR_PREMIUM_PAY_IND' then
3143: hr_utility.set_location(l_proc,15);
3144: hr_utility.set_location('info type ' || l_information_type,3);
3145: premium_pay_ind;
3146:
3147: elsif l_information_type = 'GHR_US_PAR_APPT_TRANSFER' then
3148: hr_utility.set_location(l_proc,10);
3144: hr_utility.set_location('info type ' || l_information_type,3);
3145: premium_pay_ind;
3146:
3147: elsif l_information_type = 'GHR_US_PAR_APPT_TRANSFER' then
3148: hr_utility.set_location(l_proc,10);
3149: hr_utility.set_location('info type ' || l_information_type,2);
3150: for c_req_num_rec in c_req_num loop
3151: --Bug 3128526. Added 'NVL' to handle NULL values
3152: if nvl(c_req_num_rec.request_number,hr_api.g_number) <> 'MTI'||to_char(p_pa_request_id) then
3145: premium_pay_ind;
3146:
3147: elsif l_information_type = 'GHR_US_PAR_APPT_TRANSFER' then
3148: hr_utility.set_location(l_proc,10);
3149: hr_utility.set_location('info type ' || l_information_type,2);
3150: for c_req_num_rec in c_req_num loop
3151: --Bug 3128526. Added 'NVL' to handle NULL values
3152: if nvl(c_req_num_rec.request_number,hr_api.g_number) <> 'MTI'||to_char(p_pa_request_id) then
3153: appt_transfer;
3153: appt_transfer;
3154: end if;
3155: end loop;
3156: elsif l_information_type = 'GHR_US_PAR_CONV_APP' then
3157: hr_utility.set_location(l_proc,15);
3158: hr_utility.set_location('info type ' || l_information_type,3);
3159: conv_appt;
3160: elsif l_information_type = 'GHR_US_PAR_RETURN_TO_DUTY' then
3161: hr_utility.set_location(l_proc,20);
3154: end if;
3155: end loop;
3156: elsif l_information_type = 'GHR_US_PAR_CONV_APP' then
3157: hr_utility.set_location(l_proc,15);
3158: hr_utility.set_location('info type ' || l_information_type,3);
3159: conv_appt;
3160: elsif l_information_type = 'GHR_US_PAR_RETURN_TO_DUTY' then
3161: hr_utility.set_location(l_proc,20);
3162: hr_utility.set_location('info type ' || l_information_type,4);
3157: hr_utility.set_location(l_proc,15);
3158: hr_utility.set_location('info type ' || l_information_type,3);
3159: conv_appt;
3160: elsif l_information_type = 'GHR_US_PAR_RETURN_TO_DUTY' then
3161: hr_utility.set_location(l_proc,20);
3162: hr_utility.set_location('info type ' || l_information_type,4);
3163: return_to_duty;
3164: elsif l_information_type = 'GHR_US_PAR_REASSIGNMENT' then
3165: hr_utility.set_location(l_proc,25);
3158: hr_utility.set_location('info type ' || l_information_type,3);
3159: conv_appt;
3160: elsif l_information_type = 'GHR_US_PAR_RETURN_TO_DUTY' then
3161: hr_utility.set_location(l_proc,20);
3162: hr_utility.set_location('info type ' || l_information_type,4);
3163: return_to_duty;
3164: elsif l_information_type = 'GHR_US_PAR_REASSIGNMENT' then
3165: hr_utility.set_location(l_proc,25);
3166: hr_utility.set_location('info type ' || l_information_type,4);
3161: hr_utility.set_location(l_proc,20);
3162: hr_utility.set_location('info type ' || l_information_type,4);
3163: return_to_duty;
3164: elsif l_information_type = 'GHR_US_PAR_REASSIGNMENT' then
3165: hr_utility.set_location(l_proc,25);
3166: hr_utility.set_location('info type ' || l_information_type,4);
3167: reassignment;
3168: elsif l_information_type = 'GHR_US_PAR_REALIGNMENT' then
3169: hr_utility.set_location(l_proc,30);
3162: hr_utility.set_location('info type ' || l_information_type,4);
3163: return_to_duty;
3164: elsif l_information_type = 'GHR_US_PAR_REASSIGNMENT' then
3165: hr_utility.set_location(l_proc,25);
3166: hr_utility.set_location('info type ' || l_information_type,4);
3167: reassignment;
3168: elsif l_information_type = 'GHR_US_PAR_REALIGNMENT' then
3169: hr_utility.set_location(l_proc,30);
3170: hr_utility.set_location('info type ' || l_information_type,4);
3165: hr_utility.set_location(l_proc,25);
3166: hr_utility.set_location('info type ' || l_information_type,4);
3167: reassignment;
3168: elsif l_information_type = 'GHR_US_PAR_REALIGNMENT' then
3169: hr_utility.set_location(l_proc,30);
3170: hr_utility.set_location('info type ' || l_information_type,4);
3171: realign;
3172: elsif l_information_type = 'GHR_US_PAR_CHG_DATA_ELEMENT' then
3173: hr_utility.set_location(l_proc,45);
3166: hr_utility.set_location('info type ' || l_information_type,4);
3167: reassignment;
3168: elsif l_information_type = 'GHR_US_PAR_REALIGNMENT' then
3169: hr_utility.set_location(l_proc,30);
3170: hr_utility.set_location('info type ' || l_information_type,4);
3171: realign;
3172: elsif l_information_type = 'GHR_US_PAR_CHG_DATA_ELEMENT' then
3173: hr_utility.set_location(l_proc,45);
3174: hr_utility.set_location('info type ' || l_information_type,4);
3169: hr_utility.set_location(l_proc,30);
3170: hr_utility.set_location('info type ' || l_information_type,4);
3171: realign;
3172: elsif l_information_type = 'GHR_US_PAR_CHG_DATA_ELEMENT' then
3173: hr_utility.set_location(l_proc,45);
3174: hr_utility.set_location('info type ' || l_information_type,4);
3175: chg_data_element;
3176: elsif l_information_type = 'GHR_US_PAR_CHG_RETIRE_PLAN' then
3177: hr_utility.set_location(l_proc,50);
3170: hr_utility.set_location('info type ' || l_information_type,4);
3171: realign;
3172: elsif l_information_type = 'GHR_US_PAR_CHG_DATA_ELEMENT' then
3173: hr_utility.set_location(l_proc,45);
3174: hr_utility.set_location('info type ' || l_information_type,4);
3175: chg_data_element;
3176: elsif l_information_type = 'GHR_US_PAR_CHG_RETIRE_PLAN' then
3177: hr_utility.set_location(l_proc,50);
3178: hr_utility.set_location('info type ' || l_information_type,4);
3173: hr_utility.set_location(l_proc,45);
3174: hr_utility.set_location('info type ' || l_information_type,4);
3175: chg_data_element;
3176: elsif l_information_type = 'GHR_US_PAR_CHG_RETIRE_PLAN' then
3177: hr_utility.set_location(l_proc,50);
3178: hr_utility.set_location('info type ' || l_information_type,4);
3179: chg_retire_plan;
3180: elsif l_information_type = 'GHR_US_PAR_CHG_SCD' then
3181: hr_utility.set_location(l_proc,55);
3174: hr_utility.set_location('info type ' || l_information_type,4);
3175: chg_data_element;
3176: elsif l_information_type = 'GHR_US_PAR_CHG_RETIRE_PLAN' then
3177: hr_utility.set_location(l_proc,50);
3178: hr_utility.set_location('info type ' || l_information_type,4);
3179: chg_retire_plan;
3180: elsif l_information_type = 'GHR_US_PAR_CHG_SCD' then
3181: hr_utility.set_location(l_proc,55);
3182: hr_utility.set_location('info type ' || l_information_type,4);
3177: hr_utility.set_location(l_proc,50);
3178: hr_utility.set_location('info type ' || l_information_type,4);
3179: chg_retire_plan;
3180: elsif l_information_type = 'GHR_US_PAR_CHG_SCD' then
3181: hr_utility.set_location(l_proc,55);
3182: hr_utility.set_location('info type ' || l_information_type,4);
3183: chg_scd;
3184: --Bug#2146912 Added condition for GHR_US_PAR_TSP
3185: elsif l_information_type = 'GHR_US_PAR_TSP' then
3178: hr_utility.set_location('info type ' || l_information_type,4);
3179: chg_retire_plan;
3180: elsif l_information_type = 'GHR_US_PAR_CHG_SCD' then
3181: hr_utility.set_location(l_proc,55);
3182: hr_utility.set_location('info type ' || l_information_type,4);
3183: chg_scd;
3184: --Bug#2146912 Added condition for GHR_US_PAR_TSP
3185: elsif l_information_type = 'GHR_US_PAR_TSP' then
3186: hr_utility.set_location(l_proc,60);
3182: hr_utility.set_location('info type ' || l_information_type,4);
3183: chg_scd;
3184: --Bug#2146912 Added condition for GHR_US_PAR_TSP
3185: elsif l_information_type = 'GHR_US_PAR_TSP' then
3186: hr_utility.set_location(l_proc,60);
3187: hr_utility.set_location('info type ' || l_information_type,4);
3188: scd_tsp;
3189: elsif l_information_type = 'GHR_US_PAR_NON_PAY_DUTY_STATUS' then
3190: hr_utility.set_location(l_proc,80);
3183: chg_scd;
3184: --Bug#2146912 Added condition for GHR_US_PAR_TSP
3185: elsif l_information_type = 'GHR_US_PAR_TSP' then
3186: hr_utility.set_location(l_proc,60);
3187: hr_utility.set_location('info type ' || l_information_type,4);
3188: scd_tsp;
3189: elsif l_information_type = 'GHR_US_PAR_NON_PAY_DUTY_STATUS' then
3190: hr_utility.set_location(l_proc,80);
3191: hr_utility.set_location('info type ' || l_information_type,4);
3186: hr_utility.set_location(l_proc,60);
3187: hr_utility.set_location('info type ' || l_information_type,4);
3188: scd_tsp;
3189: elsif l_information_type = 'GHR_US_PAR_NON_PAY_DUTY_STATUS' then
3190: hr_utility.set_location(l_proc,80);
3191: hr_utility.set_location('info type ' || l_information_type,4);
3192: non_pay_duty;
3193: elsif l_information_type = 'GHR_US_PAR_LWOP_INFO' then
3194: hr_utility.set_location(l_proc,90);
3187: hr_utility.set_location('info type ' || l_information_type,4);
3188: scd_tsp;
3189: elsif l_information_type = 'GHR_US_PAR_NON_PAY_DUTY_STATUS' then
3190: hr_utility.set_location(l_proc,80);
3191: hr_utility.set_location('info type ' || l_information_type,4);
3192: non_pay_duty;
3193: elsif l_information_type = 'GHR_US_PAR_LWOP_INFO' then
3194: hr_utility.set_location(l_proc,90);
3195: lwop_info;
3190: hr_utility.set_location(l_proc,80);
3191: hr_utility.set_location('info type ' || l_information_type,4);
3192: non_pay_duty;
3193: elsif l_information_type = 'GHR_US_PAR_LWOP_INFO' then
3194: hr_utility.set_location(l_proc,90);
3195: lwop_info;
3196: elsif l_information_type = 'GHR_US_PAR_AWARDS_BONUS' then
3197: hr_utility.set_location(l_proc,95);
3198: gov_awards;
3193: elsif l_information_type = 'GHR_US_PAR_LWOP_INFO' then
3194: hr_utility.set_location(l_proc,90);
3195: lwop_info;
3196: elsif l_information_type = 'GHR_US_PAR_AWARDS_BONUS' then
3197: hr_utility.set_location(l_proc,95);
3198: gov_awards;
3199: elsif l_information_type = 'GHR_US_PAR_CHG_HOURS' then
3200: hr_utility.set_location(l_proc,100);
3201: chg_sched_hours;
3196: elsif l_information_type = 'GHR_US_PAR_AWARDS_BONUS' then
3197: hr_utility.set_location(l_proc,95);
3198: gov_awards;
3199: elsif l_information_type = 'GHR_US_PAR_CHG_HOURS' then
3200: hr_utility.set_location(l_proc,100);
3201: chg_sched_hours;
3202: elsif l_information_type = 'GHR_US_PAR_CHG_TEN' then
3203: hr_utility.set_location(l_proc,110);
3204: chg_in_tenure;
3199: elsif l_information_type = 'GHR_US_PAR_CHG_HOURS' then
3200: hr_utility.set_location(l_proc,100);
3201: chg_sched_hours;
3202: elsif l_information_type = 'GHR_US_PAR_CHG_TEN' then
3203: hr_utility.set_location(l_proc,110);
3204: chg_in_tenure;
3205: -- Bug#2759379 Added condition for GHR_US_PAR_FEGLI
3206: elsif l_information_type = 'GHR_US_PAR_FEGLI' then
3207: hr_utility.set_location(l_proc,120);
3203: hr_utility.set_location(l_proc,110);
3204: chg_in_tenure;
3205: -- Bug#2759379 Added condition for GHR_US_PAR_FEGLI
3206: elsif l_information_type = 'GHR_US_PAR_FEGLI' then
3207: hr_utility.set_location(l_proc,120);
3208: chg_in_fegli;
3209: -- Bug#3385386 Added the following if condition.
3210: elsif l_information_type = 'GHR_US_PAR_FOR_TRANSER_ALLOW' then
3211: hr_utility.set_location(l_proc,125);
3207: hr_utility.set_location(l_proc,120);
3208: chg_in_fegli;
3209: -- Bug#3385386 Added the following if condition.
3210: elsif l_information_type = 'GHR_US_PAR_FOR_TRANSER_ALLOW' then
3211: hr_utility.set_location(l_proc,125);
3212: fta;
3213: elsif l_information_type = 'GHR_US_PAR_NFC_SEPARATION_INFO' then
3214: hr_utility.set_location(l_proc,130);
3215: nfc_separation;
3210: elsif l_information_type = 'GHR_US_PAR_FOR_TRANSER_ALLOW' then
3211: hr_utility.set_location(l_proc,125);
3212: fta;
3213: elsif l_information_type = 'GHR_US_PAR_NFC_SEPARATION_INFO' then
3214: hr_utility.set_location(l_proc,130);
3215: nfc_separation;
3216: elsif l_information_type = 'GHR_US_PAR_ETHNICITY_RACE' then
3217: hr_utility.set_location(l_proc,120);
3218: hr_utility.set_location('info type ' || l_information_type,1);
3213: elsif l_information_type = 'GHR_US_PAR_NFC_SEPARATION_INFO' then
3214: hr_utility.set_location(l_proc,130);
3215: nfc_separation;
3216: elsif l_information_type = 'GHR_US_PAR_ETHNICITY_RACE' then
3217: hr_utility.set_location(l_proc,120);
3218: hr_utility.set_location('info type ' || l_information_type,1);
3219: ethnic_race_info;
3220: elsif l_information_type = 'GHR_US_PAR_BENEFITS' then
3221: hr_utility.set_location(l_proc,125);
3214: hr_utility.set_location(l_proc,130);
3215: nfc_separation;
3216: elsif l_information_type = 'GHR_US_PAR_ETHNICITY_RACE' then
3217: hr_utility.set_location(l_proc,120);
3218: hr_utility.set_location('info type ' || l_information_type,1);
3219: ethnic_race_info;
3220: elsif l_information_type = 'GHR_US_PAR_BENEFITS' then
3221: hr_utility.set_location(l_proc,125);
3222: hr_utility.set_location('info type ' || l_information_type,1);
3217: hr_utility.set_location(l_proc,120);
3218: hr_utility.set_location('info type ' || l_information_type,1);
3219: ethnic_race_info;
3220: elsif l_information_type = 'GHR_US_PAR_BENEFITS' then
3221: hr_utility.set_location(l_proc,125);
3222: hr_utility.set_location('info type ' || l_information_type,1);
3223: appt_benefits;
3224: --Bug# 5039072 Added procedure service_obligation.
3225: elsif l_information_type = 'GHR_US_PAR_SERVICE_OBLIGATION' then
3218: hr_utility.set_location('info type ' || l_information_type,1);
3219: ethnic_race_info;
3220: elsif l_information_type = 'GHR_US_PAR_BENEFITS' then
3221: hr_utility.set_location(l_proc,125);
3222: hr_utility.set_location('info type ' || l_information_type,1);
3223: appt_benefits;
3224: --Bug# 5039072 Added procedure service_obligation.
3225: elsif l_information_type = 'GHR_US_PAR_SERVICE_OBLIGATION' then
3226: hr_utility.set_location(l_proc,130);
3222: hr_utility.set_location('info type ' || l_information_type,1);
3223: appt_benefits;
3224: --Bug# 5039072 Added procedure service_obligation.
3225: elsif l_information_type = 'GHR_US_PAR_SERVICE_OBLIGATION' then
3226: hr_utility.set_location(l_proc,130);
3227: hr_utility.set_location('info type ' || l_information_type,1);
3228: service_obligation;
3229: -- Bug 4280026
3230: elsif l_information_type = 'GHR_US_PAR_EMERG_ESSNTL_ASG' then
3223: appt_benefits;
3224: --Bug# 5039072 Added procedure service_obligation.
3225: elsif l_information_type = 'GHR_US_PAR_SERVICE_OBLIGATION' then
3226: hr_utility.set_location(l_proc,130);
3227: hr_utility.set_location('info type ' || l_information_type,1);
3228: service_obligation;
3229: -- Bug 4280026
3230: elsif l_information_type = 'GHR_US_PAR_EMERG_ESSNTL_ASG' then
3231: hr_utility.set_location(l_proc,135);
3227: hr_utility.set_location('info type ' || l_information_type,1);
3228: service_obligation;
3229: -- Bug 4280026
3230: elsif l_information_type = 'GHR_US_PAR_EMERG_ESSNTL_ASG' then
3231: hr_utility.set_location(l_proc,135);
3232: hr_utility.set_location('info type ' || l_information_type,1);
3233: key_emergency_essntl;
3234: -- Bug 5482191
3235: elsif l_information_type = 'GHR_US_PAR_CONVERSION_DATES' then
3228: service_obligation;
3229: -- Bug 4280026
3230: elsif l_information_type = 'GHR_US_PAR_EMERG_ESSNTL_ASG' then
3231: hr_utility.set_location(l_proc,135);
3232: hr_utility.set_location('info type ' || l_information_type,1);
3233: key_emergency_essntl;
3234: -- Bug 5482191
3235: elsif l_information_type = 'GHR_US_PAR_CONVERSION_DATES' then
3236: hr_utility.set_location(l_proc,140);
3232: hr_utility.set_location('info type ' || l_information_type,1);
3233: key_emergency_essntl;
3234: -- Bug 5482191
3235: elsif l_information_type = 'GHR_US_PAR_CONVERSION_DATES' then
3236: hr_utility.set_location(l_proc,140);
3237: hr_utility.set_location('info type ' || l_information_type,1);
3238: ghr_conv_dates;
3239: /* --Begin Bug# 4588575
3240: elsif l_information_type = 'GHR_US_PAR_PROBATION_INFO' then
3233: key_emergency_essntl;
3234: -- Bug 5482191
3235: elsif l_information_type = 'GHR_US_PAR_CONVERSION_DATES' then
3236: hr_utility.set_location(l_proc,140);
3237: hr_utility.set_location('info type ' || l_information_type,1);
3238: ghr_conv_dates;
3239: /* --Begin Bug# 4588575
3240: elsif l_information_type = 'GHR_US_PAR_PROBATION_INFO' then
3241: hr_utility.set_location(l_proc,270);
3237: hr_utility.set_location('info type ' || l_information_type,1);
3238: ghr_conv_dates;
3239: /* --Begin Bug# 4588575
3240: elsif l_information_type = 'GHR_US_PAR_PROBATION_INFO' then
3241: hr_utility.set_location(l_proc,270);
3242: hr_utility.set_location('info type ' || l_information_type,270);
3243: ghr_prob_info;
3244: elsif l_information_type = 'GHR_US_PAR_SCD_INFO' then
3245: hr_utility.set_location(l_proc,280);
3238: ghr_conv_dates;
3239: /* --Begin Bug# 4588575
3240: elsif l_information_type = 'GHR_US_PAR_PROBATION_INFO' then
3241: hr_utility.set_location(l_proc,270);
3242: hr_utility.set_location('info type ' || l_information_type,270);
3243: ghr_prob_info;
3244: elsif l_information_type = 'GHR_US_PAR_SCD_INFO' then
3245: hr_utility.set_location(l_proc,280);
3246: hr_utility.set_location('info type ' || l_information_type,280);
3241: hr_utility.set_location(l_proc,270);
3242: hr_utility.set_location('info type ' || l_information_type,270);
3243: ghr_prob_info;
3244: elsif l_information_type = 'GHR_US_PAR_SCD_INFO' then
3245: hr_utility.set_location(l_proc,280);
3246: hr_utility.set_location('info type ' || l_information_type,280);
3247: ghr_scd_info;
3248: --end Bug# 4588575
3249: */ --Backout the changes done for Bug# 4588575
3242: hr_utility.set_location('info type ' || l_information_type,270);
3243: ghr_prob_info;
3244: elsif l_information_type = 'GHR_US_PAR_SCD_INFO' then
3245: hr_utility.set_location(l_proc,280);
3246: hr_utility.set_location('info type ' || l_information_type,280);
3247: ghr_scd_info;
3248: --end Bug# 4588575
3249: */ --Backout the changes done for Bug# 4588575
3250: -- Modifications related to Bug#6312144 -- New RPA EIT Benefits
3248: --end Bug# 4588575
3249: */ --Backout the changes done for Bug# 4588575
3250: -- Modifications related to Bug#6312144 -- New RPA EIT Benefits
3251: elsif l_information_type = 'GHR_US_PAR_BENEFITS_CONT' then
3252: hr_utility.set_location(l_proc,5);
3253: hr_utility.set_location('info type ' || l_information_type,1);
3254: ipa_benefits_cont;
3255: elsif l_information_type = 'GHR_US_PAR_RETIRMENT_SYS_INFO' then
3256: hr_utility.set_location(l_proc,5);
3249: */ --Backout the changes done for Bug# 4588575
3250: -- Modifications related to Bug#6312144 -- New RPA EIT Benefits
3251: elsif l_information_type = 'GHR_US_PAR_BENEFITS_CONT' then
3252: hr_utility.set_location(l_proc,5);
3253: hr_utility.set_location('info type ' || l_information_type,1);
3254: ipa_benefits_cont;
3255: elsif l_information_type = 'GHR_US_PAR_RETIRMENT_SYS_INFO' then
3256: hr_utility.set_location(l_proc,5);
3257: hr_utility.set_location('info type ' || l_information_type,1);
3252: hr_utility.set_location(l_proc,5);
3253: hr_utility.set_location('info type ' || l_information_type,1);
3254: ipa_benefits_cont;
3255: elsif l_information_type = 'GHR_US_PAR_RETIRMENT_SYS_INFO' then
3256: hr_utility.set_location(l_proc,5);
3257: hr_utility.set_location('info type ' || l_information_type,1);
3258: retirement_system_info;
3259: elsif l_information_type = 'GHR_US_PAR_BENEFIT_INFO' then
3260: hr_utility.set_location(l_proc,5);
3253: hr_utility.set_location('info type ' || l_information_type,1);
3254: ipa_benefits_cont;
3255: elsif l_information_type = 'GHR_US_PAR_RETIRMENT_SYS_INFO' then
3256: hr_utility.set_location(l_proc,5);
3257: hr_utility.set_location('info type ' || l_information_type,1);
3258: retirement_system_info;
3259: elsif l_information_type = 'GHR_US_PAR_BENEFIT_INFO' then
3260: hr_utility.set_location(l_proc,5);
3261: hr_utility.set_location('info type ' || l_information_type,1);
3256: hr_utility.set_location(l_proc,5);
3257: hr_utility.set_location('info type ' || l_information_type,1);
3258: retirement_system_info;
3259: elsif l_information_type = 'GHR_US_PAR_BENEFIT_INFO' then
3260: hr_utility.set_location(l_proc,5);
3261: hr_utility.set_location('info type ' || l_information_type,1);
3262: par_benefits;
3263: -- Modifications related to Bug#6312144 -- New RPA EIT Benefits
3264: end if;
3257: hr_utility.set_location('info type ' || l_information_type,1);
3258: retirement_system_info;
3259: elsif l_information_type = 'GHR_US_PAR_BENEFIT_INFO' then
3260: hr_utility.set_location(l_proc,5);
3261: hr_utility.set_location('info type ' || l_information_type,1);
3262: par_benefits;
3263: -- Modifications related to Bug#6312144 -- New RPA EIT Benefits
3264: end if;
3265:
3339: /*Start - Bug 6129752*/
3340: IF p_assignment_id IS NULL THEN
3341: FOR C_GET_ASSIGNMENNT_ID IN GET_ASSIGNEMNT_ID LOOP
3342: l_assignment_id := C_GET_ASSIGNMENNT_ID.assignment_id;
3343: IF ( hr_utility.debug_enabled()) THEN
3344: hr_utility.set_location(' P_Assignment id is null and l_assignment is'||l_assignment_id,1733);
3345: END IF;
3346: END LOOP;
3347: END IF;
3340: IF p_assignment_id IS NULL THEN
3341: FOR C_GET_ASSIGNMENNT_ID IN GET_ASSIGNEMNT_ID LOOP
3342: l_assignment_id := C_GET_ASSIGNMENNT_ID.assignment_id;
3343: IF ( hr_utility.debug_enabled()) THEN
3344: hr_utility.set_location(' P_Assignment id is null and l_assignment is'||l_assignment_id,1733);
3345: END IF;
3346: END LOOP;
3347: END IF;
3348: /*End - Bug 6129752*/
3393:
3394: l_rei_rec.information_type := l_information_type;
3395: l_rei_rec.pa_request_id := p_pa_request_id;
3396:
3397: hr_utility.set_location('Test Null EI',110);
3398: If l_rei_rec.rei_information1 is not null or l_rei_rec.rei_information2 is not null or
3399: l_rei_rec.rei_information3 is not null or l_rei_rec.rei_information4 is not null or
3400: l_rei_rec.rei_information5 is not null or l_rei_rec.rei_information6 is not null or
3401: l_rei_rec.rei_information7 is not null or l_rei_rec.rei_information8 is not null or
3409: l_rei_rec.rei_information23 is not null or l_rei_rec.rei_information24 is not null or
3410: l_rei_rec.rei_information25 is not null or l_rei_rec.rei_information26 is not null or
3411: l_rei_rec.rei_information27 is not null or l_rei_rec.rei_information28 is not null or
3412: l_rei_rec.rei_information29 is not null or l_rei_rec.rei_information30 is not null then
3413: hr_utility.set_location('l_update_rei is Y ',1);
3414: l_update_rei := 'Y';
3415: Else
3416: l_update_rei := 'N';
3417: hr_utility.set_location('l_update_rei is N ',1);
3413: hr_utility.set_location('l_update_rei is Y ',1);
3414: l_update_rei := 'Y';
3415: Else
3416: l_update_rei := 'N';
3417: hr_utility.set_location('l_update_rei is N ',1);
3418: End if;
3419:
3420: hr_utility.set_location('Test Null EI',110);
3421: determine_operation
3416: l_update_rei := 'N';
3417: hr_utility.set_location('l_update_rei is N ',1);
3418: End if;
3419:
3420: hr_utility.set_location('Test Null EI',110);
3421: determine_operation
3422: (p_pa_request_id => p_pa_request_id,
3423: p_information_type => l_information_type,
3424: p_update_rei => l_update_rei,
3427: p_pa_request_extra_info_id => l_rei_rec.pa_request_extra_info_id,
3428: p_object_version_number => l_rei_rec.object_version_number
3429: );
3430:
3431: hr_utility.set_location('PAR ' || to_char(l_rei_rec.pa_request_id),1);
3432: hr_utility.set_location('Info type ' || l_rei_rec.information_type,2);
3433: hr_utility.set_location('Flag ' || l_flag ,3);
3434:
3435: generic_populate_extra_info
3428: p_object_version_number => l_rei_rec.object_version_number
3429: );
3430:
3431: hr_utility.set_location('PAR ' || to_char(l_rei_rec.pa_request_id),1);
3432: hr_utility.set_location('Info type ' || l_rei_rec.information_type,2);
3433: hr_utility.set_location('Flag ' || l_flag ,3);
3434:
3435: generic_populate_extra_info
3436: (p_rei_rec => l_rei_rec,
3429: );
3430:
3431: hr_utility.set_location('PAR ' || to_char(l_rei_rec.pa_request_id),1);
3432: hr_utility.set_location('Info type ' || l_rei_rec.information_type,2);
3433: hr_utility.set_location('Flag ' || l_flag ,3);
3434:
3435: generic_populate_extra_info
3436: (p_rei_rec => l_rei_rec,
3437: p_org_rec => l_org_rec,
3582:
3583:
3584:
3585: begin
3586: hr_utility.set_location('Entering fetch generic ',1);
3587: hr_utility.set_location('Entering ' || l_proc,5);
3588: l_update_rei := 'N';
3589: l_flag := null;
3590: l_person_id := p_person_id;
3583:
3584:
3585: begin
3586: hr_utility.set_location('Entering fetch generic ',1);
3587: hr_utility.set_location('Entering ' || l_proc,5);
3588: l_update_rei := 'N';
3589: l_flag := null;
3590: l_person_id := p_person_id;
3591: l_assignment_id := p_assignment_id;
3751: l_org_rec.rei_information30 := rei_rec.rei_information30;
3752: end loop;
3753:
3754:
3755: hr_utility.set_location(l_proc,10);
3756: l_exists := FALSE;
3757:
3758: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'APP' then
3759: hr_utility.set_location(l_proc,11);
3755: hr_utility.set_location(l_proc,10);
3756: l_exists := FALSE;
3757:
3758: If nvl(l_noa_family_code,hr_api.g_varchar2) = 'APP' then
3759: hr_utility.set_location(l_proc,11);
3760: l_asg_refresh_flag := 'Y';
3761: If p_person_id is not null then
3762: for bus_gp in c_bus_gp loop
3763: hr_utility.set_location('bus gp is ' || bus_gp.business_group_id,12);
3759: hr_utility.set_location(l_proc,11);
3760: l_asg_refresh_flag := 'Y';
3761: If p_person_id is not null then
3762: for bus_gp in c_bus_gp loop
3763: hr_utility.set_location('bus gp is ' || bus_gp.business_group_id,12);
3764: l_business_group_id := bus_gp.business_group_id;
3765: end loop;
3766: Else
3767: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_business_group_id);
3764: l_business_group_id := bus_gp.business_group_id;
3765: end loop;
3766: Else
3767: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_business_group_id);
3768: hr_utility.set_location('bus gp is ' || l_business_group_id,13);
3769: End if;
3770: for def_payroll in c_def_payroll loop
3771: hr_utility.set_location(l_proc,14);
3772: l_exists := TRUE;
3767: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_business_group_id);
3768: hr_utility.set_location('bus gp is ' || l_business_group_id,13);
3769: End if;
3770: for def_payroll in c_def_payroll loop
3771: hr_utility.set_location(l_proc,14);
3772: l_exists := TRUE;
3773: set_ei(l_org_rec.rei_information3,to_char(def_payroll.payroll_id),l_rei_rec.rei_information3,l_asg_refresh_flag);
3774: l_rei_rec.information_type := 'GHR_US_PAR_PAYROLL_TYPE';
3775: exit;
3774: l_rei_rec.information_type := 'GHR_US_PAR_PAYROLL_TYPE';
3775: exit;
3776: end loop;
3777: ELSE -- For conversion of exemployee defaults to 'Biweekly' -- Bug # 1236354
3778: hr_utility.set_location(l_proc,15);
3779: FOR person_type_rec in c_person_type LOOP
3780: l_person_type := person_type_rec.system_person_type;
3781: hr_utility.set_location(' Person Type is ' || l_person_type,16);
3782: EXIT;
3777: ELSE -- For conversion of exemployee defaults to 'Biweekly' -- Bug # 1236354
3778: hr_utility.set_location(l_proc,15);
3779: FOR person_type_rec in c_person_type LOOP
3780: l_person_type := person_type_rec.system_person_type;
3781: hr_utility.set_location(' Person Type is ' || l_person_type,16);
3782: EXIT;
3783: END LOOP;
3784: IF l_noa_family_code = 'CONV_APP' and l_person_type = 'EX_EMP' THEN
3785: l_asg_refresh_flag := 'Y';
3784: IF l_noa_family_code = 'CONV_APP' and l_person_type = 'EX_EMP' THEN
3785: l_asg_refresh_flag := 'Y';
3786: IF p_person_id is not null THEN
3787: FOR bus_gp in c_bus_gp LOOP
3788: hr_utility.set_location('bus gp is ' || bus_gp.business_group_id,17);
3789: l_business_group_id := bus_gp.business_group_id;
3790: END LOOP;
3791: END IF;
3792: FOR def_payroll in c_def_payroll LOOP
3789: l_business_group_id := bus_gp.business_group_id;
3790: END LOOP;
3791: END IF;
3792: FOR def_payroll in c_def_payroll LOOP
3793: hr_utility.set_location(l_proc,18);
3794: l_exists := TRUE;
3795: set_ei(l_org_rec.rei_information3,to_char(def_payroll.payroll_id),l_rei_rec.rei_information3,l_asg_refresh_flag);
3796: l_rei_rec.information_type := 'GHR_US_PAR_PAYROLL_TYPE';
3797: exit;
3797: exit;
3798: END LOOP;
3799: ELSE -- fetch payroll from employee's assignment record
3800: FOR payroll in C_payroll LOOP
3801: hr_utility.set_location(l_proc,19);
3802: l_exists := TRUE;
3803: set_ei(l_org_rec.rei_information3,to_char(payroll.payroll_id),l_rei_rec.rei_information3,l_asg_refresh_flag);
3804: l_rei_rec.information_type := 'GHR_US_PAR_PAYROLL_TYPE';
3805: END LOOP;
3806: END IF;
3807: END IF;
3808:
3809: If l_rei_rec.rei_information3 is not null then
3810: hr_utility.set_location(l_proc,20);
3811: l_update_rei := 'Y';
3812: End if;
3813:
3814: l_rei_rec.pa_request_id := p_pa_request_id;
3811: l_update_rei := 'Y';
3812: End if;
3813:
3814: l_rei_rec.pa_request_id := p_pa_request_id;
3815: hr_utility.set_location(l_proc,25);
3816: determine_operation
3817: (p_pa_request_id => p_pa_request_id,
3818: p_information_type => 'GHR_US_PAR_PAYROLL_TYPE',
3819: p_update_rei => l_update_rei,
3822: p_pa_request_extra_info_id => l_rei_rec.pa_request_extra_info_id,
3823: p_object_version_number => l_rei_rec.object_version_number
3824: );
3825:
3826: hr_utility.set_location(l_proc,30);
3827: generic_populate_extra_info
3828: (p_rei_rec => l_rei_rec,
3829: p_org_rec => l_org_rec,
3830: p_flag => l_flag
3911: l_org_rec.rei_information30 := rei_rec.rei_information30;
3912: end loop;
3913:
3914:
3915: hr_utility.set_location(l_proc,40);
3916: ghr_api.return_special_information
3917: (p_person_id => l_person_id,
3918: p_structure_name => 'US Fed Perf Appraisal',
3919: p_effective_date => nvl(p_effective_date,trunc(sysdate)),
3918: p_structure_name => 'US Fed Perf Appraisal',
3919: p_effective_date => nvl(p_effective_date,trunc(sysdate)),
3920: p_special_info => l_perf_appraisal
3921: );
3922: hr_utility.set_location(l_proc,45);
3923: -- use set_ei
3924: set_ei(l_org_rec.rei_information3,l_perf_appraisal.segment2,l_rei_rec.rei_information3,l_per_refresh_flag);
3925: set_ei(l_org_rec.rei_information4,l_perf_appraisal.segment4,l_rei_rec.rei_information4,l_per_refresh_flag);
3926:
3965: l_rei_rec.rei_information13 is not null or l_rei_rec.rei_information14 is not null or
3966: l_rei_rec.rei_information15 is not null or l_rei_rec.rei_information16 is not null or
3967: l_rei_rec.rei_information17 is not null or l_rei_rec.rei_information18 is not null then
3968:
3969: hr_utility.set_location(l_proc,50);
3970: l_update_rei := 'Y';
3971: Else
3972: hr_utility.set_location(l_proc,55);
3973: l_update_rei := 'N';
3968:
3969: hr_utility.set_location(l_proc,50);
3970: l_update_rei := 'Y';
3971: Else
3972: hr_utility.set_location(l_proc,55);
3973: l_update_rei := 'N';
3974: End if;*/
3975: --Commented the above IF condition since 'US Fed Perf Appraisal' is a mandatory SIT
3976: -- and we will never have to delete this record from the Extra info table.!!
3979: ---
3980: l_rei_rec.pa_request_id := p_pa_request_id;
3981: l_rei_rec.information_type := 'GHR_US_PAR_PERF_APPRAISAL';
3982:
3983: hr_utility.set_location(l_proc,60);
3984:
3985: determine_operation
3986: (p_pa_request_id => p_pa_request_id,
3987: p_information_type => 'GHR_US_PAR_PERF_APPRAISAL',
3991: p_pa_request_extra_info_id => l_rei_rec.pa_request_extra_info_id,
3992: p_object_version_number => l_rei_rec.object_version_number
3993: );
3994:
3995: hr_utility.set_location(l_proc,65);
3996: generic_populate_extra_info
3997: (p_rei_rec => l_rei_rec,
3998: p_org_rec => l_org_rec,
3999: p_flag => l_flag
3998: p_org_rec => l_org_rec,
3999: p_flag => l_flag
4000: );
4001: End if;
4002: hr_utility.set_location('Leaving ' || l_proc,70);
4003: End fetch_generic_extra_info;
4004:
4005:
4006: -- Get Information Type
4088: where rei.pa_request_id = p_pa_request_id
4089: and rei.information_type = p_information_type;
4090:
4091: Begin
4092: hr_utility.set_location('Entering '|| l_proc,10);
4093: l_rei_rec := p_rei_rec;
4094:
4095: for rei_rec in c_rei_rec loop
4096: p_object_version_number := rei_rec.object_version_number;
4124: l_dummy.rei_information27 := rei_rec.rei_information27;
4125: l_dummy.rei_information28 := rei_rec.rei_information28;
4126: l_dummy.rei_information29 := rei_rec.rei_information29;
4127: l_dummy.rei_information30 := rei_rec.rei_information30;
4128: hr_utility.set_location(l_proc,20);
4129: l_exists := true;
4130: end loop;
4131:
4132: -- If non-sf52 data already exists, then as a result of the new changes, there might be need to update/ delete it.
4135: -- Else if non-sf52 does not exists, then if update_rei = 'Y', then Create. else do nothing.
4136:
4137:
4138: If l_exists then
4139: hr_utility.set_location(' rei exists ',1);
4140: If p_update_rei = 'Y' then
4141: hr_utility.set_location(' Update ',1);
4142: If nvl(l_dummy.rei_information3,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information3,hr_api.g_varchar2) or
4143: nvl(l_dummy.rei_information4,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information4,hr_api.g_varchar2) or
4137:
4138: If l_exists then
4139: hr_utility.set_location(' rei exists ',1);
4140: If p_update_rei = 'Y' then
4141: hr_utility.set_location(' Update ',1);
4142: If nvl(l_dummy.rei_information3,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information3,hr_api.g_varchar2) or
4143: nvl(l_dummy.rei_information4,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information4,hr_api.g_varchar2) or
4144: nvl(l_dummy.rei_information5,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information5,hr_api.g_varchar2) or
4145: nvl(l_dummy.rei_information6,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information6,hr_api.g_varchar2) or
4166: nvl(l_dummy.rei_information27,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information27,hr_api.g_varchar2) or
4167: nvl(l_dummy.rei_information28,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information28,hr_api.g_varchar2) or
4168: nvl(l_dummy.rei_information29,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information29,hr_api.g_varchar2) or
4169: nvl(l_dummy.rei_information30,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information30,hr_api.g_varchar2) then
4170: hr_utility.set_location('operation is Update',1);
4171: p_operation_flag := 'U';
4172: hr_utility.set_location(l_proc,25);
4173: End if;
4174: Else
4168: nvl(l_dummy.rei_information29,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information29,hr_api.g_varchar2) or
4169: nvl(l_dummy.rei_information30,hr_api.g_varchar2) <> nvl(l_rei_rec.rei_information30,hr_api.g_varchar2) then
4170: hr_utility.set_location('operation is Update',1);
4171: p_operation_flag := 'U';
4172: hr_utility.set_location(l_proc,25);
4173: End if;
4174: Else
4175: hr_utility.set_location(' Delete ',1);
4176: hr_utility.set_location(l_proc,30);
4171: p_operation_flag := 'U';
4172: hr_utility.set_location(l_proc,25);
4173: End if;
4174: Else
4175: hr_utility.set_location(' Delete ',1);
4176: hr_utility.set_location(l_proc,30);
4177: p_operation_flag := 'D';
4178: End if;
4179: Else
4172: hr_utility.set_location(l_proc,25);
4173: End if;
4174: Else
4175: hr_utility.set_location(' Delete ',1);
4176: hr_utility.set_location(l_proc,30);
4177: p_operation_flag := 'D';
4178: End if;
4179: Else
4180: If p_update_rei = 'Y' then
4177: p_operation_flag := 'D';
4178: End if;
4179: Else
4180: If p_update_rei = 'Y' then
4181: hr_utility.set_location(l_proc,35);
4182: hr_utility.set_location(' Create ',1);
4183: p_operation_flag := 'C';
4184: Else
4185: hr_utility.set_location(' Null ',1);
4178: End if;
4179: Else
4180: If p_update_rei = 'Y' then
4181: hr_utility.set_location(l_proc,35);
4182: hr_utility.set_location(' Create ',1);
4183: p_operation_flag := 'C';
4184: Else
4185: hr_utility.set_location(' Null ',1);
4186: hr_utility.set_location(l_proc,40);
4181: hr_utility.set_location(l_proc,35);
4182: hr_utility.set_location(' Create ',1);
4183: p_operation_flag := 'C';
4184: Else
4185: hr_utility.set_location(' Null ',1);
4186: hr_utility.set_location(l_proc,40);
4187: p_operation_flag := null;
4188: End if;
4189: End if;
4182: hr_utility.set_location(' Create ',1);
4183: p_operation_flag := 'C';
4184: Else
4185: hr_utility.set_location(' Null ',1);
4186: hr_utility.set_location(l_proc,40);
4187: p_operation_flag := null;
4188: End if;
4189: End if;
4190: End determine_operation;
4201: l_org_rec ghr_pa_request_ei_shadow%rowtype;
4202: l_proc varchar2(72) := 'generic_populate_extra_info';
4203:
4204: Begin
4205: hr_utility.set_location('Entering ' || l_proc,10);
4206: hr_utility.set_location('Flag := ' || l_flag,1);
4207:
4208: -- l_flag :
4209: -- C - Create
4202: l_proc varchar2(72) := 'generic_populate_extra_info';
4203:
4204: Begin
4205: hr_utility.set_location('Entering ' || l_proc,10);
4206: hr_utility.set_location('Flag := ' || l_flag,1);
4207:
4208: -- l_flag :
4209: -- C - Create
4210: -- U - Update
4211: -- D - Delete
4212: -- Null - do nothing
4213:
4214: If l_flag is not null then
4215: hr_utility.set_location(l_proc,15);
4216:
4217: If l_flag = 'C' then
4218: hr_utility.set_location(l_proc,20);
4219: ghr_par_extra_info_api.create_pa_request_extra_info
4214: If l_flag is not null then
4215: hr_utility.set_location(l_proc,15);
4216:
4217: If l_flag = 'C' then
4218: hr_utility.set_location(l_proc,20);
4219: ghr_par_extra_info_api.create_pa_request_extra_info
4220: (p_pa_request_id => l_rei_rec.pa_request_id,
4221: p_information_type => l_rei_rec.information_type, -- to be replaced by the info_type returned by the get_infor._type
4222: p_rei_information_category => l_rei_rec.information_type,
4325: l_rei_rec.rei_information30
4326: );
4327:
4328: Elsif l_flag = 'U' then
4329: hr_utility.set_location(l_proc,25);
4330: hr_utility.set_location('update extra info',1);
4331: ghr_par_extra_info_api.update_pa_request_extra_info
4332: (P_PA_REQUEST_EXTRA_INFO_ID => l_rei_rec.pa_request_extra_info_id,
4333: P_OBJECT_VERSION_NUMBER => l_rei_rec.object_version_number ,
4326: );
4327:
4328: Elsif l_flag = 'U' then
4329: hr_utility.set_location(l_proc,25);
4330: hr_utility.set_location('update extra info',1);
4331: ghr_par_extra_info_api.update_pa_request_extra_info
4332: (P_PA_REQUEST_EXTRA_INFO_ID => l_rei_rec.pa_request_extra_info_id,
4333: P_OBJECT_VERSION_NUMBER => l_rei_rec.object_version_number ,
4334: p_rei_information1 => l_rei_rec.rei_information1,
4361: p_rei_information28 => l_rei_rec.rei_information28,
4362: p_rei_information29 => l_rei_rec.rei_information29,
4363: p_rei_information30 => l_rei_rec.rei_information30
4364: );
4365: hr_utility.set_location('bef upd of shad ' || 'ovn ' || l_rei_rec.object_version_number,2);
4366:
4367: update ghr_pa_request_ei_shadow set
4368: rei_information1 = p_org_rec.rei_information1,
4369: rei_information2 = p_org_rec.rei_information2,
4398: where pa_request_extra_info_id = l_rei_rec.pa_request_extra_info_id;
4399:
4400:
4401: Elsif l_flag = 'D' then
4402: hr_utility.set_location(l_proc,30);
4403: hr_utility.set_location('delete extra info',1);
4404:
4405: ghr_par_extra_info_api.delete_pa_request_extra_info
4406: (p_pa_request_extra_info_id => l_rei_rec.pa_request_extra_info_id,
4399:
4400:
4401: Elsif l_flag = 'D' then
4402: hr_utility.set_location(l_proc,30);
4403: hr_utility.set_location('delete extra info',1);
4404:
4405: ghr_par_extra_info_api.delete_pa_request_extra_info
4406: (p_pa_request_extra_info_id => l_rei_rec.pa_request_extra_info_id,
4407: p_object_version_number => l_rei_rec.object_version_number
4409: delete from ghr_pa_request_ei_shadow
4410: where pa_request_extra_info_id = l_rei_rec.pa_request_extra_info_id;
4411: End if;
4412: End if;
4413: hr_utility.set_location('Leaving ' || l_proc,40);
4414: end generic_populate_extra_info ;
4415:
4416: Procedure set_ei
4417: (p_original in out NOCOPY varchar2,
4422:
4423: begin
4424:
4425: If p_refresh_flag = 'Y' then
4426: hr_utility.set_location('in set ei - Y ',5);
4427: If nvl(p_as_in_ddf,hr_api.g_varchar2) <> nvl(p_as_in_core,hr_api.g_varchar2) and
4428: nvl(p_as_in_ddf,hr_api.g_varchar2) = nvl(p_original,hr_api.g_varchar2) then
4429: p_as_in_ddf := p_as_in_core;
4430: End if;
4428: nvl(p_as_in_ddf,hr_api.g_varchar2) = nvl(p_original,hr_api.g_varchar2) then
4429: p_as_in_ddf := p_as_in_core;
4430: End if;
4431: Else
4432: hr_utility.set_location('in set ei - N ',6);
4433: p_as_in_ddf := p_as_in_core;
4434: End if;
4435: p_original := p_as_in_core;
4436: End set_ei;