1 PACKAGE BODY OTA_OTAFRBCR_XMLP_PKG AS
2 /* $Header: OTAFRBCRB.pls 120.2 2007/12/07 05:58:57 amakrish noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 DECLARE
6 C_SESSION_DATE DATE;
7 BEGIN
8 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9 SELECT
10 EFFECTIVE_DATE
11 INTO
12 C_SESSION_DATE
13 FROM
14 FND_SESSIONS
15 WHERE SESSION_ID = USERENV('SESSIONID');
16 EXCEPTION
17 WHEN NO_DATA_FOUND THEN
18 INSERT INTO FND_SESSIONS
19 (SESSION_ID
20 ,EFFECTIVE_DATE)
21 VALUES (USERENV('SESSIONID')
22 ,SYSDATE);
23 END;
24 C_BUSINESS_GROUP_NAME := HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
25 C_CURR_CONV_TYPE := HR_CURRENCY_PKG.GET_RATE_TYPE(P_BUSINESS_GROUP_ID
26 ,SYSDATE
27 ,'R');
28 SELECT
29 NAME
30 INTO
31 C_TRAINING_PLAN_NAME
32 FROM
33 OTA_TRAINING_PLANS OTP
34 WHERE OTP.TRAINING_PLAN_ID = P_TRAINING_PLAN_ID;
35 SELECT
36 MEANING
37 INTO
38 C_ROLLUP_LEVEL
39 FROM
40 FND_COMMON_LOOKUPS
41 WHERE LOOKUP_TYPE = 'TP_REPORT_LEVEL'
42 AND APPLICATION_ID = 800
43 AND LOOKUP_CODE = P_ROLLUP;
44 RETURN (TRUE);
45 END BEFOREREPORT;
46
47 FUNCTION C_BUSINESS_GROUP_NAMEFORMULA RETURN CHAR IS
48 BEGIN
49 RETURN ('1');
50 END C_BUSINESS_GROUP_NAMEFORMULA;
51
52 FUNCTION AFTERREPORT RETURN BOOLEAN IS
53 BEGIN
54 RETURN (TRUE);
55 END AFTERREPORT;
56
57 FUNCTION C_TRAINING_PLAN_NAME_P RETURN VARCHAR2 IS
58 BEGIN
59 RETURN C_TRAINING_PLAN_NAME;
60 END C_TRAINING_PLAN_NAME_P;
61
62 FUNCTION C_ROLLUP_LEVEL_P RETURN VARCHAR2 IS
63 BEGIN
64 RETURN C_ROLLUP_LEVEL;
65 END C_ROLLUP_LEVEL_P;
66
67 FUNCTION C_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
68 BEGIN
69 RETURN C_BUSINESS_GROUP_NAME;
70 END C_BUSINESS_GROUP_NAME_P;
71
72 FUNCTION C_CURR_CONV_TYPE_P RETURN VARCHAR2 IS
73 BEGIN
74 RETURN C_CURR_CONV_TYPE;
75 END C_CURR_CONV_TYPE_P;
76
77 END OTA_OTAFRBCR_XMLP_PKG;