[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: --
1344: l_tot_amt_no_interim := 0 ;
1345: for j in 1..p_enrt_cnt loop
1346: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1347: p_enrt_tbl(j).enrt_cvg_strt_dt and
1348: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1349: ) then
1350: hr_utility.set_location(' j '||j,1234);
1351: if (p_enrt_tbl(j).calc_interm = 1) then
1352: if (nvl(p_enrt_tbl(j).SSPNDD_FLAG, 'X') <> 'Y') then
1427: hr_utility.set_location('i INSIDE interim J'||p_enrt_tbl(j).interim_flag,111);
1428: --
1429: if (p_enrt_tbl(i).enrt_cvg_strt_dt between
1430: p_enrt_tbl(j).enrt_cvg_strt_dt and
1431: nvl(p_enrt_tbl(j).enrt_cvg_thru_dt,hr_api.g_eot)
1432: ) then
1433: --
1434: /*
1435: hr_utility.set_location('INSIDE p_enrt_tbl(j).pl_id'||p_enrt_tbl(j).pl_id,111);
1555: from ben_prtt_enrt_rslt_f pen1
1556: where pen1.per_in_ler_id = pil.per_in_ler_id
1557: and pen1.prtt_enrt_rslt_stat_cd is NULL
1558: and pen1.pl_id = p_pl_id
1559: and pen1.enrt_cvg_thru_dt = hr_api.g_eot
1560: and pen1.person_id = p_person_id ) ;
1561: --
1562: --Bug 2715942 fixes
1563: --
1625: ben_pl_f pln
1626: where pen.person_id = c_person_id
1627: and pen.prtt_enrt_rslt_stat_cd is null
1628: and pen.pgm_id <> c_pgm_id
1629: and pen.effective_end_date = hr_api.g_eot
1630: and pen.enrt_cvg_thru_dt = hr_api.g_eot
1631: and pen.prtt_enrt_rslt_id = epe.prtt_enrt_rslt_id (+)
1632: and pen.per_in_ler_id = epe.per_in_ler_id (+)
1633: and pen.comp_lvl_cd not in ('PLANFC','PLANIMP')
1626: where pen.person_id = c_person_id
1627: and pen.prtt_enrt_rslt_stat_cd is null
1628: and pen.pgm_id <> c_pgm_id
1629: and pen.effective_end_date = hr_api.g_eot
1630: and pen.enrt_cvg_thru_dt = hr_api.g_eot
1631: and pen.prtt_enrt_rslt_id = epe.prtt_enrt_rslt_id (+)
1632: and pen.per_in_ler_id = epe.per_in_ler_id (+)
1633: and pen.comp_lvl_cd not in ('PLANFC','PLANIMP')
1634: and exists (select null
2130: for j in 1..g_comp_obj_cnt loop
2131: -- Bug No. 6454197 Added code to enforce limitation for enrollment at plantype
2132: if (g_enrt_tbl(j).ptip_id = g_ptip_tbl(i).ptip_id and
2133: g_enrt_tbl(j).prtt_enrt_rslt_id is not null
2134: and g_enrt_tbl(j).enrt_cvg_thru_dt = hr_api.g_eot) then
2135: l_enrt_cnt := l_enrt_cnt + 1;
2136: l_enrt_tbl(l_enrt_cnt) := g_enrt_tbl(j);
2137: end if;
2138: end loop;
2507: Cursor c1 is
2508: select null
2509: from ben_elig_per_elctbl_chc
2510: where business_group_id = p_business_group_id
2511: and nvl(pgm_id,hr_api.g_number) = nvl(p_pgm_id, hr_api.g_number)
2512: and MNDTRY_FLAG = 'Y'
2513: and pl_id in -- bug 1207161 removed 'not'
2514: (Select distinct pen.pl_id
2515: From ben_prtt_enrt_rslt_f pen
2512: and MNDTRY_FLAG = 'Y'
2513: and pl_id in -- bug 1207161 removed 'not'
2514: (Select distinct pen.pl_id
2515: From ben_prtt_enrt_rslt_f pen
2516: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2517: and p_effective_date between
2518: pen.effective_start_date and pen.effective_end_date
2519: and pen.effective_end_date = hr_api.g_eot
2520: and pen.person_id = p_person_id
2515: From ben_prtt_enrt_rslt_f pen
2516: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2517: and p_effective_date between
2518: pen.effective_start_date and pen.effective_end_date
2519: and pen.effective_end_date = hr_api.g_eot
2520: and pen.person_id = p_person_id
2521: and nvl(pen.pgm_id,-1) = nvl(p_pgm_id,-1)
2522: and pen.prtt_enrt_rslt_stat_cd is null)
2523: and oipl_id not in -- bug 1207161 added this.
2522: and pen.prtt_enrt_rslt_stat_cd is null)
2523: and oipl_id not in -- bug 1207161 added this.
2524: (Select distinct nvl(pen.oipl_id, -1)
2525: From ben_prtt_enrt_rslt_f pen
2526: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2527: and p_effective_date between
2528: pen.effective_start_date and pen.effective_end_date
2529: and pen.effective_end_date = hr_api.g_eot
2530: and pen.person_id = p_person_id
2525: From ben_prtt_enrt_rslt_f pen
2526: Where nvl(pen.enrt_cvg_thru_dt,hr_api.g_eot) = hr_api.g_eot
2527: and p_effective_date between
2528: pen.effective_start_date and pen.effective_end_date
2529: and pen.effective_end_date = hr_api.g_eot
2530: and pen.person_id = p_person_id
2531: and nvl(pen.pgm_id,-1) = nvl(p_pgm_id,-1)
2532: and pen.prtt_enrt_rslt_stat_cd is null)
2533: and per_in_ler_id in (select per_in_ler_id
2568: ) is
2569: -- RCHASE - rewritten for wwBug 1433274
2570: cursor c_pen is
2571: select distinct Enrt_Cvg_Strt_Dt CSD
2572: ,nvl(Enrt_Cvg_thru_Dt,hr_api.g_eot) CED
2573: ,'N' Match
2574: from ben_prtt_enrt_rslt_f
2575: where person_id = p_person_id
2576: and effective_end_date >= enrt_cvg_strt_dt
2573: ,'N' Match
2574: from ben_prtt_enrt_rslt_f
2575: where person_id = p_person_id
2576: and effective_end_date >= enrt_cvg_strt_dt
2577: and enrt_cvg_strt_dt <= nvl(Enrt_Cvg_thru_Dt,hr_api.g_eot) --bug 5257798
2578: and prtt_enrt_rslt_stat_cd is null
2579: and sspndd_flag = 'N'
2580: and effective_end_date = hr_api.g_eot -- Bug 2130842 added this clause
2581: order by 1 asc, 2 desc;
2576: and effective_end_date >= enrt_cvg_strt_dt
2577: and enrt_cvg_strt_dt <= nvl(Enrt_Cvg_thru_Dt,hr_api.g_eot) --bug 5257798
2578: and prtt_enrt_rslt_stat_cd is null
2579: and sspndd_flag = 'N'
2580: and effective_end_date = hr_api.g_eot -- Bug 2130842 added this clause
2581: order by 1 asc, 2 desc;
2582: --
2583: l_person_type_id per_person_type_usages_f.person_type_id%type:=null;
2584: --
2656: hr_per_type_usage_internal.delete_person_type_usage
2657: (p_validate => FALSE
2658: ,p_person_type_usage_id => l_ptu(j).person_type_usage_id
2659: ,p_effective_date => l_ptu(j).ESD
2660: ,p_datetrack_mode => hr_api.g_zap
2661: ,p_object_version_number => l_ptu(j).OVN
2662: ,p_effective_start_date => l_esd
2663: ,p_effective_end_date => l_eed);
2664: end loop; -- zap person type usage loop
2693: hr_per_type_usage_internal.delete_person_type_usage
2694: (p_validate => FALSE
2695: ,p_person_type_usage_id => l_ptu(j).person_type_usage_id
2696: ,p_effective_date => l_ptu(j).ESD
2697: ,p_datetrack_mode => hr_api.g_zap
2698: ,p_object_version_number => l_ptu(j).OVN
2699: ,p_effective_start_date => l_esd
2700: ,p_effective_end_date => l_eed);
2701: end if;
2714: ,p_effective_start_date => l_esd
2715: ,p_effective_end_date => l_eed);
2716: -- if the enrollment record does not go to end of time
2717: -- make sure to end date the person type usage row
2718: if l_pen(i).ced <> hr_api.g_eot then
2719: hr_per_type_usage_internal.delete_person_type_usage
2720: (p_validate => FALSE
2721: ,p_person_type_usage_id => l_person_type_usage_id
2722: ,p_effective_date => l_pen(i).ced
2719: hr_per_type_usage_internal.delete_person_type_usage
2720: (p_validate => FALSE
2721: ,p_person_type_usage_id => l_person_type_usage_id
2722: ,p_effective_date => l_pen(i).ced
2723: ,p_datetrack_mode => hr_api.g_delete
2724: ,p_object_version_number => l_object_version_number
2725: ,p_effective_start_date => l_esd
2726: ,p_effective_end_date => l_eed);
2727: end if;
2764: And nvl(b.pgm_id,-1) = nvl(p_pgm_id,-1)
2765: And p_effective_date between
2766: b.effective_start_date and b.effective_end_date
2767: And b.business_group_id=p_business_group_id
2768: And b.enrt_cvg_strt_dt < nvl(b.effective_end_date,hr_api.g_eot)
2769: And b.oipl_id is NULL
2770: and b.prtt_enrt_rslt_stat_cd is null
2771: And b.sspndd_flag = 'Y'
2772: And b.pl_id = c.pl_id
2785: And nvl(a.pgm_id,-1) = nvl(p_pgm_id,-1)
2786: And a.business_group_id=p_business_group_id
2787: And p_effective_date between
2788: a.effective_start_date and a.effective_end_date
2789: And a.enrt_cvg_strt_dt < nvl(a.effective_end_date, hr_api.g_eot)
2790: And a.oipl_id is not null
2791: and a.prtt_enrt_rslt_stat_cd is null
2792: And a.sspndd_flag = 'N'
2793: And a.pl_id = c_pl_id
2810: For l_rec1 in c1 loop
2811: l_step := trunc(l_step,-1) + 10;
2812: For l_rec in c2(l_rec1.pl_id) Loop
2813: If (p_effective_date = l_rec.effective_start_date ) then
2814: l_datetrack_mode := hr_api.g_correction;
2815: Else
2816: l_datetrack_mode := hr_api.g_update;
2817: end if;
2818: --
2812: For l_rec in c2(l_rec1.pl_id) Loop
2813: If (p_effective_date = l_rec.effective_start_date ) then
2814: l_datetrack_mode := hr_api.g_correction;
2815: Else
2816: l_datetrack_mode := hr_api.g_update;
2817: end if;
2818: --
2819: -- Noted:
2820: -- the following call need to changed to call suspended process after
2911: from ben_prtt_enrt_rslt_f pen,
2912: ben_enrt_bnft enb
2913: where pen.person_id = p_person_id
2914: and pen.prtt_enrt_rslt_stat_cd is null
2915: and enrt_cvg_thru_dt = hr_api.g_eot
2916: and pen.comp_lvl_cd <> 'PLANIMP'
2917: and pen.prtt_enrt_rslt_id = enb.prtt_enrt_rslt_id
2918: and pen.pgm_id = p_pgm_id
2919: and pen.pl_typ_id = p_pl_typ_id
2917: and pen.prtt_enrt_rslt_id = enb.prtt_enrt_rslt_id
2918: and pen.pgm_id = p_pgm_id
2919: and pen.pl_typ_id = p_pl_typ_id
2920: and enb.cvg_mlt_cd = 'ERL'
2921: and pen.effective_end_date = hr_api.g_eot;
2922: --
2923: i binary_integer :=0;
2924: j binary_integer :=0;
2925: l_pl_notfnd boolean :=TRUE;
3498: -- re-enrolls in a comp-object after de-enrolling from it.)
3499: --
3500: if (l_prev_cvg_strt_dt between
3501: g_enrt_tbl(i).enrt_cvg_strt_dt
3502: and nvl(g_enrt_tbl(i).enrt_cvg_thru_dt,hr_api.g_eot))
3503: OR
3504: (g_enrt_tbl(i).enrt_cvg_strt_dt between
3505: l_prev_cvg_strt_dt
3506: and nvl(l_prev_cvg_end_dt,hr_api.g_eot)) then
3502: and nvl(g_enrt_tbl(i).enrt_cvg_thru_dt,hr_api.g_eot))
3503: OR
3504: (g_enrt_tbl(i).enrt_cvg_strt_dt between
3505: l_prev_cvg_strt_dt
3506: and nvl(l_prev_cvg_end_dt,hr_api.g_eot)) then
3507: --
3508: fnd_message.set_name('BEN','BEN_91699_DUP_COMP_OBJ_IN_PGM');
3509: fnd_message.set_token
3510: ('PL_NAME'
3560: for j in 1..g_comp_obj_cnt loop
3561: --
3562: if g_enrt_tbl(j).ptip_id = g_ptip_tbl(i).ptip_id and
3563: g_enrt_tbl(j).prtt_enrt_rslt_id is not null and
3564: g_enrt_tbl(j).enrt_cvg_thru_dt = hr_api.g_eot and
3565: g_enrt_tbl(j).interim_flag = 'N' and
3566: g_enrt_tbl(j).opt_id is not null then
3567: --
3568: if (l_init_flag) then
3676: --
3677: -- {End Of Comments}
3678: -- ----------------------------------------------------------------------------
3679: Procedure dt_update_validate
3680: (p_pgm_id in number default hr_api.g_number,
3681: p_oipl_id in number default hr_api.g_number,
3682: p_per_in_ler_id in number default hr_api.g_number,
3683: p_pl_id in number default hr_api.g_number,
3684: p_pl_typ_id in number default hr_api.g_number,
3677: -- {End Of Comments}
3678: -- ----------------------------------------------------------------------------
3679: Procedure dt_update_validate
3680: (p_pgm_id in number default hr_api.g_number,
3681: p_oipl_id in number default hr_api.g_number,
3682: p_per_in_ler_id in number default hr_api.g_number,
3683: p_pl_id in number default hr_api.g_number,
3684: p_pl_typ_id in number default hr_api.g_number,
3685: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3678: -- ----------------------------------------------------------------------------
3679: Procedure dt_update_validate
3680: (p_pgm_id in number default hr_api.g_number,
3681: p_oipl_id in number default hr_api.g_number,
3682: p_per_in_ler_id in number default hr_api.g_number,
3683: p_pl_id in number default hr_api.g_number,
3684: p_pl_typ_id in number default hr_api.g_number,
3685: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3686: p_datetrack_mode in varchar2,
3679: Procedure dt_update_validate
3680: (p_pgm_id in number default hr_api.g_number,
3681: p_oipl_id in number default hr_api.g_number,
3682: p_per_in_ler_id in number default hr_api.g_number,
3683: p_pl_id in number default hr_api.g_number,
3684: p_pl_typ_id in number default hr_api.g_number,
3685: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3686: p_datetrack_mode in varchar2,
3687: p_validation_start_date in date,
3680: (p_pgm_id in number default hr_api.g_number,
3681: p_oipl_id in number default hr_api.g_number,
3682: p_per_in_ler_id in number default hr_api.g_number,
3683: p_pl_id in number default hr_api.g_number,
3684: p_pl_typ_id in number default hr_api.g_number,
3685: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3686: p_datetrack_mode in varchar2,
3687: p_validation_start_date in date,
3688: p_validation_end_date in date) Is
3681: p_oipl_id in number default hr_api.g_number,
3682: p_per_in_ler_id in number default hr_api.g_number,
3683: p_pl_id in number default hr_api.g_number,
3684: p_pl_typ_id in number default hr_api.g_number,
3685: p_prtt_enrt_rslt_id in number default hr_api.g_number,
3686: p_datetrack_mode in varchar2,
3687: p_validation_start_date in date,
3688: p_validation_end_date in date) Is
3689: --
3695: hr_utility.set_location('Entering:'||l_proc, 5);
3696: --
3697: -- Ensure that the p_datetrack_mode argument is not null
3698: --
3699: hr_api.mandatory_arg_error
3700: (p_api_name => l_proc,
3701: p_argument => 'datetrack_mode',
3702: p_argument_value => p_datetrack_mode);
3703: --
3707: --
3708: --
3709: -- Ensure the arguments are not null
3710: --
3711: hr_api.mandatory_arg_error
3712: (p_api_name => l_proc,
3713: p_argument => 'validation_start_date',
3714: p_argument_value => p_validation_start_date);
3715: --
3712: (p_api_name => l_proc,
3713: p_argument => 'validation_start_date',
3714: p_argument_value => p_validation_start_date);
3715: --
3716: hr_api.mandatory_arg_error
3717: (p_api_name => l_proc,
3718: p_argument => 'validation_end_date',
3719: p_argument_value => p_validation_end_date);
3720: --
3717: (p_api_name => l_proc,
3718: p_argument => 'validation_end_date',
3719: p_argument_value => p_validation_end_date);
3720: --
3721: If ((nvl(p_pgm_id, hr_api.g_number) <> hr_api.g_number) and
3722: NOT (dt_api.check_min_max_dates
3723: (p_base_table_name => 'ben_pgm_f',
3724: p_base_key_column => 'pgm_id',
3725: p_base_key_value => p_pgm_id,
3727: p_to_date => p_validation_end_date))) Then
3728: l_table_name := 'ben_pgm_f';
3729: Raise l_integrity_error;
3730: End If;
3731: If ((nvl(p_oipl_id, hr_api.g_number) <> hr_api.g_number) and
3732: NOT (dt_api.check_min_max_dates
3733: (p_base_table_name => 'ben_oipl_f',
3734: p_base_key_column => 'oipl_id',
3735: p_base_key_value => p_oipl_id,
3737: p_to_date => p_validation_end_date))) Then
3738: l_table_name := 'ben_oipl_f';
3739: Raise l_integrity_error;
3740: End If;
3741: If ((nvl(p_pl_id, hr_api.g_number) <> hr_api.g_number) and
3742: NOT (dt_api.check_min_max_dates
3743: (p_base_table_name => 'ben_pl_f',
3744: p_base_key_column => 'pl_id',
3745: p_base_key_value => p_pl_id,
3747: p_to_date => p_validation_end_date))) Then
3748: l_table_name := 'ben_pl_f';
3749: Raise l_integrity_error;
3750: End If;
3751: If ((nvl(p_pl_typ_id, hr_api.g_number) <> hr_api.g_number) and
3752: NOT (dt_api.check_min_max_dates
3753: (p_base_table_name => 'ben_pl_typ_f',
3754: p_base_key_column => 'pl_typ_id',
3755: p_base_key_value => p_pl_typ_id,
3757: p_to_date => p_validation_end_date))) Then
3758: l_table_name := 'ben_pl_typ_f';
3759: Raise l_integrity_error;
3760: End If;
3761: If ((nvl(p_prtt_enrt_rslt_id, hr_api.g_number) <> hr_api.g_number) and
3762: NOT (dt_api.check_min_max_dates
3763: (p_base_table_name => 'ben_prtt_enrt_rslt_f',
3764: p_base_key_column => 'prtt_enrt_rslt_id',
3765: p_base_key_value => p_prtt_enrt_rslt_id,
3840: hr_utility.set_location('Entering:'||l_proc, 5);
3841: --
3842: -- Ensure that the p_datetrack_mode argument is not null
3843: --
3844: hr_api.mandatory_arg_error
3845: (p_api_name => l_proc,
3846: p_argument => 'datetrack_mode',
3847: p_argument_value => p_datetrack_mode);
3848: --
3853: p_datetrack_mode = 'ZAP') then
3854: --
3855: -- Ensure the arguments are not null
3856: --
3857: hr_api.mandatory_arg_error
3858: (p_api_name => l_proc,
3859: p_argument => 'validation_start_date',
3860: p_argument_value => p_validation_start_date);
3861:
3858: (p_api_name => l_proc,
3859: p_argument => 'validation_start_date',
3860: p_argument_value => p_validation_start_date);
3861:
3862: hr_api.mandatory_arg_error
3863: (p_api_name => l_proc,
3864: p_argument => 'validation_end_date',
3865: p_argument_value => p_validation_end_date);
3866:
3863: (p_api_name => l_proc,
3864: p_argument => 'validation_end_date',
3865: p_argument_value => p_validation_end_date);
3866:
3867: hr_api.mandatory_arg_error
3868: (p_api_name => l_proc,
3869: p_argument => 'prtt_enrt_rslt_id',
3870: p_argument_value => p_prtt_enrt_rslt_id);
3871: /*
3966: /*
3967: --
3968: -- Call all supporting business operations
3969: --
3970: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
3971: */
3972: chk_prtt_enrt_rslt_id
3973: (p_prtt_enrt_rslt_id => p_rec.prtt_enrt_rslt_id,
3974: p_effective_date => p_effective_date,
4100: /*
4101: --
4102: -- Call all supporting business operations
4103: --
4104: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
4105: */
4106: chk_prtt_enrt_rslt_id
4107: (p_prtt_enrt_rslt_id => p_rec.prtt_enrt_rslt_id,
4108: p_effective_date => p_effective_date,
4276: hr_utility.set_location('Entering:'|| l_proc, 10);
4277: --
4278: -- Ensure that all the mandatory parameter are not null
4279: --
4280: hr_api.mandatory_arg_error(p_api_name => l_proc,
4281: p_argument => 'prtt_enrt_rslt_id',
4282: p_argument_value => p_prtt_enrt_rslt_id);
4283: --
4284: open csr_leg_code;