[Home] [Help]
44: (p_effective_date => p_effective_date,
45: p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
46: p_object_version_number => p_object_version_number);
47: if (l_api_updating
48: and nvl(p_prtt_enrt_rslt_id,hr_api.g_number)
49: <> ben_pen_shd.g_old_rec.prtt_enrt_rslt_id) then
50: --
51: -- raise error as PK has changed
52: --
111: p_object_version_number => p_object_version_number);
112: --
113: if (l_api_updating
114: and p_enrt_ovridn_flag
115: <> nvl(ben_pen_shd.g_old_rec.enrt_ovridn_flag,hr_api.g_varchar2)
116: or not l_api_updating) then
117: --
118: -- check if value of lookup falls within lookup type.
119: --
117: --
118: -- check if value of lookup falls within lookup type.
119: --
120: --
121: if hr_api.not_exists_in_hr_lookups
122: (p_lookup_type => 'YES_NO',
123: p_lookup_code => p_enrt_ovridn_flag,
124: p_effective_date => p_effective_date) then
125: --
181: p_object_version_number => p_object_version_number);
182: --
183: if (l_api_updating
184: and p_no_lngr_elig_flag
185: <> nvl(ben_pen_shd.g_old_rec.no_lngr_elig_flag,hr_api.g_varchar2)
186: or not l_api_updating) then
187: --
188: -- check if value of lookup falls within lookup type.
189: --
187: --
188: -- check if value of lookup falls within lookup type.
189: --
190: --
191: if hr_api.not_exists_in_hr_lookups
192: (p_lookup_type => 'YES_NO',
193: p_lookup_code => p_no_lngr_elig_flag,
194: p_effective_date => p_effective_date) then
195: --
253: p_object_version_number => p_object_version_number);
254: --
255: if (l_api_updating
256: and p_enrt_mthd_cd
257: <> nvl(ben_pen_shd.g_old_rec.enrt_mthd_cd,hr_api.g_varchar2)
258: or not l_api_updating) then
259: --
260: -- check if value of lookup falls within lookup type.
261: --
259: --
260: -- check if value of lookup falls within lookup type.
261: --
262: --
263: if hr_api.not_exists_in_hr_lookups
264: (p_lookup_type => 'BEN_ENRT_RSLT_MTHD',
265: p_lookup_code => p_enrt_mthd_cd,
266: p_effective_date => p_effective_date) then
267: --
325: p_object_version_number => p_object_version_number);
326: --
327: if (l_api_updating
328: and p_uom
329: <> nvl(ben_pen_shd.g_old_rec.uom,hr_api.g_varchar2)
330: or not l_api_updating)
331: and p_uom is not null then
332: --
333: -- check if value of lookup falls within lookup type.
396: p_object_version_number => p_object_version_number);
397: --
398: if (l_api_updating
399: and p_prtt_is_cvrd_flag
400: <> nvl(ben_pen_shd.g_old_rec.prtt_is_cvrd_flag,hr_api.g_varchar2)
401: or not l_api_updating) then
402: --
403: -- check if value of lookup falls within lookup type.
404: --
402: --
403: -- check if value of lookup falls within lookup type.
404: --
405: --
406: if hr_api.not_exists_in_hr_lookups
407: (p_lookup_type => 'YES_NO',
408: p_lookup_code => p_prtt_is_cvrd_flag,
409: p_effective_date => p_effective_date) then
410: --
466: p_object_version_number => p_object_version_number);
467: --
468: if (l_api_updating
469: and p_sspndd_flag <>
470: nvl(ben_pen_shd.g_old_rec.sspndd_flag,hr_api.g_varchar2)
471: or not l_api_updating) then
472: --
473: -- check if value of lookup falls within lookup type.
474: --
472: --
473: -- check if value of lookup falls within lookup type.
474: --
475: --
476: if hr_api.not_exists_in_hr_lookups
477: (p_lookup_type => 'YES_NO',
478: p_lookup_code => p_sspndd_flag,
479: p_effective_date => p_effective_date) then
480: --
536: p_object_version_number => p_object_version_number);
537: --
538: if (l_api_updating
539: and p_comp_lvl_cd <>
540: nvl(ben_pen_shd.g_old_rec.comp_lvl_cd,hr_api.g_varchar2)
541: or not l_api_updating) then
542: --
543: -- check if value of lookup falls within lookup type.
544: --
542: --
543: -- check if value of lookup falls within lookup type.
544: --
545: --
546: if hr_api.not_exists_in_hr_lookups
547: (p_lookup_type => 'BEN_COMP_LVL',
548: p_lookup_code => p_comp_lvl_cd,
549: p_effective_date => p_effective_date) then
550: --
606: p_object_version_number => p_object_version_number);
607: --
608: if (l_api_updating
609: and p_bnft_nnmntry_uom
610: <> nvl(ben_pen_shd.g_old_rec.bnft_nnmntry_uom,hr_api.g_varchar2)
611: or not l_api_updating)
612: and p_bnft_nnmntry_uom is not null then
613: --
614: -- check if value of lookup falls within lookup type.
612: and p_bnft_nnmntry_uom is not null then
613: --
614: -- check if value of lookup falls within lookup type.
615: --
616: if hr_api.not_exists_in_hr_lookups
617: (p_lookup_type => 'BEN_NNMNTRY_UOM',
618: p_lookup_code => p_bnft_nnmntry_uom,
619: p_effective_date => p_effective_date) then
620: --
674: p_object_version_number => p_object_version_number);
675: --
676: if (l_api_updating
677: and p_bnft_typ_cd
678: <> nvl(ben_pen_shd.g_old_rec.bnft_typ_cd,hr_api.g_varchar2)
679: or not l_api_updating)
680: and p_bnft_typ_cd is not null then
681: --
682: -- check if value of lookup falls within lookup type.
680: and p_bnft_typ_cd is not null then
681: --
682: -- check if value of lookup falls within lookup type.
683: --
684: if hr_api.not_exists_in_hr_lookups
685: (p_lookup_type => 'BEN_BNFT_TYP',
686: p_lookup_code => p_bnft_typ_cd,
687: p_effective_date => p_effective_date) then
688: --
743: p_object_version_number => p_object_version_number);
744: --
745: if (l_api_updating
746: and p_prtt_enrt_rslt_stat_cd
747: <> nvl(ben_pen_shd.g_old_rec.prtt_enrt_rslt_stat_cd,hr_api.g_varchar2)
748: or not l_api_updating)
749: and p_prtt_enrt_rslt_stat_cd is not null then
750: --
751: -- check if value of lookup falls within lookup type.
749: and p_prtt_enrt_rslt_stat_cd is not null then
750: --
751: -- check if value of lookup falls within lookup type.
752: --
753: if hr_api.not_exists_in_hr_lookups
754: (p_lookup_type => 'BEN_PRTT_ENRT_RSLT_STAT',
755: p_lookup_code => p_prtt_enrt_rslt_stat_cd,
756: p_effective_date => p_effective_date) then
757: --
813: p_effective_date => p_effective_date,
814: p_object_version_number => p_object_version_number);
815: if (l_api_updating
816: and p_enrt_ovrid_rsn_cd
817: <> nvl(ben_pen_shd.g_old_rec.enrt_ovrid_rsn_cd,hr_api.g_varchar2)
818: or not l_api_updating)
819: and p_enrt_ovrid_rsn_cd is not null then
820: --
821: -- check if value of lookup falls within lookup type.
819: and p_enrt_ovrid_rsn_cd is not null then
820: --
821: -- check if value of lookup falls within lookup type.
822: --
823: if hr_api.not_exists_in_hr_lookups
824: (p_lookup_type => 'BEN_OVRID_RSN',
825: p_lookup_code => p_enrt_ovrid_rsn_cd,
826: p_effective_date => p_effective_date) then
827: --
1343: l_tot_amt_no_interim := 0 ;
1344: for j in 1..p_enrt_cnt loop
1345: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1346: p_enrt_tbl(j).enrt_cvg_strt_dt and
1347: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1348: ) then
1349: hr_utility.set_location(' j '||j,1234);
1350: if (p_enrt_tbl(j).calc_interm = 1) then
1351: if (nvl(p_enrt_tbl(j).SSPNDD_FLAG, 'X') <> 'Y') then
1426: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1427: --
1428: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1429: p_enrt_tbl(j).enrt_cvg_strt_dt and
1430: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1431: ) then
1432: --
1433: /*
1434: hr_utility.set_location('INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1554: from ben_prtt_enrt_rslt_f pen1
1555: where pen1.per_in_ler_id = pil.per_in_ler_id
1556: and pen1.prtt_enrt_rslt_stat_cd is NULL
1557: and pen1.pl_id = p_pl_id
1558: and pen1.enrt_cvg_thru_dt = hr_api.g_eot
1559: and pen1.person_id = p_person_id ) ;
1560: --
1561: --Bug 2715942 fixes
1562: --
1624: ben_pl_f pln
1625: where pen.person_id = c_person_id
1626: and pen.prtt_enrt_rslt_stat_cd is null
1627: and pen.pgm_id <> c_pgm_id
1628: and pen.effective_end_date = hr_api.g_eot
1629: and pen.enrt_cvg_thru_dt = hr_api.g_eot
1630: and pen.prtt_enrt_rslt_id = epe.prtt_enrt_rslt_id (+)
1631: and pen.per_in_ler_id = epe.per_in_ler_id (+)
1632: and pen.comp_lvl_cd not in ('PLANFC','PLANIMP')
1625: where pen.person_id = c_person_id
1626: and pen.prtt_enrt_rslt_stat_cd is null
1627: and pen.pgm_id <> c_pgm_id
1628: and pen.effective_end_date = hr_api.g_eot
1629: and pen.enrt_cvg_thru_dt = hr_api.g_eot
1630: and pen.prtt_enrt_rslt_id = epe.prtt_enrt_rslt_id (+)
1631: and pen.per_in_ler_id = epe.per_in_ler_id (+)
1632: and pen.comp_lvl_cd not in ('PLANFC','PLANIMP')
1633: and exists (select null
2129: for j in 1..g_comp_obj_cnt loop
2130: -- Bug No. 6454197 Added code to enforce limitation for enrollment at plantype
2131: if (g_enrt_tbl(j).ptip_id = g_ptip_tbl(i).ptip_id and
2132: g_enrt_tbl(j).prtt_enrt_rslt_id is not null
2133: and g_enrt_tbl(j).enrt_cvg_thru_dt = hr_api.g_eot) then
2134: l_enrt_cnt := l_enrt_cnt + 1;
2135: l_enrt_tbl(l_enrt_cnt) := g_enrt_tbl(j);
2136: end if;
2137: end loop;
2506: Cursor c1 is
2507: select null
2508: from ben_elig_per_elctbl_chc
2509: where business_group_id = p_business_group_id
2510: and nvl(pgm_id,hr_api.g_number) = nvl(p_pgm_id, hr_api.g_number)
2511: and MNDTRY_FLAG = 'Y'
2512: and pl_id in -- bug 1207161 removed 'not'
2513: (Select distinct pen.pl_id
2514: From ben_prtt_enrt_rslt_f pen
2511: and MNDTRY_FLAG = 'Y'
2512: and pl_id in -- bug 1207161 removed 'not'
2513: (Select distinct pen.pl_id
2514: From ben_prtt_enrt_rslt_f pen
2515: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2516: and p_effective_date between
2517: pen.effective_start_date and pen.effective_end_date
2518: and pen.effective_end_date = hr_api.g_eot
2519: and pen.person_id = p_person_id
2514: From ben_prtt_enrt_rslt_f pen
2515: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2516: and p_effective_date between
2517: pen.effective_start_date and pen.effective_end_date
2518: and pen.effective_end_date = hr_api.g_eot
2519: and pen.person_id = p_person_id
2520: and nvl(pen.pgm_id,-1) = nvl(p_pgm_id,-1)
2521: and pen.prtt_enrt_rslt_stat_cd is null)
2522: and oipl_id not in -- bug 1207161 added this.
2521: and pen.prtt_enrt_rslt_stat_cd is null)
2522: and oipl_id not in -- bug 1207161 added this.
2523: (Select distinct nvl(pen.oipl_id, -1)
2524: From ben_prtt_enrt_rslt_f pen
2525: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2526: and p_effective_date between
2527: pen.effective_start_date and pen.effective_end_date
2528: and pen.effective_end_date = hr_api.g_eot
2529: and pen.person_id = p_person_id
2524: From ben_prtt_enrt_rslt_f pen
2525: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2526: and p_effective_date between
2527: pen.effective_start_date and pen.effective_end_date
2528: and pen.effective_end_date = hr_api.g_eot
2529: and pen.person_id = p_person_id
2530: and nvl(pen.pgm_id,-1) = nvl(p_pgm_id,-1)
2531: and pen.prtt_enrt_rslt_stat_cd is null)
2532: and per_in_ler_id in (select per_in_ler_id
2567: ) is
2568: -- RCHASE - rewritten for wwBug 1433274
2569: cursor c_pen is
2570: select distinct Enrt_Cvg_Strt_Dt CSD
2571: ,nvl(Enrt_Cvg_thru_Dt,hr_api.g_eot) CED
2572: ,'N' Match
2573: from ben_prtt_enrt_rslt_f
2574: where person_id = p_person_id
2575: and effective_end_date >= enrt_cvg_strt_dt
2572: ,'N' Match
2573: from ben_prtt_enrt_rslt_f
2574: where person_id = p_person_id
2575: and effective_end_date >= enrt_cvg_strt_dt
2576: and enrt_cvg_strt_dt <= nvl(Enrt_Cvg_thru_Dt,hr_api.g_eot) --bug 5257798
2577: and prtt_enrt_rslt_stat_cd is null
2578: and sspndd_flag = 'N'
2579: and effective_end_date = hr_api.g_eot -- Bug 2130842 added this clause
2580: order by 1 asc, 2 desc;
2575: and effective_end_date >= enrt_cvg_strt_dt
2576: and enrt_cvg_strt_dt <= nvl(Enrt_Cvg_thru_Dt,hr_api.g_eot) --bug 5257798
2577: and prtt_enrt_rslt_stat_cd is null
2578: and sspndd_flag = 'N'
2579: and effective_end_date = hr_api.g_eot -- Bug 2130842 added this clause
2580: order by 1 asc, 2 desc;
2581: --
2582: l_person_type_id per_person_type_usages_f.person_type_id%type:=null;
2583: --
2655: hr_per_type_usage_internal.delete_person_type_usage
2656: (p_validate => FALSE
2657: ,p_person_type_usage_id => l_ptu(j).person_type_usage_id
2658: ,p_effective_date => l_ptu(j).ESD
2659: ,p_datetrack_mode => hr_api.g_zap
2660: ,p_object_version_number => l_ptu(j).OVN
2661: ,p_effective_start_date => l_esd
2662: ,p_effective_end_date => l_eed);
2663: end loop; -- zap person type usage loop
2692: hr_per_type_usage_internal.delete_person_type_usage
2693: (p_validate => FALSE
2694: ,p_person_type_usage_id => l_ptu(j).person_type_usage_id
2695: ,p_effective_date => l_ptu(j).ESD
2696: ,p_datetrack_mode => hr_api.g_zap
2697: ,p_object_version_number => l_ptu(j).OVN
2698: ,p_effective_start_date => l_esd
2699: ,p_effective_end_date => l_eed);
2700: end if;
2713: ,p_effective_start_date => l_esd
2714: ,p_effective_end_date => l_eed);
2715: -- if the enrollment record does not go to end of time
2716: -- make sure to end date the person type usage row
2717: if l_pen(i).ced <> hr_api.g_eot then
2718: hr_per_type_usage_internal.delete_person_type_usage
2719: (p_validate => FALSE
2720: ,p_person_type_usage_id => l_person_type_usage_id
2721: ,p_effective_date => l_pen(i).ced
2718: hr_per_type_usage_internal.delete_person_type_usage
2719: (p_validate => FALSE
2720: ,p_person_type_usage_id => l_person_type_usage_id
2721: ,p_effective_date => l_pen(i).ced
2722: ,p_datetrack_mode => hr_api.g_delete
2723: ,p_object_version_number => l_object_version_number
2724: ,p_effective_start_date => l_esd
2725: ,p_effective_end_date => l_eed);
2726: end if;
2763: And nvl(b.pgm_id,-1) = nvl(p_pgm_id,-1)
2764: And p_effective_date between
2765: b.effective_start_date and b.effective_end_date
2766: And b.business_group_id=p_business_group_id
2767: And b.enrt_cvg_strt_dt < nvl(b.effective_end_date,hr_api.g_eot)
2768: And b.oipl_id is NULL
2769: and b.prtt_enrt_rslt_stat_cd is null
2770: And b.sspndd_flag = 'Y'
2771: And b.pl_id = c.pl_id
2784: And nvl(a.pgm_id,-1) = nvl(p_pgm_id,-1)
2785: And a.business_group_id=p_business_group_id
2786: And p_effective_date between
2787: a.effective_start_date and a.effective_end_date
2788: And a.enrt_cvg_strt_dt < nvl(a.effective_end_date, hr_api.g_eot)
2789: And a.oipl_id is not null
2790: and a.prtt_enrt_rslt_stat_cd is null
2791: And a.sspndd_flag = 'N'
2792: And a.pl_id = c_pl_id
2809: For l_rec1 in c1 loop
2810: l_step := trunc(l_step,-1) + 10;
2811: For l_rec in c2(l_rec1.pl_id) Loop
2812: If (p_effective_date = l_rec.effective_start_date ) then
2813: l_datetrack_mode := hr_api.g_correction;
2814: Else
2815: l_datetrack_mode := hr_api.g_update;
2816: end if;
2817: --
2811: For l_rec in c2(l_rec1.pl_id) Loop
2812: If (p_effective_date = l_rec.effective_start_date ) then
2813: l_datetrack_mode := hr_api.g_correction;
2814: Else
2815: l_datetrack_mode := hr_api.g_update;
2816: end if;
2817: --
2818: -- Noted:
2819: -- the following call need to changed to call suspended process after
2910: from ben_prtt_enrt_rslt_f pen,
2911: ben_enrt_bnft enb
2912: where pen.person_id = p_person_id
2913: and pen.prtt_enrt_rslt_stat_cd is null
2914: and enrt_cvg_thru_dt = hr_api.g_eot
2915: and pen.comp_lvl_cd <> 'PLANIMP'
2916: and pen.prtt_enrt_rslt_id = enb.prtt_enrt_rslt_id
2917: and pen.pgm_id = p_pgm_id
2918: and pen.pl_typ_id = p_pl_typ_id
2916: and pen.prtt_enrt_rslt_id = enb.prtt_enrt_rslt_id
2917: and pen.pgm_id = p_pgm_id
2918: and pen.pl_typ_id = p_pl_typ_id
2919: and enb.cvg_mlt_cd = 'ERL'
2920: and pen.effective_end_date = hr_api.g_eot;
2921: --
2922: i binary_integer :=0;
2923: j binary_integer :=0;
2924: l_pl_notfnd boolean :=TRUE;
3497: -- re-enrolls in a comp-object after de-enrolling from it.)
3498: --
3499: if (l_prev_cvg_strt_dt between
3500: g_enrt_tbl(i).enrt_cvg_strt_dt
3501: and nvl(g_enrt_tbl(i).enrt_cvg_thru_dt,hr_api.g_eot))
3502: OR
3503: (g_enrt_tbl(i).enrt_cvg_strt_dt between
3504: l_prev_cvg_strt_dt
3505: and nvl(l_prev_cvg_end_dt,hr_api.g_eot)) then
3501: and nvl(g_enrt_tbl(i).enrt_cvg_thru_dt,hr_api.g_eot))
3502: OR
3503: (g_enrt_tbl(i).enrt_cvg_strt_dt between
3504: l_prev_cvg_strt_dt
3505: and nvl(l_prev_cvg_end_dt,hr_api.g_eot)) then
3506: --
3507: fnd_message.set_name('BEN','BEN_91699_DUP_COMP_OBJ_IN_PGM');
3508: fnd_message.set_token
3509: ('PL_NAME'
3559: for j in 1..g_comp_obj_cnt loop
3560: --
3561: if g_enrt_tbl(j).ptip_id = g_ptip_tbl(i).ptip_id and
3562: g_enrt_tbl(j).prtt_enrt_rslt_id is not null and
3563: g_enrt_tbl(j).enrt_cvg_thru_dt = hr_api.g_eot and
3564: g_enrt_tbl(j).interim_flag = 'N' and
3565: g_enrt_tbl(j).opt_id is not null then
3566: --
3567: if (l_init_flag) then
3675: --
3676: -- {End Of Comments}
3677: -- ----------------------------------------------------------------------------
3678: Procedure dt_update_validate
3679: (p_pgm_id in number default hr_api.g_number,
3680: p_oipl_id in number default hr_api.g_number,
3681: p_per_in_ler_id in number default hr_api.g_number,
3682: p_pl_id in number default hr_api.g_number,
3683: p_pl_typ_id in number default hr_api.g_number,
3676: -- {End Of Comments}
3677: -- ----------------------------------------------------------------------------
3678: Procedure dt_update_validate
3679: (p_pgm_id in number default hr_api.g_number,
3680: p_oipl_id in number default hr_api.g_number,
3681: p_per_in_ler_id in number default hr_api.g_number,
3682: p_pl_id in number default hr_api.g_number,
3683: p_pl_typ_id in number default hr_api.g_number,
3684: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3677: -- ----------------------------------------------------------------------------
3678: Procedure dt_update_validate
3679: (p_pgm_id in number default hr_api.g_number,
3680: p_oipl_id in number default hr_api.g_number,
3681: p_per_in_ler_id in number default hr_api.g_number,
3682: p_pl_id in number default hr_api.g_number,
3683: p_pl_typ_id in number default hr_api.g_number,
3684: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3685: p_datetrack_mode in varchar2,
3678: Procedure dt_update_validate
3679: (p_pgm_id in number default hr_api.g_number,
3680: p_oipl_id in number default hr_api.g_number,
3681: p_per_in_ler_id in number default hr_api.g_number,
3682: p_pl_id in number default hr_api.g_number,
3683: p_pl_typ_id in number default hr_api.g_number,
3684: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3685: p_datetrack_mode in varchar2,
3686: p_validation_start_date in date,
3679: (p_pgm_id in number default hr_api.g_number,
3680: p_oipl_id in number default hr_api.g_number,
3681: p_per_in_ler_id in number default hr_api.g_number,
3682: p_pl_id in number default hr_api.g_number,
3683: p_pl_typ_id in number default hr_api.g_number,
3684: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3685: p_datetrack_mode in varchar2,
3686: p_validation_start_date in date,
3687: p_validation_end_date in date) Is
3680: p_oipl_id in number default hr_api.g_number,
3681: p_per_in_ler_id in number default hr_api.g_number,
3682: p_pl_id in number default hr_api.g_number,
3683: p_pl_typ_id in number default hr_api.g_number,
3684: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3685: p_datetrack_mode in varchar2,
3686: p_validation_start_date in date,
3687: p_validation_end_date in date) Is
3688: --
3694: hr_utility.set_location('Entering:'||l_proc, 5);
3695: --
3696: -- Ensure that the p_datetrack_mode argument is not null
3697: --
3698: hr_api.mandatory_arg_error
3699: (p_api_name => l_proc,
3700: p_argument => 'datetrack_mode',
3701: p_argument_value => p_datetrack_mode);
3702: --
3706: --
3707: --
3708: -- Ensure the arguments are not null
3709: --
3710: hr_api.mandatory_arg_error
3711: (p_api_name => l_proc,
3712: p_argument => 'validation_start_date',
3713: p_argument_value => p_validation_start_date);
3714: --
3711: (p_api_name => l_proc,
3712: p_argument => 'validation_start_date',
3713: p_argument_value => p_validation_start_date);
3714: --
3715: hr_api.mandatory_arg_error
3716: (p_api_name => l_proc,
3717: p_argument => 'validation_end_date',
3718: p_argument_value => p_validation_end_date);
3719: --
3716: (p_api_name => l_proc,
3717: p_argument => 'validation_end_date',
3718: p_argument_value => p_validation_end_date);
3719: --
3720: If ((nvl(p_pgm_id, hr_api.g_number) <> hr_api.g_number) and
3721: NOT (dt_api.check_min_max_dates
3722: (p_base_table_name => 'ben_pgm_f',
3723: p_base_key_column => 'pgm_id',
3724: p_base_key_value => p_pgm_id,
3726: p_to_date => p_validation_end_date))) Then
3727: l_table_name := 'ben_pgm_f';
3728: Raise l_integrity_error;
3729: End If;
3730: If ((nvl(p_oipl_id, hr_api.g_number) <> hr_api.g_number) and
3731: NOT (dt_api.check_min_max_dates
3732: (p_base_table_name => 'ben_oipl_f',
3733: p_base_key_column => 'oipl_id',
3734: p_base_key_value => p_oipl_id,
3736: p_to_date => p_validation_end_date))) Then
3737: l_table_name := 'ben_oipl_f';
3738: Raise l_integrity_error;
3739: End If;
3740: If ((nvl(p_pl_id, hr_api.g_number) <> hr_api.g_number) and
3741: NOT (dt_api.check_min_max_dates
3742: (p_base_table_name => 'ben_pl_f',
3743: p_base_key_column => 'pl_id',
3744: p_base_key_value => p_pl_id,
3746: p_to_date => p_validation_end_date))) Then
3747: l_table_name := 'ben_pl_f';
3748: Raise l_integrity_error;
3749: End If;
3750: If ((nvl(p_pl_typ_id, hr_api.g_number) <> hr_api.g_number) and
3751: NOT (dt_api.check_min_max_dates
3752: (p_base_table_name => 'ben_pl_typ_f',
3753: p_base_key_column => 'pl_typ_id',
3754: p_base_key_value => p_pl_typ_id,
3756: p_to_date => p_validation_end_date))) Then
3757: l_table_name := 'ben_pl_typ_f';
3758: Raise l_integrity_error;
3759: End If;
3760: If ((nvl(p_prtt_enrt_rslt_id, hr_api.g_number) <> hr_api.g_number) and
3761: NOT (dt_api.check_min_max_dates
3762: (p_base_table_name => 'ben_prtt_enrt_rslt_f',
3763: p_base_key_column => 'prtt_enrt_rslt_id',
3764: p_base_key_value => p_prtt_enrt_rslt_id,
3839: hr_utility.set_location('Entering:'||l_proc, 5);
3840: --
3841: -- Ensure that the p_datetrack_mode argument is not null
3842: --
3843: hr_api.mandatory_arg_error
3844: (p_api_name => l_proc,
3845: p_argument => 'datetrack_mode',
3846: p_argument_value => p_datetrack_mode);
3847: --
3852: p_datetrack_mode = 'ZAP') then
3853: --
3854: -- Ensure the arguments are not null
3855: --
3856: hr_api.mandatory_arg_error
3857: (p_api_name => l_proc,
3858: p_argument => 'validation_start_date',
3859: p_argument_value => p_validation_start_date);
3860:
3857: (p_api_name => l_proc,
3858: p_argument => 'validation_start_date',
3859: p_argument_value => p_validation_start_date);
3860:
3861: hr_api.mandatory_arg_error
3862: (p_api_name => l_proc,
3863: p_argument => 'validation_end_date',
3864: p_argument_value => p_validation_end_date);
3865:
3862: (p_api_name => l_proc,
3863: p_argument => 'validation_end_date',
3864: p_argument_value => p_validation_end_date);
3865:
3866: hr_api.mandatory_arg_error
3867: (p_api_name => l_proc,
3868: p_argument => 'prtt_enrt_rslt_id',
3869: p_argument_value => p_prtt_enrt_rslt_id);
3870: /*
3965: /*
3966: --
3967: -- Call all supporting business operations
3968: --
3969: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
3970: */
3971: chk_prtt_enrt_rslt_id
3972: (p_prtt_enrt_rslt_id => p_rec.prtt_enrt_rslt_id,
3973: p_effective_date => p_effective_date,
4099: /*
4100: --
4101: -- Call all supporting business operations
4102: --
4103: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
4104: */
4105: chk_prtt_enrt_rslt_id
4106: (p_prtt_enrt_rslt_id => p_rec.prtt_enrt_rslt_id,
4107: p_effective_date => p_effective_date,
4275: hr_utility.set_location('Entering:'|| l_proc, 10);
4276: --
4277: -- Ensure that all the mandatory parameter are not null
4278: --
4279: hr_api.mandatory_arg_error(p_api_name => l_proc,
4280: p_argument => 'prtt_enrt_rslt_id',
4281: p_argument_value => p_prtt_enrt_rslt_id);
4282: --
4283: open csr_leg_code;