1 PACKAGE BODY PSB_PSBOTGLR_XMLP_PKG AS
2 /* $Header: PSBOTGLRB.pls 120.0 2008/01/07 10:28:58 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 IF (GET_NLS_STRINGS <> TRUE) THEN
8 NULL;
9 END IF;
10 DECLARE
11 L_SKIP VARCHAR2(1);
12 COAID NUMBER;
13 SOBNAME VARCHAR2(30);
14 SUMMDET VARCHAR2(1);
15 FUNCTCURR VARCHAR2(15);
16 ERRBUF VARCHAR2(132);
17 ERRBUF2 VARCHAR2(132);
18 CURSOR B IS
19 SELECT
20 GL_BUDGET_SET_NAME
21 FROM
22 PSB_GL_BUDGET_SETS
23 WHERE GL_BUDGET_SET_ID = P_GL_BUDGET_SET_ID;
24 CURSOR REV1 IS
25 SELECT
26 DECODE(BG.ROOT_CHART_OF_ACCOUNTS_ID
27 ,NULL
28 ,BG.CHART_OF_ACCOUNTS_ID
29 ,BG.ROOT_CHART_OF_ACCOUNTS_ID) R_COA,
30 DECODE(BG.ROOT_CURRENCY_CODE
31 ,NULL
32 ,BG.CURRENCY_CODE
33 ,BG.ROOT_CURRENCY_CODE) R_CURR,
34 DECODE(BG.ROOT_SOB_NAME
35 ,NULL
36 ,BG.SOB_NAME
37 ,BG.ROOT_SOB_NAME) R_SOB,
38 REV.BUDGET_REVISION_TYPE,
39 REV.PERMANENT_REVISION
40 FROM
41 PSB_BUDGET_REVISIONS REV,
42 PSB_BUDGET_GROUPS_V BG
43 WHERE REV.BUDGET_GROUP_ID = NVL(BG.BUDGET_GROUP_ID
44 ,BG.ROOT_SET_OF_BOOKS_ID)
45 AND REV.BUDGET_REVISION_ID = P_WORKSHEET_ID;
46 BEGIN
47 IF P_CURRENCY_CODE = 'C' THEN
48 P_BUDGET_SOURCE_TYPE := 'BP';
49 ELSIF P_CURRENCY_CODE = 'STAT' THEN
50 P_BUDGET_SOURCE_TYPE := 'SW';
51 END IF;
52 IF P_BUDGET_SOURCE_TYPE = 'BP' OR P_BUDGET_SOURCE_TYPE = 'SW' THEN
53 SELECT
54 DECODE(BG.ROOT_CHART_OF_ACCOUNTS_ID
55 ,NULL
56 ,BG.CHART_OF_ACCOUNTS_ID
57 ,BG.ROOT_CHART_OF_ACCOUNTS_ID),
58 DECODE(BG.ROOT_CURRENCY_CODE
59 ,NULL
60 ,BG.CURRENCY_CODE
61 ,BG.ROOT_CURRENCY_CODE),
62 DECODE(BG.ROOT_SOB_NAME
63 ,NULL
64 ,BG.SOB_NAME
65 ,BG.ROOT_SOB_NAME)
66 INTO COAID,CP_CURRENCY_CODE,CP_SOB_NAME
67 FROM
68 PSB_BUDGET_GROUPS_V BG,
69 PSB_WORKSHEETS WS
70 WHERE WS.BUDGET_GROUP_ID = NVL(BG.BUDGET_GROUP_ID
71 ,BG.ROOT_BUDGET_GROUP_ID)
72 AND WS.WORKSHEET_ID = P_WORKSHEET_ID;
73 ELSE
74 FOR rev1_rec IN REV1 LOOP
75 CP_CURRENCY_CODE := REV1_REC.R_CURR;
76 CP_SOB_NAME := REV1_REC.R_SOB;
77 CP_REVISION_TYPE := REV1_REC.BUDGET_REVISION_TYPE;
78 CP_PERMANENT_REVISION := REV1_REC.PERMANENT_REVISION;
79 END LOOP;
80 END IF;
81 IF P_ORDER_BY1 IS NOT NULL THEN
82 CP_SORT := ' , ' || P_ORDER_BY1;
83 IF P_ORDER_BY2 IS NOT NULL THEN
84 CP_SORT := CP_SORT || ' , ' || P_ORDER_BY2;
85 IF P_ORDER_BY3 IS NOT NULL THEN
86 CP_SORT := CP_SORT || ' , ' || P_ORDER_BY3;
87 END IF;
88 END IF;
89 CP_SORT := CP_SORT || ' ORDER BY ' || SUBSTR(CP_SORT
90 ,INSTR(CP_SORT
91 ,','
92 ,1
93 ,1) + 1);
94 END IF;
95 IF CP_SORT IS NULL THEN
96 CP_SORT := ' ';
97 END IF;
98 RETURN (TRUE);
99 EXCEPTION
100 WHEN NO_DATA_FOUND THEN
101 RETURN NULL;
102 WHEN OTHERS THEN
103 RETURN NULL;
104 END;
105 END BEFOREREPORT;
106 FUNCTION AFTERREPORT RETURN BOOLEAN IS
107 BEGIN
108 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
109 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
110 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
111 RETURN (TRUE);
112 END AFTERREPORT;
113 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
114 BEGIN
115 FND_MESSAGE.SET_NAME('PSB'
116 ,'PSB_NO_DATA_FOUND');
117 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
118 FND_MESSAGE.SET_NAME('PSB'
119 ,'PSB_END_OF_REPORT');
120 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
121 RETURN (TRUE);
122 EXCEPTION
123 WHEN OTHERS THEN
124 RETURN (FALSE);
125 END GET_NLS_STRINGS;
126 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
127 BEGIN
128 RETURN (TRUE);
129 END BEFOREPFORM;
130 FUNCTION AFTERPFORM RETURN BOOLEAN IS
131 BEGIN
132 RETURN (TRUE);
133 END AFTERPFORM;
134 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
135 BEGIN
136 RETURN (TRUE);
137 END BETWEENPAGE;
138 FUNCTION CP_1_P RETURN NUMBER IS
139 BEGIN
140 RETURN CP_1;
141 END CP_1_P;
142 FUNCTION SELECT_DR_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN SELECT_DR;
145 END SELECT_DR_P;
146 FUNCTION CP_CURRENCY_CODE_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN CP_CURRENCY_CODE;
149 END CP_CURRENCY_CODE_P;
150 FUNCTION CP_SOB_NAME_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN CP_SOB_NAME;
153 END CP_SOB_NAME_P;
154 FUNCTION SELECT_CR_P RETURN VARCHAR2 IS
155 BEGIN
156 RETURN SELECT_CR;
157 END SELECT_CR_P;
158 FUNCTION SELECT_ALL_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN SELECT_ALL;
161 END SELECT_ALL_P;
162 FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN STRUCT_NUM;
165 END STRUCT_NUM_P;
166 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN C_NLS_END_OF_REPORT;
169 END C_NLS_END_OF_REPORT_P;
170 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN C_NLS_NO_DATA_EXISTS;
173 END C_NLS_NO_DATA_EXISTS_P;
174 FUNCTION CP_BUDGET_STAGE_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN CP_BUDGET_STAGE;
177 END CP_BUDGET_STAGE_P;
178 FUNCTION CP_BUDGET_YEAR_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN CP_BUDGET_YEAR;
181 END CP_BUDGET_YEAR_P;
182 FUNCTION CP_BUDGET_NAME_P RETURN VARCHAR2 IS
183 BEGIN
184 RETURN CP_BUDGET_NAME;
185 END CP_BUDGET_NAME_P;
186 FUNCTION CP_CATEGORY_P RETURN VARCHAR2 IS
187 BEGIN
188 RETURN CP_CATEGORY;
189 END CP_CATEGORY_P;
190 FUNCTION CP_SUMMDET_P RETURN VARCHAR2 IS
191 BEGIN
192 RETURN CP_SUMMDET;
193 END CP_SUMMDET_P;
194 FUNCTION ACCOUNTING_SEGMENT_P RETURN VARCHAR2 IS
195 BEGIN
196 RETURN ACCOUNTING_SEGMENT;
197 END ACCOUNTING_SEGMENT_P;
198 FUNCTION CP_SORT_P RETURN VARCHAR2 IS
199 BEGIN
200 RETURN CP_SORT;
201 END CP_SORT_P;
202 FUNCTION CP_BUDGET_SET_NAME_P RETURN VARCHAR2 IS
203 BEGIN
204 RETURN CP_BUDGET_SET_NAME;
205 END CP_BUDGET_SET_NAME_P;
206 FUNCTION CP_REVISION_TYPE_P RETURN VARCHAR2 IS
207 BEGIN
208 RETURN CP_REVISION_TYPE;
209 END CP_REVISION_TYPE_P;
210 FUNCTION CP_PERMANENT_REVISION_P RETURN VARCHAR2 IS
211 BEGIN
212 RETURN CP_PERMANENT_REVISION;
213 END CP_PERMANENT_REVISION_P;
214 FUNCTION CP_BUDGET_YEAR_ID_P RETURN NUMBER IS
215 BEGIN
216 RETURN CP_BUDGET_YEAR_ID;
217 END CP_BUDGET_YEAR_ID_P;
218 FUNCTION CP_BUDGET_SET_ID_P RETURN NUMBER IS
219 BEGIN
220 RETURN CP_BUDGET_SET_ID;
221 END CP_BUDGET_SET_ID_P;
222 END PSB_PSBOTGLR_XMLP_PKG;
223
224
225
226
227
228