1 PACKAGE BODY PSB_PSBRPWAC_XMLP_PKG AS
2 /* $Header: PSBRPWACB.pls 120.0 2008/01/07 10:51:30 vijranga noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 CURSOR Y1 IS
5 SELECT
6 NAME
7 FROM
8 PSB_BUDGET_PERIODS
9 WHERE BUDGET_PERIOD_ID = P_BUDGET_GROUP_ID1;
10 CURSOR Y2 IS
11 SELECT
12 NAME
13 FROM
14 PSB_BUDGET_PERIODS
15 WHERE BUDGET_PERIOD_ID = P_BUDGET_GROUP_ID2;
16 CURSOR Y3 IS
17 SELECT
18 NAME
19 FROM
20 PSB_BUDGET_PERIODS
21 WHERE BUDGET_PERIOD_ID = P_BUDGET_GROUP_ID3;
22 CURSOR Y4 IS
23 SELECT
24 NAME
25 FROM
26 PSB_BUDGET_PERIODS
27 WHERE BUDGET_PERIOD_ID = P_BUDGET_GROUP_ID4;
28 L_CALENDAR_ID NUMBER;
29 L_FLEX_MAPPING_SET_ID NUMBER;
30 err number:=0;
31 BEGIN
32 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
33 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
34 FND_MESSAGE.SET_NAME('PSB'
35 ,'PSB_NO_DATA_FOUND');
36 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
37 FND_MESSAGE.SET_NAME('PSB'
38 ,'PSB_END_OF_REPORT');
39 CP_END_OF_REPORT := FND_MESSAGE.GET;
40
41 FOR y1_rec IN Y1 LOOP
42 CP_YEAR_NAME1 := Y1_REC.NAME;
43 END LOOP;
44
45 FOR y2_rec IN Y2 LOOP
46 CP_YEAR_NAME2 := Y2_REC.NAME;
47 END LOOP;
48
49 FOR y3_rec IN Y3 LOOP
50 CP_YEAR_NAME3 := Y3_REC.NAME;
51 END LOOP;
52
53 FOR y4_rec IN Y4 LOOP
54 CP_YEAR_NAME4 := Y4_REC.NAME;
55 END LOOP;
56
57 IF P_SERVICE_PACKAGE_ID IS NULL THEN
58 FND_MESSAGE.SET_NAME('PSB'
59 ,'PSB_ALL');
60 CP_PARAM_SP_NAME := FND_MESSAGE.GET;
61 ELSE
62 SELECT
63 NAME
64 INTO CP_PARAM_SP_NAME
65 FROM
66 PSB_SERVICE_PACKAGES
67 WHERE SERVICE_PACKAGE_ID = P_SERVICE_PACKAGE_ID;
68 END IF;
69
70 IF P_STAGE_ID IS NOT NULL THEN
71 SELECT
72 NAME,
73 SEQUENCE_NUMBER
74 INTO CP_PARAM_STAGE_NAME,CP_SEQUENCE_NUMBER
75 FROM
76 PSB_BUDGET_STAGES
77 WHERE BUDGET_STAGE_ID = P_STAGE_ID;
78 ELSE
79 SELECT
80 ST.NAME,
81 ST.SEQUENCE_NUMBER
82 INTO CP_PARAM_STAGE_NAME,CP_SEQUENCE_NUMBER
83 FROM
84 PSB_BUDGET_STAGES ST,
85 PSB_WORKSHEETS WS
86 WHERE WS.WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID
87 AND ST.BUDGET_STAGE_SET_ID = WS.STAGE_SET_ID
88 AND ST.SEQUENCE_NUMBER = WS.CURRENT_STAGE_SEQ;
89 END IF;
90
91 IF P_GLOBAL_WORKSHEET_ID IS NULL THEN
92 FND_MESSAGE.SET_NAME('PSB'
93 ,'PSB_ALL');
94 CP_PARAM_WS_NAME := FND_MESSAGE.GET;
95 ELSE
96 SELECT
97 NAME,
98 BUDGET_CALENDAR_ID
99 INTO CP_PARAM_WS_NAME,L_CALENDAR_ID
100 FROM
101 PSB_WORKSHEETS
102 WHERE WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID;
103
104 /*SELECT
105 BUDGET_YEAR_TYPE_ID
106 INTO CP_CY_PERIOD_ID
107 FROM
108 PSB_BUDGET_PERIODS
109 WHERE BUDGET_CALENDAR_ID = L_CALENDAR_ID
110 AND BUDGET_PERIOD_TYPE = 'Y';*/
111 END IF;
112
113 RETURN (TRUE);
114 RETURN NULL;
115 EXCEPTION
116 WHEN NO_DATA_FOUND THEN
117 /*RAISE_APPLICATION_ERROR(-20101,'errorcode = '|| err || 'SQLERRM '||SQLERRM);*/
118 RETURN (FALSE);
119
120 WHEN OTHERS THEN
121 /*RAISE_APPLICATION_ERROR(-20101,'errorcode = '|| err || 'SQLERRM '||SQLERRM);*/
122 RETURN NULL;
123 END BEFOREREPORT;
124
125 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
126 BEGIN
127 RETURN (TRUE);
128 END BEFOREPFORM;
129
130 FUNCTION AFTERPFORM RETURN BOOLEAN IS
131 BEGIN
132 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
133 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
134 RETURN (TRUE);
135 END AFTERPFORM;
136
137 FUNCTION AFTERREPORT RETURN BOOLEAN IS
138 BEGIN
139 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
140 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
141 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
142 RETURN (TRUE);
143 END AFTERREPORT;
144
145 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
146 BEGIN
147 RETURN CP_NO_DATA_FOUND;
148 END CP_NO_DATA_FOUND_P;
149
150 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN CP_END_OF_REPORT;
153 END CP_END_OF_REPORT_P;
154
155 FUNCTION SELECT_AMT_P RETURN VARCHAR2 IS
156 BEGIN
157 RETURN SELECT_AMT;
158 END SELECT_AMT_P;
159
160 FUNCTION CP_PARAM_WS_NAME_P RETURN VARCHAR2 IS
161 BEGIN
162 RETURN CP_PARAM_WS_NAME;
163 END CP_PARAM_WS_NAME_P;
164
165 FUNCTION CP_PARAM_SP_NAME_P RETURN VARCHAR2 IS
166 BEGIN
167 RETURN CP_PARAM_SP_NAME;
168 END CP_PARAM_SP_NAME_P;
169
170 FUNCTION CP_PARAM_ORDER_BY_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN CP_PARAM_ORDER_BY;
173 END CP_PARAM_ORDER_BY_P;
174
175 FUNCTION CP_SORT_P RETURN VARCHAR2 IS
176 BEGIN
177 RETURN CP_SORT;
178 END CP_SORT_P;
179
180 FUNCTION CP_WS_STAGE_NAME_P RETURN VARCHAR2 IS
181 BEGIN
182 RETURN CP_WS_STAGE_NAME;
183 END CP_WS_STAGE_NAME_P;
184
185 FUNCTION CP_PARAM_STAGE_NAME_P RETURN VARCHAR2 IS
186 BEGIN
187 RETURN CP_PARAM_STAGE_NAME;
188 END CP_PARAM_STAGE_NAME_P;
189
190 FUNCTION CP_SEQUENCE_NUMBER_P RETURN NUMBER IS
191 BEGIN
192 RETURN CP_SEQUENCE_NUMBER;
193 END CP_SEQUENCE_NUMBER_P;
194
195 FUNCTION CP_YEAR_NAME1_P RETURN VARCHAR2 IS
196 BEGIN
197 RETURN CP_YEAR_NAME1;
198 END CP_YEAR_NAME1_P;
199
200 FUNCTION CP_YEAR_NAME2_P RETURN VARCHAR2 IS
201 BEGIN
202 RETURN CP_YEAR_NAME2;
203 END CP_YEAR_NAME2_P;
204
205 FUNCTION CP_YEAR_NAME3_P RETURN VARCHAR2 IS
206 BEGIN
207 RETURN CP_YEAR_NAME3;
208 END CP_YEAR_NAME3_P;
209
210 FUNCTION CP_YEAR_NAME4_P RETURN VARCHAR2 IS
211 BEGIN
212 RETURN CP_YEAR_NAME4;
213 END CP_YEAR_NAME4_P;
214
215 FUNCTION CP_FLEX_MAPPING_SET_ID_P RETURN NUMBER IS
216 BEGIN
217 RETURN CP_FLEX_MAPPING_SET_ID;
218 END CP_FLEX_MAPPING_SET_ID_P;
219
220 FUNCTION CP_CY_PERIOD_ID_P RETURN NUMBER IS
221 BEGIN
222 RETURN CP_CY_PERIOD_ID;
223 END CP_CY_PERIOD_ID_P;
224
225 END PSB_PSBRPWAC_XMLP_PKG;
226
227
228
229
230