1 PACKAGE ben_newly_ineligible AUTHID CURRENT_USER as
2 /* $Header: beninelg.pkh 120.1.12010000.1 2008/07/29 12:26:09 appldev ship $ */
3 -----------------------------------------------------------------------
4 /*
5 +==============================================================================+
6 | Copyright (c) 1998 Oracle Corporation |
7 | Redwood Shores, California, USA |
8 | All rights reserved. |
9 +==============================================================================+
10 Name
11 Manage Newly Ineligible Persons
12 Purpose
13 This package is used to find out whether the person is covered under the
14 Program/Plan or OIPL for which he is newly ineligible. And if covered,
15 it calls the deenrollment API to deenroll the person.
16
17 History
18 Date Who Version What?
19 ---- --- ------- -----
20 28 May 98 J Mohapatra 110.0 Created.
21 31 Aug 99 mhoyes 115.1 - Modified g_package
22 variable.
23 19 Jul 04 bmanyam 115.4 Added 'WHENEVER OSERROR...'
24 16 Nov 06 abparekh 115.6 Bug 5642702 : Defined global G_DENROLING_FROM_PGM
25 05 Apr 05 rtagarra 115.7 Bug 6000303 : Added procedure defer_delete_enrollment.
26 */
27 -----------------------------------------------------------------------
28 g_package varchar2(50) := 'ben_newly_ineligible';
29 -- Bug 5642702
30 -- This variable will be set to Y, when a person is de-enroling from the program. So that we can
31 -- obviate all calls that create/update records in ledger BEN_BNFT_PRVDD_LDGR_F table.
32 --
33 g_denroling_from_pgm varchar2(30) := 'N';
34 --
35 procedure main
36 (p_person_id in number,
37 p_pgm_id in number default null,
38 p_pl_id in number default null,
39 p_oipl_id in number default null,
40 p_business_group_id in number,
41 p_ler_id in number,
42 p_effective_date in date );
43
44 procedure defer_delete_enrollment
45 ( p_per_in_ler_id in number
46 ,p_person_id in number
47 ,p_business_group_id in number
48 ,p_effective_date in date
49 );
50 END;