[Home] [Help]
5: -- | Private Global Definitions |
6: -- --------------------------------------------------------------------------
7: --
8: g_package varchar2(33):=' ben_cwb_pl_dsgn_pkg.'; --Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- --------------------------------------------------------------------------
12: -- |------------------------< get_opt_ordr_in_grp >-------------------------|
13: -- --------------------------------------------------------------------------
31: --
32: begin
33: --
34: if g_debug then
35: hr_utility.set_location('Entering:'|| l_proc, 10);
36: end if;
37: --
38: if g_grp_opt.count = 0 then
39: return 0;
39: return 0;
40: end if;
41: --
42: if g_debug then
43: hr_utility.set_location(l_proc, 20);
44: end if;
45: --
46: for i in g_grp_opt.first .. g_grp_opt.last
47: loop
52: -- this case should never happen
53: return 0;
54: --
55: if g_debug then
56: hr_utility.set_location(' Leaving:'|| l_proc, 99);
57: end if;
58: --
59: end get_opt_ordr_in_grp;
60: --
76: --
77: begin
78: --
79: if g_debug then
80: hr_utility.set_location('Entering:'|| l_proc, 10);
81: end if;
82: --
83: if (p_pl_id <> p_group_pl_id) then
84: --pl_id and group_pl_id differs. So this is an actual plan
83: if (p_pl_id <> p_group_pl_id) then
84: --pl_id and group_pl_id differs. So this is an actual plan
85: --
86: if g_debug then
87: hr_utility.set_location(' Leaving:'|| l_proc, 66);
88: end if;
89: --
90: return 'Y';
91: else
104: -- Some other plans have this pl_id as group_pl_id. So not an
105: -- acutal plan
106: --
107: if g_debug then
108: hr_utility.set_location(' Leaving:'|| l_proc, 77);
109: end if;
110: --
111: return 'N';
112: exception
113: when no_data_found then
114: -- no other plans are attached to pl_id. so this is an actual plan
115: --
116: if g_debug then
117: hr_utility.set_location(' Leaving:'|| l_proc, 99);
118: end if;
119: --
120: return 'Y';
121: end;
138: --
139: begin
140: --
141: if g_debug then
142: hr_utility.set_location('Entering:'|| l_proc, 10);
143: end if;
144: --
145: l_exchg_rate := hr_currency_pkg.get_rate
146: (p_from_currency -- From currency
151: ,p_effective_date -- conversion date
152: ,'R')); -- processing type
153: --
154: if g_debug then
155: hr_utility.set_location(' Leaving:'|| l_proc, 88);
156: end if;
157: --
158: return l_exchg_rate;
159: exception
159: exception
160: when others then
161: --
162: if g_debug then
163: hr_utility.set_location(' Leaving:'|| l_proc, 99);
164: end if;
165: --
166: return 1;
167: end get_exchg_rate;
186: --
187: begin
188: --
189: if g_debug then
190: hr_utility.set_location('Entering:'|| l_proc, 10);
191: end if;
192: --
193: if l_start_yy = l_end_yy then
194: l_year := l_start_yy;
200:
201: l_date := fnd_date.canonical_to_date(l_year||'/'||p_month||'/'||p_day);
202: --
203: if g_debug then
204: hr_utility.set_location(' Leaving:'|| l_proc, 88);
205: end if;
206: --
207: return l_date;
208: --
209: exception
210: when others then
211: --
212: if g_debug then
213: hr_utility.set_location(' Leaving:'|| l_proc, 99);
214: end if;
215: --
216: return p_default_date;
217: end get_valid_date;
602: --
603: begin
604: --
605: if g_debug then
606: hr_utility.set_location('Entering:'|| l_proc, 10);
607: end if;
608: --
609: if p_refresh_always = 'Y' then
610: --
608: --
609: if p_refresh_always = 'Y' then
610: --
611: if g_debug then
612: hr_utility.set_location('l_proc'|| l_proc, 17);
613: end if;
614: --
615: -- refresh. delete plans and oipls from the pl_dsgn
616: delete from ben_cwb_pl_dsgn
620: end if;
621: --
622: --
623: if g_debug then
624: hr_utility.set_location(l_proc, 20);
625: end if;
626: --
627: -- get the group plan row
628: open csr_group_pl(p_group_pl_id
665: fetch csr_grp_opt_ordr bulk collect into g_grp_opt;
666: close csr_grp_opt_ordr;
667: --
668: if g_debug then
669: hr_utility.set_location(l_proc, 30);
670: end if;
671: --
672: for pl in csr_pls(p_group_pl_id
673: ,nvl(p_effective_date,nvl(l_group_pl_row.effective_date
676: ,l_group_pl_row.business_group_id)
677: loop
678: --
679: if g_debug then
680: hr_utility.set_location(l_proc, 40);
681: end if;
682: --
683: -- first insert the oipl rows.
684: --
690: ,p_lf_evt_ocrd_dt)))
691: loop
692: --
693: if g_debug then
694: hr_utility.set_location(l_proc, 50);
695: end if;
696: --
697: -- Increment the count
698: l_opt_count := l_opt_count + 1;
828: end loop; -- of l_oipl_rows
829:
830: --
831: if g_debug then
832: hr_utility.set_location(l_proc, 60);
833: end if;
834: --
835: --insert the plan row
836: insert into ben_cwb_pl_dsgn
989: ,1); -- new row. so ovn is 1
990: end loop; -- l_pl_rows
991: --
992: if g_debug then
993: hr_utility.set_location(' Leaving:'|| l_proc, 99);
994: end if;
995: --
996: end; -- end of refresh_pl_dsgn
997: