DBA Data[Home] [Help]

PACKAGE BODY: APPS.GMF_CMRGLR_XMLP_PKG

Source


1 PACKAGE BODY GMF_CMRGLR_XMLP_PKG AS
2 /* $Header: CMRGLRB.pls 120.0 2007/12/24 13:28:08 nchinnam noship $ */
3   FUNCTION ORGANIZATIONCFFORMULA RETURN VARCHAR2 IS
4   BEGIN
5     /*SRW.REFERENCE(ORGANIZATIONCP)*/NULL;
6     IF FROM_ORGN IS NOT NULL AND TO_ORGN IS NOT NULL THEN
7       ORGANIZATIONCP := ' and mp.organization_code >= ''' || FROM_ORGN || ''' and mp.organization_code <= ''' || TO_ORGN || '''';
8     ELSIF FROM_ORGN IS NULL AND TO_ORGN IS NULL THEN
9       ORGANIZATIONCP :=' ';
10       FROM_ORGN := SY_ALL;
11       TO_ORGN := SY_ALL;
12     ELSIF FROM_ORGN IS NOT NULL AND TO_ORGN IS NULL THEN
13       ORGANIZATIONCP := ' and  mp.organization_code >= ''' || FROM_ORGN || '''';
14       TO_ORGN := SY_ALL;
15     ELSIF FROM_ORGN IS NULL AND TO_ORGN IS NOT NULL THEN
16       ORGANIZATIONCP := ' and mp.organization_code <= ''' || TO_ORGN || '''';
17       FROM_ORGN := SY_ALL;
18     END IF;
19     RETURN NULL;
20   END ORGANIZATIONCFFORMULA;
21   FUNCTION ORGANIZATIONCPFORMULA(ORGANIZATIONCF IN VARCHAR2) RETURN VARCHAR2 IS
22   BEGIN
23     /*SRW.REFERENCE(ORGANIZATIONCF)*/NULL;
24     RETURN NULL;
25   END ORGANIZATIONCPFORMULA;
26   FUNCTION REPORT_TYPECPFORMULA(REPORT_TYPECF IN VARCHAR2) RETURN VARCHAR2 IS
27   BEGIN
28     /*SRW.REFERENCE(REPORT_TYPECF)*/NULL;
29     RETURN NULL;
30   END REPORT_TYPECPFORMULA;
31   FUNCTION REPORT_TYPECFFORMULA RETURN VARCHAR2 IS
32   BEGIN
33     /*SRW.REFERENCE(REPORT_TYPECP)*/NULL;
34     IF REPORT_TYPE = '0' OR REPORT_TYPE = '1' THEN
35       REPORT_TYPECP := 'and cst.acctg_cost <= 0 ';
36     ELSE
37       REPORT_TYPECP :=' ';
38     END IF;
39     RETURN NULL;
40   END REPORT_TYPECFFORMULA;
41   FUNCTION ITEMCPFORMULA(ITEMCF IN VARCHAR2) RETURN VARCHAR2 IS
42   BEGIN
43     /*SRW.REFERENCE(ITEMCF)*/NULL;
44     RETURN NULL;
45   END ITEMCPFORMULA;
46   FUNCTION ITEMCFFORMULA RETURN VARCHAR2 IS
47   BEGIN
48     /*SRW.REFERENCE(FROM_COST_CATEGORY)*/NULL;
49     /*SRW.REFERENCE(TO_COST_CATEGORY)*/NULL;
50     IF FROM_ITEM IS NOT NULL AND TO_ITEM IS NOT NULL THEN
51       ITEMCP := ' and ic.item_number >= ''' || FROM_ITEM || '''
52                                 and ic.item_number <= ''' || TO_ITEM || '''';
53     ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
54       ITEMCP :=' ';
55       IF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NULL THEN
56         FROM_ITEM := SY_ALL;
57         TO_ITEM := SY_ALL;
58       END IF;
59     ELSIF FROM_ITEM IS NOT NULL AND TO_ITEM IS NULL THEN
60       ITEMCP := ' and ic.item_number >= ''' || FROM_ITEM || '''';
61       IF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NULL THEN
62         TO_ITEM := SY_ALL;
63       END IF;
64     ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NOT NULL THEN
65       ITEMCP := ' and ic.item_number <= ''' || TO_ITEM || '''';
66       IF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NULL THEN
67         FROM_ITEM := SY_ALL;
68       END IF;
69     END IF;
70     RETURN NULL;
71   END ITEMCFFORMULA;
72   FUNCTION COSTCATEGORYCPFORMULA(COSTCATEGORYCF IN VARCHAR2) RETURN VARCHAR2 IS
73   BEGIN
74     /*SRW.REFERENCE(COSTCATEGORYCF)*/NULL;
75     RETURN NULL;
76   END COSTCATEGORYCPFORMULA;
77   FUNCTION COSTCATEGORYCFFORMULA RETURN VARCHAR2 IS
78   BEGIN
79     /*SRW.REFERENCE(COSTCATEGORYCP)*/NULL;
80     IF FROM_COST_CATEGORY IS NOT NULL AND TO_COST_CATEGORY IS NOT NULL THEN
81       COSTCATEGORYCP := ' and NVL(mckfv.concatenated_segments,'' '') >= ' || '''' || FROM_COST_CATEGORY || '''' || ' and NVL(mckfv.concatenated_segments,'' '') <= ' || '''' || TO_COST_CATEGORY || '''';
82     ELSIF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NULL THEN
83       COSTCATEGORYCP :=' ';
84       IF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
85         FROM_COST_CATEGORY := SY_ALL;
86         TO_COST_CATEGORY := SY_ALL;
87       END IF;
88     ELSIF FROM_COST_CATEGORY IS NOT NULL AND TO_COST_CATEGORY IS NULL THEN
89       COSTCATEGORYCP := ' and NVL(mckfv.concatenated_segments,'' '') >= ' || '''' || FROM_COST_CATEGORY || '''';
90       IF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
91         TO_COST_CATEGORY := SY_ALL;
92       END IF;
93     ELSIF FROM_COST_CATEGORY IS NULL AND TO_COST_CATEGORY IS NOT NULL THEN
94       COSTCATEGORYCP := ' and NVL(mckfv.concatenated_segments,'' '') <= ' || '''' || TO_COST_CATEGORY || '''';
95       IF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
96         FROM_COST_CATEGORY := SY_ALL;
97       END IF;
98     END IF;
99     RETURN NULL;
100   END COSTCATEGORYCFFORMULA;
101   FUNCTION FORMULA_NOCPFORMULA(SUM_FORMULACF IN VARCHAR2) RETURN VARCHAR2 IS
102   BEGIN
103     /*SRW.REFERENCE(SUM_FORMULACF)*/NULL;
104     RETURN NULL;
105   END FORMULA_NOCPFORMULA;
106   FUNCTION FORMULA_VERCPFORMULA(SUM_FORMULACF IN VARCHAR2) RETURN VARCHAR2 IS
107   BEGIN
108     /*SRW.REFERENCE(SUM_FORMULACF)*/NULL;
109     RETURN NULL;
110   END FORMULA_VERCPFORMULA;
111   FUNCTION ROUTING_NOCPFORMULA(SUM_FORMULACF IN VARCHAR2) RETURN VARCHAR2 IS
112   BEGIN
113     /*SRW.REFERENCE(SUM_FORMULACF)*/NULL;
114     RETURN NULL;
115   END ROUTING_NOCPFORMULA;
116   FUNCTION ROUTING_VERCPFORMULA(SUM_FORMULACF IN VARCHAR2) RETURN VARCHAR2 IS
117   BEGIN
118     /*SRW.REFERENCE(SUM_FORMULACF)*/NULL;
119     RETURN NULL;
120   END ROUTING_VERCPFORMULA;
121   FUNCTION G_CMGLR_SUMMARYGROUPFILTER RETURN BOOLEAN IS
122   BEGIN
123     IF REPORT_TYPE = '3' OR REPORT_TYPE = '0' THEN
124       RETURN (TRUE);
125     ELSE
126       RETURN (FALSE);
127     END IF;
128     RETURN NULL;
129   END G_CMGLR_SUMMARYGROUPFILTER;
130   FUNCTION G_CMGLR_DTLGROUPFILTER RETURN BOOLEAN IS
131   BEGIN
132     IF REPORT_TYPE = '2' OR REPORT_TYPE = '1' THEN
133       RETURN (TRUE);
134     ELSE
135       RETURN (FALSE);
136     END IF;
137     RETURN NULL;
138   END G_CMGLR_DTLGROUPFILTER;
139   FUNCTION SUM_FORMULACFFORMULA(FRM_ID IN NUMBER) RETURN VARCHAR2 IS
140     FLD1 VARCHAR2(50) := NULL;
141     FLD2 VARCHAR2(50) := NULL;
142     FLD3 VARCHAR2(50) := NULL;
143     FLD4 VARCHAR2(50) := NULL;
144   BEGIN
145     BEGIN
146       SELECT
147         FORMULA_NO,
148         FORMULA_VERS
149       INTO FLD1,FLD2
150       FROM
151         FM_FORM_EFF EFF,
152         FM_FORM_MST MST
153       WHERE EFF.FMEFF_ID = FRM_ID
154         AND EFF.FORMULA_ID = MST.FORMULA_ID;
155       FORMULA_NOCP := FLD1;
156       FORMULA_VERCP := FLD2;
157     END;
158     BEGIN
159       SELECT
160         ROUTING_NO,
161         ROUTING_VERS
162       INTO FLD3,FLD4
163       FROM
164         FM_FORM_EFF EFF,
165         FM_ROUT_HDR HDR
166       WHERE EFF.FMEFF_ID = FRM_ID
167         AND EFF.ROUTING_ID = HDR.ROUTING_ID;
168       ROUTING_NOCP := FLD3;
169       ROUTING_VERCP := FLD4;
170     END;
171     RETURN NULL;
172   EXCEPTION
173     WHEN NO_DATA_FOUND THEN
174       FORMULA_NOCP := FLD1;
175       FORMULA_VERCP := FLD2;
176       ROUTING_NOCP := FLD3;
177       ROUTING_VERCP := FLD4;
178       RETURN NULL;
179   END SUM_FORMULACFFORMULA;
180   FUNCTION DET_FORMULACFFORMULA(FRM_ID_DTL IN NUMBER) RETURN VARCHAR2 IS
181     FLD1 VARCHAR2(50) := NULL;
182     FLD2 VARCHAR2(50) := NULL;
183     FLD3 VARCHAR2(50) := NULL;
184     FLD4 VARCHAR2(50) := NULL;
185   BEGIN
186     BEGIN
187       SELECT
188         FORMULA_NO,
189         FORMULA_VERS
190       INTO FLD1,FLD2
191       FROM
192         FM_FORM_EFF EFF,
193         FM_FORM_MST MST
194       WHERE EFF.FMEFF_ID = FRM_ID_DTL
195         AND EFF.FORMULA_ID = MST.FORMULA_ID;
196       FORMULA_NO1CP := FLD1;
197       FORMULA_VER1CP := FLD2;
198     END;
199     BEGIN
200       SELECT
201         ROUTING_NO,
202         ROUTING_VERS
203       INTO FLD3,FLD4
204       FROM
205         FM_FORM_EFF EFF,
206         FM_ROUT_HDR HDR
207       WHERE EFF.FMEFF_ID = FRM_ID_DTL
208         AND EFF.ROUTING_ID = HDR.ROUTING_ID;
209       ROUTING_NO1CP := FLD3;
210       ROUTING_VER1CP := FLD4;
211     END;
212     RETURN NULL;
213   EXCEPTION
214     WHEN NO_DATA_FOUND THEN
215       FORMULA_NO1CP := FLD1;
216       FORMULA_VER1CP := FLD2;
217       ROUTING_NO1CP := FLD3;
218       ROUTING_VER1CP := FLD4;
219       RETURN NULL;
220   END DET_FORMULACFFORMULA;
221   FUNCTION AFTERPFORM RETURN BOOLEAN IS
222   BEGIN
223   X:=BEFOREPFORM;
224     FROM_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_FROM_ORGANIZATION_ID);
225     TO_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_TO_ORGANIZATION_ID);
226     FROM_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_FROM_ITEM_ID
227                                                   ,P_FROM_ORGANIZATION_ID);
228     TO_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_TO_ITEM_ID
229                                                 ,P_TO_ORGANIZATION_ID);
230     FROM_COST_CATEGORY := GMF_UTILITIES_GRP.GET_COST_CATEGORY(P_FROM_COST_CATEGORY_ID);
231     TO_COST_CATEGORY := GMF_UTILITIES_GRP.GET_COST_CATEGORY(P_TO_COST_CATEGORY_ID);
232     IF (FROM_ORGN > TO_ORGN) THEN
233       FND_MESSAGE.SET_NAME('GMF'
234                           ,'CM_FRMWHSECODE_TOWHSECODE');
235       /*SRW.MESSAGE(100
236                  ,FND_MESSAGE.GET)*/NULL;
237       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
238     END IF;
239     IF (FROM_COST_CATEGORY IS NOT NULL AND FROM_ITEM IS NOT NULL) OR (FROM_COST_CATEGORY IS NOT NULL AND TO_ITEM IS NOT NULL) OR (TO_COST_CATEGORY IS NOT NULL AND FROM_ITEM IS NOT NULL) OR (TO_COST_CATEGORY IS NOT NULL AND TO_ITEM IS NOT NULL) THEN
240       FND_MESSAGE.SET_NAME('GMF'
241                           ,'CM_INV_COMB_ITEM_CLASS_ITEM_NO');
242       /*SRW.MESSAGE(100
243                  ,FND_MESSAGE.GET)*/NULL;
244       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
245     END IF;
246     IF (FROM_COST_CATEGORY IS NOT NULL AND TO_COST_CATEGORY IS NOT NULL) THEN
247       IF FROM_COST_CATEGORY > TO_COST_CATEGORY THEN
248         FND_MESSAGE.SET_NAME('GMF'
249                             ,'CM_FRMITEM_CLS_LTE_TOITEM_CLS');
250         /*SRW.MESSAGE(100
251                    ,FND_MESSAGE.GET)*/NULL;
252         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
253       END IF;
254     END IF;
255     IF FROM_ITEM > TO_ITEM THEN
256       FND_MESSAGE.SET_NAME('GMF'
257                           ,'CM_FRMITEM_LTE_TOITM');
258       /*SRW.MESSAGE(100
259                  ,FND_MESSAGE.GET)*/NULL;
260       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
261     END IF;
262     IF (P_L_START_DATE > P_L_END_DATE AND P_L_START_DATE IS NOT NULL AND P_L_END_DATE IS NOT NULL) THEN
263       FND_MESSAGE.SET_NAME('GMF'
264                           ,'GMF_DATE_RANGE_ERR');
265       /*SRW.MESSAGE(100
266                  ,FND_MESSAGE.GET)*/NULL;
267       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
268     END IF;
269     RETURN (TRUE);
270   END AFTERPFORM;
271   FUNCTION ORDERCFFORMULA RETURN VARCHAR2 IS
272   BEGIN
273     BEGIN
274       /*SRW.REFERENCE(ORDERCP)*/NULL;
275       IF ORDERBY = '0' THEN
276         ORDERCP := 'ic.item_number,mp.organization_code';
277       ELSIF ORDERBY = '1' THEN
278         ORDERCP := 'mp.organization_code,ic.item_number';
279       ELSE
280         ORDERCP := 'ic.item_number,mp.organization_code';
281       END IF;
282     END;
283     RETURN (ORDERCP);
284   END ORDERCFFORMULA;
285   FUNCTION ORDER1CFFORMULA RETURN VARCHAR2 IS
286   BEGIN
287     /*SRW.REFERENCE(ORDER1CP)*/NULL;
288     IF ORDERBY = '0' THEN
289       ORDER1CP := 'ic.item_number, mp.organization_code , mst.cost_cmpntcls_code, dtl.cost_analysis_code';
290     ELSIF ORDERBY = '1' THEN
291       ORDER1CP := 'mp.organization_code , ic.item_number, mst.cost_cmpntcls_code, dtl.cost_analysis_code';
292     ELSE
293       ORDER1CP := 'ic.item_number, mp.organization_code , mst.cost_cmpntcls_code, dtl.cost_analysis_code';
294     END IF;
295     RETURN (ORDERCP);
296   END ORDER1CFFORMULA;
297   PROCEDURE GMF_CMRGLR_XMLP_PKG_HEADER IS
298   BEGIN
299     NULL;
300   END GMF_CMRGLR_XMLP_PKG_HEADER;
301   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
302     L_BASE_CURRENCY_CODE GL_PLCY_MST.BASE_CURRENCY_CODE%TYPE;
303   BEGIN
304     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
305     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
306     RETURN (TRUE);
307   END BEFOREREPORT;
308   FUNCTION AFTERREPORT RETURN BOOLEAN IS
309   BEGIN
310     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
311     RETURN (TRUE);
312   END AFTERREPORT;
313   FUNCTION ORDERCPFORMULA(ORDERCF IN VARCHAR2) RETURN CHAR IS
314   BEGIN
315     /*SRW.REFERENCE(ORDERCF)*/NULL;
316   END ORDERCPFORMULA;
317   FUNCTION ORDER1CPFORMULA(ORDER1CF IN VARCHAR2) RETURN CHAR IS
318   BEGIN
319     /*SRW.REFERENCE(ORDER1CF)*/NULL;
320   END ORDER1CPFORMULA;
321   FUNCTION CF_COST_MTHDFORMULA RETURN CHAR IS
322     L_COST_MTHD_CODE VARCHAR2(10);
323   BEGIN
324     BEGIN
325       SELECT
326         COST_MTHD_CODE
327       INTO L_COST_MTHD_CODE
328       FROM
329         CM_MTHD_MST
330       WHERE COST_TYPE_ID = P_COST_TYPE_ID;
331     EXCEPTION
332       WHEN OTHERS THEN
333         L_COST_MTHD_CODE := NULL;
334     END;
335     RETURN (L_COST_MTHD_CODE);
336   END CF_COST_MTHDFORMULA;
337   FUNCTION CF_LEGAL_ENTITYFORMULA RETURN CHAR IS
338     L_LEGAL_ENTITY_NAME VARCHAR2(240);
339   BEGIN
340     BEGIN
341       SELECT
342         LEGAL_ENTITY_NAME
343       INTO L_LEGAL_ENTITY_NAME
344       FROM
345         GMF_LEGAL_ENTITIES
346       WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
347     EXCEPTION
348       WHEN OTHERS THEN
349         L_LEGAL_ENTITY_NAME := NULL;
350     END;
351     RETURN (L_LEGAL_ENTITY_NAME);
352   END CF_LEGAL_ENTITYFORMULA;
353   FUNCTION PERIOD_IDFORMULA RETURN NUMBER IS
354     L_PERIOD_ID NUMBER;
355     L_PERIOD_STATUS VARCHAR2(20);
356   BEGIN
357     BEGIN
358       SELECT
359         PERIOD_ID,
360         DECODE(PERIOD_STATUS
361               ,'O'
362               ,'Open'
363               ,'F'
364               ,'Future'
365               ,'C'
366               ,'Closed')
367       INTO L_PERIOD_ID,L_PERIOD_STATUS
368       FROM
369         GMF_PERIOD_STATUSES
370       WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
371         AND CALENDAR_CODE = P_CALENDAR_CODE
372         AND PERIOD_CODE = P_PERIOD_CODE
373         AND COST_TYPE_ID = P_COST_TYPE_ID;
374     EXCEPTION
375       WHEN OTHERS THEN
376         L_PERIOD_ID := 0;
377     END;
378     PERIOD_STATUS := L_PERIOD_STATUS;
379     RETURN (NVL(L_PERIOD_ID
380               ,-1));
381   END PERIOD_IDFORMULA;
382   FUNCTION DATESCPFORMULA(DATESCF IN VARCHAR2) RETURN CHAR IS
383   BEGIN
384     /*SRW.REFERENCE(DATESCF)*/NULL;
385   END DATESCPFORMULA;
386   FUNCTION DATESCFFORMULA RETURN VARCHAR2 IS
387   BEGIN
388     /*SRW.REFERENCE(DATESCP)*/NULL;
389     IF P_L_START_DATE IS NOT NULL AND P_L_END_DATE IS NOT NULL THEN
390       DATESCP := ' and TRUNC(cst.start_date) >= ''' || P_L_START_DATE || ''' and TRUNC(cst.end_date) <= ''' || P_L_END_DATE || '''';
391     ELSIF P_L_START_DATE IS NULL AND P_L_END_DATE IS NULL THEN
392       DATESCP :=' ';
393       P_L_START_DATE := SY_ALL;
394       P_L_END_DATE := SY_ALL;
395     ELSIF P_L_START_DATE IS NOT NULL AND P_L_END_DATE IS NULL THEN
396       DATESCP := ' and  TRUNC(cst.start_date) >= ''' || P_L_START_DATE || '''';
397       P_L_END_DATE := SY_ALL;
398     ELSIF P_L_START_DATE IS NULL AND P_L_END_DATE IS NOT NULL THEN
399       DATESCP := ' and TRUNC(cst.end_date) <= ''' || P_L_END_DATE || '''';
400       P_L_START_DATE := SY_ALL;
401     END IF;
402     RETURN NULL;
403   END DATESCFFORMULA;
404   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
405   BEGIN
406     P_L_START_DATE := FND_DATE.CANONICAL_TO_DATE(P_START_DATE);
407     P_L_END_DATE := FND_DATE.CANONICAL_TO_DATE(P_END_DATE);
408     RETURN (TRUE);
409   END BEFOREPFORM;
410   FUNCTION FORMULA_NOCP_P RETURN VARCHAR2 IS
411   BEGIN
412     RETURN FORMULA_NOCP;
413   END FORMULA_NOCP_P;
414   FUNCTION FORMULA_VERCP_P RETURN VARCHAR2 IS
415   BEGIN
416     RETURN FORMULA_VERCP;
417   END FORMULA_VERCP_P;
418   FUNCTION ROUTING_NOCP_P RETURN VARCHAR2 IS
419   BEGIN
420     RETURN ROUTING_NOCP;
421   END ROUTING_NOCP_P;
422   FUNCTION ROUTING_VERCP_P RETURN VARCHAR2 IS
423   BEGIN
424     RETURN ROUTING_VERCP;
425   END ROUTING_VERCP_P;
426   FUNCTION FORMULA_NO1CP_P RETURN VARCHAR2 IS
427   BEGIN
428     RETURN FORMULA_NO1CP;
429   END FORMULA_NO1CP_P;
430   FUNCTION FORMULA_VER1CP_P RETURN VARCHAR2 IS
431   BEGIN
432     RETURN FORMULA_VER1CP;
433   END FORMULA_VER1CP_P;
434   FUNCTION ROUTING_NO1CP_P RETURN VARCHAR2 IS
435   BEGIN
436     RETURN ROUTING_NO1CP;
437   END ROUTING_NO1CP_P;
438   FUNCTION ROUTING_VER1CP_P RETURN VARCHAR2 IS
439   BEGIN
440     RETURN ROUTING_VER1CP;
441   END ROUTING_VER1CP_P;
442   FUNCTION COSTCATEGORYCP_P RETURN VARCHAR2 IS
443   BEGIN
444     RETURN COSTCATEGORYCP;
445   END COSTCATEGORYCP_P;
446   FUNCTION ITEMCP_P RETURN VARCHAR2 IS
447   BEGIN
448     RETURN ITEMCP;
449   END ITEMCP_P;
450   FUNCTION ORGANIZATIONCP_P RETURN VARCHAR2 IS
451   BEGIN
452     RETURN ORGANIZATIONCP;
453   END ORGANIZATIONCP_P;
454   FUNCTION REPORT_TYPECP_P RETURN VARCHAR2 IS
455   BEGIN
456     RETURN REPORT_TYPECP;
457   END REPORT_TYPECP_P;
458   FUNCTION ORDERCP_P RETURN VARCHAR2 IS
459   BEGIN
460     RETURN ORDERCP;
461   END ORDERCP_P;
462   FUNCTION ORDER1CP_P RETURN VARCHAR2 IS
463   BEGIN
464     RETURN ORDER1CP;
465   END ORDER1CP_P;
466   FUNCTION PERIOD_STATUS_P RETURN VARCHAR2 IS
467   BEGIN
468     RETURN PERIOD_STATUS;
469   END PERIOD_STATUS_P;
470   FUNCTION DATESCP_P RETURN VARCHAR2 IS
471   BEGIN
472     RETURN DATESCP;
473   END DATESCP_P;
474 END GMF_CMRGLR_XMLP_PKG;
475