DBA Data[Home] [Help]

APPS.BEN_EXT_CHLG dependencies on HR_UTILITY

Line 147: hr_utility.set_location('Entering:'|| l_proc, 10);

143: l_return boolean;
144: --
145: begin
146: --
147: hr_utility.set_location('Entering:'|| l_proc, 10);
148: --
149: open get_change;
150: fetch get_change into l_dummy;
151: --

Line 162: hr_utility.set_location('Exiting:'|| l_proc, 99);

158: close get_change;
159: --
160: return (l_return);
161: --
162: hr_utility.set_location('Exiting:'|| l_proc, 99);
163: --
164: end change_exists_in_db;
165: --
166: --

Line 180: hr_utility.set_location('Entering:'|| l_proc, 10);

176: l_return boolean := FALSE;
177: --
178: begin
179: --
180: hr_utility.set_location('Entering:'|| l_proc, 10);
181: --
182: for l_counter in 1..p_chg_evt_tab.count loop
183: if p_chg_evt_tab(l_counter) = p_chg_evt_cd
184: and p_chg_eff_tab(l_counter) = p_chg_eff_dt then

Line 192: hr_utility.set_location('Exiting:'|| l_proc, 99);

188: end loop;
189: --
190: return (l_return);
191: --
192: hr_utility.set_location('Exiting:'|| l_proc, 99);
193: --
194: end change_exists_in_mem;
195: --
196: ------------------------------------------------------------------------

Line 217: hr_utility.set_location('Entering:'|| l_proc, 10);

213: l_return boolean;
214: --
215: begin
216: --
217: hr_utility.set_location('Entering:'|| l_proc, 10);
218: --
219: open c_lookup_is_enabled;
220: fetch c_lookup_is_enabled into l_dummy;
221: --

Line 232: hr_utility.set_location('Exiting:'|| l_proc, 99);

228: close c_lookup_is_enabled;
229: --
230: return (l_return);
231: --
232: hr_utility.set_location('Exiting:'|| l_proc, 99);
233: --
234: end change_event_is_enabled;
235: --
236:

Line 254: hr_utility.set_location('Entering:'|| l_proc, 05);

250: --
251: l_proc varchar2(100) := 'ben_ext_chlg.log_per_chg';
252: begin
253:
254: hr_utility.set_location('Entering:'|| l_proc, 05);
255:
256:
257: l_old_rec.national_identifier := p_old_rec.national_identifier;
258: l_old_rec.full_name := p_old_rec.full_name;

Line 419: hr_utility.set_location('Exiting:'|| l_proc, 99);

415: (p_event => p_event
416: ,p_old_rec => l_old_rec
417: ,p_new_rec => l_new_rec
418: );
419: hr_utility.set_location('Exiting:'|| l_proc, 99);
420: end ;
421:
422: ------------------------------------------------------------------------------------------
423: procedure log_per_chg

Line 518: hr_utility.set_location('Entering:'|| l_proc, 10);

514: l_proc varchar2(100) := 'ben_ext_chlg.log_per_chg';
515: --
516: begin
517: --
518: hr_utility.set_location('Entering:'|| l_proc, 10);
519: --
520: if p_event = 'UPDATE' then
521: --
522: if nvl(p_old_rec.national_identifier, '000-00-0000')

Line 1627: hr_utility.set_location ( 'Contact person ' || l_relationship , 11 ) ;

1623: open c_con_relationship(p_new_rec.person_id , p_new_rec.effective_start_date );
1624: Loop
1625: fetch c_con_relationship into l_contact,l_relationship , l_person_type ;
1626: Exit When c_con_relationship%notfound ;
1627: hr_utility.set_location ( 'Contact person ' || l_relationship , 11 ) ;
1628: hr_utility.set_location ( 'relation type ' || l_person_type , 11 ) ;
1629: l_ini_tab_counter := 1 ;
1630: l_tab_counter := 0 ;
1631: l_cont_chg_evt_tab.delete ;

Line 1628: hr_utility.set_location ( 'relation type ' || l_person_type , 11 ) ;

1624: Loop
1625: fetch c_con_relationship into l_contact,l_relationship , l_person_type ;
1626: Exit When c_con_relationship%notfound ;
1627: hr_utility.set_location ( 'Contact person ' || l_relationship , 11 ) ;
1628: hr_utility.set_location ( 'relation type ' || l_person_type , 11 ) ;
1629: l_ini_tab_counter := 1 ;
1630: l_tab_counter := 0 ;
1631: l_cont_chg_evt_tab.delete ;
1632:

Line 1764: hr_utility.set_location ( ' change event ' || l_cont_chg_evt_tab(l_count) , 11 ) ;

1760: end if;
1761: -- insert the row for every relation , the person id may change for every row
1762: for l_count in 1 .. l_tab_counter loop
1763:
1764: hr_utility.set_location ( ' change event ' || l_cont_chg_evt_tab(l_count) , 11 ) ;
1765: if change_event_is_enabled(l_cont_chg_evt_tab(l_count),p_new_rec.effective_start_date)
1766: then
1767:
1768: ben_ext_chg_evt_api.create_ext_chg_evt

Line 1806: hr_utility.set_location('Exiting:'|| l_proc, 99);

1802: close c_con_relationship ;
1803: ----
1804: end if;
1805: --
1806: hr_utility.set_location('Exiting:'|| l_proc, 99);
1807: --
1808: end log_per_chg;
1809: --
1810: procedure log_cont_chg

Line 1864: hr_utility.set_location('Entering:'|| l_proc, 10);

1860: where hl.lookup_type = 'CONTACT'
1861: and hl.lookup_code = p_lookup_code;
1862: begin
1863: --
1864: hr_utility.set_location('Entering:'|| l_proc, 10);
1865: --
1866: open c_person_type(p_new_rec.contact_person_id);
1867: fetch c_person_type into l_person_type,l_full_name;
1868: if c_person_type%notfound then

Line 1876: hr_utility.set_location ( 'old contact ' || l_old_contact_type,99) ;

1872: close c_person_type;
1873: open c_lookup_value( p_old_rec.contact_type);
1874: fetch c_lookup_value into l_old_contact_type;
1875: close c_lookup_value;
1876: hr_utility.set_location ( 'old contact ' || l_old_contact_type,99) ;
1877: open c_lookup_value( p_new_rec.contact_type);
1878: fetch c_lookup_value into l_new_contact_type;
1879: close c_lookup_value;
1880: hr_utility.set_location ( 'new contact ' || l_new_contact_type,99) ;

Line 1880: hr_utility.set_location ( 'new contact ' || l_new_contact_type,99) ;

1876: hr_utility.set_location ( 'old contact ' || l_old_contact_type,99) ;
1877: open c_lookup_value( p_new_rec.contact_type);
1878: fetch c_lookup_value into l_new_contact_type;
1879: close c_lookup_value;
1880: hr_utility.set_location ( 'new contact ' || l_new_contact_type,99) ;
1881:
1882: if l_person_type = 'OTHER' then
1883: l_tab_counter := l_tab_counter + 1;
1884:

Line 1885: hr_utility.set_location ( 'change evnt ' ,99) ;

1881:
1882: if l_person_type = 'OTHER' then
1883: l_tab_counter := l_tab_counter + 1;
1884:
1885: hr_utility.set_location ( 'change evnt ' ,99) ;
1886: --
1887: -- Handle web case where date_start is null
1888: --
1889: l_chg_evt_tab(l_tab_counter) := 'CCRE';

Line 1914: hr_utility.set_location ( 'change evnt ' ,99) ;

1910: end if ;
1911: --- for every person contact changes
1912: l_tab_counter := l_tab_counter + 1;
1913:
1914: hr_utility.set_location ( 'change evnt ' ,99) ;
1915: --
1916: -- Handle web case where date_start is null
1917: --
1918: l_chg_evt_tab(l_tab_counter) := 'CCNRE';

Line 1943: hr_utility.set_location ( 'calling api ' ,99) ;

1939:
1940: end if;
1941: for l_count in 1..l_chg_evt_tab.count loop
1942: if change_event_is_enabled(l_chg_evt_tab(l_count),trunc(sysdate)) then
1943: hr_utility.set_location ( 'calling api ' ,99) ;
1944: ben_ext_chg_evt_api.create_ext_chg_evt
1945: (p_validate => FALSE
1946: ,p_ext_chg_evt_log_id => l_ext_chg_evt_log_id
1947: ,p_chg_evt_cd => l_chg_evt_tab(l_count)

Line 1976: hr_utility.set_location('Exiting:'|| l_proc, 99);

1972: );
1973: end if;
1974: end loop;
1975: --
1976: hr_utility.set_location('Exiting:'|| l_proc, 99);
1977: --
1978: end log_cont_chg;
1979: --
1980: procedure log_add_chg

Line 2052: hr_utility.set_location('Entering:'|| l_proc, 10);

2048: ;
2049: --
2050: begin
2051: --
2052: hr_utility.set_location('Entering:'|| l_proc, 10);
2053: --
2054: if p_event = 'INSERT' then
2055: l_person_id := p_new_rec.person_id;
2056: l_business_group_id := p_new_rec.business_group_id;

Line 2343: hr_utility.set_location(' in address changes ' , 673);

2339: --
2340: --
2341: elsif p_event = 'UPDATE' then
2342: -- cache this data for later use.
2343: hr_utility.set_location(' in address changes ' , 673);
2344: g_prev_upd_adr_person_id := p_new_rec.person_id;
2345: g_prev_upd_adr_primary_flag := p_new_rec.primary_flag;
2346: g_prev_upd_adr_to_date := p_new_rec.date_to;
2347: g_prev_upd_adr_address_line1 := p_new_rec.address_line1;

Line 3015: hr_utility.set_location('Continuing:'|| l_proc, 20);

3011: end if;
3012: end if;
3013: end if;
3014: --
3015: hr_utility.set_location('Continuing:'|| l_proc, 20);
3016: hr_utility.set_location('BGP ID:'||p_new_rec.business_group_id||' '||l_proc, 30);
3017: for l_count in 1..l_chg_evt_tab.count loop
3018: if change_event_is_enabled(l_chg_evt_tab(l_count),trunc(sysdate)) then
3019: if l_chg_evt_tab(l_count) in ('CCPA','CCMA','CCNPA','CCNMA') then

Line 3016: hr_utility.set_location('BGP ID:'||p_new_rec.business_group_id||' '||l_proc, 30);

3012: end if;
3013: end if;
3014: --
3015: hr_utility.set_location('Continuing:'|| l_proc, 20);
3016: hr_utility.set_location('BGP ID:'||p_new_rec.business_group_id||' '||l_proc, 30);
3017: for l_count in 1..l_chg_evt_tab.count loop
3018: if change_event_is_enabled(l_chg_evt_tab(l_count),trunc(sysdate)) then
3019: if l_chg_evt_tab(l_count) in ('CCPA','CCMA','CCNPA','CCNMA') then
3020: l_person_id := nvl(l_prmtr_07_tab(l_count),l_relationship);

Line 3058: hr_utility.set_location('Exiting:'|| l_proc, 99);

3054: );
3055: end if;
3056: end loop;
3057: --
3058: hr_utility.set_location('Exiting:'|| l_proc, 99);
3059: --
3060: end log_add_chg;
3061: --
3062: procedure log_asg_chg

Line 3154: hr_utility.set_location('Entering:'|| l_proc, 10);

3150: l_proc varchar2(80) := 'ben_ext_chlg.log_asg_chg';
3151: --
3152: begin
3153: --
3154: hr_utility.set_location('Entering:'|| l_proc, 10);
3155: --
3156: if p_event = 'UPDATE' then
3157: --
3158: if nvl(p_old_rec.assignment_status_type_id, 1)

Line 3560: hr_utility.set_location('Exiting:'|| l_proc, 99);

3556: );
3557: end if;
3558: end loop;
3559: --
3560: hr_utility.set_location('Exiting:'|| l_proc, 99);
3561: --
3562: end log_asg_chg;
3563: --
3564: procedure log_abs_chg

Line 3621: hr_utility.set_location('Entering:'|| l_proc, 10);

3617: where aar.abs_attendance_reason_id = p_abs_attendance_reason_id;
3618: --
3619: begin
3620: --
3621: hr_utility.set_location('Entering:'|| l_proc, 10);
3622: --
3623: if p_event = 'UPDATE' then
3624: --
3625: l_business_group_id := p_new_rec.business_group_id;

Line 3794: hr_utility.set_location('Exiting:'|| l_proc, 99);

3790: );
3791: end if;
3792: end loop;
3793: --
3794: hr_utility.set_location('Exiting:'|| l_proc, 99);
3795: --
3796: end log_abs_chg;
3797: --
3798: --

Line 3873: hr_utility.set_location('Entering:'||l_proc, 10);

3869: and p_effective_date between opt.effective_start_date and opt.effective_end_date;
3870: --
3871: begin
3872: --
3873: hr_utility.set_location('Entering:'||l_proc, 10);
3874: --
3875: -- Get the new values to be store or updated
3876: --
3877: if p_prtt_enrt_rslt_id is not null then

Line 4491: hr_utility.set_location('Exiting:'||l_proc, 99);

4487: --
4488: end if; -- DELETE
4489: --
4490: --
4491: hr_utility.set_location('Exiting:'||l_proc, 99);
4492: --
4493: END log_benefit_chg;
4494: --
4495: procedure log_dependent_chg(

Line 4563: hr_utility.set_location('Entering:'||l_proc, 10);

4559: --
4560: --
4561: begin
4562: --
4563: hr_utility.set_location('Entering:'||l_proc, 10);
4564: --
4565: -- Get the new values to be store or updated
4566: --
4567: open c_plan_name(p_pl_id);

Line 4789: hr_utility.set_location('Exiting:'||l_proc, 99);

4785: );
4786: end if;
4787: end if;
4788: --
4789: hr_utility.set_location('Exiting:'||l_proc, 99);
4790: --
4791: end log_dependent_chg;
4792: --
4793: procedure log_pcp_chg(

Line 4876: hr_utility.set_location('Entering:'||l_proc, 10);

4872: l_pcp_chg boolean := FALSE;
4873: --
4874: begin
4875: --
4876: hr_utility.set_location('Entering:'||l_proc, 10);
4877: --
4878: -- Get the values to be store or updated
4879: if p_prtt_enrt_rslt_id is not null then
4880: open c_prtt_person_id;

Line 5166: hr_utility.set_location('Exiting:'||l_proc, 99);

5162: close c_con_relationship;
5163: -- end of creating log for all relationship
5164: --
5165: end if; --p_action
5166: hr_utility.set_location('Exiting:'||l_proc, 99);
5167: --
5168: end log_pcp_chg;
5169: --
5170: procedure log_pos_chg

Line 5208: hr_utility.set_location('Entering:'||l_proc, 10);

5204: l_proc varchar2(72) := 'ben_ext_chlg.log_pos_chg';
5205: --
5206: begin
5207: --
5208: hr_utility.set_location('Entering:'||l_proc, 10);
5209:
5210:
5211: --
5212: if p_event = 'UPDATE' then

Line 5344: hr_utility.set_location('Exiting:'||l_proc, 99);

5340: --End Bug 4539732
5341: end if;
5342: end loop;
5343: --
5344: hr_utility.set_location('Exiting:'||l_proc, 99);
5345: --
5346: end log_pos_chg;
5347: --
5348: procedure log_apl_chg

Line 5395: hr_utility.set_location('Entering:'||l_proc, 10);

5391: l_new_termination_reason varchar2(50);
5392: --
5393: begin
5394: --
5395: hr_utility.set_location('Entering:'||l_proc, 10);
5396: -- removed because the pos leaving reason should
5397: -- have been used.
5398: null;
5399: --

Line 5400: hr_utility.set_location('Exiting:'||l_proc, 99);

5396: -- removed because the pos leaving reason should
5397: -- have been used.
5398: null;
5399: --
5400: hr_utility.set_location('Exiting:'||l_proc, 99);
5401: --
5402: end log_apl_chg;
5403: --
5404:

Line 5425: hr_utility.set_location('Entering:'||l_proc, 10);

5421: and ppe.per_in_ler_id = pil.per_in_ler_id ;
5422: --
5423: l_proc varchar2(72) := 'ben_ext_chlg.log_prem_mo_chg';
5424: Begin
5425: hr_utility.set_location('Entering:'||l_proc, 10);
5426: open c_person(p_new_rec.prtt_prem_id) ;
5427: fetch c_person into l_person_id ;
5428: close c_person ;
5429:

Line 5437: hr_utility.set_location('valiating chg evt cd :', 10);

5433: -- this is fixed by obsolete the COPMPRM and added CCOPMPRM in lookup
5434: -- the code support for COPMPRM to make sure the customer has no problem
5435: -- if the data is logged, ct can get the data by changing the setup at anytime
5436:
5437: hr_utility.set_location('valiating chg evt cd :', 10);
5438: if (change_event_is_enabled('COPMPRM',p_new_rec.effective_start_date) or
5439: change_event_is_enabled('CCOPMPRM',p_new_rec.effective_start_date) ) then
5440:
5441: hr_utility.set_location('calling log event :', 10);

Line 5441: hr_utility.set_location('calling log event :', 10);

5437: hr_utility.set_location('valiating chg evt cd :', 10);
5438: if (change_event_is_enabled('COPMPRM',p_new_rec.effective_start_date) or
5439: change_event_is_enabled('CCOPMPRM',p_new_rec.effective_start_date) ) then
5440:
5441: hr_utility.set_location('calling log event :', 10);
5442:
5443: ben_ext_chg_evt_api.create_ext_chg_evt
5444: (p_validate => FALSE
5445: ,p_ext_chg_evt_log_id => l_ext_chg_evt_log_id

Line 5465: hr_utility.set_location('Exiting:'||l_proc, 99);

5461:
5462: end if ;
5463: end if ;
5464: --
5465: hr_utility.set_location('Exiting:'||l_proc, 99);
5466: --
5467: end log_prem_mo_chg;
5468:
5469: --

Line 5488: hr_utility.set_location('Entering:'||l_proc, 10);

5484:
5485: --
5486: l_proc varchar2(72) := 'ben_ext_chlg.log_school_chg';
5487: Begin
5488: hr_utility.set_location('Entering:'||l_proc, 10);
5489: open c_name(p_old_rec.establishment_id) ;
5490: fetch c_name into l_old_name ;
5491: close c_name ;
5492:

Line 5520: hr_utility.set_location('Exiting:'||l_proc, 99);

5516: );
5517: end if ;
5518: end if ;
5519: --
5520: hr_utility.set_location('Exiting:'||l_proc, 99);
5521: --
5522: end log_school_chg;
5523:
5524:

Line 5568: hr_utility.set_location('Entering:'||l_proc, 10);

5564: --
5565: begin
5566: --
5567:
5568: hr_utility.set_location('Entering:'||l_proc, 10);
5569: hr_utility.set_location('assignment_id:'||p_new_rec.assignment_id, 10);
5570: /*
5571: open c_person(p_new_rec.assignment_id);
5572: fetch c_person into l_person_id,l_business_group_id ;

Line 5569: hr_utility.set_location('assignment_id:'||p_new_rec.assignment_id, 10);

5565: begin
5566: --
5567:
5568: hr_utility.set_location('Entering:'||l_proc, 10);
5569: hr_utility.set_location('assignment_id:'||p_new_rec.assignment_id, 10);
5570: /*
5571: open c_person(p_new_rec.assignment_id);
5572: fetch c_person into l_person_id,l_business_group_id ;
5573: close c_person ;

Line 5575: hr_utility.set_location(' EVENT ' || p_event, 99 );

5571: open c_person(p_new_rec.assignment_id);
5572: fetch c_person into l_person_id,l_business_group_id ;
5573: close c_person ;
5574: */
5575: hr_utility.set_location(' EVENT ' || p_event, 99 );
5576:
5577: --- previously part of trigger now the trigger moved to api (pepyprhi.pkb)
5578: --- so the approved validation moved here
5579:

Line 5582: hr_utility.set_location('change_date' || p_new_rec.change_date,10);

5578: --- so the approved validation moved here
5579:
5580: if nvl(p_new_rec.approved,'N') = 'Y' then
5581: if p_event = 'INSERT' then
5582: hr_utility.set_location('change_date' || p_new_rec.change_date,10);
5583: open c_old_sal(p_new_rec.assignment_id,p_new_rec.change_date);
5584: fetch c_old_sal into l_old_proposed_salary_n ,l_old_approved ;
5585: close c_old_sal ;
5586: hr_utility.set_location('salary ' || l_old_proposed_salary_n,10);

Line 5586: hr_utility.set_location('salary ' || l_old_proposed_salary_n,10);

5582: hr_utility.set_location('change_date' || p_new_rec.change_date,10);
5583: open c_old_sal(p_new_rec.assignment_id,p_new_rec.change_date);
5584: fetch c_old_sal into l_old_proposed_salary_n ,l_old_approved ;
5585: close c_old_sal ;
5586: hr_utility.set_location('salary ' || l_old_proposed_salary_n,10);
5587: end if ;
5588:
5589:
5590:

Line 5618: hr_utility.set_location('Exiting:'||l_proc, 99);

5614: End if;
5615: end if ;
5616: end if ;
5617: --
5618: hr_utility.set_location('Exiting:'||l_proc, 99);
5619: --
5620: end log_per_pay_chg;
5621:
5622: ----

Line 5686: hr_utility.set_location('Entering:'||l_proc, 10);

5682: l_update_mode varchar2(15); --Bug 1554477
5683: --
5684: begin
5685: --
5686: hr_utility.set_location('Entering:'||l_proc, 10);
5687: --
5688: if p_event = 'UPDATE' and p_new_rec.parent_table = 'PER_ALL_PEOPLE_F'
5689: and p_new_rec.phone_type in ('H1', 'W1', 'HF','M') then
5690: --

Line 5847: hr_utility.set_location('l_business_group_id:'||l_business_group_id, 876);

5843: open c_business_group_id(l_person_id); --, l_chg_eff_dt); -- commented for bug 3361237
5844: -- Bug 1554477
5845: fetch c_business_group_id into l_business_group_id;
5846: close c_business_group_id;
5847: hr_utility.set_location('l_business_group_id:'||l_business_group_id, 876);
5848:
5849: for l_count in 1..l_chg_evt_tab.count loop
5850: if change_event_is_enabled(l_chg_evt_tab(l_count),l_chg_eff_dt) then
5851:

Line 5876: hr_utility.set_location('Exiting:'||l_proc, 99);

5872:
5873: end if;
5874: end loop;
5875: --
5876: hr_utility.set_location('Exiting:'||l_proc, 99);
5877: --
5878: end log_phn_chg;
5879: --
5880: procedure log_ptu_chg

Line 5930: hr_utility.set_location('Entering:'||l_proc, 10);

5926: l_business_group_id number;
5927: --
5928: begin
5929: --
5930: hr_utility.set_location('Entering:'||l_proc, 10);
5931: --
5932: if p_event = 'INSERT' then
5933: --
5934: open c_person_type(p_new_rec.person_type_id);

Line 5998: hr_utility.set_location('Exiting:'||l_proc, 99);

5994: );
5995: end if;
5996: end loop;
5997: --
5998: hr_utility.set_location('Exiting:'||l_proc, 99);
5999: --
6000: end log_ptu_chg;
6001: --
6002: procedure log_element_chg(

Line 6033: hr_utility.set_location('Entering:'||l_proc, 10);

6029:
6030: --
6031: begin
6032: --
6033: hr_utility.set_location('Entering:'||l_proc, 10);
6034: --
6035: open c_get_element_info(p_input_value_id);
6036: fetch c_get_element_info into l_element_info;
6037: close c_get_element_info;

Line 6079: hr_utility.set_location('deleteing element entry ' , 195);

6075: ,p_new_val3 => p_amt);
6076: end if;
6077: --
6078: elsif p_action = 'DELETE' then
6079: hr_utility.set_location('deleteing element entry ' , 195);
6080: if change_event_is_enabled('DEE',p_effective_date) then
6081: ben_ext_chg_evt_api.create_ext_chg_evt
6082: (p_validate => FALSE
6083: ,p_ext_chg_evt_log_id => l_ext_chg_evt_log_id

Line 6099: hr_utility.set_location('Exiting:'||l_proc, 99);

6095: end if;
6096: end if;
6097: --
6098: --
6099: hr_utility.set_location('Exiting:'||l_proc, 99);
6100: --
6101: end log_element_chg;
6102: --
6103: -- procedure for logging changes to per_disabilities_f

Line 6165: hr_utility.set_location('Entering:'|| l_proc, 10);

6161:
6162: --
6163: begin
6164: --
6165: hr_utility.set_location('Entering:'|| l_proc, 10);
6166: --
6167: if p_event = 'UPDATE' then
6168:
6169: if nvl(p_old_rec.incident_id,1) <> nvl(p_new_rec.incident_id,1) then

Line 7040: hr_utility.set_location('Exiting:'|| l_proc, 99);

7036:
7037: ----
7038: end if;
7039: --
7040: hr_utility.set_location('Exiting:'|| l_proc, 99);
7041: --
7042: end log_per_dis_chg;
7043: --
7044: end ben_ext_chlg;