1 package ben_manage_default_enrt AUTHID CURRENT_USER as
2 /* $Header: beneadeb.pkh 120.0.12010000.2 2009/07/29 13:51:19 pvelvano ship $ */
3 /* ===========================================================================+
4 * Name
5 * Manage Default enrollment
6 * Purpose
7 * This package is used to check validity of parameters passed in via SRS
8 * or via a PL/SQL function or procedure. This package will make a call
9 * to process default enrollment for all comp. object for each person
10 * that their default enrollment date is over due.
11 *
12 * Version Date Author Comment
13 * -------+-----------+---------+----------------------------------------------
14 * 110.0 25 Mar 1998 Hugh Dang Initial Created.
15 * 115.2 28 Oct 1998 Hugh Dang Add new procedure default_comp_obj
16 * declaration.
17 * 115.3 24 Nov 1998 Hugh Dang Remove some of record declaration and add
18 * master flag on master multi will not kill
19 * itself in order to submit report and complete
20 * its task.
21 * 115.4 20-Dec-1998 Hugh Dang Add audit log parameter into procedure. and
22 * remove p_mode paramater from Process.
23 * 115.5 22-Feb-1999 Hugh Dang Chagne p_effective_date data type from date
24 * to varchar2
25 * 115.6 22-May-2000 GPERRY Added l_number_type varray.
26 * 115.8 03-Jul-2001 tmathers 9i compliance fix.
27 *
28 * 115.9 19-dec-2002 pabodla NOCOPY Changes
29 * 115.10 19-dec-2002 pabodla Added dbdrv commands
30 * 115.12 13-sep-2004 vvprabhu Bug 3876613 Procedure Default_Comp_obj_w added
31 * 115.13 05-nov-2004 vvprabhu Bug 3978573 parameter p_called_frm_ss added to
32 * Default_Comp_Obj to suppress multirowedit
33 * 115.14 28-Jul-2008 velvanop Fidelity Enhancement Bug No: 8716679
34 * The enhancement request is to reinstate elections from an intervening event
35 * with a life event that is backed out and reprocessed. The objective is to allow
36 * customers to have the ability to determine whether elections made for
37 * intervening events should be brought forward for a backed out life events.
38 * ==========================================================================+
39 */
40 --
41 -- Global Cursors and Global variables.
42 --
43 g_debug boolean := FALSE;
44 type g_cache_person_process_object is record
45 (person_id ben_person_actions.person_id%type
46 ,person_action_id ben_person_actions.person_action_id%type
47 ,object_version_number ben_person_actions.object_version_number%type
48 ,ler_id ben_person_actions.ler_id%type
49 );
50 type g_cache_person_process_rec is table of g_cache_person_process_object
51 index by binary_integer;
52 g_cache_person_process g_cache_person_process_rec;
53 --
54 -- Type definitions use max chunk size for limits
55 --
56 type l_number_type is varray(200) of number;
57 --
58 Procedure process
59 (errbuf out nocopy varchar2
60 ,retcode out nocopy number
61 ,p_benefit_action_id in number
62 ,p_effective_date in varchar2
63 ,p_validate in varchar2 default 'N'
64 ,p_person_id in number default null
65 ,p_person_type_id in number default null
66 ,p_business_group_id in number
67 ,p_popl_enrt_typ_cycl_id in number default null
68 ,p_person_selection_rule_id in number default null
69 ,p_ler_id in number default null
70 ,p_organization_id in number default null
71 ,p_benfts_grp_id in number default null
72 ,p_location_id in number default null
73 ,p_legal_entity_id in number default null
74 ,p_payroll_id in number default null
75 ,p_debug_messages in varchar2 default 'N'
76 ,p_audit_log in varchar2 default 'N'
77 );
78 Procedure restart
79 (errbuf out nocopy varchar2
80 ,retcode out nocopy number
81 ,p_benefit_action_id in number
82 );
83 Procedure do_multithread
84 (errbuf out nocopy varchar2
85 ,retcode out nocopy number
86 ,p_validate in varchar2 default 'N'
87 ,p_benefit_action_id in number
88 ,p_thread_id in number
89 ,p_effective_date in varchar2
90 ,p_business_group_id in number
91 ,p_audit_log in varchar2 default 'N'
92 );
93 Procedure process_default_enrt
94 (p_validate in varchar2 default 'N'
95 ,p_person_id in number default null
96 ,p_person_action_id in number default null
97 ,p_object_version_number in out nocopy number
98 ,p_business_group_id in number
99 ,p_effective_date in date
100 ,p_batch_flag in Boolean default FALSE
101 ,p_audit_log in varchar2 default 'N'
102 );
103
104 --Added extra parameters to default only the explicit elections
105 --from intervening LE. Parameter 'p_reinstate_dflts_flag' controls
106 --normal defaulting process and defaulting only the explicit elections
107 --from intervening lifevent(parameter p_prev_per_in_ler_id
108
109 Procedure Default_Comp_obj
110 (p_validate in Boolean default FALSE
111 ,p_per_in_ler_id in Number
112 ,p_person_id in Number
113 ,p_business_group_id in Number
114 ,p_effective_date in Date
115 ,p_pgm_id in Number
116 ,p_pl_nip_id in Number
117 ,p_susp_flag out nocopy Boolean
118 ,p_batch_flag in Boolean default FALSE
119 ,p_cls_enrt_flag in Boolean default TRUE
120 ,p_called_frm_ss in Boolean default FALSE -- Bug 3978573
121 ,p_reinstate_dflts_flag in varchar2 default 'N' -- Enhancement Bug :8716679
122 ,p_prev_per_in_ler_id in Number default null -- Enhancement Bug :8716679
123 );
124
125 Procedure Default_Comp_obj_w
126 (p_validate in varchar2 default 'TRUE'
127 ,p_per_in_ler_id in Number
128 ,p_person_id in Number
129 ,p_business_group_id in Number
130 ,p_effective_date in Date
131 ,p_pgm_id in Number
132 ,p_pl_nip_id in Number default null
133 ,p_susp_flag out nocopy varchar2
134 ,p_batch_flag in varchar2 default 'FALSE'
135 ,p_cls_enrt_flag in varchar2 default 'FALSE'
136 );
137 End ben_manage_default_enrt;