1 package ben_forfeiture_concurrent AUTHID CURRENT_USER as
2 /* $Header: benforfs.pkh 115.1 2002/12/31 01:58:23 ikasire noship $ */
3 --
4 /* ============================================================================
5 * Name
6 * Process Forfeiture Concurrent Manager Processes for Contributions
7 *
8 * Purpose
9 * This package simply houses the concurrent manager and multi-thread
10 * processes for Contribution Forfeiture Calculation.
11 *
12 * History
13 * Date Who Version What?
14 * ------- --------- ------- --------------------------------------
15 * 14-Sep-01 pbodla 115.0 Created
16 * 30-Dec-02 ikasire 115.1 nocopy changes Plus dbdrv
17 *
18 * -----------------------------------------------------------------------------
19 */
20 --
21 -- Global Cursors and Global variables.
22 --
23 g_record_error exception;
24 g_debug boolean := FALSE;
25 type rpt_str is table of varchar2(132) index by binary_integer;
26 g_rpt_cache rpt_str;
27 g_rpt_cnt binary_integer := 0;
28 -----------------------------------------------
29 type g_cache_log_file_rec is table of varchar2(255)
30 index by binary_integer;
31 g_cache_log_file g_cache_log_file_rec;
32 -----------------------------------------------
33 type g_cache_person_process_object is record
34 (person_id ben_person_actions.person_id%type
35 ,person_action_id ben_person_actions.person_action_id%type
36 ,object_version_number ben_person_actions.object_version_number%type
37 ,ler_id ben_person_actions.ler_id%type
38 );
39 type g_cache_person_process_rec is table of g_cache_person_process_object
40 index by binary_integer;
41 g_cache_person_process g_cache_person_process_rec;
42 g_rec ben_type.g_report_rec ;
43 --
44 -- ============================================================================
45 -- << Procedure: process_forfeitures >>
46 -- Description:
47 -- this procedure determines the forfeitures for the selected plan.
48 --
49 -- ============================================================================
50 procedure process_forfeitures (
51 p_validate in varchar2 default 'N'
52 ,p_pl_id in number
53 ,p_business_group_id in number
54 ,p_effective_date in date
55 ,p_person_id in number default null
56 ,p_person_type_id in number default null
57 ,p_person_selection_rule_id in number default null);
58 --
59 ------------------------------------------------------------------
60 -- PROCESS
61 ------------------------------------------------------------------
62 procedure process(errbuf out nocopy varchar2
63 ,retcode out nocopy number
64 ,p_benefit_action_id in number default null
65 ,p_effective_date in varchar2
66 ,p_validate in varchar2 default 'N'
67 ,p_business_group_id in number
68 ,p_organization_id in number default null
69 ,p_frfs_perd_det_cd in varchar2 default null
70 ,p_person_id in number default null -- For Future Enhancement.
71 ,p_person_type_id in number default null -- For Future Enhancement.
72 ,p_pgm_id in number default null
73 ,p_pl_typ_id in number default null
74 ,p_pl_id in number default null
75 ,p_comp_selection_rule_id in number default null
76 ,p_person_selection_rule_id in number default null -- For Future Enhancement.
77 ,p_debug_messages in varchar2 default 'N'
78 ,p_audit_log_flag in varchar2 default 'N'
79 ,p_commit_data_flag in varchar2 default 'Y'
80 ) ;
81
82 -- 9999 Some of the parameters may not be necessary.
83 procedure do_multithread
84 (errbuf out nocopy varchar2
85 ,retcode out nocopy number
86 ,p_benefit_action_id in number
87 ,p_effective_date in varchar2
88 ,p_validate in varchar2 default 'N'
89 ,p_business_group_id in number
90 ,p_thread_id in number
91 -- ,p_organization_id in number default null
92 -- ,p_frfs_perd_det_cd in varchar2 default null
93 -- ,p_person_id in number default null -- For Future Enhancement.
94 -- ,p_person_type_id in number default null -- For Future Enhancement.
95 -- ,p_pgm_id in number default null
96 -- ,p_pl_typ_id in number default null
97 -- ,p_pl_id in number default null
98 -- ,p_comp_selection_rule_id in number default null
99 -- ,p_person_selection_rule_id in number default null -- For Future Enhancement.
100 -- ,p_debug_messages in varchar2 default 'N'
101 -- ,p_audit_log_flag in varchar2 default 'N'
102 -- ,p_commit_data_flag in varchar2 default 'Y'
103 ) ;
104 End ben_forfeiture_concurrent;