1 PACKAGE BODY PSB_PSBRPPSA_XMLP_PKG AS
2 /* $Header: PSBRPPSAB.pls 120.0 2008/01/07 10:44:55 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 INTO CP_SOB_NAME,CP_WS_NAME
11 FROM
12 PSB_BUDGET_GROUPS_V BG,
13 PSB_WORKSHEETS WS
14 WHERE WS.BUDGET_GROUP_ID = BG.BUDGET_GROUP_ID
15 AND WS.WORKSHEET_ID = P_WORKSHEET_ID;
16 FND_MESSAGE.SET_NAME('PSB'
17 ,'PSB_NO_DATA_FOUND');
18 C_NLS_NO_DATA_EXISTS := SUBSTR(FND_MESSAGE.GET,7,13);
19 FND_MESSAGE.SET_NAME('PSB'
20 ,'PSB_END_OF_REPORT');
21 C_NLS_END_OF_REPORT := SUBSTR(FND_MESSAGE.GET,7,13);
22 RETURN (TRUE);
23 EXCEPTION
24 WHEN NO_DATA_FOUND THEN
25 RETURN NULL;
26 WHEN OTHERS THEN
27 RETURN NULL;
28 END BEFOREREPORT;
29
30 FUNCTION AFTERREPORT RETURN BOOLEAN IS
31 BEGIN
32 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
33 RETURN (TRUE);
34 END AFTERREPORT;
35
36 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
37 BEGIN
38 RETURN (TRUE);
39 END BEFOREPFORM;
40
41 FUNCTION AFTERPFORM RETURN BOOLEAN IS
42 BEGIN
43 RETURN (TRUE);
44 END AFTERPFORM;
45
46 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
47 BEGIN
48 RETURN (TRUE);
49 END BETWEENPAGE;
50
51 FUNCTION P_CONC_REQUEST_ID_P RETURN NUMBER IS
52 BEGIN
53 RETURN P_CONC_REQUEST_ID;
54 END P_CONC_REQUEST_ID_P;
55
56 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
57 BEGIN
58 RETURN C_NLS_END_OF_REPORT;
59 END C_NLS_END_OF_REPORT_P;
60
61 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
62 BEGIN
63 RETURN C_NLS_NO_DATA_EXISTS;
64 END C_NLS_NO_DATA_EXISTS_P;
65
66 FUNCTION CP_WS_NAME_P RETURN VARCHAR2 IS
67 BEGIN
68 RETURN CP_WS_NAME;
69 END CP_WS_NAME_P;
70
71 FUNCTION CP_SOB_NAME_P RETURN VARCHAR2 IS
72 BEGIN
73 RETURN CP_SOB_NAME;
74 END CP_SOB_NAME_P;
75
76 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
77 BEGIN
78 RETURN CP_CURRENCY_CODE;
79 END CP_CURRENCY_CODE_P;
80
81 END PSB_PSBRPPSA_XMLP_PKG;
82
83
84
85
86