1 package ben_env_object as
2 /* $Header: benenvir.pkh 120.0 2005/05/28 08:58:20 appldev noship $ */
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 ------------------------------------------------------------------------------
36 */
37 --
38 type g_global_env_rec_type is record
39 (business_group_id number
40 ,effective_date date
41 ,thread_id number
42 ,chunk_size number
43 ,threads number
44 ,max_errors number
45 ,benefit_action_id number
46 ,lf_evt_ocrd_dt date
47 ,person_id number
48 ,pgm_id number
49 ,pl_id number
50 ,oipl_id number
51 ,plip_id number
52 ,ptip_id number
53 ,elig_for_pl_flag varchar2(30)
54 ,elig_for_pgm_flag varchar2(30)
55 ,elig_for_plip_flag varchar2(30)
56 ,elig_for_ptip_flag varchar2(30)
57 ,audit_log_flag varchar2(30)
58 ,mode_cd varchar2(30)
59 ,bgp_legislation_code varchar2(30)
60 );
61 --
62 g_global_env_rec g_global_env_rec_type;
63 --
64 procedure init
65 (p_business_group_id in number
66 ,p_effective_date in date
67 ,p_thread_id in number
68 ,p_chunk_size in number
69 ,p_threads in number
70 ,p_max_errors in number
71 ,p_benefit_action_id in number
72 ,p_audit_log_flag in varchar2 default 'N'
73 );
74 --
75 procedure get(p_rec out nocopy g_global_env_rec_type);
76 --
77 procedure setenv(p_lf_evt_ocrd_dt in date);
78 --
79 procedure setenv(p_person_id in number);
80 --
81 procedure setenv(p_pgm_id in number);
82 --
83 procedure setenv(p_ptip_id in number);
84 --
85 procedure setenv(p_pl_id in number);
86 --
87 procedure setenv(p_oipl_id in number);
88 --
89 procedure setenv(p_plip_id in number);
90 --
91 end ben_env_object;