[Home] [Help]
46: l_eed date;
47: --
48: begin
49: --
50: hr_utility.set_location('Entering: '||l_proc,10);
51: --
52: -- Test if a death occurred then we have to create frmr types, etc
53: --
54: if not p_death then
106: end if;
107: --
108: close c1;
109: --
110: hr_utility.set_location('Leaving: '||l_proc,10);
111: --
112: end check_second_event;
113:
114: -- ----------------------------------------------------------------------------
156:
157:
158:
159: begin
160: hr_utility.set_location('Entering: '||l_proc,10);
161: p_type_exist := 'N' ;
162: open csr_valid_person_type(p_person_type_id);
163: fetch csr_valid_person_type into l_person_type , l_business_group_id;
164: if csr_valid_person_type%notfound then
173: if csr_check_uniqueness%found then
174: p_type_exist := 'Y' ;
175: end if;
176: close csr_check_uniqueness;
177: hr_utility.set_location('Leaving: '||l_proc,10);
178: end check_person_type ;
179: -- ----------------------------------------------------------------------------
180: -- |-------------------------< copy_empasg_to_benasg >------------------------|
181: -- ----------------------------------------------------------------------------
610: ,c_conper_id => p_ctrper_id
611: );
612: fetch c_getctrdets into l_ctr_shdresflg, l_ctr_id, l_ctr_ovn;
613: close c_getctrdets;
614: hr_utility.set_location(l_proc, 210);
615: --
616: -- Check if a primary address already exists for the contact
617: --
618: open c_getpradddets
635: --
636: if c_getpradddets%found then
637: --
638: close c_getpradddets;
639: hr_utility.set_location(l_proc, 220);
640: --
641: -- Create the primary address for the contact
642: --
643: if (l_ctr_shdresflg = 'Y' and not p_death and not p_divorce) then -- 5750408
727: --
728: end;
729: --
730: begin
731: hr_utility.set_location('Entering:'|| l_proc, 10);
732: --
733: -- Check mandatory arguments
734: --
735: hr_api.mandatory_arg_error
757: fetch c_get_ben_asgdets into l_ben_asg_status_flag;
758: close c_get_ben_asgdets;
759:
760:
761: hr_utility.set_location ( ' ben_asg_status_flag ' || l_ben_asg_status_flag , 99 ) ;
762:
763: if NVL(l_ben_asg_status_flag,'N') not in ('Y','N')
764: then
765: return;
778: or p_per_marital_status in ('D','L') and p_per_esd is not null
779: or p_dpnt_person_id is not null
780: or p_redu_hrs_flag = 'Y'
781: then
782: hr_utility.set_location('Entering:'|| l_proc, 20);
783: --
784: -- Get the business group details
785: --
786: /*
795: --
796: -- A benefits assignment cannot be created for the employee.
797: -- The employee does not exist.
798: --
799: hr_utility.set_message(801,'BEN_92112_NOBENASGEMP');
800: hr_utility.raise_error;
801: --
802: End If;
803: close c_getbgpdets;
796: -- A benefits assignment cannot be created for the employee.
797: -- The employee does not exist.
798: --
799: hr_utility.set_message(801,'BEN_92112_NOBENASGEMP');
800: hr_utility.raise_error;
801: --
802: End If;
803: close c_getbgpdets;
804: */
832: close c_getbgpdets;
833: -- A benefits assignment cannot be created for the employee.
834: -- The employee does not exist.
835: --
836: hr_utility.set_message(801,'BEN_92112_NOBENASGEMP');
837: hr_utility.raise_error;
838: --
839: end if;
840: End If;
833: -- A benefits assignment cannot be created for the employee.
834: -- The employee does not exist.
835: --
836: hr_utility.set_message(801,'BEN_92112_NOBENASGEMP');
837: hr_utility.raise_error;
838: --
839: end if;
840: End If;
841: close c_getbgpdets;
838: --
839: end if;
840: End If;
841: close c_getbgpdets;
842: hr_utility.set_location('Entering:'|| l_proc, 30);
843: --
844: -- Check that the system person type is an employee related
845: -- person type
846: --
855: --
856: --- If the contact is particpant then allow to create the ben asg for the dpnt # 2852514
857: --- the date -1 used that he might have losed the participation today the asg may be creadted
858: --- because of that
859: hr_utility.set_location (' OTHER lc_effective_date ' || lc_effective_date , 991 );
860: open c_getperptupetdets
861: (p_person_id
862: ,lc_effective_date -- Bug No 4451864 Removed -1 from lc_effective_date
863: ,'PRTN'
863: ,'PRTN'
864: ) ;
865: fetch c_getperptupetdets into l_dummy ;
866: if c_getperptupetdets%found then
867: hr_utility.set_location (' l_copybenasg TRUE ' , 991 );
868: l_copybenasg := TRUE;
869: end if ;
870: close c_getperptupetdets ;
871:
879: --
880: -- Check that OAB is installed in a US legislation
881: --
882: if l_copybenasg then
883: hr_utility.set_location('Entering:'|| l_proc, 40);
884: --
885: -- Deduce effective dates and determine if to create a benefits assignment for
886: -- the employee or the surviving spouse based on the event
887: --
894: -- - Date of death set on the person
895: --
896: if p_per_date_of_death is not null
897: then
898: hr_utility.set_location(l_proc, 50);
899: --
900: -- Death of an employee - date of death set
901: --
902: l_empasg_effdate := p_per_date_of_death;
909: --
910: elsif p_per_marital_status in ('D','L')
911: and p_per_esd is not null
912: then
913: hr_utility.set_location('divorce '|| l_proc, 60);
914: hr_utility.set_location('p_per_esd '|| p_per_esd, 60);
915: --
916: -- If the marital status has not changed, do not update or
917: -- create a benefits assignment.
910: elsif p_per_marital_status in ('D','L')
911: and p_per_esd is not null
912: then
913: hr_utility.set_location('divorce '|| l_proc, 60);
914: hr_utility.set_location('p_per_esd '|| p_per_esd, 60);
915: --
916: -- If the marital status has not changed, do not update or
917: -- create a benefits assignment.
918: --
918: --
919: open c_get_prior_marital_status;
920: fetch c_get_prior_marital_status into l_prior_marital_status;
921: if c_get_prior_marital_status%found then
922: hr_utility.set_location('l_prior_marital_status '|| l_prior_marital_status, 60);
923: hr_utility.set_location('p_per_marital_status '|| p_per_marital_status, 60);
924: if nvl(l_prior_marital_status,'NULL') <> p_per_marital_status then
925: hr_utility.set_location('create asg ', 60);
926: --
919: open c_get_prior_marital_status;
920: fetch c_get_prior_marital_status into l_prior_marital_status;
921: if c_get_prior_marital_status%found then
922: hr_utility.set_location('l_prior_marital_status '|| l_prior_marital_status, 60);
923: hr_utility.set_location('p_per_marital_status '|| p_per_marital_status, 60);
924: if nvl(l_prior_marital_status,'NULL') <> p_per_marital_status then
925: hr_utility.set_location('create asg ', 60);
926: --
927: -- The benefit assignment and person type usage information
921: if c_get_prior_marital_status%found then
922: hr_utility.set_location('l_prior_marital_status '|| l_prior_marital_status, 60);
923: hr_utility.set_location('p_per_marital_status '|| p_per_marital_status, 60);
924: if nvl(l_prior_marital_status,'NULL') <> p_per_marital_status then
925: hr_utility.set_location('create asg ', 60);
926: --
927: -- The benefit assignment and person type usage information
928: -- are created on the day of the divorce or legal separation
929: --
937: l_copybenasg := false;
938: end if;
939: --
940: else -- If prior marital status is not found
941: hr_utility.set_location('not found ', 60);
942: l_copybenasg := false;
943: end if;
944: --
945: close c_get_prior_marital_status;
949: --
950: elsif p_pds_atd is not null
951: and nvl(p_pds_leaving_reason,hr_api.g_varchar2) not in('D')
952: then
953: hr_utility.set_location(l_proc, 90);
954: --
955: -- Terminating an employee with leaving reason not deceased
956: --
957: l_empasg_effdate := p_pds_atd;
964: --
965: elsif p_pds_atd is not null
966: and p_pds_leaving_reason = 'D'
967: then
968: hr_utility.set_location(l_proc, 100);
969: --
970: -- Terminating an employee with leaving reason deceased
971: --
972: l_empasg_effdate := p_pds_atd;
987: --
988: -- Check if to copy the emp assignment to the benefits assignment
989: --
990: if l_copybenasg then
991: hr_utility.set_location(l_proc, 120);
992: --
993: -- Get primary employee assignment details
994: --
995: open c_getempprasgdets(p_person_id,l_empasg_effdate);
1003: if c_petprimasgdets%notfound then
1004: l_copybenasg := false ;
1005: end if;
1006: close c_petprimasgdets ;
1007: hr_utility.set_location('Geting asg detail from prim asg', 120);
1008: end if ;
1009:
1010: close c_getempprasgdets;
1011: hr_utility.set_location(l_proc, 130);
1007: hr_utility.set_location('Geting asg detail from prim asg', 120);
1008: end if ;
1009:
1010: close c_getempprasgdets;
1011: hr_utility.set_location(l_proc, 130);
1012: --
1013: -- IS position still active?
1014: --
1015: --
1048: then
1049: --
1050: -- Get spouse details without benefit assignments
1051: --
1052: hr_utility.set_location(l_proc, 140);
1053: hr_utility.set_location(l_proc||' l_ba_edate: '||l_benasg_effdate, 140);
1054: --
1055: l_per_id := null;
1056: l_ctr_contype := null;
1049: --
1050: -- Get spouse details without benefit assignments
1051: --
1052: hr_utility.set_location(l_proc, 140);
1053: hr_utility.set_location(l_proc||' l_ba_edate: '||l_benasg_effdate, 140);
1054: --
1055: l_per_id := null;
1056: l_ctr_contype := null;
1057: --
1062: );
1063: fetch c_get_ss_fm_dets Into l_per_id, l_ctr_contype;
1064: close c_get_ss_fm_dets;
1065: --
1066: hr_utility.set_location(l_proc||' SPS l_per_id: '||l_per_id, 141);
1067: --
1068: l_plstab_count := 0;
1069: --
1070: If l_per_id is not null
1092: --
1093: if l_exists = false then
1094: l_perdetails_set(l_plstab_count).per_id := l_per_id;
1095: l_perdetails_set(l_plstab_count).contype := l_ctr_contype;
1096: hr_utility.set_location('count and type '||l_plstab_count||' '||l_ctr_contype,10);
1097: l_plstab_count := l_plstab_count+1;
1098:
1099:
1100: end if;
1098:
1099:
1100: end if;
1101: --
1102: hr_utility.set_location('PL_STA AFTER SPS'||l_plstab_count,10);
1103: end if;
1104: --
1105: -- Domestic Partner.
1106: --
1114: );
1115: fetch c_get_ss_fm_dets Into l_per_id, l_ctr_contype;
1116: close c_get_ss_fm_dets;
1117: --
1118: hr_utility.set_location(l_proc||' DP l_per_id: '||l_per_id, 141);
1119: --
1120: -- tilak l_plstab_count := 0;
1121: --
1122: If l_per_id is not null
1147: l_perdetails_set(l_plstab_count).contype := l_ctr_contype;
1148: l_plstab_count := l_plstab_count+1;
1149: end if;
1150: --
1151: hr_utility.set_location('PL_STA AFTER SPS'||l_plstab_count,10);
1152: end if;
1153: --
1154: -- Populate the family member person id set for Child, Foster Child
1155: -- Step Child and Adopted Child
1153: --
1154: -- Populate the family member person id set for Child, Foster Child
1155: -- Step Child and Adopted Child
1156: --
1157: hr_utility.set_location(l_proc||' Family Member: ', 140);
1158: --
1159: -- Child
1160: --
1161: for per_id in c_get_ss_fm_dets
1355: end if;
1356: --
1357: end loop;
1358: --
1359: hr_utility.set_location(l_proc||' CON count: '||l_perdetails_set.count, 147);
1360: if l_perdetails_set.count = 0 then
1361: --
1362: l_copybenasg := FALSE;
1363: --
1367: --
1368: end if;
1369: --
1370: elsif l_contacts then
1371: hr_utility.set_location('l_contacts',147);
1372: --
1373: l_per_id := null;
1374: l_ctr_contype := null;
1375: --
1378: -- Check if benefit assignment exist for dependent.
1379: -- in a loss of dependent status event.
1380: --
1381: if p_dpnt_person_id is not null then
1382: hr_utility.set_location('p_dpnt_person_id: '||p_dpnt_person_id,147);
1383: hr_utility.set_location('l_benasg_effdate: '||l_benasg_effdate,147);
1384: open c_get_contacts
1385: (c_person_id => p_person_id
1386: ,c_contact_person_id => p_dpnt_person_id
1379: -- in a loss of dependent status event.
1380: --
1381: if p_dpnt_person_id is not null then
1382: hr_utility.set_location('p_dpnt_person_id: '||p_dpnt_person_id,147);
1383: hr_utility.set_location('l_benasg_effdate: '||l_benasg_effdate,147);
1384: open c_get_contacts
1385: (c_person_id => p_person_id
1386: ,c_contact_person_id => p_dpnt_person_id
1387: ,c_eff_date => l_benasg_effdate
1508: ,p_exists => l_exists
1509: );
1510: --
1511: if l_exists = true then
1512: hr_utility.set_location('benefit assignment exists', 150);
1513: --
1514: l_copybenasg := FALSE;
1515: else
1516: l_perele_num := 0;
1544: --
1545: end loop;
1546: --
1547: end if;
1548: hr_utility.set_location(l_proc, 150);
1549: --
1550: end if;
1551: --
1552: -- Create or refresh the benefits assignment
1556: then
1557: --
1558: -- Loop through the benefits assignment person id set
1559: --
1560: hr_utility.set_location(l_proc||'l_perid_set.count: '||l_perdetails_set.count, 155);
1561: if l_perdetails_set.count > 0 then
1562: --
1563: for l_plstab_count in l_perdetails_set.first .. l_perdetails_set.last
1564: loop
1568: -- this happen when the dpnd lose the coverage the dpnt's dpnt get the ben asg
1569: -- in thos situation validate the dpnt has the coverage 2852514
1570: l_dummy := null ;
1571:
1572: hr_utility.set_location(' person ' || p_person_id , 156 );
1573: hr_utility.set_location(' dpnt ' || l_perdetails_set(l_plstab_count).per_id , 156 );
1574: if l_perdetails_set(l_plstab_count).per_id <> p_person_id and l_perpet_spt = 'OTHER' then
1575: open c_dptn_cvg (l_perdetails_set(l_plstab_count).per_id , l_benasg_effdate-1 ) ;
1576: fetch c_dptn_cvg into l_dummy ;
1569: -- in thos situation validate the dpnt has the coverage 2852514
1570: l_dummy := null ;
1571:
1572: hr_utility.set_location(' person ' || p_person_id , 156 );
1573: hr_utility.set_location(' dpnt ' || l_perdetails_set(l_plstab_count).per_id , 156 );
1574: if l_perdetails_set(l_plstab_count).per_id <> p_person_id and l_perpet_spt = 'OTHER' then
1575: open c_dptn_cvg (l_perdetails_set(l_plstab_count).per_id , l_benasg_effdate-1 ) ;
1576: fetch c_dptn_cvg into l_dummy ;
1577: close c_dptn_cvg ;
1575: open c_dptn_cvg (l_perdetails_set(l_plstab_count).per_id , l_benasg_effdate-1 ) ;
1576: fetch c_dptn_cvg into l_dummy ;
1577: close c_dptn_cvg ;
1578:
1579: hr_utility.set_location(' dpnt covered ' || l_dummy , 156 );
1580: hr_utility.set_location(' dpnt covered date ' || l_benasg_effdate,156 );
1581:
1582: end if ;
1583: --- allow to create be asg when the asg for the same person or
1576: fetch c_dptn_cvg into l_dummy ;
1577: close c_dptn_cvg ;
1578:
1579: hr_utility.set_location(' dpnt covered ' || l_dummy , 156 );
1580: hr_utility.set_location(' dpnt covered date ' || l_benasg_effdate,156 );
1581:
1582: end if ;
1583: --- allow to create be asg when the asg for the same person or
1584: --- person system type is not other or dpnt has the current covrage
1582: end if ;
1583: --- allow to create be asg when the asg for the same person or
1584: --- person system type is not other or dpnt has the current covrage
1585: --- # 2852514
1586: hr_utility.set_location(' person sys type ' || l_perpet_spt , 156 );
1587:
1588: if l_perdetails_set(l_plstab_count).per_id = p_person_id
1589: or l_perpet_spt not in ('OTHER') or l_dummy is not null then
1590:
1610: -- By pass creating a person type usage for a loss
1611: -- of dependent status and Reduction of Hours event.
1612: --
1613: if l_contacts = FALSE then
1614: hr_utility.set_location(' type and count ' || l_plstab_count || l_perdetails_set(l_plstab_count).contype, 151 );
1615: --
1616: hr_utility.set_location(l_proc||' Spouse Fammem: ', 155);
1617: --
1618: -- Create the person type usage
1612: --
1613: if l_contacts = FALSE then
1614: hr_utility.set_location(' type and count ' || l_plstab_count || l_perdetails_set(l_plstab_count).contype, 151 );
1615: --
1616: hr_utility.set_location(l_proc||' Spouse Fammem: ', 155);
1617: --
1618: -- Create the person type usage
1619: --
1620: if l_death
1620: if l_death
1621: and l_perdetails_set(l_plstab_count).contype in ('S','D')
1622: then
1623: --
1624: hr_utility.set_location(l_proc, 160);
1625: if l_perdetails_set(l_plstab_count).contype = 'S' then
1626: l_pet_spt := 'SRVNG_SPS';
1627: else
1628: l_pet_spt := 'SRVNG_DP';
1631: elsif l_divorce
1632: and l_perdetails_set(l_plstab_count).contype = 'S'
1633: then
1634: --
1635: hr_utility.set_location(l_proc, 170);
1636: l_pet_spt := 'FRMR_SPS';
1637: --
1638: hr_utility.set_location('FRMR_SPS :' || l_proc, 172);
1639: elsif l_divorce
1634: --
1635: hr_utility.set_location(l_proc, 170);
1636: l_pet_spt := 'FRMR_SPS';
1637: --
1638: hr_utility.set_location('FRMR_SPS :' || l_proc, 172);
1639: elsif l_divorce
1640: and l_perdetails_set(l_plstab_count).contype = 'D'
1641: then
1642: --
1639: elsif l_divorce
1640: and l_perdetails_set(l_plstab_count).contype = 'D'
1641: then
1642: --
1643: hr_utility.set_location('FRMR_DP :' || l_proc, 175);
1644: l_pet_spt := 'FRMR_DP';
1645:
1646: elsif l_death
1647: and l_perdetails_set(l_plstab_count).contype in ('C','O','T','A','R')
1646: elsif l_death
1647: and l_perdetails_set(l_plstab_count).contype in ('C','O','T','A','R')
1648: then
1649: --
1650: hr_utility.set_location(l_proc, 180);
1651: if l_perdetails_set(l_plstab_count).contype = 'R' then
1652: l_pet_spt := 'SRVNG_DPFM';
1653: else
1654: l_pet_spt := 'SRVNG_FMLY_MMBR';
1657: elsif l_divorce
1658: and l_perdetails_set(l_plstab_count).contype in ('C','O','T','A')
1659: then
1660: --
1661: hr_utility.set_location(l_proc, 180);
1662: l_pet_spt := 'FRMR_FMLY_MMBR';
1663: --
1664: end if;
1665: --
1664: end if;
1665: --
1666: -- Get the default person type id for the PET system person type
1667: --
1668: hr_utility.set_location('l_pet_spt: '||l_pet_spt||' '||l_proc, 185);
1669: hr_utility.set_location('l_bgp_id: '||l_bgp_id||' '||l_proc, 185);
1670: open c_getbgpdefpet
1671: (c_bgp_id => l_bgp_id
1672: ,c_pet_spt => l_pet_spt
1665: --
1666: -- Get the default person type id for the PET system person type
1667: --
1668: hr_utility.set_location('l_pet_spt: '||l_pet_spt||' '||l_proc, 185);
1669: hr_utility.set_location('l_bgp_id: '||l_bgp_id||' '||l_proc, 185);
1670: open c_getbgpdefpet
1671: (c_bgp_id => l_bgp_id
1672: ,c_pet_spt => l_pet_spt
1673: );
1679: -- A person type usage cannot be created for the person when
1680: -- creating the benefits assignment. The person type of the usage
1681: -- does not exist for the business group.
1682: --
1683: hr_utility.set_message(801,'BEN_92113_NOPTUBGPPET');
1684: hr_utility.raise_error;
1685: --
1686: end if;
1687: close c_getbgpdefpet;
1680: -- creating the benefits assignment. The person type of the usage
1681: -- does not exist for the business group.
1682: --
1683: hr_utility.set_message(801,'BEN_92113_NOPTUBGPPET');
1684: hr_utility.raise_error;
1685: --
1686: end if;
1687: close c_getbgpdefpet;
1688: hr_utility.set_location(l_proc, 190);
1684: hr_utility.raise_error;
1685: --
1686: end if;
1687: close c_getbgpdefpet;
1688: hr_utility.set_location(l_proc, 190);
1689:
1690:
1691: -- added by tilak bug : 2188986
1692: -- if the person_type exist dont create that again
1697: ,p_person_id => l_perdetails_set(l_plstab_count).per_id
1698: ,p_effective_date => l_benasg_effdate
1699: ,p_person_type_usage_id => l_ptu_id
1700: ,p_type_exist => l_type_exist ) ;
1701: hr_utility.set_location(' type exist '|| l_type_exist , 199);
1702: --
1703: if l_type_exist = 'N' then
1704: hr_per_type_usage_internal.create_person_type_usage
1705: (p_person_id => l_perdetails_set(l_plstab_count).per_id
1712: ,p_effective_end_date => l_eed
1713: );
1714: end if ;
1715: end if;
1716: hr_utility.set_location(l_proc, 200);
1717: --
1718: -- Copy employee primary address to the spouse/family member
1719: -- contact primary address
1720: --
1744: ,p_absence_type => l_abs_type
1745: ,p_absence_reason => l_abs_reason
1746: ,p_date_of_hire => l_date_of_hire
1747: );
1748: hr_utility.set_location(l_proc, 210);
1749: --
1750: -- Derive the PTU SPT for the employee as of the event
1751: --
1752: l_count := 0;
1753: for c_inst in c_getperptupetdets(p_person_id,l_asg_dets.effective_start_date) loop
1754: --
1755: l_ptupetspt_set(l_count) := c_inst.system_person_type;
1756: l_count := l_count+1;
1757: hr_utility.set_location('system_person_type ' || c_inst.system_person_type, 220);
1758: --
1759: end loop;
1760: hr_utility.set_location(l_proc, 220);
1761: --
1756: l_count := l_count+1;
1757: hr_utility.set_location('system_person_type ' || c_inst.system_person_type, 220);
1758: --
1759: end loop;
1760: hr_utility.set_location(l_proc, 220);
1761: --
1762: -- Get the base system person type from the PTU system person type set
1763: -- for the person
1764: --
1888: ,p_effective_end_date => l_date_dummy2
1889: ,p_assignment_extra_info_id => l_number_dummy1
1890: ,p_aei_object_version_number => l_number_dummy2
1891: );
1892: hr_utility.set_location(l_proc, 220);
1893: --
1894: end if ;
1895: end loop;
1896: --
1901: end if;
1902: --
1903: end if;
1904: --
1905: hr_utility.set_location(' Leaving:'||l_proc, 300);
1906: end copy_empasg_to_benasg;
1907: --
1908: -- ----------------------------------------------------------------------------
1909: -- |-------------------------< check_bnft_asgn >------------------------------|
1954: l_update_override boolean;
1955: l_update_change_insert boolean;
1956: --
1957: BEGIN
1958: hr_utility.set_location(' Entering:'||l_proc, 100);
1959: hr_utility.set_location(' p_person_id:'||p_person_id, 100);
1960: hr_utility.set_location(' p_emp_person_id:'||p_emp_person_id, 100);
1961: hr_utility.set_location(' p_effective_date:'||p_effective_date, 100);
1962: --
1955: l_update_change_insert boolean;
1956: --
1957: BEGIN
1958: hr_utility.set_location(' Entering:'||l_proc, 100);
1959: hr_utility.set_location(' p_person_id:'||p_person_id, 100);
1960: hr_utility.set_location(' p_emp_person_id:'||p_emp_person_id, 100);
1961: hr_utility.set_location(' p_effective_date:'||p_effective_date, 100);
1962: --
1963: -- Check if benefit assignment exist.
1956: --
1957: BEGIN
1958: hr_utility.set_location(' Entering:'||l_proc, 100);
1959: hr_utility.set_location(' p_person_id:'||p_person_id, 100);
1960: hr_utility.set_location(' p_emp_person_id:'||p_emp_person_id, 100);
1961: hr_utility.set_location(' p_effective_date:'||p_effective_date, 100);
1962: --
1963: -- Check if benefit assignment exist.
1964: --
1957: BEGIN
1958: hr_utility.set_location(' Entering:'||l_proc, 100);
1959: hr_utility.set_location(' p_person_id:'||p_person_id, 100);
1960: hr_utility.set_location(' p_emp_person_id:'||p_emp_person_id, 100);
1961: hr_utility.set_location(' p_effective_date:'||p_effective_date, 100);
1962: --
1963: -- Check if benefit assignment exist.
1964: --
1965: open c_getbenasgdets;
1973: -- employee assignment is not found then simply return.
1974: --
1975: if p_asg_dets.assignment_id is null
1976: then
1977: hr_utility.set_location('Leaving :' || l_proc, 100);
1978: return;
1979: end if;
1980: hr_utility.set_location(' exist ben asg :'||l_asg_rec.effective_start_date ||'-'||p_effective_date, 100);
1981: --
1976: then
1977: hr_utility.set_location('Leaving :' || l_proc, 100);
1978: return;
1979: end if;
1980: hr_utility.set_location(' exist ben asg :'||l_asg_rec.effective_start_date ||'-'||p_effective_date, 100);
1981: --
1982: if l_asg_rec.effective_start_date <> p_effective_date then
1983: --
1984: -- Check for valid date track mode.
2034: l_special_ceiling_step_id := p_asg_dets.special_ceiling_step_id;
2035: --
2036: -- Update the benefits assignment
2037: --
2038: hr_utility.set_location(' updating assignment:', 100);
2039: ben_assignment_api.update_ben_asg
2040: (p_validate => FALSE
2041: ,p_effective_date => p_effective_date
2042: ,p_datetrack_update_mode => l_datetrack_mode
2125: else
2126: close c_getbenasgdets;
2127: p_exists := false;
2128: end if;
2129: hr_utility.set_location(' Leaving:'||l_proc, 100);
2130: end check_bnft_asgn;
2131: --
2132: -- ----------------------------------------------------------------------------
2133: -- |-------------------------< derive_aei_information >-----------------------|
2218: and nvl(pyp.change_date,hr_api.g_sot) <= c_eff_date
2219: order by pyp.change_date desc;
2220: --
2221: begin
2222: hr_utility.set_location('Entering:'|| l_proc, 10);
2223: hr_utility.set_location('p_person_id '||p_person_id, 300);
2224: hr_utility.set_location('p_effective_date '||p_effective_date, 300);
2225: --
2226: -- Check mandatory arguments
2219: order by pyp.change_date desc;
2220: --
2221: begin
2222: hr_utility.set_location('Entering:'|| l_proc, 10);
2223: hr_utility.set_location('p_person_id '||p_person_id, 300);
2224: hr_utility.set_location('p_effective_date '||p_effective_date, 300);
2225: --
2226: -- Check mandatory arguments
2227: --
2220: --
2221: begin
2222: hr_utility.set_location('Entering:'|| l_proc, 10);
2223: hr_utility.set_location('p_person_id '||p_person_id, 300);
2224: hr_utility.set_location('p_effective_date '||p_effective_date, 300);
2225: --
2226: -- Check mandatory arguments
2227: --
2228: hr_api.mandatory_arg_error
2239: --
2240: -- Get the date of birth, adjusted service date,trmination date,reason and
2241: -- original hire date of the employee
2242: --
2243: hr_utility.set_location('p_per_id: '||p_person_id||' '||l_proc, 20);
2244: hr_utility.set_location('p_eff_date: '||p_effective_date||' '||l_proc, 20);
2245: open c_getempdtperdets
2246: (c_person_id => p_person_id
2247: ,c_eff_date => p_effective_date
2240: -- Get the date of birth, adjusted service date,trmination date,reason and
2241: -- original hire date of the employee
2242: --
2243: hr_utility.set_location('p_per_id: '||p_person_id||' '||l_proc, 20);
2244: hr_utility.set_location('p_eff_date: '||p_effective_date||' '||l_proc, 20);
2245: open c_getempdtperdets
2246: (c_person_id => p_person_id
2247: ,c_eff_date => p_effective_date
2248: );
2292: p_absence_type := l_abs_type;
2293: p_absence_reason := l_abs_reason;
2294: p_date_of_hire := l_emp_doh;
2295: --
2296: hr_utility.set_location(' Leaving:'||l_proc, 100);
2297: end derive_aei_information;
2298: --
2299: end ben_assignment_internal;