1 PACKAGE BODY BOM_CSTRPWDD_XMLP_PKG AS
2 /* $Header: CSTRPWDDB.pls 120.0 2007/12/24 10:14:53 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 CL_TYPE NUMBER(10);
5 BEGIN
6 BEGIN
7 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 EXCEPTION
10 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
11 /*SRW.MESSAGE(1
12 ,'Failed in SRWINIT')*/NULL;
13 RAISE;
14 END;
15 BEGIN
16 IF P_JOB IS NOT NULL THEN
17 P_LIMIT_ENTITY := ' wt.wip_entity_id= ''' || P_JOB || '''';
18 ELSE
19 NULL;
20 END IF;
21 END;
22 BEGIN
23 IF P_CLASS_CODE IS NOT NULL THEN
24 BEGIN
25 SELECT
26 DISTINCT
27 CLASS_TYPE
28 INTO CL_TYPE
29 FROM
30 WIP_ACCOUNTING_CLASSES
31 WHERE CLASS_CODE = P_CLASS_CODE;
32 EXCEPTION
33 WHEN NO_DATA_FOUND THEN
34 /*SRW.MESSAGE(30
35 ,'No Rows Found for the Class Code specified')*/NULL;
36 WHEN OTHERS THEN
37 /*SRW.MESSAGE(31
38 ,'Failed in p_limit_classes.')*/NULL;
39 RAISE;
40 END;
41 IF CL_TYPE = 2 THEN
42 P_LIMIT_CLASSES := ' wri.class_code= ''' || P_CLASS_CODE || '''';
43 ELSE
44 P_LIMIT_CLASSES := ' wdj.class_code= ''' || P_CLASS_CODE || '''';
45 END IF;
46 ELSE
47 NULL;
48 END IF;
49 END;
50 BEGIN
51 IF P_CONC_REQUEST_ID IS NOT NULL THEN
52 SELECT
53 FRV.RESPONSIBILITY_NAME,
54 TO_CHAR(FCR.REQUEST_DATE
55 ,'YYYY/MM/DD HH24:MI:SS'),
56 FAV.APPLICATION_NAME,
57 FU.USER_NAME
58 INTO CP_RESPONSIBILITY,CP_REQUEST_TIME,CP_APPLICATION,CP_REQUESTED_BY
59 FROM
60 FND_CONCURRENT_REQUESTS FCR,
61 FND_RESPONSIBILITY_VL FRV,
62 FND_APPLICATION_VL FAV,
63 FND_USER FU
64 WHERE FCR.REQUEST_ID = P_CONC_REQUEST_ID
65 AND FCR.RESPONSIBILITY_APPLICATION_ID = FRV.APPLICATION_ID
66 AND FCR.RESPONSIBILITY_ID = FRV.RESPONSIBILITY_ID
67 AND FRV.APPLICATION_ID = FAV.APPLICATION_ID
68 AND FU.USER_ID = FCR.REQUESTED_BY;
69 ELSE
70 NULL;
71 END IF;
72 EXCEPTION
73 WHEN NO_DATA_FOUND THEN
74 /*SRW.MESSAGE(30
75 ,'Failed Request By and Request Time Init.')*/NULL;
76 WHEN OTHERS THEN
77 /*SRW.MESSAGE(31
78 ,'Failed Request By and Request Time Init.')*/NULL;
79 END;
80 BEGIN
81 SELECT
82 DISTINCT
83 HR.NAME,
84 CCG.COST_GROUP,
85 CCT.COST_TYPE,
86 CAH.PERIOD_NAME,
87 NVL(FC.PRECISION
88 ,2),
89 NVL(FC.EXTENDED_PRECISION
90 ,5)
91 INTO CP_LEGAL_ENTITY,CP_COST_GROUP,CP_COST_TYPE,CP_PERIOD_NAME,P_CURRENCY_PRECISION,P_RATE_PRECISION
92 FROM
93 CST_AE_HEADERS CAH,
94 HR_LEGAL_ENTITIES HR,
95 FND_CURRENCIES FC,
96 CST_COST_GROUPS CCG,
97 CST_COST_TYPES CCT
98 WHERE CAH.LEGAL_ENTITY_ID = HR.ORGANIZATION_ID
99 AND FC.CURRENCY_CODE = P_CURRENCY_CODE
100 AND CAH.COST_GROUP_ID = P_COST_GROUP_ID
101 AND CCG.COST_GROUP_ID = CAH.COST_GROUP_ID
102 AND CCT.COST_TYPE_ID = P_COST_TYPE_ID
103 AND CAH.PERIOD_ID = P_PERIOD_ID;
104 EXCEPTION
105 WHEN NO_DATA_FOUND THEN
106 /*SRW.MESSAGE(30
107 ,'Failed legal entity and others init.')*/NULL;
108 WHEN OTHERS THEN
109 /*SRW.MESSAGE(31
110 ,'Failed legal entity and others init.')*/NULL;
111 END;
112 BEGIN
113 IF P_JOB IS NOT NULL THEN
114 SELECT
115 NVL(WE.WIP_ENTITY_NAME
116 ,' ')
117 INTO CP_WIP_ENTITY_NAME_COV
118 FROM
119 WIP_ENTITIES WE
120 WHERE WE.WIP_ENTITY_ID = P_JOB;
121 ELSE
122 NULL;
123 END IF;
124 IF P_LINE IS NOT NULL THEN
125 SELECT
126 NVL(WL.LINE_CODE
127 ,' ')
128 INTO CP_LINE_CODE_COV
129 FROM
130 WIP_LINES WL
131 WHERE WL.LINE_ID = P_LINE;
132 ELSE
133 NULL;
134 END IF;
135 IF P_TRANS_TYPE IS NOT NULL THEN
136 SELECT
137 NVL(ML.MEANING
138 ,' ')
139 INTO CP_TXN_TYPE_COV
140 FROM
141 MFG_LOOKUPS ML
142 WHERE ML.LOOKUP_TYPE = 'WIP_TRANSACTION_TYPE_SHORT'
143 AND ML.LOOKUP_CODE = P_TRANS_TYPE;
144 ELSE
145 NULL;
146 END IF;
147 IF P_DEPARTMENT IS NOT NULL THEN
148 SELECT
149 NVL(BD.DEPARTMENT_CODE
150 ,' ')
151 INTO CP_DEPARTMENT_CODE_COV
152 FROM
153 BOM_DEPARTMENTS BD
154 WHERE BD.DEPARTMENT_ID = P_DEPARTMENT;
155 ELSE
156 NULL;
157 END IF;
158 IF P_ACTIVITY IS NOT NULL THEN
159 SELECT
160 NVL(CA.ACTIVITY
161 ,' ')
162 INTO CP_ACTIVITY_COV
163 FROM
164 CST_ACTIVITIES CA
165 WHERE CA.ACTIVITY_ID = P_ACTIVITY;
166 ELSE
167 NULL;
168 END IF;
169 EXCEPTION
170 WHEN NO_DATA_FOUND THEN
171 /*SRW.MESSAGE(30
172 ,'No data found when initializing parameter names for cover page.')*/NULL;
173 WHEN OTHERS THEN
174 /*SRW.MESSAGE(31
175 ,'Failed in initializing parameter names for cover page.')*/NULL;
176 END;
177 BEGIN
178 NULL;
179 EXCEPTION
180 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
181 /*SRW.MESSAGE(1
182 ,'Failed in SRW FLEX GL INIT')*/NULL;
183 END;
184 BEGIN
185 NULL;
186 EXCEPTION
187 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
188 /*SRW.MESSAGE(1
189 ,'Failed in SRW FLEX INV INIT')*/NULL;
190 END;
191 BEGIN
192 IF P_ACCT_LO IS NOT NULL OR P_ACCT_HI IS NOT NULL THEN
193 NULL;
194 ELSE
195 NULL;
196 END IF;
197 EXCEPTION
198 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
199 /*SRW.MESSAGE(4
200 ,'Failed in GL#/WHERE')*/NULL;
201 RAISE;
202 END;
203 RETURN (TRUE);
204 END BEFOREREPORT;
205
206 FUNCTION AFTERREPORT RETURN BOOLEAN IS
207 BEGIN
208 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
209 RETURN (TRUE);
210 END AFTERREPORT;
211
212 FUNCTION C_SUBTITLE_CURRENCYFORMULA RETURN VARCHAR2 IS
213 BEGIN
214 RETURN ('(' || P_CURRENCY_CODE || ')');
215 END C_SUBTITLE_CURRENCYFORMULA;
216
217 FUNCTION C_ACCT_DESCRIPFORMULA(C_FLEXDATA IN VARCHAR2
218 ,ACCOUNT IN VARCHAR2
219 ,C_ACCT_DESCRIP IN VARCHAR2) RETURN VARCHAR2 IS
220 BEGIN
221 BEGIN
222 /*SRW.REFERENCE(C_FLEXDATA)*/NULL;
223 /*SRW.REFERENCE(ACCOUNT)*/NULL;
224 RETURN (C_ACCT_DESCRIP);
225 END;
226 RETURN NULL;
227 END C_ACCT_DESCRIPFORMULA;
228
229 FUNCTION C_FLEX_SORTFORMULA(C_FLEXDATA IN VARCHAR2
230 ,ACCOUNT IN VARCHAR2
231 ,C_FLEX_SORT IN VARCHAR2) RETURN VARCHAR2 IS
232 BEGIN
233 BEGIN
234 /*SRW.REFERENCE(C_FLEXDATA)*/NULL;
235 /*SRW.REFERENCE(ACCOUNT)*/NULL;
236 RETURN (C_FLEX_SORT);
237 END;
238 RETURN NULL;
239 END C_FLEX_SORTFORMULA;
240
241 --PROCEDURE FORMAT_QUANTITY(P_PRECISION IN NUMBER) IS
242 --BEGIN
243 -- SRW.ATTR.MASK := SRW.FORMATMASK_ATTR;
244 -- IF P_PRECISION = 0 THEN
245 -- SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0';
246 -- ELSIF P_PRECISION = 1 THEN
247 -- SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.0';
248 -- ELSIF P_PRECISION = 3 THEN
249 -- SRW.ATTR.FORMATMASK := '-NN,NNN,NNN,NN0.000';
250 -- ELSIF P_PRECISION = 4 THEN
251 -- SRW.ATTR.FORMATMASK := '-N,NNN,NNN,NN0.0000';
252 -- ELSIF P_PRECISION = 5 THEN
253 -- SRW.ATTR.FORMATMASK := '-NNN,NNN,NN0.00000';
254 -- ELSIF P_PRECISION = 6 THEN
255 -- SRW.ATTR.FORMATMASK := '-NN,NNN,NN0.000000';
256 -- ELSIF P_PRECISION = 7 THEN
257 -- SRW.ATTR.FORMATMASK := '-NNNNNNNNNNN0';
258 -- ELSIF P_PRECISION = 8 THEN
259 -- SRW.ATTR.FORMATMASK := '-NNNNNNNNNNN0.0';
260 -- ELSIF P_PRECISION = 9 THEN
261 -- SRW.ATTR.FORMATMASK := '-NNNNNNNNNN0.00';
262 -- ELSIF P_PRECISION = 10 THEN
263 -- SRW.ATTR.FORMATMASK := '-NNNNNNNNNN0.000';
264 -- ELSIF P_PRECISION = 11 THEN
265 -- SRW.ATTR.FORMATMASK := '-NNNNNNNNN0.0000';
266 -- ELSIF P_PRECISION = 12 THEN
267 -- SRW.ATTR.FORMATMASK := '-NNNNNNNN0.00000';
268 -- ELSIF P_PRECISION = 13 THEN
269 -- SRW.ATTR.FORMATMASK := '-NNNNNNN0.000000';
270 -- ELSE
271 -- SRW.ATTR.FORMATMASK := '-NNN,NNN,NNN,NN0.00';
272 -- END IF;
273 /*SRW.SET_ATTR(0
274 ,SRW.ATTR)*/
275 -- NULL;
276 --END FORMAT_QUANTITY;
277
278 FUNCTION CLASS(R_CLASS IN VARCHAR2
279 ,D_CLASS IN VARCHAR2) RETURN CHARACTER IS
280 CLASS VARCHAR2(10);
281 BEGIN
282 IF (R_CLASS IS NULL) THEN
283 CLASS := D_CLASS;
284 ELSE
285 CLASS := R_CLASS;
286 END IF;
287 RETURN (CLASS);
288 END CLASS;
289
290 FUNCTION C_ACCT_TOTAL_RFORMULA(C_ACCT_TOTAL IN NUMBER) RETURN NUMBER IS
291 BEGIN
292 RETURN (ROUND(C_ACCT_TOTAL
293 ,P_CURRENCY_PRECISION));
294 END C_ACCT_TOTAL_RFORMULA;
295
296 FUNCTION C_JOB_TOTAL_RFORMULA(C_JOB_TOTAL IN NUMBER) RETURN NUMBER IS
297 BEGIN
298 RETURN (ROUND(C_JOB_TOTAL
299 ,P_CURRENCY_PRECISION));
300 END C_JOB_TOTAL_RFORMULA;
301
302 FUNCTION C_EXT_COST_RFORMULA(EXTENDED_COST IN NUMBER) RETURN NUMBER IS
303 BEGIN
304 RETURN (ROUND(EXTENDED_COST
305 ,P_CURRENCY_PRECISION));
306 END C_EXT_COST_RFORMULA;
307
308 FUNCTION C_REPT_TOTAL_RFORMULA(C_REPT_TOTAL IN NUMBER) RETURN NUMBER IS
309 BEGIN
310 RETURN (ROUND(C_REPT_TOTAL
311 ,P_CURRENCY_PRECISION));
312 END C_REPT_TOTAL_RFORMULA;
313
314 FUNCTION CP_RESPONSIBILITY_P RETURN VARCHAR2 IS
315 BEGIN
316 RETURN CP_RESPONSIBILITY;
317 END CP_RESPONSIBILITY_P;
318
319 FUNCTION CP_REQUEST_TIME_P RETURN VARCHAR2 IS
320 BEGIN
321 RETURN CP_REQUEST_TIME;
322 END CP_REQUEST_TIME_P;
323
324 FUNCTION CP_APPLICATION_P RETURN VARCHAR2 IS
325 BEGIN
326 RETURN CP_APPLICATION;
327 END CP_APPLICATION_P;
328
329 FUNCTION CP_REQUESTED_BY_P RETURN VARCHAR2 IS
330 BEGIN
331 RETURN CP_REQUESTED_BY;
332 END CP_REQUESTED_BY_P;
333
334 FUNCTION CP_LEGAL_ENTITY_P RETURN VARCHAR2 IS
335 BEGIN
336 RETURN CP_LEGAL_ENTITY;
337 END CP_LEGAL_ENTITY_P;
338
339 FUNCTION CP_COST_GROUP_P RETURN VARCHAR2 IS
340 BEGIN
341 RETURN CP_COST_GROUP;
342 END CP_COST_GROUP_P;
343
344 FUNCTION CP_COST_TYPE_P RETURN VARCHAR2 IS
345 BEGIN
346 RETURN CP_COST_TYPE;
347 END CP_COST_TYPE_P;
348
349 FUNCTION CP_WIP_ENTITY_NAME_COV_P RETURN VARCHAR2 IS
350 BEGIN
351 RETURN CP_WIP_ENTITY_NAME_COV;
352 END CP_WIP_ENTITY_NAME_COV_P;
353
354 FUNCTION CP_LINE_CODE_COV_P RETURN VARCHAR2 IS
355 BEGIN
356 RETURN CP_LINE_CODE_COV;
357 END CP_LINE_CODE_COV_P;
358
359 FUNCTION CP_TXN_TYPE_COV_P RETURN VARCHAR2 IS
360 BEGIN
361 RETURN CP_TXN_TYPE_COV;
362 END CP_TXN_TYPE_COV_P;
363
364 FUNCTION CP_DEPARTMENT_CODE_COV_P RETURN VARCHAR2 IS
365 BEGIN
366 RETURN CP_DEPARTMENT_CODE_COV;
367 END CP_DEPARTMENT_CODE_COV_P;
368
369 FUNCTION CP_ACTIVITY_COV_P RETURN VARCHAR2 IS
370 BEGIN
371 RETURN CP_ACTIVITY_COV;
372 END CP_ACTIVITY_COV_P;
373
374 FUNCTION CP_PERIOD_NAME_P RETURN VARCHAR2 IS
375 BEGIN
376 RETURN CP_PERIOD_NAME;
377 END CP_PERIOD_NAME_P;
378
379 END BOM_CSTRPWDD_XMLP_PKG;
380