1 package ben_env_object AUTHID CURRENT_USER as
2 /* $Header: benenvir.pkh 120.1 2010/01/06 14:29:04 krupani ship $ */
3 --------------------------------------------------------------------------------
4 /*
5 +==============================================================================+
6 | Copyright (c) 1997 Oracle Corporation |
7 | Redwood Shores, California, USA |
8 | All rights reserved. |
9 +==============================================================================+
10
11 Name
12 Environment Object Caching Routine
13 Purpose
14 This package is used to return environment object information.
15 History
16 Date Who Version What?
17 --------- --------- ------- --------------------------------------------
18 17 May 99 G Perry 115.0 Created
19 11 Jun 99 bbulusu 115.1 Added elig flags to the cache structure and
20 setenv procedures for them.
21 23 Jun 99 G Perry 115.2 Added plip_id to structure.
22 06 Jul 99 S Das 115.3 Added setenv for business group.
23 26 Jul 99 G Perry 115.4 Removed setenv for business group.
24 20 Jan 2000 mhoyes 115.5 - Added PTIP to env object.
25 20 Jan 2000 mhoyes 115.6 - Added exit.
26 28 Jan 2000 mhoyes 115.7 - Added elig for PLIP and PTIP
27 flags.
28 - Fixed bug 1169613.
29 26 Feb 2000 mhoyes 115.8 - Removed elig flags and routines. Moved into
30 benmngle where they belong.
31 15 May 2000 mhoyes 115.9 - Added audit_log_flag.
32 30 Nov 2001 mhoyes 115.10 - Added mode_cd.
33 30 Dec 2002 ikasire 115.11 - nocopy changes and dbdrv and commit
34 05 May 2003 mhoyes 115.14 - Added bgp_legislation_code.
35 06 Jan 2010 krupani 115.15 - Bug 8431552: Added procedure setenv to set
36 the benmngle mode
37 ------------------------------------------------------------------------------
38 */
39 --
40 type g_global_env_rec_type is record
41 (business_group_id number
42 ,effective_date date
43 ,thread_id number
44 ,chunk_size number
45 ,threads number
46 ,max_errors number
47 ,benefit_action_id number
48 ,lf_evt_ocrd_dt date
49 ,person_id number
50 ,pgm_id number
51 ,pl_id number
52 ,oipl_id number
53 ,plip_id number
54 ,ptip_id number
55 ,elig_for_pl_flag varchar2(30)
56 ,elig_for_pgm_flag varchar2(30)
57 ,elig_for_plip_flag varchar2(30)
58 ,elig_for_ptip_flag varchar2(30)
59 ,audit_log_flag varchar2(30)
60 ,mode_cd varchar2(30)
61 ,bgp_legislation_code varchar2(30)
62 );
63 --
64 g_global_env_rec g_global_env_rec_type;
65 --
66 procedure init
67 (p_business_group_id in number
68 ,p_effective_date in date
69 ,p_thread_id in number
70 ,p_chunk_size in number
71 ,p_threads in number
72 ,p_max_errors in number
73 ,p_benefit_action_id in number
74 ,p_audit_log_flag in varchar2 default 'N'
75 );
76 --
77 procedure get(p_rec out nocopy g_global_env_rec_type);
78 --
79 procedure setenv(p_lf_evt_ocrd_dt in date);
80 --
81 procedure setenv(p_person_id in number);
82 --
83 procedure setenv(p_pgm_id in number);
84 --
85 procedure setenv(p_ptip_id in number);
86 --
87 procedure setenv(p_pl_id in number);
88 --
89 procedure setenv(p_oipl_id in number);
90 --
91 procedure setenv(p_plip_id in number);
92 --
93 procedure setenv(p_mode in varchar2);
94 --
95 end ben_env_object;
[Home] [Help]