1 PACKAGE BODY PSB_PSBRPWPC_XMLP_PKG AS
2 /* $Header: PSBRPWPCB.pls 120.0 2008/01/07 10:54:25 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 BEGIN
31 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
32 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
33 FND_MESSAGE.SET_NAME('PSB'
34 ,'PSB_NO_DATA_FOUND');
35 CP_NO_DATA_FOUND := FND_MESSAGE.GET;
36 FND_MESSAGE.SET_NAME('PSB'
37 ,'PSB_END_OF_REPORT');
38 CP_END_OF_REPORT := FND_MESSAGE.GET;
39 FOR y1_rec IN Y1 LOOP
40 CP_YEAR_NAME1 := Y1_REC.NAME;
41 END LOOP;
42 FOR y2_rec IN Y2 LOOP
43 CP_YEAR_NAME2 := Y2_REC.NAME;
44 END LOOP;
45 FOR y3_rec IN Y3 LOOP
46 CP_YEAR_NAME3 := Y3_REC.NAME;
47 END LOOP;
48 FOR y4_rec IN Y4 LOOP
49 CP_YEAR_NAME4 := Y4_REC.NAME;
50 END LOOP;
51 IF P_SERVICE_PACKAGE_ID IS NULL THEN
52 FND_MESSAGE.SET_NAME('PSB'
53 ,'PSB_ALL');
54 CP_PARAM_SP_NAME := FND_MESSAGE.GET;
55 ELSE
56 SELECT
57 NAME
58 INTO CP_PARAM_SP_NAME
59 FROM
60 PSB_SERVICE_PACKAGES
61 WHERE SERVICE_PACKAGE_ID = P_SERVICE_PACKAGE_ID;
62 END IF;
63 IF P_STAGE_ID IS NOT NULL THEN
64 SELECT
65 NAME,
66 SEQUENCE_NUMBER
67 INTO CP_PARAM_STAGE_NAME,CP_SEQUENCE_NUMBER
68 FROM
69 PSB_BUDGET_STAGES
70 WHERE BUDGET_STAGE_ID = P_STAGE_ID;
71 ELSE
72 SELECT
73 ST.NAME,
74 ST.SEQUENCE_NUMBER
75 INTO CP_PARAM_STAGE_NAME,CP_SEQUENCE_NUMBER
76 FROM
77 PSB_BUDGET_STAGES ST,
78 PSB_WORKSHEETS WS
79 WHERE WS.WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID
80 AND ST.BUDGET_STAGE_SET_ID = WS.STAGE_SET_ID
81 AND ST.SEQUENCE_NUMBER = WS.CURRENT_STAGE_SEQ;
82 END IF;
83 IF P_GLOBAL_WORKSHEET_ID IS NULL THEN
84 FND_MESSAGE.SET_NAME('PSB'
85 ,'PSB_ALL');
86 CP_PARAM_WS_NAME := FND_MESSAGE.GET;
87 ELSE
88 SELECT
89 NAME,
90 BUDGET_CALENDAR_ID,
91 FLEX_MAPPING_SET_ID
92 INTO CP_PARAM_WS_NAME,L_CALENDAR_ID,CP_FLEX_MAPPING_SET_ID
93 FROM
94 PSB_WORKSHEETS
95 WHERE WORKSHEET_ID = P_GLOBAL_WORKSHEET_ID;
96 /*SELECT
97 BUDGET_YEAR_TYPE_ID
98 INTO CP_CY_PERIOD_ID
99 FROM
100 PSB_BUDGET_PERIODS
101 WHERE BUDGET_CALENDAR_ID = L_CALENDAR_ID
102 AND BUDGET_PERIOD_TYPE = 'Y';*/
103 END IF;
104 RETURN (TRUE);
105 RETURN NULL;
106 EXCEPTION
107 WHEN NO_DATA_FOUND THEN
108 raise_application_error(-20101,SQLERRM);
109 RETURN (FALSE);
110 WHEN OTHERS THEN NULL;
111 RETURN NULL;
112 END BEFOREREPORT;
113 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
114 BEGIN
115 RETURN (TRUE);
116 END BEFOREPFORM;
117 FUNCTION AFTERPFORM RETURN BOOLEAN IS
118 BEGIN
119 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
120 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
121 RETURN (TRUE);
122 END AFTERPFORM;
123 FUNCTION AFTERREPORT RETURN BOOLEAN IS
124 BEGIN
125 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
126 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
127 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
128 RETURN (TRUE);
129 END AFTERREPORT;
130 FUNCTION CP_NO_DATA_FOUND_P RETURN VARCHAR2 IS
131 BEGIN
132 RETURN CP_NO_DATA_FOUND;
133 END CP_NO_DATA_FOUND_P;
134 FUNCTION CP_END_OF_REPORT_P RETURN VARCHAR2 IS
135 BEGIN
136 RETURN CP_END_OF_REPORT;
137 END CP_END_OF_REPORT_P;
138 FUNCTION SELECT_AMT_P RETURN VARCHAR2 IS
139 BEGIN
140 RETURN SELECT_AMT;
141 END SELECT_AMT_P;
142 FUNCTION CP_PARAM_WS_NAME_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN CP_PARAM_WS_NAME;
145 END CP_PARAM_WS_NAME_P;
146 FUNCTION CP_PARAM_SP_NAME_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN CP_PARAM_SP_NAME;
149 END CP_PARAM_SP_NAME_P;
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 FUNCTION CP_SORT_P RETURN VARCHAR2 IS
155 BEGIN
156 RETURN CP_SORT;
157 END CP_SORT_P;
158 FUNCTION CP_WS_STAGE_NAME_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN CP_WS_STAGE_NAME;
161 END CP_WS_STAGE_NAME_P;
162 FUNCTION CP_PARAM_STAGE_NAME_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN CP_PARAM_STAGE_NAME;
165 END CP_PARAM_STAGE_NAME_P;
166 FUNCTION CP_SEQUENCE_NUMBER_P RETURN NUMBER IS
167 BEGIN
168 RETURN CP_SEQUENCE_NUMBER;
169 END CP_SEQUENCE_NUMBER_P;
170 FUNCTION CP_YEAR_NAME1_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN CP_YEAR_NAME1;
173 END CP_YEAR_NAME1_P;
174 FUNCTION CP_YEAR_NAME2_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN CP_YEAR_NAME2;
177 END CP_YEAR_NAME2_P;
178 FUNCTION CP_YEAR_NAME3_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN CP_YEAR_NAME3;
181 END CP_YEAR_NAME3_P;
182 FUNCTION CP_YEAR_NAME4_P RETURN VARCHAR2 IS
183 BEGIN
184 RETURN CP_YEAR_NAME4;
185 END CP_YEAR_NAME4_P;
186 FUNCTION CP_FLEX_MAPPING_SET_ID_P RETURN NUMBER IS
187 BEGIN
188 RETURN CP_FLEX_MAPPING_SET_ID;
189 END CP_FLEX_MAPPING_SET_ID_P;
190 FUNCTION CP_CY_PERIOD_ID_P RETURN NUMBER IS
191 BEGIN
192 RETURN CP_CY_PERIOD_ID;
193 END CP_CY_PERIOD_ID_P;
194 END PSB_PSBRPWPC_XMLP_PKG;
195
196
197
198
199