1 package ben_premium_concurrent AUTHID CURRENT_USER as
2 /* $Header: benprcon.pkh 115.2 2003/01/01 00:00:30 mmudigon ship $ */
3 --
4 /* ============================================================================
5 * Name
6 * Premium Process Concurrent Manager Processes
7 *
8 * Purpose
9 * This package simply houses the concurrent manager and multi-thread
10 * processes for Premium Calculation.
11 *
12 * History
13 * Date Who Version What?
14 * ------- --------- ------- --------------------------------------
15 * 18-Jun-99 lmcdonal 115.0 Created
16 * 08-Nov-99 lmcdonal 115.1 p_first_day parm of multithread s/b char.
17 * Remove some unnecessary globals.
18 * 31-Dec-02 mmudigon 115.2 NOCOPY and dbdrv commands
19 *
20 * -----------------------------------------------------------------------------
21 */
22 --
23 -- Global Cursors and Global variables.
24 --
25 g_record_error exception;
26 g_debug boolean := FALSE;
27 type rpt_str is table of varchar2(132) index by binary_integer;
28 g_rpt_cache rpt_str;
29 g_rpt_cnt binary_integer := 0;
30 type g_cache_log_file_rec is table of varchar2(255)
31 index by binary_integer;
32 g_cache_log_file g_cache_log_file_rec;
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
43 --
44 procedure process(errbuf out nocopy varchar2
45 ,retcode out nocopy number
46 ,p_benefit_action_id in number default null
47 ,p_effective_date in varchar2
48 ,p_validate in varchar2 default 'N'
49 ,p_person_id in number default null
50 ,p_business_group_id in number
51 ,p_pgm_id in number default null
52 ,p_pl_typ_id in number default null
53 ,p_pl_id in number default null
54 ,p_person_selection_rule_id in number default null
55 ,p_comp_selection_rule_id in number default null
56 ,p_organization_id in number default null
57 ,p_legal_entity_id in number default null
58 ,p_debug_messages in varchar2 default 'N'
59 ) ;
60 procedure restart (errbuf out nocopy varchar2
61 ,retcode out nocopy number
62 ,p_benefit_action_id in number
63 );
64 procedure do_multithread
65 (errbuf out nocopy varchar2
66 ,retcode out nocopy number
67 ,p_validate in varchar2 default 'N'
68 ,p_benefit_action_id in number
69 ,p_thread_id in number
70 ,p_effective_date in varchar2
71 ,p_business_group_id in number
72 ,p_mo_num in number
73 ,p_yr_num in number
74 ,p_first_day_of_month in varchar2
75 ) ;
76 End ben_premium_concurrent;