1 PACKAGE BODY PSB_PSBRPFHP_XMLP_PKG AS
2 /* $Header: PSBRPFHPB.pls 120.0 2008/01/07 10:38:48 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 SELECT
8 BG.SOB_NAME,
9 WS.NAME,
10 BG.NAME
11 INTO CP_COMPANY,CP_WORKSHEET,CP_BUDGET_GROUP
12 FROM
13 PSB_BUDGET_GROUPS_V BG,
14 PSB_WORKSHEETS WS
15 WHERE WS.BUDGET_GROUP_ID = BG.BUDGET_GROUP_ID
16 AND WS.WORKSHEET_ID = P_WORKSHEET_ID;
17 IF (P_BUDGET_PERIOD_ID IS NOT NULL) THEN
18 SELECT
19 NAME
20 INTO CP_BUD_PERIOD_NAME
21 FROM
22 PSB_BUDGET_PERIODS
23 WHERE BUDGET_PERIOD_TYPE = 'Y'
24 AND BUDGET_PERIOD_ID = P_BUDGET_PERIOD_ID;
25 END IF;
26 FND_MESSAGE.SET_NAME('PSB'
27 ,'PSB_NO_DATA_FOUND');
28 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
29 FND_MESSAGE.SET_NAME('PSB'
30 ,'PSB_END_OF_REPORT');
31 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
32 RETURN (TRUE);
33 EXCEPTION
34 WHEN NO_DATA_FOUND THEN
35 RETURN NULL;
36 WHEN OTHERS THEN
37 RETURN NULL;
38 END BEFOREREPORT;
39
40 FUNCTION AFTERREPORT RETURN BOOLEAN IS
41 BEGIN
42 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
43 RETURN (TRUE);
44 END AFTERREPORT;
45
46 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
47 BEGIN
48 RETURN (TRUE);
49 END BEFOREPFORM;
50
51 FUNCTION AFTERPFORM RETURN BOOLEAN IS
52 BEGIN
53 RETURN (TRUE);
54 END AFTERPFORM;
55
56 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
57 BEGIN
58 RETURN (TRUE);
59 END BETWEENPAGE;
60
61 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
62 BEGIN
63 RETURN C_NLS_END_OF_REPORT;
64 END C_NLS_END_OF_REPORT_P;
65
66 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
67 BEGIN
68 RETURN C_NLS_NO_DATA_EXISTS;
69 END C_NLS_NO_DATA_EXISTS_P;
70
71 FUNCTION P_CONC_REQUEST_ID_P RETURN NUMBER IS
72 BEGIN
73 RETURN P_CONC_REQUEST_ID;
74 END P_CONC_REQUEST_ID_P;
75
76 FUNCTION CP_COMPANY_P RETURN VARCHAR2 IS
77 BEGIN
78 RETURN CP_COMPANY;
79 END CP_COMPANY_P;
80
81 FUNCTION CP_WORKSHEET_P RETURN VARCHAR2 IS
82 BEGIN
83 RETURN CP_WORKSHEET;
84 END CP_WORKSHEET_P;
85
86 FUNCTION CP_BUDGET_GROUP_P RETURN VARCHAR2 IS
87 BEGIN
88 RETURN CP_BUDGET_GROUP;
89 END CP_BUDGET_GROUP_P;
90
91 FUNCTION CP_BUD_PERIOD_NAME_P RETURN VARCHAR2 IS
92 BEGIN
93 RETURN CP_BUD_PERIOD_NAME;
94 END CP_BUD_PERIOD_NAME_P;
95
96 END PSB_PSBRPFHP_XMLP_PKG;
97
98
99
100
101