DBA Data[Home] [Help]

PACKAGE BODY: APPS.WIP_WIPUTVAL_XMLP_PKG

Source


1 PACKAGE BODY WIP_WIPUTVAL_XMLP_PKG AS
2 /* $Header: WIPUTVALB.pls 120.2 2008/02/28 08:11:54 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   cursor c1 is
5   SELECT fifst.id_flex_num
6   FROM fnd_id_flex_structures fifst
7   WHERE fifst.application_id = 401
8   AND fifst.id_flex_code = 'MSTK'
9   AND fifst.enabled_flag = 'Y'
10   AND fifst.freeze_flex_definition_flag = 'Y'
11  ORDER BY fifst.id_flex_num;
12 
13 
14   BEGIN
15     P_EXCHANGE_RATE := FND_NUMBER.CANONICAL_TO_NUMBER(P_EXCHANGE_RATE_CHAR);
16     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
18     /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK"
19                   APPL_SHORT_NAME="INV" OUTPUT=":P_ASSY_FLEX"
20                   TABLEALIAS="MSI"
21                   MODE="SELECT" DISPLAY="ALL"')*/NULL;
22     IF (P_FROM_ASSEMBLY IS NOT NULL) THEN
23       IF (P_TO_ASSEMBLY IS NOT NULL) THEN
24         NULL;
25       ELSE
26         NULL;
27       END IF;
28     ELSE
29       IF (P_TO_ASSEMBLY IS NOT NULL) THEN
30         NULL;
31       END IF;
32       IF (P_PROJECT_ID IS NOT NULL) THEN
33         P_PROJECT_WHERE := 'wdj.PROJECT_ID =' || P_PROJECT_ID;
34       END IF;
35     END IF;
36 
37     open c1;
38     fetch c1 into lp_struct_num;
39     close c1;
40     RETURN (TRUE);
41     RETURN (TRUE);
42   END BEFOREREPORT;
43 
44   FUNCTION C_DJ_PERIOD_ACTIVITYFORMULA(C_DJ_CI_PTD IN NUMBER
45                                       ,C_DJ_CR_PTD IN NUMBER
46                                       ,C_DJ_VR_PTD IN NUMBER) RETURN NUMBER IS
47   BEGIN
48     RETURN (C_DJ_CI_PTD - C_DJ_CR_PTD - C_DJ_VR_PTD);
49   END C_DJ_PERIOD_ACTIVITYFORMULA;
50 
51   FUNCTION C_DJ_ENDING_BALANCEFORMULA(C_DJ_CI_CUM IN NUMBER
52                                      ,C_DJ_CR_CUM IN NUMBER
53                                      ,C_DJ_VR_CUM IN NUMBER) RETURN NUMBER IS
54   BEGIN
55     RETURN (C_DJ_CI_CUM - C_DJ_CR_CUM - C_DJ_VR_CUM);
56   END C_DJ_ENDING_BALANCEFORMULA;
57 
58   FUNCTION CLOSED_JOBS(C_PERIOD_START_DATE IN VARCHAR2
59                       ,C_PERIOD_CLOSE_DATE IN VARCHAR2) RETURN CHARACTER IS
60     TEMP VARCHAR2(350) := ' ';
61   BEGIN
62     IF (P_CLOSED_JOBS = 1) THEN
63       TEMP := 'and nvl(trunc(wdj.date_closed),to_date(''' || TO_CHAR(
64       to_date(substr(C_PERIOD_START_DATE,1,10), 'YYYY-MM-DD')
65                      ,'YYYYMMDD') || ''',''YYYYMMDD'')) >= to_date(''' || TO_CHAR(
66                      to_date(substr(C_PERIOD_START_DATE,1,10), 'YYYY-MM-DD')
67                      ,'YYYYMMDD') || ''',''YYYYMMDD'')';
68     ELSE
69       TEMP := 'and nvl(trunc(wdj.date_closed),to_date(''' || TO_CHAR(
70       to_date(substr(C_PERIOD_CLOSE_DATE,1,10), 'YYYY-MM-DD')
71                      ,'YYYYMMDD') || ''',''YYYYMMDD'')+1) > to_date(''' || TO_CHAR(
72                      to_date(substr(C_PERIOD_CLOSE_DATE,1,10), 'YYYY-MM-DD')
73                      ,'YYYYMMDD') || ''',''YYYYMMDD'')';
74     END IF;
75     RETURN (TEMP);
76   END CLOSED_JOBS;
77 
78   FUNCTION C_LIMIT_TYPESFORMULA RETURN VARCHAR2 IS
79   BEGIN
80     IF (P_CLASS_TYPE IS NULL) THEN
81       RETURN (' ');
82     ELSE
83       RETURN ('and wpb.class_type = ' || TO_CHAR(P_CLASS_TYPE));
84     END IF;
85     RETURN ' ';
86   END C_LIMIT_TYPESFORMULA;
87 
88   FUNCTION LIMIT_CLASSES RETURN CHARACTER IS
89     LIMIT_CLASSES VARCHAR2(80);
90   BEGIN
91     IF (P_FROM_CLASS IS NOT NULL) THEN
92       IF (P_TO_CLASS IS NOT NULL) THEN
93         LIMIT_CLASSES := ' AND WDJ.CLASS_CODE BETWEEN ''' || P_FROM_CLASS || ''' AND ''' || P_TO_CLASS || '''';
94       ELSE
95         LIMIT_CLASSES := ' AND WDJ.CLASS_CODE  >= ''' || P_FROM_CLASS || '''';
96       END IF;
97     ELSE
98       IF (P_TO_CLASS IS NOT NULL) THEN
99         LIMIT_CLASSES := ' AND WDJ.CLASS_CODE <= ''' || P_TO_CLASS || '''';
100       ELSE
101         LIMIT_CLASSES := ' ';
102       END IF;
103     END IF;
104     RETURN (LIMIT_CLASSES);
105   END LIMIT_CLASSES;
106 
107   FUNCTION LIMIT_JOBS RETURN CHARACTER IS
108     LIMIT_JOBS VARCHAR2(240);
109   BEGIN
110     IF (P_FROM_JOB IS NOT NULL) THEN
111       IF (P_TO_JOB IS NOT NULL) THEN
112         LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME BETWEEN ''' || P_FROM_JOB || ''' AND ''' || P_TO_JOB || '''';
113       ELSE
114         LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME  >= ''' || P_FROM_JOB || '''';
115       END IF;
116     ELSE
117       IF (P_TO_JOB IS NOT NULL) THEN
118         LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME <= ''' || P_TO_JOB || '''';
119       ELSE
120         LIMIT_JOBS := ' ';
121       END IF;
122     END IF;
123     RETURN (LIMIT_JOBS);
124   END LIMIT_JOBS;
125 
126   FUNCTION LIMIT_CLASSES_RS RETURN CHARACTER IS
127     LIMIT_CLASSES VARCHAR2(80);
128   BEGIN
129     IF (P_FROM_CLASS IS NOT NULL) THEN
130       IF (P_TO_CLASS IS NOT NULL) THEN
131         LIMIT_CLASSES := ' AND WRI.CLASS_CODE BETWEEN ''' || P_FROM_CLASS || ''' AND ''' || P_TO_CLASS || '''';
132       ELSE
133         LIMIT_CLASSES := ' AND WRI.CLASS_CODE  >= ''' || P_FROM_CLASS || '''';
134       END IF;
135     ELSE
136       IF (P_TO_CLASS IS NOT NULL) THEN
137         LIMIT_CLASSES := ' AND WRI.CLASS_CODE <= ''' || P_TO_CLASS || '''';
138       ELSE
139         LIMIT_CLASSES := ' ';
140       END IF;
141     END IF;
142     RETURN (LIMIT_CLASSES);
143   END LIMIT_CLASSES_RS;
144 
145   FUNCTION C_ACCT_PERIOD_ACTFORMULA(P_PTD_OR_CUM IN VARCHAR2
146                                    ,C_ACCT_CI_PTD IN NUMBER
147                                    ,C_ACCT_CR_PTD IN NUMBER
148                                    ,C_ACCT_EL_VAR_PTD IN NUMBER
149                                    ,C_ACCT_CI_CUM IN NUMBER
150                                    ,C_ACCT_CR_CUM IN NUMBER
151                                    ,C_ACCT_EL_VAR_CUM IN NUMBER) RETURN NUMBER IS
152   BEGIN
153     IF (P_PTD_OR_CUM = 'PTD') THEN
154       RETURN (C_ACCT_CI_PTD - C_ACCT_CR_PTD - C_ACCT_EL_VAR_PTD);
155     ELSE
156       RETURN (C_ACCT_CI_CUM - C_ACCT_CR_CUM - C_ACCT_EL_VAR_CUM);
157     END IF;
158     RETURN NULL;
159   END C_ACCT_PERIOD_ACTFORMULA;
160 
161   FUNCTION C_SUBTITLEFORMULA(REP_TYPE IN VARCHAR2
162                             ,ORG_CURRENCY IN VARCHAR2) RETURN VARCHAR2 IS
163   BEGIN
164     BEGIN
165       /*SRW.REFERENCE(REP_TYPE)*/NULL;
166       /*SRW.REFERENCE(ORG_CURRENCY)*/NULL;
167       IF ((ORG_CURRENCY = P_CURRENCY_CODE) AND (P_EXCHANGE_RATE = 1)) THEN
168         RETURN (REP_TYPE || ' (' || P_CURRENCY_CODE || ')');
169       ELSE
170         RETURN (REP_TYPE || ' (' || P_CURRENCY_CODE || ' @ ' || TO_CHAR(ROUND(P_EXCHANGE_RATE
171                             ,6)) || ' ' || ORG_CURRENCY || ')');
172       END IF;
173     END;
174     RETURN NULL;
175   END C_SUBTITLEFORMULA;
176 
177   FUNCTION C_WIP_PERIOD_ACTFORMULA(P_PTD_OR_CUM IN VARCHAR2
178                                   ,C_WIP_CI_PTD IN NUMBER
179                                   ,C_WIP_CR_PTD IN NUMBER
180                                   ,C_WIP_EL_VAR_PTD IN NUMBER
181                                   ,C_WIP_CI_CUM IN NUMBER
182                                   ,C_WIP_CR_CUM IN NUMBER
183                                   ,C_WIP_EL_VAR_CUM IN NUMBER) RETURN NUMBER IS
184   BEGIN
185     IF (P_PTD_OR_CUM = 'PTD') THEN
186       RETURN (C_WIP_CI_PTD - C_WIP_CR_PTD - C_WIP_EL_VAR_PTD);
187     ELSE
188       RETURN (C_WIP_CI_CUM - C_WIP_CR_CUM - C_WIP_EL_VAR_CUM);
189     END IF;
190     RETURN NULL;
191   END C_WIP_PERIOD_ACTFORMULA;
192 
193   FUNCTION C_FLEXWHEREFORMULA RETURN VARCHAR2 IS
194   BEGIN
195     IF (P_FLEXWHERE IS NULL) THEN
196       RETURN (' ');
197     ELSE
198       RETURN ('AND ' || P_FLEXWHERE);
199     END IF;
200     RETURN ' ';
201   END C_FLEXWHEREFORMULA;
202 
203   FUNCTION C_DJ_CI_PTDFORMULA(C_DJ_LAST_DATE IN NUMBER
204                              ,C_PERIOD_CLOSE_DATE IN VARCHAR2
205                              ,C_DJ_CI_LAST IN NUMBER) RETURN NUMBER IS
206   BEGIN
207     IF (C_DJ_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
208       RETURN (C_DJ_CI_LAST);
209     ELSE
210       RETURN (0);
211     END IF;
212     RETURN NULL;
213   END C_DJ_CI_PTDFORMULA;
214 
215   FUNCTION C_DJ_CR_PTDFORMULA(C_DJ_LAST_DATE IN NUMBER
216                              ,C_PERIOD_CLOSE_DATE IN VARCHAR2
217                              ,C_DJ_CR_LAST IN NUMBER) RETURN NUMBER IS
218   BEGIN
219     IF (C_DJ_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
220       RETURN (C_DJ_CR_LAST);
221     ELSE
222       RETURN (0);
223     END IF;
224     RETURN NULL;
225   END C_DJ_CR_PTDFORMULA;
226 
227   FUNCTION C_DJ_VR_PTDFORMULA(C_DJ_LAST_DATE IN NUMBER
228                              ,C_PERIOD_CLOSE_DATE IN VARCHAR2
229                              ,C_DJ_VR_LAST IN NUMBER) RETURN NUMBER IS
230   BEGIN
231     IF (C_DJ_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
232       RETURN (C_DJ_VR_LAST);
233     ELSE
234       RETURN (0);
235     END IF;
236     RETURN NULL;
237   END C_DJ_VR_PTDFORMULA;
238 
239   FUNCTION C_ACCT_CI_PTDFORMULA(C_ACCT_LAST_DATE IN NUMBER
240                                ,C_PERIOD_CLOSE_DATE IN VARCHAR2
241                                ,C_ACCT_CI_LAST IN NUMBER) RETURN NUMBER IS
242   BEGIN
243     IF (C_ACCT_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
244       RETURN (C_ACCT_CI_LAST);
245     ELSE
246       RETURN (0);
247     END IF;
248     RETURN NULL;
249   END C_ACCT_CI_PTDFORMULA;
250 
251   FUNCTION C_ACCT_CR_PTDFORMULA(C_ACCT_LAST_DATE IN NUMBER
252                                ,C_PERIOD_CLOSE_DATE IN VARCHAR2
253                                ,C_ACCT_CR_LAST IN NUMBER) RETURN NUMBER IS
254   BEGIN
255     IF (C_ACCT_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
256       RETURN (C_ACCT_CR_LAST);
257     ELSE
258       RETURN (0);
259     END IF;
260     RETURN NULL;
261   END C_ACCT_CR_PTDFORMULA;
262 
263   FUNCTION C_ACCT_EL_VAR_PTDFORMULA(C_ACCT_LAST_DATE IN NUMBER
264                                    ,C_PERIOD_CLOSE_DATE IN VARCHAR2
265                                    ,C_ACCT_EL_VAR_LAST IN NUMBER) RETURN NUMBER IS
266   BEGIN
267     IF (C_ACCT_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
268       RETURN (C_ACCT_EL_VAR_LAST);
269     ELSE
270       RETURN (0);
271     END IF;
272     RETURN NULL;
273   END C_ACCT_EL_VAR_PTDFORMULA;
274 
275   FUNCTION C_ACCT_SING_VAR_PTDFORMULA(C_ACCT_LAST_DATE IN NUMBER
276                                      ,C_PERIOD_CLOSE_DATE IN VARCHAR2
277                                      ,C_ACCT_SING_LAST IN NUMBER) RETURN NUMBER IS
278   BEGIN
279     IF (C_ACCT_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
280       RETURN (C_ACCT_SING_LAST);
281     ELSE
282       RETURN (0);
283     END IF;
284     RETURN NULL;
285   END C_ACCT_SING_VAR_PTDFORMULA;
286 
287   FUNCTION C_WIP_CI_PTDFORMULA(C_WIP_LAST_DATE IN NUMBER
288                               ,C_PERIOD_CLOSE_DATE IN VARCHAR2
289                               ,C_WIP_CI_LAST IN NUMBER) RETURN NUMBER IS
290   BEGIN
291     IF (C_WIP_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
292       RETURN (C_WIP_CI_LAST);
293     ELSE
294       RETURN (0);
295     END IF;
296     RETURN NULL;
297   END C_WIP_CI_PTDFORMULA;
298 
299   FUNCTION C_WIP_CR_PTDFORMULA(C_WIP_LAST_DATE IN NUMBER
300                               ,C_PERIOD_CLOSE_DATE IN VARCHAR2
301                               ,C_WIP_CR_LAST IN NUMBER) RETURN NUMBER IS
302   BEGIN
303     IF (C_WIP_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
304       RETURN (C_WIP_CR_LAST);
305     ELSE
306       RETURN (0);
307     END IF;
308     RETURN NULL;
309   END C_WIP_CR_PTDFORMULA;
310 
311   FUNCTION C_WIP_EL_VAR_PTDFORMULA(C_WIP_LAST_DATE IN NUMBER
312                                   ,C_PERIOD_CLOSE_DATE IN VARCHAR2
313                                   ,C_WIP_EL_VAR_LAST IN NUMBER) RETURN NUMBER IS
314   BEGIN
315     IF (C_WIP_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
316       RETURN (C_WIP_EL_VAR_LAST);
317     ELSE
318       RETURN (0);
319     END IF;
320     RETURN NULL;
321   END C_WIP_EL_VAR_PTDFORMULA;
322 
323   FUNCTION C_WIP_SING_PTDFORMULA(C_WIP_LAST_DATE IN NUMBER
324                                 ,C_PERIOD_CLOSE_DATE IN VARCHAR2
325                                 ,C_WIP_SING_LAST IN NUMBER) RETURN NUMBER IS
326   BEGIN
327     IF (C_WIP_LAST_DATE = C_PERIOD_CLOSE_DATE) THEN
328       RETURN (C_WIP_SING_LAST);
329     ELSE
330       RETURN (0);
331     END IF;
332     RETURN NULL;
333   END C_WIP_SING_PTDFORMULA;
334 
335   FUNCTION C_DJ_CIFORMULA(P_PTD_OR_CUM IN VARCHAR2
336                          ,C_DJ_CI_PTD IN NUMBER
337                          ,C_DJ_CI_CUM IN NUMBER) RETURN NUMBER IS
338   BEGIN
339     IF (P_PTD_OR_CUM = 'PTD') THEN
340       RETURN (C_DJ_CI_PTD);
341     ELSE
342       RETURN (C_DJ_CI_CUM);
343     END IF;
344     RETURN NULL;
345   END C_DJ_CIFORMULA;
346 
347   FUNCTION C_DJ_CRFORMULA(P_PTD_OR_CUM IN VARCHAR2
348                          ,C_DJ_CR_PTD IN NUMBER
349                          ,C_DJ_CR_CUM IN NUMBER) RETURN NUMBER IS
350   BEGIN
351     IF (P_PTD_OR_CUM = 'PTD') THEN
352       RETURN (C_DJ_CR_PTD);
353     ELSE
354       RETURN (C_DJ_CR_CUM);
355     END IF;
356     RETURN NULL;
357   END C_DJ_CRFORMULA;
358 
359   FUNCTION C_DJ_VRFORMULA(P_PTD_OR_CUM IN VARCHAR2
360                          ,C_DJ_VR_PTD IN NUMBER
361                          ,C_DJ_VR_CUM IN NUMBER) RETURN NUMBER IS
362   BEGIN
363     IF (P_PTD_OR_CUM = 'PTD') THEN
364       RETURN (C_DJ_VR_PTD);
365     ELSE
366       RETURN (C_DJ_VR_CUM);
367     END IF;
368     RETURN NULL;
369   END C_DJ_VRFORMULA;
370 
371   FUNCTION C_ACCT_CIFORMULA(P_PTD_OR_CUM IN VARCHAR2
372                            ,C_ACCT_CI_PTD IN NUMBER
373                            ,C_ACCT_CI_CUM IN NUMBER) RETURN NUMBER IS
374   BEGIN
375     IF (P_PTD_OR_CUM = 'PTD') THEN
376       RETURN (C_ACCT_CI_PTD);
377     ELSE
378       RETURN (C_ACCT_CI_CUM);
379     END IF;
380     RETURN NULL;
381   END C_ACCT_CIFORMULA;
382 
383   FUNCTION C_ACCT_CRFORMULA(P_PTD_OR_CUM IN VARCHAR2
384                            ,C_ACCT_CR_PTD IN NUMBER
385                            ,C_ACCT_CR_CUM IN NUMBER) RETURN NUMBER IS
386   BEGIN
387     IF (P_PTD_OR_CUM = 'PTD') THEN
388       RETURN (C_ACCT_CR_PTD);
389     ELSE
390       RETURN (C_ACCT_CR_CUM);
391     END IF;
392     RETURN NULL;
393   END C_ACCT_CRFORMULA;
394 
395   FUNCTION C_ACCT_EL_VARFORMULA(P_PTD_OR_CUM IN VARCHAR2
396                                ,C_ACCT_EL_VAR_PTD IN NUMBER
397                                ,C_ACCT_EL_VAR_CUM IN NUMBER) RETURN NUMBER IS
398   BEGIN
399     IF (P_PTD_OR_CUM = 'PTD') THEN
400       RETURN (C_ACCT_EL_VAR_PTD);
401     ELSE
402       RETURN (C_ACCT_EL_VAR_CUM);
403     END IF;
404     RETURN NULL;
405   END C_ACCT_EL_VARFORMULA;
406 
407   FUNCTION C_ACCT_SINGFORMULA(P_PTD_OR_CUM IN VARCHAR2
408                              ,C_ACCT_SING_VAR_PTD IN NUMBER
409                              ,C_ACCT_SING_VAR_CUM IN NUMBER) RETURN NUMBER IS
410   BEGIN
411     IF (P_PTD_OR_CUM = 'PTD') THEN
412       RETURN (C_ACCT_SING_VAR_PTD);
413     ELSE
414       RETURN (C_ACCT_SING_VAR_CUM);
415     END IF;
416     RETURN NULL;
417   END C_ACCT_SINGFORMULA;
418 
419   FUNCTION C_WIP_CIFORMULA(P_PTD_OR_CUM IN VARCHAR2
420                           ,C_WIP_CI_PTD IN NUMBER
421                           ,C_WIP_CI_CUM IN NUMBER) RETURN NUMBER IS
422   BEGIN
423     IF (P_PTD_OR_CUM = 'PTD') THEN
424       RETURN (C_WIP_CI_PTD);
425     ELSE
426       RETURN (C_WIP_CI_CUM);
427     END IF;
428     RETURN NULL;
429   END C_WIP_CIFORMULA;
430 
431   FUNCTION C_WIP_CRFORMULA(P_PTD_OR_CUM IN VARCHAR2
432                           ,C_WIP_CR_PTD IN NUMBER
433                           ,C_WIP_CR_CUM IN NUMBER) RETURN NUMBER IS
434   BEGIN
435     IF (P_PTD_OR_CUM = 'PTD') THEN
436       RETURN (C_WIP_CR_PTD);
437     ELSE
438       RETURN (C_WIP_CR_CUM);
439     END IF;
440     RETURN NULL;
441   END C_WIP_CRFORMULA;
442 
443   FUNCTION C_WIP_EL_VARFORMULA(P_PTD_OR_CUM IN VARCHAR2
444                               ,C_WIP_EL_VAR_PTD IN NUMBER
445                               ,C_WIP_EL_VAR_CUM IN NUMBER) RETURN NUMBER IS
446   BEGIN
447     IF (P_PTD_OR_CUM = 'PTD') THEN
448       RETURN (C_WIP_EL_VAR_PTD);
449     ELSE
450       RETURN (C_WIP_EL_VAR_CUM);
451     END IF;
452     RETURN NULL;
453   END C_WIP_EL_VARFORMULA;
454 
455   FUNCTION C_WIP_SINGFORMULA(P_PTD_OR_CUM IN VARCHAR2
456                             ,C_WIP_SING_PTD IN NUMBER
457                             ,C_WIP_SING_CUM IN NUMBER) RETURN NUMBER IS
458   BEGIN
459     IF (P_PTD_OR_CUM = 'PTD') THEN
460       RETURN (C_WIP_SING_PTD);
461     ELSE
462       RETURN (C_WIP_SING_CUM);
463     END IF;
464     RETURN NULL;
465   END C_WIP_SINGFORMULA;
466 
467   FUNCTION P_PTD_OR_CUMFORMULA RETURN VARCHAR2 IS
468   BEGIN
469     IF (P_REPORT_TYPE = 1) THEN
470       RETURN ('PTD');
471     ELSE
472       RETURN ('CUM');
473     END IF;
474     RETURN NULL;
475   END P_PTD_OR_CUMFORMULA;
476 
477   FUNCTION AFTERREPORT RETURN BOOLEAN IS
478   BEGIN
479     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
480     RETURN (TRUE);
481   END AFTERREPORT;
482 
483   FUNCTION C_ACCT_SORTFORMULA(C_ACCT_SORT IN VARCHAR2) RETURN VARCHAR2 IS
484   BEGIN
485     RETURN (C_ACCT_SORT);
486   END C_ACCT_SORTFORMULA;
487 
488   FUNCTION C_WIP_ACCT_SORTFORMULA(C_WIP_ACCT_SORT IN VARCHAR2) RETURN VARCHAR2 IS
489   BEGIN
490     RETURN (C_WIP_ACCT_SORT);
491   END C_WIP_ACCT_SORTFORMULA;
492 
493   FUNCTION AFTERPFORM RETURN BOOLEAN IS
494   BEGIN
495     RETURN (TRUE);
496   END AFTERPFORM;
497 
498 END WIP_WIPUTVAL_XMLP_PKG;
499