DBA Data[Home] [Help]

APPS.BEN_LER_BUS dependencies on BEN_LER_SHD

Line 107: l_api_updating := ben_ler_shd.api_updating

103: Begin
104: --
105: hr_utility.set_location('Entering:'||l_proc, 5);
106: --
107: l_api_updating := ben_ler_shd.api_updating
108: (p_effective_date => p_effective_date,
109: p_ler_id => p_ler_id,
110: p_object_version_number => p_object_version_number);
111: --

Line 114: <> ben_ler_shd.g_old_rec.ler_id) then

110: p_object_version_number => p_object_version_number);
111: --
112: if (l_api_updating
113: and nvl(p_ler_id,hr_api.g_number)
114: <> ben_ler_shd.g_old_rec.ler_id) then
115: --
116: -- raise error as PK has changed
117: --
118: ben_ler_shd.constraint_error('BEN_LER_PK');

Line 118: ben_ler_shd.constraint_error('BEN_LER_PK');

114: <> ben_ler_shd.g_old_rec.ler_id) then
115: --
116: -- raise error as PK has changed
117: --
118: ben_ler_shd.constraint_error('BEN_LER_PK');
119: --
120: elsif not l_api_updating then
121: --
122: -- check if PK is null

Line 128: ben_ler_shd.constraint_error('BEN_LER_PK');

124: if p_ler_id is not null then
125: --
126: -- raise error as PK is not null
127: --
128: ben_ler_shd.constraint_error('BEN_LER_PK');
129: --
130: end if;
131: --
132: end if;

Line 341: l_api_updating := ben_ler_shd.api_updating

337: Begin
338: --
339: hr_utility.set_location('Entering:'||l_proc, 5);
340: --
341: l_api_updating := ben_ler_shd.api_updating
342: (p_ler_id => p_ler_id,
343: p_effective_date => p_effective_date,
344: p_object_version_number => p_object_version_number);
345: --

Line 348: <> nvl(ben_ler_shd.g_old_rec.whn_to_prcs_cd,hr_api.g_varchar2)

344: p_object_version_number => p_object_version_number);
345: --
346: if (l_api_updating
347: and p_whn_to_prcs_cd
348: <> nvl(ben_ler_shd.g_old_rec.whn_to_prcs_cd,hr_api.g_varchar2)
349: or not l_api_updating)
350: and p_whn_to_prcs_cd is not null then
351: --
352: -- check if value of lookup falls within lookup type.

Line 424: l_api_updating := ben_ler_shd.api_updating

420: Begin
421: --
422: hr_utility.set_location('Entering:'||l_proc, 5);
423: --
424: l_api_updating := ben_ler_shd.api_updating
425: (p_ler_id => p_ler_id,
426: p_effective_date => p_effective_date,
427: p_object_version_number => p_object_version_number);
428: --

Line 431: <> ben_ler_shd.g_old_rec.ler_eval_rl

427: p_object_version_number => p_object_version_number);
428: --
429: if (l_api_updating
430: and nvl(p_ler_eval_rl,hr_api.g_number)
431: <> ben_ler_shd.g_old_rec.ler_eval_rl
432: or not l_api_updating)
433: and p_ler_eval_rl is not null then
434: --
435: -- check if value of formula rule is valid.

Line 500: l_api_updating := ben_ler_shd.api_updating

496: Begin
497: --
498: hr_utility.set_location('Entering:'||l_proc, 5);
499: --
500: l_api_updating := ben_ler_shd.api_updating
501: (p_ler_id => p_ler_id,
502: p_effective_date => p_effective_date,
503: p_object_version_number => p_object_version_number);
504: --

Line 507: <> nvl(ben_ler_shd.g_old_rec.ptnl_ler_trtmt_cd,hr_api.g_varchar2)

503: p_object_version_number => p_object_version_number);
504: --
505: if (l_api_updating
506: and p_ptnl_ler_trtmt_cd
507: <> nvl(ben_ler_shd.g_old_rec.ptnl_ler_trtmt_cd,hr_api.g_varchar2)
508: or not l_api_updating)
509: and p_ptnl_ler_trtmt_cd is not null then
510: --
511: -- check if value of lookup falls within lookup type.

Line 576: l_api_updating := ben_ler_shd.api_updating

572: Begin
573: --
574: hr_utility.set_location('Entering:'||l_proc, 5);
575: --
576: l_api_updating := ben_ler_shd.api_updating
577: (p_ler_id => p_ler_id,
578: p_effective_date => p_effective_date,
579: p_object_version_number => p_object_version_number);
580: --

Line 583: <> nvl(ben_ler_shd.g_old_rec.ptnl_ler_trtmt_cd,hr_api.g_varchar2)

579: p_object_version_number => p_object_version_number);
580: --
581: if ( ( l_api_updating
582: and ( p_ptnl_ler_trtmt_cd
583: <> nvl(ben_ler_shd.g_old_rec.ptnl_ler_trtmt_cd,hr_api.g_varchar2)
584: or p_typ_cd
585: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
586: )
587: )

Line 585: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)

581: if ( ( l_api_updating
582: and ( p_ptnl_ler_trtmt_cd
583: <> nvl(ben_ler_shd.g_old_rec.ptnl_ler_trtmt_cd,hr_api.g_varchar2)
584: or p_typ_cd
585: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
586: )
587: )
588: or not l_api_updating)
589: and p_ptnl_ler_trtmt_cd is not null then

Line 668: l_api_updating := ben_ler_shd.api_updating

664: fnd_message.raise_error;
665: --
666: end if;
667: --
668: l_api_updating := ben_ler_shd.api_updating
669: (p_ler_id => p_ler_id,
670: p_effective_date => p_effective_date,
671: p_object_version_number => p_object_version_number);
672: --

Line 675: <> nvl(ben_ler_shd.g_old_rec.lf_evt_oper_cd,hr_api.g_varchar2)

671: p_object_version_number => p_object_version_number);
672: --
673: if (l_api_updating
674: and p_lf_evt_oper_cd
675: <> nvl(ben_ler_shd.g_old_rec.lf_evt_oper_cd,hr_api.g_varchar2)
676: or not l_api_updating)
677: and p_lf_evt_oper_cd is not null then
678: --
679: -- check if value of lookup falls within lookup type.

Line 800: l_api_updating := ben_ler_shd.api_updating

796: Begin
797: --
798: hr_utility.set_location('Entering:'||l_proc, 5);
799: --
800: l_api_updating := ben_ler_shd.api_updating
801: (p_ler_id => p_ler_id,
802: p_effective_date => p_effective_date,
803: p_object_version_number => p_object_version_number);
804: --

Line 807: <> nvl(ben_ler_shd.g_old_rec.slctbl_slf_svc_cd ,hr_api.g_varchar2)

803: p_object_version_number => p_object_version_number);
804: --
805: if (l_api_updating
806: and p_slctbl_slf_svc_cd
807: <> nvl(ben_ler_shd.g_old_rec.slctbl_slf_svc_cd ,hr_api.g_varchar2)
808: or not l_api_updating)
809: and p_slctbl_slf_svc_cd is not null then
810: --
811: -- check if value of lookup falls within lookup type.

Line 884: l_api_updating := ben_ler_shd.api_updating

880: Begin
881: --
882: hr_utility.set_location('Entering:'||l_proc, 5);
883: --
884: l_api_updating := ben_ler_shd.api_updating
885: (p_ler_id => p_ler_id,
886: p_effective_date => p_effective_date,
887: p_object_version_number => p_object_version_number);
888: --

Line 890: ben_ler_shd.g_old_rec.typ_cd in ('DRVDAGE', 'DRVDLOS', 'DRVDCAL',

886: p_effective_date => p_effective_date,
887: p_object_version_number => p_object_version_number);
888: --
889: if (l_api_updating and
890: ben_ler_shd.g_old_rec.typ_cd in ('DRVDAGE', 'DRVDLOS', 'DRVDCAL',
891: 'DRVDHRW', 'DRVDCMP', 'DRVDTPF', 'QMSCOCO', 'QDROCOU', 'QUAINGR')
892: and nvl(p_typ_cd,hr_api.g_varchar2) <> ben_ler_shd.g_old_rec.typ_cd) then
893: --
894: -- The user is not allowed to change Life Event TYPE of derived types.

Line 892: and nvl(p_typ_cd,hr_api.g_varchar2) <> ben_ler_shd.g_old_rec.typ_cd) then

888: --
889: if (l_api_updating and
890: ben_ler_shd.g_old_rec.typ_cd in ('DRVDAGE', 'DRVDLOS', 'DRVDCAL',
891: 'DRVDHRW', 'DRVDCMP', 'DRVDTPF', 'QMSCOCO', 'QDROCOU', 'QUAINGR')
892: and nvl(p_typ_cd,hr_api.g_varchar2) <> ben_ler_shd.g_old_rec.typ_cd) then
893: --
894: -- The user is not allowed to change Life Event TYPE of derived types.
895: --
896: fnd_message.set_name('BEN','BEN_91423_DELIVERED_TYPE_CHG');

Line 901: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)

897: fnd_message.raise_error;
898: end if;
899:
900: if nvl(p_typ_cd,hr_api.g_varchar2)
901: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
902: and
903: p_typ_cd in ('DRVDAGE', 'DRVDLOS', 'DRVDCAL',
904: 'DRVDHRW', 'DRVDCMP', 'DRVDTPF', 'SCHEDDO','SCHEDDA','SCHEDDU',
905: 'QMSCOCO', 'QDROCOU', 'QUAINGR') then -- GSP Rate Synchronization : Removed GSP

Line 933: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)

929:
930:
931: if (l_api_updating
932: and p_typ_cd
933: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
934: or not l_api_updating)
935: and p_typ_cd is not null then
936: --
937: -- check if value of lookup falls within lookup type.

Line 957: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)

953: -- Only allow the Type Code to change if the record is not being used in any
954: -- foreign keys. CAN change the type from null to something though.
955: if (l_api_updating
956: and nvl(p_typ_cd,hr_api.g_varchar2)
957: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
958: and ben_ler_shd.g_old_rec.typ_cd is not null) then
959: --
960: -- Call a routine to check to see if any child rows exist. This
961: -- procedure will return an error message if any children exist.

Line 958: and ben_ler_shd.g_old_rec.typ_cd is not null) then

954: -- foreign keys. CAN change the type from null to something though.
955: if (l_api_updating
956: and nvl(p_typ_cd,hr_api.g_varchar2)
957: <> nvl(ben_ler_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
958: and ben_ler_shd.g_old_rec.typ_cd is not null) then
959: --
960: -- Call a routine to check to see if any child rows exist. This
961: -- procedure will return an error message if any children exist.
962: --

Line 1011: l_api_updating := ben_ler_shd.api_updating

1007: Begin
1008: --
1009: hr_utility.set_location('Entering:'||l_proc, 5);
1010: --
1011: l_api_updating := ben_ler_shd.api_updating
1012: (p_ler_id => p_ler_id,
1013: p_effective_date => p_effective_date,
1014: p_object_version_number => p_object_version_number);
1015: --

Line 1083: l_api_updating := ben_ler_shd.api_updating

1079: Begin
1080: --
1081: hr_utility.set_location('Entering:'||l_proc, 5);
1082: --
1083: l_api_updating := ben_ler_shd.api_updating
1084: (p_ler_id => p_ler_id,
1085: p_effective_date => p_effective_date,
1086: p_object_version_number => p_object_version_number);
1087: --

Line 1089: and nvl(p_typ_cd,hr_api.g_varchar2) <> ben_ler_shd.g_old_rec.typ_cd

1085: p_effective_date => p_effective_date,
1086: p_object_version_number => p_object_version_number);
1087: --
1088: if ( (l_api_updating
1089: and nvl(p_typ_cd,hr_api.g_varchar2) <> ben_ler_shd.g_old_rec.typ_cd
1090: or not l_api_updating )
1091: and p_typ_cd = 'IREC' )
1092: then
1093: --

Line 1156: l_api_updating := ben_ler_shd.api_updating

1152: Begin
1153: --
1154: hr_utility.set_location('Entering:'||l_proc, 5);
1155: --
1156: l_api_updating := ben_ler_shd.api_updating
1157: (p_ler_id => p_ler_id,
1158: p_effective_date => p_effective_date,
1159: p_object_version_number => p_object_version_number);
1160: --

Line 1163: <> nvl(ben_ler_shd.g_old_rec.ck_rltd_per_elig_flag,hr_api.g_varchar2)

1159: p_object_version_number => p_object_version_number);
1160: --
1161: if (l_api_updating
1162: and p_ck_rltd_per_elig_flag
1163: <> nvl(ben_ler_shd.g_old_rec.ck_rltd_per_elig_flag,hr_api.g_varchar2)
1164: or not l_api_updating)
1165: and p_ck_rltd_per_elig_flag is not null then
1166: --
1167: -- check if value of lookup falls within lookup type.

Line 1225: l_api_updating := ben_ler_shd.api_updating

1221: Begin
1222: --
1223: hr_utility.set_location('Entering:'||l_proc, 5);
1224: --
1225: l_api_updating := ben_ler_shd.api_updating
1226: (p_ler_id => p_ler_id,
1227: p_effective_date => p_effective_date,
1228: p_object_version_number => p_object_version_number);
1229: --

Line 1232: <> nvl(ben_ler_shd.g_old_rec.cm_aply_flag,hr_api.g_varchar2)

1228: p_object_version_number => p_object_version_number);
1229: --
1230: if (l_api_updating
1231: and p_cm_aply_flag
1232: <> nvl(ben_ler_shd.g_old_rec.cm_aply_flag,hr_api.g_varchar2)
1233: or not l_api_updating)
1234: and p_cm_aply_flag is not null then
1235: --
1236: -- check if value of lookup falls within lookup type.

Line 1322: l_api_updating := ben_ler_shd.api_updating

1318: Begin
1319: --
1320: hr_utility.set_location('Entering:'||l_proc, 5);
1321: --
1322: l_api_updating := ben_ler_shd.api_updating
1323: (p_ler_id => p_ler_id,
1324: p_effective_date => p_effective_date,
1325: p_object_version_number => p_object_version_number);
1326:

Line 1329: <> ben_ler_shd.g_old_rec.name

1325: p_object_version_number => p_object_version_number);
1326:
1327: if (l_api_updating
1328: and nvl(p_name,hr_api.g_varchar2)
1329: <> ben_ler_shd.g_old_rec.name
1330: or not l_api_updating) then
1331:
1332: open l_csr_ler ;
1333: fetch l_csr_ler into l_db_ler_row;

Line 1339: ben_ler_shd.constraint_error('BEN_LER_UK1');

1335: close l_csr_ler;
1336: --
1337: -- raise error as there is another record in database with same name.
1338: --
1339: ben_ler_shd.constraint_error('BEN_LER_UK1');
1340: end if;
1341: close l_csr_ler;
1342:
1343: end if;

Line 1388: l_api_updating := ben_ler_shd.api_updating

1384: Begin
1385: --
1386: hr_utility.set_location('Entering:'||l_proc, 5);
1387: --
1388: l_api_updating := ben_ler_shd.api_updating
1389: (p_ler_id => p_ler_id,
1390: p_effective_date => p_effective_date,
1391: p_object_version_number => p_object_version_number);
1392:

Line 1395: <> ben_ler_shd.g_old_rec.ovridg_le_flag

1391: p_object_version_number => p_object_version_number);
1392:
1393: if (l_api_updating
1394: and nvl(p_ovridg_le_flag,hr_api.g_varchar2)
1395: <> ben_ler_shd.g_old_rec.ovridg_le_flag
1396: or not l_api_updating) then
1397: --
1398: -- check if value of lookup falls within lookup type.
1399: --

Line 1460: l_api_updating := ben_ler_shd.api_updating

1456: Begin
1457: --
1458: hr_utility.set_location('Entering:'||l_proc, 5);
1459: --
1460: l_api_updating := ben_ler_shd.api_updating
1461: (p_ler_id => p_ler_id,
1462: p_effective_date => p_effective_date,
1463: p_object_version_number => p_object_version_number);
1464:

Line 1467: <> ben_ler_shd.g_old_rec.qualg_evt_flag

1463: p_object_version_number => p_object_version_number);
1464:
1465: if (l_api_updating
1466: and nvl(p_qualg_evt_flag,hr_api.g_varchar2)
1467: <> ben_ler_shd.g_old_rec.qualg_evt_flag
1468: or not l_api_updating) then
1469: --
1470: -- check if value of lookup falls within lookup type.
1471: --

Line 1530: l_api_updating := ben_ler_shd.api_updating

1526: Begin
1527: --
1528: hr_utility.set_location('Entering:'||l_proc, 5);
1529: --
1530: l_api_updating := ben_ler_shd.api_updating
1531: (p_ler_id => p_ler_id,
1532: p_effective_date => p_effective_date,
1533: p_object_version_number => p_object_version_number);
1534: --

Line 1537: <> nvl(ben_ler_shd.g_old_rec.tmlns_eval_cd,hr_api.g_varchar2)

1533: p_object_version_number => p_object_version_number);
1534: --
1535: if (l_api_updating
1536: and p_tmlns_eval_cd
1537: <> nvl(ben_ler_shd.g_old_rec.tmlns_eval_cd,hr_api.g_varchar2)
1538: or not l_api_updating)
1539: and p_tmlns_eval_cd is not null then
1540: --
1541: -- check if value of lookup falls within lookup type.

Line 1601: l_api_updating := ben_ler_shd.api_updating

1597: Begin
1598: --
1599: hr_utility.set_location('Entering:'||l_proc, 5);
1600: --
1601: l_api_updating := ben_ler_shd.api_updating
1602: (p_ler_id => p_ler_id,
1603: p_effective_date => p_effective_date,
1604: p_object_version_number => p_object_version_number);
1605: --

Line 1608: <> nvl(ben_ler_shd.g_old_rec.tmlns_perd_cd,hr_api.g_varchar2)

1604: p_object_version_number => p_object_version_number);
1605: --
1606: if (l_api_updating
1607: and p_tmlns_perd_cd
1608: <> nvl(ben_ler_shd.g_old_rec.tmlns_perd_cd,hr_api.g_varchar2)
1609: or not l_api_updating)
1610: and p_tmlns_perd_cd is not null then
1611: --
1612: -- check if value of lookup falls within lookup type.

Line 1673: l_api_updating := ben_ler_shd.api_updating

1669: Begin
1670: --
1671: hr_utility.set_location('Entering:'||l_proc, 5);
1672: --
1673: l_api_updating := ben_ler_shd.api_updating
1674: (p_ler_id => p_ler_id,
1675: p_object_version_number => p_object_version_number,
1676: p_effective_date => p_effective_date);
1677: --

Line 1680: <> ben_ler_shd.g_old_rec.tmlns_perd_rl

1676: p_effective_date => p_effective_date);
1677: --
1678: if (l_api_updating
1679: and nvl(p_tmlns_perd_rl,hr_api.g_number)
1680: <> ben_ler_shd.g_old_rec.tmlns_perd_rl
1681: or not l_api_updating)
1682: and p_tmlns_perd_rl is not null then
1683: --
1684: -- check if value of formula rule is valid.

Line 1746: l_api_updating := ben_ler_shd.api_updating

1742: Begin
1743: --
1744: hr_utility.set_location('Entering:'||l_proc, 5);
1745: --
1746: l_api_updating := ben_ler_shd.api_updating
1747: (p_ler_id => p_ler_id,
1748: p_effective_date => p_effective_date,
1749: p_object_version_number => p_object_version_number);
1750: --

Line 1752: and ( p_slctbl_slf_svc_cd <> nvl(ben_ler_shd.g_old_rec.slctbl_slf_svc_cd ,hr_api.g_varchar2)

1748: p_effective_date => p_effective_date,
1749: p_object_version_number => p_object_version_number);
1750: --
1751: if (l_api_updating
1752: and ( p_slctbl_slf_svc_cd <> nvl(ben_ler_shd.g_old_rec.slctbl_slf_svc_cd ,hr_api.g_varchar2)
1753: or p_qualg_evt_flag <> nvl(ben_ler_shd.g_old_rec.qualg_evt_flag , hr_api.g_varchar2) )
1754: or not l_api_updating)
1755: and p_slctbl_slf_svc_cd is not null then
1756: --

Line 1753: or p_qualg_evt_flag <> nvl(ben_ler_shd.g_old_rec.qualg_evt_flag , hr_api.g_varchar2) )

1749: p_object_version_number => p_object_version_number);
1750: --
1751: if (l_api_updating
1752: and ( p_slctbl_slf_svc_cd <> nvl(ben_ler_shd.g_old_rec.slctbl_slf_svc_cd ,hr_api.g_varchar2)
1753: or p_qualg_evt_flag <> nvl(ben_ler_shd.g_old_rec.qualg_evt_flag , hr_api.g_varchar2) )
1754: or not l_api_updating)
1755: and p_slctbl_slf_svc_cd is not null then
1756: --
1757: -- if value of p_slctbl_slf_svc_cd is in (COBRA , REGCOBRA) then p_qualg_evt_flag should be Y , else throw an error.

Line 1985: (p_rec in ben_ler_shd.g_rec_type,

1981: -- ----------------------------------------------------------------------------
1982: -- |---------------------------< insert_validate >----------------------------|
1983: -- ----------------------------------------------------------------------------
1984: Procedure insert_validate
1985: (p_rec in ben_ler_shd.g_rec_type,
1986: p_effective_date in date,
1987: p_datetrack_mode in varchar2,
1988: p_validation_start_date in date,
1989: p_validation_end_date in date) is

Line 2142: (p_rec in ben_ler_shd.g_rec_type,

2138: -- ----------------------------------------------------------------------------
2139: -- |---------------------------< update_validate >----------------------------|
2140: -- ----------------------------------------------------------------------------
2141: Procedure update_validate
2142: (p_rec in ben_ler_shd.g_rec_type,
2143: p_effective_date in date,
2144: p_datetrack_mode in varchar2,
2145: p_validation_start_date in date,
2146: p_validation_end_date in date) is

Line 2301: (p_rec in ben_ler_shd.g_rec_type,

2297: -- ----------------------------------------------------------------------------
2298: -- |---------------------------< delete_validate >----------------------------|
2299: -- ----------------------------------------------------------------------------
2300: Procedure delete_validate
2301: (p_rec in ben_ler_shd.g_rec_type,
2302: p_effective_date in date,
2303: p_datetrack_mode in varchar2,
2304: p_validation_start_date in date,
2305: p_validation_end_date in date) is