1 package ben_lf_evt_clps_restore AUTHID CURRENT_USER as
2 /* $Header: benleclr.pkh 120.4.12020000.2 2012/07/03 12:43:36 amnaraya ship $ */
3 --
4 -- This flag is set when the results are restored, and used by
5 -- BENAUTHE to display message about reinstating of results.
6 --
7 g_bckdt_pil_restored_flag varchar2(1) := 'N';
8 /*
9 g_bckdt_pil_restored_cd codes are
10
11 ALL - If all the backed out results are being restored
12 PART - Part of the enrollments are restored
13 NONE - None of the enrollments are restored
14 DEFAULT - Defaults are applied
15
16 */
17 g_bckdt_pil_restored_cd varchar2(30) := 'NONE';
18 g_bckdt_pil_pgm_id number ;
19 g_bckdt_pil_plnip_id number ;
20 g_bckdt_pil_prvs_stat_cd varchar2(30) := null;
21 g_bckdt_ler_name ben_ler_f.name%type;
22 g_ler_name_cs_bckdt ben_ler_f.name%type;
23 g_pil_id_cs_bckdt number;
24 g_dflt_during_reinstate varchar2(1) := 'N';
25
26 /*Bug 9538592: If the interim and suspended enrollment corresponds to same plan,option and plantype. In a case where epe table has
27 only one record for the plan, on resinstating the enrollments of the backedout life event, pen_id in epe table is set with the suspended enrollment result.
28 On reprocessing the backedout life event, new enrollment result record should be created with out making the reinstated result as both interim
29 and suspended when the certification has been denied before backing out the life event and reprocessing it*/
30 g_create_new_result varchar2(1) default 'N';
31
32 /*Added for Bug 7426609 */
33 g_reinstate_interim_flag boolean:= false;
34 g_reinstate_interim_chc_id number;
35 /*Ended for Bug 7426609 */
36
37 --g_default_epe_rec ben_elig_per_elctbl_chc%rowtype;
38 type g_default_epe_table is table of ben_elig_per_elctbl_chc.elig_per_elctbl_chc_id%type index by binary_integer;
39 g_reinstated_defaults g_default_epe_table;
40 --
41 procedure get_ori_bckdt_pil(p_person_id in number
42 ,p_business_group_id in number
43 ,p_ler_id in number
44 ,p_effective_date in date
45 ,p_bckdt_per_in_ler_id out nocopy number
46 );
47 --
48 function ele_made_for_bckdt_pil (
49 p_bckdt_per_in_ler_id in number
50 ,p_person_id in number
51 ,p_business_group_id in number
52 ,p_effective_date in date
53 )return varchar2;
54 --
55 --
56 function comp_ori_new_pil_outcome(
57 p_person_id in number
58 ,p_business_group_id in number
59 ,p_ler_id in number
60 ,p_effective_date in date
61 ,p_per_in_ler_id in number
62 ,p_bckdt_per_in_ler_id in number
63 ) return varchar2;
64 --
65 procedure void_literature(p_person_id in number
66 ,p_business_group_id in number
67 ,p_effective_date in date
68 ,p_ler_id in number
69 ,p_per_in_ler_id in number
70 );
71 --
72 procedure pad_cmnt_to_rsnd_lit(
73 p_person_id in number
74 ,p_business_group_id in number
75 ,p_effective_date in date
76 ,p_ler_id in number
77 ,p_per_in_ler_id in number
78 ,p_cmnt_txt in varchar2
79 );
80 --
81 procedure extend_enrt_date(p_person_id in number
82 ,p_business_group_id in number
83 ,p_ler_id in number
84 ,p_effective_date in date
85 ,p_per_in_ler_id in number
86 );
87 --
88 procedure p_lf_evt_clps_restore
89 (p_validate in boolean default false
90 ,p_person_id in number
91 ,p_business_group_id in number
92 ,p_effective_date in date
93 ,p_per_in_ler_id in number
94 ,p_bckdt_per_in_ler_id in number
95 );
96 --
97 procedure update_ptnl_per_for_ler(p_ptnl_ler_for_per_id in number
98 ,p_business_group_id in number
99 ,p_ptnl_ler_for_per_stat_cd in varchar2
100 ,p_effective_date in date);
101 --
102 -- This procedure called from BENAUTHE to package globals back to form
103 --
104 procedure p_reinstate_info_to_form (
105 p_pil_restored_flag out nocopy varchar2,
106 p_pil_restored_cd out nocopy varchar2,
107 p_bckdt_ler_name out nocopy varchar2);
108 --
109 procedure reinstate_the_prev_enrt_rslt(
110 p_person_id in number
111 ,p_business_group_id in number
112 ,p_ler_id in number
113 ,p_effective_date in date
114 ,p_per_in_ler_id in number
115 ,p_bckdt_per_in_ler_id in number
116 ) ;
117
118 /* Function added for Bug 8716679*/
119 function check_pl_typ_defaulted(p_pl_typ_id in number,
120 p_pgm_id in number
121 ) return varchar2 ;
122
123 /* Function added for Bug 8716679*/
124 function call_defaults(p_per_in_ler_id in number,
125 p_bckdt_per_in_ler_id in number,
126 p_effective_date date,
127 p_person_id number
128 ) return varchar2;
129 /* Bug 8900007:Record to hold the enrollments created from carryforward logic*/
130 type g_bckdt_pen_sspnd_rec is record
131 (EFFECTIVE_END_DATE date,
132 BUSINESS_GROUP_ID number,
133 EFFECTIVE_START_DATE date,
134 ENRT_CVG_STRT_DT date,
135 ENRT_CVG_THRU_DT date,
136 ENRT_MTHD_CD VARCHAR2(100),
137 OBJECT_VERSION_NUMBER number,
138 OIPL_ID number,
139 PERSON_ID number,
140 PER_IN_LER_ID number,
141 PGM_ID number,
142 PL_ID number,
143 PL_TYP_ID number,
144 PRTT_ENRT_RSLT_ID number,
145 PRTT_ENRT_RSLT_STAT_CD VARCHAR2(100),
146 PTIP_ID number,
147 RPLCS_SSPNDD_RSLT_ID number,
148 SSPNDD_FLAG VARCHAR2(100));
149
150 TYPE g_bckdt_sspndd_pen_tbl is TABLE OF g_bckdt_pen_sspnd_rec INDEX BY BINARY_INTEGER;
151 g_bckdt_sspndd_pen_list g_bckdt_sspndd_pen_tbl;
152 /* End Bug 8900007*/
153
154 /* Bug 8900007: Procedure reinstate_pcs_per_pen and reinstate_pea_per_pen
155 are made public. To be called from bencfwsu.pkb */
156 procedure reinstate_pcs_per_pen(
157 p_person_id in number
158 ,p_bckdt_prtt_enrt_rslt_id in number
159 ,p_prtt_enrt_rslt_id in number
160 ,p_rslt_object_version_number in number
161 ,p_business_group_id in number
162 ,p_prtt_enrt_actn_id in number
163 ,p_effective_date in date
164 ,p_bckdt_prtt_enrt_actn_id in number
165 ,p_per_in_ler_id in number
166 ,p_bckdt_per_in_ler_id in number
167 );
168
169 procedure reinstate_pea_per_pen(
170 p_person_id in number
171 ,p_bckdt_prtt_enrt_rslt_id in number
172 ,p_prtt_enrt_rslt_id in number
173 ,p_rslt_object_version_number in number
174 ,p_business_group_id in number
175 ,p_per_in_ler_id in number
176 ,p_effective_date in date
177 ,p_bckdt_per_in_ler_id in number
178 ,p_pl_bnf_id in number default null
179 ,p_elig_cvrd_dpnt_id in number default null
180 ,p_old_pl_bnf_id in number default null
181 ,p_old_elig_cvrd_dpnt_id in number default null
182 );
183
184 --
185 end ben_lf_evt_clps_restore;