1 package ben_lf_evt_clps_restore as
2 /* $Header: benleclr.pkh 120.0.12000000.1 2007/01/19 18:29:30 appldev noship $ */
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 --
25 procedure get_ori_bckdt_pil(p_person_id in number
26 ,p_business_group_id in number
27 ,p_ler_id in number
28 ,p_effective_date in date
29 ,p_bckdt_per_in_ler_id out nocopy number
30 );
31 --
32 function ele_made_for_bckdt_pil (
33 p_bckdt_per_in_ler_id in number
34 ,p_person_id in number
35 ,p_business_group_id in number
36 ,p_effective_date in date
37 )return varchar2;
38 --
39 --
40 function comp_ori_new_pil_outcome(
41 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_per_in_ler_id in number
46 ,p_bckdt_per_in_ler_id in number
47 ) return varchar2;
48 --
49 procedure void_literature(p_person_id in number
50 ,p_business_group_id in number
51 ,p_effective_date in date
52 ,p_ler_id in number
53 ,p_per_in_ler_id in number
54 );
55 --
56 procedure pad_cmnt_to_rsnd_lit(
57 p_person_id in number
58 ,p_business_group_id in number
59 ,p_effective_date in date
60 ,p_ler_id in number
61 ,p_per_in_ler_id in number
62 ,p_cmnt_txt in varchar2
63 );
64 --
65 procedure extend_enrt_date(p_person_id in number
66 ,p_business_group_id in number
67 ,p_ler_id in number
68 ,p_effective_date in date
69 ,p_per_in_ler_id in number
70 );
71 --
72 procedure p_lf_evt_clps_restore
73 (p_validate in boolean default false
74 ,p_person_id in number
75 ,p_business_group_id in number
76 ,p_effective_date in date
77 ,p_per_in_ler_id in number
78 ,p_bckdt_per_in_ler_id in number
79 );
80 --
81 procedure update_ptnl_per_for_ler(p_ptnl_ler_for_per_id in number
82 ,p_business_group_id in number
83 ,p_ptnl_ler_for_per_stat_cd in varchar2
84 ,p_effective_date in date);
85 --
86 -- This procedure called from BENAUTHE to package globals back to form
87 --
88 procedure p_reinstate_info_to_form (
89 p_pil_restored_flag out nocopy varchar2,
90 p_pil_restored_cd out nocopy varchar2,
91 p_bckdt_ler_name out nocopy varchar2);
92 --
93 procedure reinstate_the_prev_enrt_rslt(
94 p_person_id in number
95 ,p_business_group_id in number
96 ,p_ler_id in number
97 ,p_effective_date in date
98 ,p_per_in_ler_id in number
99 ,p_bckdt_per_in_ler_id in number
100 ) ;
101
102
103 --
104 end ben_lf_evt_clps_restore;