PACKAGE BODY: APPS.PER_PERUSCCR_XMLP_PKG

Source

1 PACKAGE BODY PER_PERUSCCR_XMLP_PKG AS
2 /* $Header: PERUSCCRB.pls 120.2 2008/04/02 08:18:36 amakrish noship $ */
3 
4 function BeforeReport return boolean is
5 begin
6 P_SESSION_DATE1:=TO_CHAR(P_SESSION_DATE,'DD-MON-YYYY');
7 P_QL_DATE_FROM1:=TO_CHAR(P_QL_DATE_FROM,'DD-MON-YYYY');
8 P_QL_DATE_TO1:=TO_CHAR(P_QL_DATE_TO,'DD-MON-YYYY');
9 P_COV_START_FROM1:=TO_CHAR(P_COV_START_FROM,'DD-MON-YYYY');
10 P_COV_START_TO1:=TO_CHAR(P_COV_START_TO,'DD-MON-YYYY');
11 P_COV_END_FROM1:=TO_CHAR(P_COV_END_FROM,'DD-MON-YYYY');
12 P_COV_END_TO1:=TO_CHAR(P_COVERAGE_END_TO,'DD-MON-YYYY');
13 declare
14         v_organization_name varchar2(240);
15         v_organization_type varchar2(80);
16         v_org_structure_name varchar2(30);
17         v_org_version number;
18         v_version_start_date date;
19         v_version_end_date date;
20 begin
21 
22 --hr_standard.event('BEFORE REPORT');
23 
24 c_end_of_time := hr_general.end_of_time;
25  c_business_group_name :=
26    hr_reports.get_business_group(p_business_group_id);
27    v_organization_name := c_business_group_name;
28 
29 IF p_parent_organization_id IS NOT NULL
30 THEN
31 hr_reports.get_organization(p_parent_organization_id,v_organization_name,v_organization_type);
32   c_parent_organization_name := v_organization_name;
33 ELSE
34   c_parent_organization_name := '';
35 END IF;
36 
37 IF p_org_structure_version_id is NOT NULL then
38 hr_reports.get_organization_hierarchy(NULL,
39 p_org_structure_version_id
40 ,v_org_structure_name
41 ,v_org_version
42 ,v_version_start_date
43 ,v_version_end_date);
44  c_org_structure_name := v_org_structure_name;
45 else c_org_structure_name := '';
46 END IF;
47 
48 IF ( p_ben_plan_type_id IS NOT NULL )
49 THEN
50  c_benefit_plan_name := hr_reports.get_element_name( p_session_date, p_ben_plan_type_id );
51 ELSE
52  c_benefit_plan_name := '';
53 END IF;
54 
55 IF ( p_qualifying_event IS NOT NULL )
56 THEN
57  c_qualifying_event := hr_us_reports.get_cobra_qualifying_event( p_qualifying_event );
58 ELSE
59  c_qualifying_event := '';
60 END IF;
61 
62 IF ( p_cobra_status IS NOT NULL )
63 THEN
64  c_cobra_status := hr_us_reports.get_cobra_status( p_cobra_status );
65 ELSE
66  c_cobra_status := '';
67 END IF;
68 
69 
70 end;  return (TRUE);
71 end;
72 
73 function AfterReport return boolean is
74 begin
75 
76 --hr_standard.event('AFTER REPORT');
77 
78   return (TRUE);
79 end;
80 
81 --Functions to refer Oracle report placeholders--
82 
83  Function C_BUSINESS_GROUP_NAME_p return varchar2 is
84 	Begin
85 	 return C_BUSINESS_GROUP_NAME;
86 	 END;
87  Function C_REPORT_SUBTITLE_p return varchar2 is
88 	Begin
89 	 return C_REPORT_SUBTITLE;
90 	 END;
91  Function C_qualifying_event_p return varchar2 is
92 	Begin
93 	 return C_qualifying_event;
94 	 END;
95  Function C_COBRA_STATUS_p return varchar2 is
96 	Begin
97 	 return C_COBRA_STATUS;
98 	 END;
99  Function C_PARENT_ORGANIZATION_NAME_p return varchar2 is
100 	Begin
101 	 return C_PARENT_ORGANIZATION_NAME;
102 	 END;
103  Function C_ORG_STRUCTURE_NAME_p return varchar2 is
104 	Begin
105 	 return C_ORG_STRUCTURE_NAME;
106 	 END;
107  Function C_BENEFIT_PLAN_NAME_p return varchar2 is
108 	Begin
109 	 return C_BENEFIT_PLAN_NAME;
110 	 END;
111  Function C_END_OF_TIME_p return date is
112 	Begin
113 	 return C_END_OF_TIME;
114 	 END;
115 END PER_PERUSCCR_XMLP_PKG ;