1 PACKAGE BODY PSB_PSBRPSPU_XMLP_PKG AS
2 /* $Header: PSBRPSPUB.pls 120.0 2008/01/07 10:48:38 vijranga noship $ */
3 FUNCTION CF_SERVICE_PACKAGE_IDFORMULA(SP_SERVICE_PACKAGE_ID IN NUMBER) RETURN NUMBER IS
4 BEGIN
5 CP_SERVICE_PACKAGE_ID := SP_SERVICE_PACKAGE_ID;
6 RETURN CP_SERVICE_PACKAGE_ID;
7 END CF_SERVICE_PACKAGE_IDFORMULA;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13 IF P_GLOBAL_WORKSHEET_ID IS NULL THEN
14 FND_MESSAGE.SET_NAME('PSB'
15 ,'PSB_ALL');
16 CP_PARAM_WS_NAME := FND_MESSAGE.GET;
17 ELSE
18 SELECT
19 NAME
20 INTO CP_PARAM_WS_NAME
21 FROM
22 PSB_WORKSHEETS
23 WHERE WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID;
24 END IF;
25 IF P_SERVICE_PACKAGE_ID IS NULL THEN
26 FND_MESSAGE.SET_NAME('PSB'
27 ,'PSB_ALL');
28 CP_PARAM_SP_NAME := FND_MESSAGE.GET;
29 ELSE
30 SELECT
31 NAME
32 INTO CP_PARAM_SP_NAME
33 FROM
34 PSB_SERVICE_PACKAGES
35 WHERE SERVICE_PACKAGE_ID = P_SERVICE_PACKAGE_ID;
36 END IF;
37 SELECT
38 MEANING
39 INTO CP_PARAM_ORDER_BY
40 FROM
41 FND_LOOKUP_VALUES
42 WHERE LOOKUP_TYPE = 'PSB_SORT_ORDER_SERVICE_PACKAGE'
43 AND LOOKUP_CODE = P_ORDER_BY
44 AND LANGUAGE = USERENV('LANG');
45 CP_SORT := P_ORDER_BY;
46 IF P_STAGE_ID IS NOT NULL THEN
47 SELECT
48 NAME,
49 SEQUENCE_NUMBER
50 INTO CP_PARAM_STAGE_NAME,CP_SEQUENCE_NUMBER
51 FROM
52 PSB_BUDGET_STAGES
53 WHERE BUDGET_STAGE_ID = P_STAGE_ID;
54 ELSE
55 FND_MESSAGE.SET_NAME('PSB'
56 ,'PSB_CURRENT_BUDGET_STAGE');
57 CP_PARAM_STAGE_NAME := FND_MESSAGE.GET;
58 END IF;
59 FND_MESSAGE.SET_NAME('PSB'
60 ,'PSB_NO_DATA_FOUND');
61 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
62 FND_MESSAGE.SET_NAME('PSB'
63 ,'PSB_END_OF_REPORT');
64 CP_END_OF_REPORT := FND_MESSAGE.GET;
65 SELECT_AMT := 'A.EST_AMT';
66 RETURN (TRUE);
67 EXCEPTION
68 WHEN NO_DATA_FOUND THEN
69 RETURN (FALSE);
70 WHEN OTHERS THEN
71 RETURN NULL;
72 END BEFOREREPORT;
73
74 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
75 BEGIN
76 RETURN (TRUE);
77 END BEFOREPFORM;
78
79 FUNCTION AFTERPFORM RETURN BOOLEAN IS
80 BEGIN
81 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
82 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
83 RETURN (TRUE);
84 END AFTERPFORM;
85
86 FUNCTION AFTERREPORT RETURN BOOLEAN IS
87 BEGIN
88 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
89 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
90 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
91 RETURN (TRUE);
92 END AFTERREPORT;
93
94 FUNCTION CF_STAGE_NAMEFORMULA(WS_CURRENT_STAGE_NAME IN VARCHAR2) RETURN VARCHAR2 IS
95 BEGIN
96 IF P_STAGE_ID IS NULL THEN
97 CP_WS_STAGE_NAME := WS_CURRENT_STAGE_NAME;
98 ELSE
99 CP_WS_STAGE_NAME := CP_PARAM_STAGE_NAME;
100 END IF;
101 RETURN CP_WS_STAGE_NAME;
102 END CF_STAGE_NAMEFORMULA;
103
104 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
105 BEGIN
106 RETURN (TRUE);
107 END BETWEENPAGE;
108
109 FUNCTION CF_CURRENCY_CODEFORMULA(TOP_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
110 BEGIN
111 CP_CURRENCY_CODE := TOP_CURRENCY_CODE;
112 RETURN (CP_CURRENCY_CODE);
113 END CF_CURRENCY_CODEFORMULA;
114
115 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
116 BEGIN
117 RETURN CP_CURRENCY_CODE;
118 END CP_CURRENCY_CODE_P;
119
120 FUNCTION CP_SERVICE_PACKAGE_ID_P RETURN NUMBER IS
121 BEGIN
122 RETURN CP_SERVICE_PACKAGE_ID;
123 END CP_SERVICE_PACKAGE_ID_P;
124
125 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
126 BEGIN
127 RETURN CP_NO_DATA_FOUND;
128 END CP_NO_DATA_FOUND_P;
129
130 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
131 BEGIN
132 RETURN CP_END_OF_REPORT;
133 END CP_END_OF_REPORT_P;
134
135 FUNCTION SELECT_AMT_P RETURN VARCHAR2 IS
136 BEGIN
137 RETURN SELECT_AMT;
138 END SELECT_AMT_P;
139
140 FUNCTION CP_PARAM_WS_NAME_P RETURN VARCHAR2 IS
141 BEGIN
142 RETURN CP_PARAM_WS_NAME;
143 END CP_PARAM_WS_NAME_P;
144
145 FUNCTION CP_PARAM_SP_NAME_P RETURN VARCHAR2 IS
146 BEGIN
147 RETURN CP_PARAM_SP_NAME;
148 END CP_PARAM_SP_NAME_P;
149
150 FUNCTION CP_PARAM_ORDER_BY_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN CP_PARAM_ORDER_BY;
153 END CP_PARAM_ORDER_BY_P;
154
155 FUNCTION CP_SORT_P RETURN VARCHAR2 IS
156 BEGIN
157 RETURN CP_SORT;
158 END CP_SORT_P;
159
160 FUNCTION CP_PARAM_STAGE_NAME_P RETURN VARCHAR2 IS
161 BEGIN
162 RETURN CP_PARAM_STAGE_NAME;
163 END CP_PARAM_STAGE_NAME_P;
164
165 FUNCTION CP_WS_STAGE_NAME_P RETURN VARCHAR2 IS
166 BEGIN
167 RETURN CP_WS_STAGE_NAME;
168 END CP_WS_STAGE_NAME_P;
169
170 FUNCTION CP_SEQUENCE_NUMBER_P RETURN NUMBER IS
171 BEGIN
172 RETURN CP_SEQUENCE_NUMBER;
173 END CP_SEQUENCE_NUMBER_P;
174
175 FUNCTION CP_REPORTING_SOB_ID_P RETURN NUMBER IS
176 BEGIN
177 RETURN CP_REPORTING_SOB_ID;
178 END CP_REPORTING_SOB_ID_P;
179
180 END PSB_PSBRPSPU_XMLP_PKG;
181
182
183
184
185