1 PACKAGE BODY PER_PERUSCPR_XMLP_PKG AS
2 /* $Header: PERUSCPRB.pls 120.0 2007/12/28 06:58:31 srikrish noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 DECLARE
6 V_ORGANIZATION_NAME VARCHAR2(240);
7 V_ORGANIZATION_TYPE VARCHAR2(80);
8 V_ORG_STRUCTURE_NAME VARCHAR2(240);
9 V_ORG_VERSION NUMBER;
10 V_VERSION_START_DATE DATE;
11 V_VERSION_END_DATE DATE;
12 BEGIN
13 --HR_STANDARD.EVENT('AFTER REPORT');
14 C_END_OF_TIME := HR_GENERAL.END_OF_TIME;
15 C_BUSINESS_GROUP_NAME := HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
16 V_ORGANIZATION_NAME := C_BUSINESS_GROUP_NAME;
17 IF P_PARENT_ORGANIZATION_ID IS NOT NULL THEN
18 HR_REPORTS.GET_ORGANIZATION(P_PARENT_ORGANIZATION_ID
19 ,V_ORGANIZATION_NAME
20 ,V_ORGANIZATION_TYPE);
21 C_PARENT_ORGANIZATION_NAME := V_ORGANIZATION_NAME;
22 ELSE
23 C_PARENT_ORGANIZATION_NAME := '';
24 END IF;
25 IF P_ORG_STRUCTURE_VERSION_ID IS NOT NULL THEN
26 HR_REPORTS.GET_ORGANIZATION_HIERARCHY(NULL
27 ,P_ORG_STRUCTURE_VERSION_ID
28 ,V_ORG_STRUCTURE_NAME
29 ,V_ORG_VERSION
30 ,V_VERSION_START_DATE
31 ,V_VERSION_END_DATE);
32 C_ORG_STRUCTURE_NAME := V_ORG_STRUCTURE_NAME;
33 ELSE
34 C_ORG_STRUCTURE_NAME := '';
35 END IF;
36 IF (P_QUALIFYING_EVENT IS NOT NULL) THEN
37 C_QUALIFYING_EVENT := HR_US_REPORTS.GET_COBRA_QUALIFYING_EVENT(P_QUALIFYING_EVENT);
38 ELSE
39 C_QUALIFYING_EVENT := '';
40 END IF;
41 END;
42 RETURN (TRUE);
43 END BEFOREREPORT;
44
45 FUNCTION AFTERREPORT RETURN BOOLEAN IS
46 BEGIN
47 --HR_STANDARD.EVENT('AFTER REPORT');
48 RETURN (TRUE);
49 END AFTERREPORT;
50
51 FUNCTION C_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
52 BEGIN
53 RETURN C_BUSINESS_GROUP_NAME;
54 END C_BUSINESS_GROUP_NAME_P;
55
56 FUNCTION C_REPORT_SUBTITLE_P RETURN VARCHAR2 IS
57 BEGIN
58 RETURN C_REPORT_SUBTITLE;
59 END C_REPORT_SUBTITLE_P;
60
61 FUNCTION C_PARENT_ORGANIZATION_NAME_P RETURN VARCHAR2 IS
62 BEGIN
63 RETURN C_PARENT_ORGANIZATION_NAME;
64 END C_PARENT_ORGANIZATION_NAME_P;
65
66 FUNCTION C_ORG_STRUCTURE_NAME_P RETURN VARCHAR2 IS
67 BEGIN
68 RETURN C_ORG_STRUCTURE_NAME;
69 END C_ORG_STRUCTURE_NAME_P;
70
71 FUNCTION C_QUALIFYING_EVENT_P RETURN VARCHAR2 IS
72 BEGIN
73 RETURN C_QUALIFYING_EVENT;
74 END C_QUALIFYING_EVENT_P;
75
76 FUNCTION C_END_OF_TIME_P RETURN DATE IS
77 BEGIN
78 RETURN C_END_OF_TIME;
79 END C_END_OF_TIME_P;
80
81 END PER_PERUSCPR_XMLP_PKG;