[Home] [Help]
PACKAGE BODY: APPS.PA_PAXMGSLS_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXMGSLS_XMLP_PKG AS
2 /* $Header: PAXMGSLSB.pls 120.0 2008/01/02 11:37:35 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
11 BEGIN
12 DECLARE
13 INIT_FAILURE EXCEPTION;
14 NDF VARCHAR2(80);
15 BEGIN
16 CP_FROM_GL_DATE:=to_char(P_FROM_GL_DATE,'DD-MON-YY');
17 CP_TO_GL_DATE:=to_char(P_TO_GL_DATE,'DD-MON-YY');
18 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
19 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20 /*SRW.USER_EXIT('FND GETPROFILE
21 NAME="PA_DEBUG_MODE"
22 FIELD=":p_debug_mode"
23 PRINT_ERROR="N"')*/NULL;
24 P_RULE_OPTIMIZER := FND_PROFILE.VALUE('PA_RULE_BASED_OPTIMIZER');
25 IF (GET_COMPANY_NAME <> TRUE) THEN
26 RAISE INIT_FAILURE;
27 END IF;
28 SELECT
29 trim(replace(MEANING,'*',''))
30 INTO NDF
31 FROM
32 PA_LOOKUPS
33 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
34 AND LOOKUP_TYPE = 'MESSAGE';
35 C_NO_DATA_FOUND := NDF;
36 /*SRW.REFERENCE(P_COA_ID)*/NULL;
37 EXCEPTION
38 WHEN NO_DATA_FOUND THEN
39 SELECT
40 trim(replace(MEANING,'*',''))
41 INTO NDF
42 FROM
43 PA_LOOKUPS
44 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
45 AND LOOKUP_TYPE = 'MESSAGE';
46 C_NO_DATA_FOUND := NDF;
47 C_DUMMY_DATA := 1;
48 WHEN OTHERS THEN
49 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
50 END;
51 RETURN (TRUE);
52 END BEFOREREPORT;
53 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
54 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
55 BEGIN
56 SELECT
57 GL.NAME
58 INTO L_NAME
59 FROM
60 GL_SETS_OF_BOOKS GL
61 WHERE GL.SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
62 C_COMPANY_NAME_HEADER := L_NAME;
63 RETURN (TRUE);
64 EXCEPTION
65 WHEN OTHERS THEN
66 RETURN (FALSE);
67 END GET_COMPANY_NAME;
68 FUNCTION C_ACCOUNT_IDFORMULA(CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
69 BEGIN
70 BEGIN
71 RETURN GET_SEGS('SQLGL'
72 ,'GL#'
73 ,P_COA_ID
74 ,CODE_COMBINATION_ID);
75 END;
76 END C_ACCOUNT_IDFORMULA;
77 FUNCTION C_RAW_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
78 ,RAW_COST IN NUMBER) RETURN VARCHAR2 IS
79 RET_MASK VARCHAR2(1000);
80 C_RAW_COST VARCHAR2(1000);
81 BEGIN
82 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
83 ,30);
84 C_RAW_COST := TO_CHAR(RAW_COST
85 ,RET_MASK);
86 RETURN (C_RAW_COST);
87 END C_RAW_COSTFORMULA;
88 FUNCTION C_BURDEN_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
89 ,BURDEN_COST IN NUMBER) RETURN VARCHAR2 IS
90 RET_MASK VARCHAR2(1000);
91 C_BURDEN_COST VARCHAR2(1000);
92 BEGIN
93 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
94 ,30);
95 C_BURDEN_COST := TO_CHAR(BURDEN_COST
96 ,RET_MASK);
97 RETURN (C_BURDEN_COST);
98 END C_BURDEN_COSTFORMULA;
99 FUNCTION C_TOTAL_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
100 ,TOTAL_COST IN NUMBER) RETURN VARCHAR2 IS
101 RET_MASK VARCHAR2(1000);
102 C_TOTAL_COST VARCHAR2(1000);
103 BEGIN
104 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
105 ,30);
106 C_TOTAL_COST := TO_CHAR(TOTAL_COST
107 ,RET_MASK);
108 RETURN (C_TOTAL_COST);
109 END C_TOTAL_COSTFORMULA;
110 FUNCTION MFG_RELATEDFORMULA(MANUFACTURING_RELATED IN VARCHAR2) RETURN VARCHAR2 IS
111 BEGIN
112 DECLARE
113 SOME_VAR VARCHAR2(40);
114 BEGIN
115 SELECT
116 MEANING
117 INTO SOME_VAR
118 FROM
119 FND_LOOKUPS
120 WHERE LOOKUP_CODE = MANUFACTURING_RELATED
121 AND LOOKUP_TYPE = 'YES_NO';
122 RETURN SOME_VAR;
123 EXCEPTION
124 WHEN NO_DATA_FOUND THEN
125 SELECT
126 MEANING
127 INTO SOME_VAR
128 FROM
129 PA_LOOKUPS
130 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
131 AND LOOKUP_TYPE = 'MESSAGE';
132 WHEN OTHERS THEN
133 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
134 END;
135 END MFG_RELATEDFORMULA;
136 FUNCTION CA_RAW_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
137 ,A_RAW_COST IN NUMBER) RETURN VARCHAR2 IS
138 RET_MASK VARCHAR2(1000);
139 CA_RAW_COST VARCHAR2(1000);
140 BEGIN
141 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
142 ,30);
143 CA_RAW_COST := TO_CHAR(A_RAW_COST
144 ,RET_MASK);
145 RETURN (CA_RAW_COST);
146 END CA_RAW_COSTFORMULA;
147 FUNCTION CA_BURDEN_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
148 ,A_BURDEN_COST IN NUMBER) RETURN VARCHAR2 IS
149 RET_MASK VARCHAR2(1000);
150 CA_BURDEN_COST VARCHAR2(1000);
151 BEGIN
152 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
153 ,30);
154 CA_BURDEN_COST := TO_CHAR(A_BURDEN_COST
155 ,RET_MASK);
156 RETURN (CA_BURDEN_COST);
157 END CA_BURDEN_COSTFORMULA;
158 FUNCTION CA_TOTAL_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
159 ,A_TOTAL_COST IN NUMBER) RETURN VARCHAR2 IS
160 RET_MASK VARCHAR2(1000);
161 CA_TOTAL_COST VARCHAR2(1000);
162 BEGIN
163 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
164 ,30);
165 CA_TOTAL_COST := TO_CHAR(A_TOTAL_COST
166 ,RET_MASK);
167 RETURN (CA_TOTAL_COST);
168 END CA_TOTAL_COSTFORMULA;
169 FUNCTION CP_RAW_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
170 ,P_RAW_COST IN NUMBER) RETURN VARCHAR2 IS
171 RET_MASK VARCHAR2(1000);
172 CP_RAW_COST VARCHAR2(1000);
173 BEGIN
174 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
175 ,30);
176 CP_RAW_COST := TO_CHAR(P_RAW_COST
177 ,RET_MASK);
178 RETURN (CP_RAW_COST);
179 END CP_RAW_COSTFORMULA;
180 FUNCTION CP_BURDEN_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
181 ,P_BURDEN_COST IN NUMBER) RETURN VARCHAR2 IS
182 RET_MASK VARCHAR2(1000);
183 CP_BURDEN_COST VARCHAR2(1000);
184 BEGIN
185 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
186 ,30);
187 CP_BURDEN_COST := TO_CHAR(P_BURDEN_COST
188 ,RET_MASK);
189 RETURN (CP_BURDEN_COST);
190 END CP_BURDEN_COSTFORMULA;
191 FUNCTION CP_TOTAL_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
192 ,P_TOTAL_COST IN NUMBER) RETURN VARCHAR2 IS
193 RET_MASK VARCHAR2(1000);
194 CP_TOTAL_COST VARCHAR2(1000);
195 BEGIN
196 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
197 ,30);
198 CP_TOTAL_COST := TO_CHAR(P_TOTAL_COST
199 ,RET_MASK);
200 RETURN (CP_TOTAL_COST);
201 END CP_TOTAL_COSTFORMULA;
202 FUNCTION CM_RAW_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
203 ,M_RAW_COST IN NUMBER) RETURN VARCHAR2 IS
204 RET_MASK VARCHAR2(1000);
205 CM_RAW_COST VARCHAR2(1000);
206 BEGIN
207 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
208 ,30);
209 CM_RAW_COST := TO_CHAR(M_RAW_COST
210 ,RET_MASK);
211 RETURN (CM_RAW_COST);
212 END CM_RAW_COSTFORMULA;
213 FUNCTION CM_BURDEN_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
214 ,M_BURDEN_COST IN NUMBER) RETURN VARCHAR2 IS
215 RET_MASK VARCHAR2(1000);
216 CM_BURDEN_COST VARCHAR2(1000);
217 BEGIN
218 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
219 ,30);
220 CM_BURDEN_COST := TO_CHAR(M_BURDEN_COST
221 ,RET_MASK);
222 RETURN (CM_BURDEN_COST);
223 END CM_BURDEN_COSTFORMULA;
224 FUNCTION CM_TOTAL_COSTFORMULA(CF_ACCT_CURRENCY_CODE IN VARCHAR2
225 ,M_TOTAL_COST IN NUMBER) RETURN VARCHAR2 IS
226 RET_MASK VARCHAR2(1000);
227 CM_TOTAL_COST VARCHAR2(1000);
228 BEGIN
229 RET_MASK := FND_CURRENCY.GET_FORMAT_MASK(CF_ACCT_CURRENCY_CODE
230 ,30);
231 CM_TOTAL_COST := TO_CHAR(M_TOTAL_COST
232 ,RET_MASK);
233 RETURN (CM_TOTAL_COST);
234 END CM_TOTAL_COSTFORMULA;
235 FUNCTION C_SYS_LINKAGEFORMULA(SYSTEM_LINKAGE IN VARCHAR2) RETURN VARCHAR2 IS
236 BEGIN
237 RETURN SUBSTRB(SYSTEM_LINKAGE
238 ,1
239 ,40);
240 END C_SYS_LINKAGEFORMULA;
241 FUNCTION CF_TO_DATEFORMULA RETURN DATE IS
242 BEGIN
243 RETURN P_TO_GL_DATE;
244 END CF_TO_DATEFORMULA;
245 FUNCTION CF_FROM_DATEFORMULA RETURN DATE IS
246 BEGIN
247 RETURN P_FROM_GL_DATE;
248 END CF_FROM_DATEFORMULA;
249 FUNCTION CF_ACCT_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
250 L_CURR_CODE VARCHAR2(30);
251 BEGIN
252 SELECT
253 CURRENCY_CODE
254 INTO L_CURR_CODE
255 FROM
256 GL_SETS_OF_BOOKS
257 WHERE SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
258 RETURN (L_CURR_CODE);
259 END CF_ACCT_CURRENCY_CODEFORMULA;
260 FUNCTION AFTERREPORT RETURN BOOLEAN IS
261 BEGIN
262 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
263 RETURN (TRUE);
264 END AFTERREPORT;
265 FUNCTION AFTERPFORM RETURN BOOLEAN IS
266 BEGIN
267 RETURN (TRUE);
268 END AFTERPFORM;
269 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
270 BEGIN
271 RETURN C_COMPANY_NAME_HEADER;
272 END C_COMPANY_NAME_HEADER_P;
273 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
274 BEGIN
275 RETURN C_NO_DATA_FOUND;
276 END C_NO_DATA_FOUND_P;
277 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
278 BEGIN
279 RETURN C_DUMMY_DATA;
280 END C_DUMMY_DATA_P;
281 FUNCTION C_WHERE_P RETURN VARCHAR2 IS
282 BEGIN
283 RETURN C_WHERE;
284 END C_WHERE_P;
285 FUNCTION C_ACCOUNT_DESC1_P RETURN VARCHAR2 IS
286 BEGIN
287 RETURN C_ACCOUNT_DESC1;
288 END C_ACCOUNT_DESC1_P;
289 FUNCTION GET_CURRENCY_CODE RETURN VARCHAR2 IS
290 X0 VARCHAR2(2000);
291 BEGIN
292 /* STPROC.INIT('begin :X0 := PA_CURRENCY.GET_CURRENCY_CODE; end;');
293 STPROC.BIND_O(X0);
294 STPROC.EXECUTE;
295 STPROC.RETRIEVE(1
296 ,X0);*/
297 RETURN X0;
298 END GET_CURRENCY_CODE;
299 FUNCTION ROUND_CURRENCY_AMT(X_AMOUNT IN NUMBER) RETURN NUMBER IS
300 X0 NUMBER;
301 BEGIN
302 /*STPROC.INIT('begin :X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(:X_AMOUNT); end;');
303 STPROC.BIND_O(X0);
304 STPROC.BIND_I(X_AMOUNT);
305 STPROC.EXECUTE;
306 STPROC.RETRIEVE(1
307 ,X0);*/
308 RETURN X0;
309 END ROUND_CURRENCY_AMT;
310 FUNCTION CURRENCY_FMT_MASK(X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
311 X0 VARCHAR2(2000);
312 BEGIN
313 /*STPROC.INIT('begin :X0 := PA_CURRENCY.CURRENCY_FMT_MASK(:X_LENGTH); end;');
314 STPROC.BIND_O(X0);
315 STPROC.BIND_I(X_LENGTH);
316 STPROC.EXECUTE;
317 STPROC.RETRIEVE(1
318 ,X0);*/
319 RETURN X0;
320 END CURRENCY_FMT_MASK;
321 FUNCTION RPT_CURRENCY_FMT_MASK(X_ORG_ID IN NUMBER
322 ,X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
323 X0 VARCHAR2(2000);
324 BEGIN
325 /*STPROC.INIT('begin :X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(:X_ORG_ID, :X_LENGTH); end;');
326 STPROC.BIND_O(X0);
327 STPROC.BIND_I(X_ORG_ID);
328 STPROC.BIND_I(X_LENGTH);
329 STPROC.EXECUTE;
330 STPROC.RETRIEVE(1
331 ,X0);*/
332 RETURN X0;
333 END RPT_CURRENCY_FMT_MASK;
334 FUNCTION GET_DELIMITER(APPLICATION_SHORT_NAME IN VARCHAR2
335 ,KEY_FLEX_CODE IN VARCHAR2
336 ,STRUCTURE_NUMBER IN NUMBER) RETURN VARCHAR2 IS
337 X0 VARCHAR2(2000);
338 BEGIN
339 /*STPROC.INIT('begin :X0 := FND_FLEX_EXT.GET_DELIMITER(:APPLICATION_SHORT_NAME, :KEY_FLEX_CODE, :STRUCTURE_NUMBER); end;');
340 STPROC.BIND_O(X0);
341 STPROC.BIND_I(APPLICATION_SHORT_NAME);
342 STPROC.BIND_I(KEY_FLEX_CODE);
343 STPROC.BIND_I(STRUCTURE_NUMBER);
344 STPROC.EXECUTE;
345 STPROC.RETRIEVE(1
346 ,X0);*/
347 RETURN X0;
348 END GET_DELIMITER;
349 FUNCTION GET_CCID(APPLICATION_SHORT_NAME IN VARCHAR2
350 ,KEY_FLEX_CODE IN VARCHAR2
351 ,STRUCTURE_NUMBER IN NUMBER
352 ,VALIDATION_DATE IN VARCHAR2
353 ,CONCATENATED_SEGMENTS IN VARCHAR2) RETURN NUMBER IS
354 X0 NUMBER;
355 BEGIN
356 /*STPROC.INIT('begin :X0 := FND_FLEX_EXT.GET_CCID(:APPLICATION_SHORT_NAME, :KEY_FLEX_CODE, :STRUCTURE_NUMBER, :VALIDATION_DATE, :CONCATENATED_SEGMENTS); end;');
357 STPROC.BIND_O(X0);
358 STPROC.BIND_I(APPLICATION_SHORT_NAME);
359 STPROC.BIND_I(KEY_FLEX_CODE);
360 STPROC.BIND_I(STRUCTURE_NUMBER);
361 STPROC.BIND_I(VALIDATION_DATE);
362 STPROC.BIND_I(CONCATENATED_SEGMENTS);
363 STPROC.EXECUTE;
364 STPROC.RETRIEVE(1
365 ,X0);*/
366 RETURN X0;
367 END GET_CCID;
368 FUNCTION GET_SEGS(APPLICATION_SHORT_NAME IN VARCHAR2
369 ,KEY_FLEX_CODE IN VARCHAR2
370 ,STRUCTURE_NUMBER IN NUMBER
371 ,COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
372 X0 VARCHAR2(2000);
373 BEGIN
374 /*STPROC.INIT('begin :X0 := FND_FLEX_EXT.GET_SEGS(:APPLICATION_SHORT_NAME, :KEY_FLEX_CODE, :STRUCTURE_NUMBER, :COMBINATION_ID); end;');
375 STPROC.BIND_O(X0);
376 STPROC.BIND_I(APPLICATION_SHORT_NAME);
377 STPROC.BIND_I(KEY_FLEX_CODE);
378 STPROC.BIND_I(STRUCTURE_NUMBER);
379 STPROC.BIND_I(COMBINATION_ID);
380 STPROC.EXECUTE;
381 STPROC.RETRIEVE(1
382 ,X0);*/
383 X0 := FND_FLEX_EXT.GET_SEGS(APPLICATION_SHORT_NAME, KEY_FLEX_CODE, STRUCTURE_NUMBER, COMBINATION_ID);
384 RETURN X0;
385 END GET_SEGS;
386 END PA_PAXMGSLS_XMLP_PKG;