eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.GMF_GMFLCHST_XMLP_PKG

Source


1 PACKAGE BODY GMF_GMFLCHST_XMLP_PKG AS
2 /* $Header: GMFLCHSTB.pls 120.0.12020000.2 2012/07/25 10:23:04 spabolu ship $ */
3   FUNCTION AFTERPFORM RETURN BOOLEAN IS
4     CURSOR CUR_GET_CURRENCY IS
5       SELECT
6         BASE_CURRENCY_CODE
7       FROM
8         GMF_FISCAL_POLICIES
9       WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
10     L_CURRENCY VARCHAR2(15);
11 x   boolean;
12   BEGIN
13      P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
14  x:= BEFOREPFORM;
15     P_FRM_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_FROM_ORGANIZATION_ID);
16     P_TO_ORGN := GMF_UTILITIES_GRP.GET_ORGANIZATION_CODE(P_TO_ORGANIZATION_ID);
17     P_FRM_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_FROM_ITEM_ID
18                                                    ,P_ORGANIZATION_CONTEXT);
19     P_TO_ITEM := GMF_UTILITIES_GRP.GET_ITEM_NUMBER(P_TO_ITEM_ID
20                                                   ,P_ORGANIZATION_CONTEXT);
21     P_FROM_COST_CATEGORY := GMF_UTILITIES_GRP.GET_COST_CATEGORY(P_FROM_COST_CATEGORY_ID);
22     P_TO_COST_CATEGORY := GMF_UTILITIES_GRP.GET_COST_CATEGORY(P_TO_COST_CATEGORY_ID);
23     OPEN CUR_GET_CURRENCY;
24     FETCH CUR_GET_CURRENCY
25      INTO L_CURRENCY;
26     CLOSE CUR_GET_CURRENCY;
27     IF (L_CURRENCY = P_CURRENCY_CODE OR P_CURRENCY_CODE IS NULL) THEN
28       P_CURRENCY_CODE_1 := L_CURRENCY;
29       P_EXCHANGE_RATE_1 := 1;
30     ELSE
31       IF (P_EXCHANGE_RATE IS NULL) THEN
32         FND_MESSAGE.SET_NAME('GMF'
33                             ,'GMF_SRS_EFC_NO_XCHG');
34         /*SRW.MESSAGE(100
35                    ,FND_MESSAGE.GET)*/NULL;
36         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
37       END IF;
38     END IF;
39     IF (P_FRM_ITEM IS NOT NULL AND P_FRM_ITEM > P_TO_ITEM AND P_FRM_ITEM IS NOT NULL) THEN
40       FND_MESSAGE.SET_NAME('GMF'
41                           ,'CM_BAD_TO_ITEM_NO');
42       /*SRW.MESSAGE(100
43                  ,FND_MESSAGE.GET)*/NULL;
44       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
45     END IF;
46     IF (P_FRM_ORGN IS NOT NULL AND P_FRM_ORGN > P_TO_ORGN AND P_TO_ORGN IS NOT NULL) THEN
47       FND_MESSAGE.SET_NAME('GMF'
48                           ,'CM_BAD_TO_ITEM_NO');
49       /*SRW.MESSAGE(100
50                  ,FND_MESSAGE.GET)*/NULL;
51       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
52     END IF;
53     IF (P_FROM_COST_CATEGORY > P_TO_COST_CATEGORY AND P_FROM_COST_CATEGORY IS NOT NULL AND P_TO_COST_CATEGORY IS NOT NULL) THEN
54       FND_MESSAGE.SET_NAME('GMF'
55                           ,'CM_BAD_TO_ITEMCOST_CLS');
56       /*SRW.MESSAGE(100
57                  ,FND_MESSAGE.GET)*/NULL;
58       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
59     END IF;
60     IF (P_FROM_LOT > P_TO_LOT AND P_FROM_LOT IS NOT NULL AND P_TO_LOT IS NOT NULL) THEN
61       FND_MESSAGE.SET_NAME('GMF'
62                           ,'GMF_LOT_RANGE_ERR');
63       /*SRW.MESSAGE(100
64                  ,FND_MESSAGE.GET)*/NULL;
65       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
66     END IF;
67     IF (P_L_FRM_DATE > P_L_TO_DATE AND P_L_FRM_DATE IS NOT NULL AND P_L_TO_DATE IS NOT NULL) THEN
68       FND_MESSAGE.SET_NAME('GMF'
69                           ,'GMF_DATE_RANGE_ERR');
70       /*SRW.MESSAGE(100
71                  ,FND_MESSAGE.GET)*/NULL;
72       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
73     END IF;
74     RETURN (TRUE);
75   END AFTERPFORM;
76   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
77   BEGIN
78     P_L_FRM_DATE := FND_DATE.CANONICAL_TO_DATE(P_FRM_DATE);
79     P_L_TO_DATE := FND_DATE.CANONICAL_TO_DATE(P_TO_DATE);
80     P_L_FRM_DATE_v := to_Char(P_L_FRM_DATE,'DD-MON-YY');
81     P_L_TO_DATE_v := to_char(P_L_TO_DATE,'DD-MON-YY');
82     RETURN (TRUE);
83   END BEFOREPFORM;
84   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
85   BEGIN
86     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
87     CP_FORMAT_MASK := FND_CURRENCY.GET_FORMAT_MASK(P_CURRENCY_CODE_1
88                                                   ,25);
89     FND_MESSAGE.SET_NAME('GMF'
90                         ,'GMF_ADJUSTMENT');
91     CP_COST_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
92     FND_MESSAGE.SET_NAME('GMF'
93                         ,'GMF_INV_ADJUSTMENT');
94     CP_INV_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
95     FND_MESSAGE.SET_NAME('GMF'
96                         ,'GMF_SALES_ORDER');
97     CP_SO_TEXT := FND_MESSAGE.GET;
98     FND_MESSAGE.SET_NAME('GMF'
99                         ,'GMF_BILL_ONLY_SALES_ORDER');
100     CP_BILL_ONLY_SO_TEXT := FND_MESSAGE.GET;
101     FND_MESSAGE.SET_NAME('GMF'
102                         ,'GMF_DROP_SHIP_SALES_ORDER');
103     CP_DROP_SHIP_SO_TEXT := FND_MESSAGE.GET;
104     FND_MESSAGE.SET_NAME('GMF'
105                         ,'GMF_RECEIPT');
106     CP_RECEIPT_TEXT := FND_MESSAGE.GET;
107     FND_MESSAGE.SET_NAME('GMD'
108                         ,'GMD_SAMPLE_PROD');
109     CP_PROD_TEXT := FND_MESSAGE.GET;
110     FND_MESSAGE.SET_NAME('GMD'
111                         ,'GMF_TRANSFER');
112     CP_XFER_TEXT := FND_MESSAGE.GET;
113      -- LCM/OPM Integration
114     FND_MESSAGE.SET_NAME('GMF','GMF_LC_ADJUSTMENT');
115     CP_LC_ADJUSTMENT_TEXT := FND_MESSAGE.GET;
116 
117     RETURN (TRUE);
118   END BEFOREREPORT;
119   FUNCTION CF_SRC_TRANSFORMULA(DOC_ID IN NUMBER
120                               ,LINE_ID IN NUMBER
121                               ,DOC_TYPE IN VARCHAR2
122                               ,ORGANIZATION_CODE IN VARCHAR2) RETURN CHAR IS
123     L_TEXT VARCHAR2(100) := NULL;
124     CURSOR CUR_GET_BTCH IS
125       SELECT
126         PLANT_CODE || ' ' || BATCH_NO
127       FROM
128         GME_BATCH_HEADER
129       WHERE BATCH_ID = DOC_ID;
130     CURSOR CUR_GET_RCV IS
131       SELECT
132         DISTINCT
133         MP.ORGANIZATION_CODE || ' ' || R.RECEIPT_NUM
134       FROM
135         RCV_SHIPMENT_HEADERS R,
136         MTL_MATERIAL_TRANSACTIONS P,
137         MTL_PARAMETERS MP
138       WHERE R.SHIPMENT_HEADER_ID = P.TRANSACTION_SOURCE_ID
139         AND R.ORGANIZATION_ID = P.ORGANIZATION_ID
140         AND P.TRANSACTION_SOURCE_ID = DOC_ID
141         AND P.TRX_SOURCE_LINE_ID = LINE_ID
142         AND MP.ORGANIZATION_ID = P.ORGANIZATION_ID;
143     CURSOR CUR_GET_INV IS
144       SELECT
145         DISTINCT
146         J.ORGN_CODE || ' ' || J.JOURNAL_NO
147       FROM
148         IC_JRNL_MST J,
149         IC_ADJS_JNL D
150       WHERE D.TRANS_TYPE = DOC_TYPE
151         AND D.DOC_ID = DOC_ID
152         AND J.JOURNAL_ID = D.JOURNAL_ID;
153     CURSOR CUR_GET_CYCL IS
154       SELECT
155         MP.ORGANIZATION_CODE || ' ' || MCC.COUNT_LIST_SEQUENCE
156       FROM
157         MTL_MATERIAL_TRANSACTIONS MTT,
158         MTL_PARAMETERS MP,
159         MTL_CYCLE_COUNT_ENTRIES MCC
160       WHERE MTT.CYCLE_COUNT_ID = DOC_ID
161         AND MP.ORGANIZATION_ID = MTT.ORGANIZATION_ID
162         AND MCC.CYCLE_COUNT_ENTRY_ID = MTT.CYCLE_COUNT_ID;
163     CURSOR CUR_GET_XFER IS
164       SELECT
165         MP.ORGANIZATION_CODE
166       FROM
167         MTL_MATERIAL_TRANSACTIONS MMT,
168         MTL_PARAMETERS MP
169       WHERE MMT.TRANSFER_TRANSACTION_ID = DOC_ID
170         AND MP.ORGANIZATION_ID = MMT.ORGANIZATION_ID;
171     CURSOR C_SO_DOC(P_DOC_ID IN NUMBER,P_LEGAL_ENTITY_ID IN NUMBER,P_LINE_ID IN NUMBER) IS
172       SELECT
173         DISTINCT
174         MP.ORGANIZATION_CODE || ' ' || D.NAME
175       FROM
176         WSH_NEW_DELIVERIES D,
177         MTL_MATERIAL_TRANSACTIONS T,
178         WSH_DELIVERY_DETAILS WD,
179         WSH_DELIVERY_ASSIGNMENTS WA,
180         MTL_PARAMETERS MP,
181         MTL_TXN_SOURCE_TYPES MTST,
182         ORG_ORGANIZATION_DEFINITIONS OOD
183       WHERE D.DELIVERY_ID = WA.DELIVERY_ID
184         AND WA.DELIVERY_DETAIL_ID = WD.DELIVERY_DETAIL_ID
185         AND OOD.LEGAL_ENTITY = P_LEGAL_ENTITY_ID
186         AND T.TRANSACTION_SOURCE_ID = P_DOC_ID
187         AND T.TRX_SOURCE_LINE_ID = P_LINE_ID
188         AND MTST.TRANSACTION_SOURCE_TYPE_NAME = 'Sales Order'
189         AND MTST.TRANSACTION_SOURCE_TYPE_ID = T.TRANSACTION_SOURCE_TYPE_ID
190         AND T.ORGANIZATION_ID = MP.ORGANIZATION_ID
191         AND OOD.ORGANIZATION_ID = T.ORGANIZATION_ID;
192     CURSOR C_BILL_ONLY_SO_DOC(P_DOC_ID IN NUMBER,P_LEGAL_ENTITY_ID IN VARCHAR2,P_LINE_ID IN NUMBER) IS
193       SELECT
194         DISTINCT
195         '(Bill-Only) ' || MP.ORGANIZATION_CODE || ' ' || OH.ORDER_NUMBER
196       FROM
197         MTL_PARAMETERS MP,
198         MTL_MATERIAL_TRANSACTIONS T,
199         OE_ORDER_HEADERS_ALL OH,
200         OE_ORDER_LINES_ALL OL,
201         MTL_TXN_SOURCE_TYPES MTST,
202         ORG_ORGANIZATION_DEFINITIONS OOD
203       WHERE OOD.LEGAL_ENTITY = P_LEGAL_ENTITY_ID
204         AND MTST.TRANSACTION_SOURCE_TYPE_NAME = 'Sales Order'
205         AND T.TRANSACTION_SOURCE_ID = P_DOC_ID
206         AND T.TRX_SOURCE_LINE_ID = P_LINE_ID
207         AND T.TRX_SOURCE_LINE_ID = OL.LINE_ID
208         AND OH.HEADER_ID = OL.HEADER_ID
209         AND OOD.ORGANIZATION_ID = T.ORGANIZATION_ID
210         AND MTST.TRANSACTION_SOURCE_TYPE_ID = T.TRANSACTION_SOURCE_TYPE_ID;
211     CURSOR C_DROP_SHIP_SO_DOC(P_DOC_ID IN NUMBER,P_LEGAL_ENTITY_ID IN VARCHAR2,P_LINE_ID IN NUMBER) IS
212       SELECT
213         DISTINCT
214         '(Drop-Ship) ' || OOD.ORGANIZATION_CODE || ' ' || OH.ORDER_NUMBER
215       FROM
216         MTL_MATERIAL_TRANSACTIONS T,
217         OE_ORDER_HEADERS_ALL OH,
218         OE_ORDER_LINES_ALL OL,
219         MTL_TXN_SOURCE_TYPES MTST,
220         ORG_ORGANIZATION_DEFINITIONS OOD
221       WHERE OOD.LEGAL_ENTITY = P_LEGAL_ENTITY_ID
222         AND MTST.TRANSACTION_SOURCE_TYPE_NAME = 'Sales Order'
223         AND T.TRANSACTION_SOURCE_ID = P_DOC_ID
224         AND T.TRX_SOURCE_LINE_ID = P_LINE_ID
225         AND T.TRX_SOURCE_LINE_ID = OL.LINE_ID
226         AND OH.HEADER_ID = OL.HEADER_ID
227         AND OOD.ORGANIZATION_ID = T.ORGANIZATION_ID
228         AND MTST.TRANSACTION_SOURCE_TYPE_ID = T.TRANSACTION_SOURCE_TYPE_ID
229         AND EXISTS (
230         SELECT
231           1
232         FROM
233           OE_DROP_SHIP_SOURCES S
234         WHERE OL.LINE_ID = S.LINE_ID
235           AND OL.HEADER_ID = S.HEADER_ID );
236     CURSOR CUR_GET_BOL_NO(P_LINE_ID IN NUMBER) IS
237       SELECT
238         DISTINCT
239         B.ORGN_CODE || ' ' || B.BOL_NO
240       FROM
241         OP_ORDR_DTL D,
242         OP_BILL_LAD B
243       WHERE D.LINE_ID = P_LINE_ID
244         AND D.BOL_ID = B.BOL_ID;
245 
246        --LCM-OPM Integration, bug 8642337
247    CURSOR cur_lc_det (l_adj_transaction_id NUMBER)
248    IS
249        SELECT rsh.receipt_num, glat.lc_ship_num
250        FROM  gmf_lc_adj_transactions glat,
251              rcv_transactions rt,
252              rcv_shipment_headers rsh
253        WHERE glat.rcv_transaction_id = rt.transaction_id
254        AND   rsh.shipment_header_id  = rt.shipment_header_id
255        AND   glat.adj_transaction_id = l_adj_transaction_id  ;
256 
257    l_receipt_num     rcv_shipment_headers.receipt_num%TYPE;
258    l_lc_ship_num     gmf_lc_adj_transactions.lc_ship_num%TYPE;
259 
260   BEGIN
261     IF (DOC_TYPE = 'PROD') THEN
262       OPEN CUR_GET_BTCH;
263       FETCH CUR_GET_BTCH
264        INTO L_TEXT;
265       CLOSE CUR_GET_BTCH;
266       L_TEXT := CP_PROD_TEXT || ',' || L_TEXT;
267     ELSIF (DOC_TYPE = 'PORC') THEN
268       OPEN CUR_GET_RCV;
269       FETCH CUR_GET_RCV
270        INTO L_TEXT;
271       CLOSE CUR_GET_RCV;
272       L_TEXT := CP_RECEIPT_TEXT || ',' || L_TEXT;
273     ELSIF (DOC_TYPE in ('CREI','ADJI','TRNI','ADJR','CRER','TRNR')) THEN
274       OPEN CUR_GET_INV;
275       FETCH CUR_GET_INV
276        INTO L_TEXT;
277       CLOSE CUR_GET_INV;
278       L_TEXT := CP_INV_ADJUSTMENT_TEXT || ',' || L_TEXT;
279     ELSIF (DOC_TYPE in ('PIPC','PIPH','PICY')) THEN
280       OPEN CUR_GET_CYCL;
281       FETCH CUR_GET_CYCL
282        INTO L_TEXT;
283       CLOSE CUR_GET_CYCL;
284       L_TEXT := CP_INV_ADJUSTMENT_TEXT || ',' || L_TEXT;
285     ELSIF (DOC_TYPE in ('OPSO')) THEN
286       OPEN CUR_GET_BOL_NO(LINE_ID);
287       FETCH CUR_GET_BOL_NO
288        INTO L_TEXT;
289       CLOSE CUR_GET_BOL_NO;
290       L_TEXT := CP_SO_TEXT || ',' || L_TEXT;
291     ELSIF (DOC_TYPE = 'OMSO') THEN
292       OPEN C_SO_DOC(DOC_ID,P_LEGAL_ENTITY_ID,LINE_ID);
293       FETCH C_SO_DOC
294        INTO L_TEXT;
295       IF C_SO_DOC%NOTFOUND THEN
296         CLOSE C_SO_DOC;
297         OPEN C_BILL_ONLY_SO_DOC(DOC_ID,P_LEGAL_ENTITY_ID,LINE_ID);
298         FETCH C_BILL_ONLY_SO_DOC
299          INTO L_TEXT;
300         IF C_BILL_ONLY_SO_DOC%NOTFOUND THEN
301           CLOSE C_BILL_ONLY_SO_DOC;
302           OPEN C_DROP_SHIP_SO_DOC(DOC_ID,P_LEGAL_ENTITY_ID,LINE_ID);
303           FETCH C_DROP_SHIP_SO_DOC
304            INTO L_TEXT;
305           CLOSE C_DROP_SHIP_SO_DOC;
306           L_TEXT := CP_DROP_SHIP_SO_TEXT || ',' || L_TEXT;
307         ELSE
308           CLOSE C_BILL_ONLY_SO_DOC;
309           L_TEXT := CP_BILL_ONLY_SO_TEXT || ',' || L_TEXT;
310         END IF;
311       ELSE
312         CLOSE C_SO_DOC;
313         L_TEXT := CP_SO_TEXT || ',' || L_TEXT;
314       END IF;
315     ELSIF (DOC_TYPE = 'XFER') THEN
316       OPEN CUR_GET_XFER;
317       FETCH CUR_GET_XFER
318        INTO L_TEXT;
319       CLOSE CUR_GET_XFER;
320       L_TEXT := CP_XFER_TEXT || ',' || L_TEXT;
321     ELSIF (DOC_TYPE = 'LADJ') THEN
322       L_TEXT := CP_COST_ADJUSTMENT_TEXT || ',' || ORGANIZATION_CODE || ' ' || LINE_ID;
323      -- Landed cost Adjustment  LCM-OPM Integration
324     ELSIF (DOC_TYPE = 'LCADJ') THEN
325        OPEN cur_lc_det(LINE_ID);
326        FETCH cur_lc_det INTO l_receipt_num, l_lc_ship_num;
327        CLOSE cur_lc_det;
328        l_text := CP_LC_ADJUSTMENT_TEXT ||','|| l_receipt_num || ' '|| l_lc_ship_num;
329     ELSE
330       L_TEXT := DOC_TYPE || ',' || ORGANIZATION_CODE;
331     END IF;
332     RETURN (L_TEXT);
333   END CF_SRC_TRANSFORMULA;
334   FUNCTION CF_SRC_ONHAND_VALUEFORMULA(NEW_UNIT_COST IN NUMBER
335                                      ,NEW_ONHAND_QTY IN NUMBER) RETURN CHAR IS
336   BEGIN
337     RETURN (TO_CHAR(NEW_UNIT_COST * NEW_ONHAND_QTY
338                   ,CP_FORMAT_MASK));
339   END CF_SRC_ONHAND_VALUEFORMULA;
340   FUNCTION CF_LEGAL_ENTITYFORMULA RETURN CHAR IS
341     L_LEGAL_ENTITY_NAME VARCHAR2(240);
342   BEGIN
343     BEGIN
344       SELECT
345         LEGAL_ENTITY_NAME
346       INTO L_LEGAL_ENTITY_NAME
347       FROM
348         GMF_LEGAL_ENTITIES
349       WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
350     EXCEPTION
351       WHEN OTHERS THEN
352         L_LEGAL_ENTITY_NAME := NULL;
353     END;
354     RETURN (L_LEGAL_ENTITY_NAME);
355   END CF_LEGAL_ENTITYFORMULA;
356   FUNCTION CF_COST_MTHDFORMULA RETURN VARCHAR2 IS
357     L_COST_MTHD_CODE VARCHAR2(10);
358   BEGIN
359     BEGIN
360       SELECT
361         COST_MTHD_CODE
362       INTO L_COST_MTHD_CODE
363       FROM
364         CM_MTHD_MST
365       WHERE COST_TYPE_ID = P_COST_TYPE_ID;
366     EXCEPTION
367       WHEN OTHERS THEN
368         L_COST_MTHD_CODE := NULL;
369     END;
370     RETURN (L_COST_MTHD_CODE);
371   END CF_COST_MTHDFORMULA;
372   FUNCTION AFTERREPORT RETURN BOOLEAN IS
373   BEGIN
374     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
375     RETURN (TRUE);
376   END AFTERREPORT;
377   FUNCTION CP_INV_ADJUSTMENT_TEXT_P RETURN VARCHAR2 IS
378   BEGIN
379     RETURN CP_INV_ADJUSTMENT_TEXT;
380   END CP_INV_ADJUSTMENT_TEXT_P;
381   FUNCTION CP_COST_ADJUSTMENT_TEXT_P RETURN VARCHAR2 IS
382   BEGIN
383     RETURN CP_COST_ADJUSTMENT_TEXT;
384   END CP_COST_ADJUSTMENT_TEXT_P;
385   FUNCTION CP_SO_TEXT_P RETURN VARCHAR2 IS
386   BEGIN
387     RETURN CP_SO_TEXT;
388   END CP_SO_TEXT_P;
389   FUNCTION CP_BILL_ONLY_SO_TEXT_P RETURN VARCHAR2 IS
390   BEGIN
391     RETURN CP_BILL_ONLY_SO_TEXT;
392   END CP_BILL_ONLY_SO_TEXT_P;
393   FUNCTION CP_DROP_SHIP_SO_TEXT_P RETURN VARCHAR2 IS
394   BEGIN
395     RETURN CP_DROP_SHIP_SO_TEXT;
396   END CP_DROP_SHIP_SO_TEXT_P;
397   FUNCTION CP_RECEIPT_TEXT_P RETURN VARCHAR2 IS
398   BEGIN
399     RETURN CP_RECEIPT_TEXT;
400   END CP_RECEIPT_TEXT_P;
401   FUNCTION CP_PROD_TEXT_P RETURN VARCHAR2 IS
402   BEGIN
403     RETURN CP_PROD_TEXT;
404   END CP_PROD_TEXT_P;
405   FUNCTION CP_FORMAT_MASK_P RETURN VARCHAR2 IS
406   BEGIN
407     RETURN CP_FORMAT_MASK;
408   END CP_FORMAT_MASK_P;
409   FUNCTION CP_XFER_TEXT_P RETURN VARCHAR2 IS
410   BEGIN
411     RETURN CP_XFER_TEXT;
412   END CP_XFER_TEXT_P;
413   FUNCTION CP_LC_ADJUSTMENT_TEXT_P RETURN VARCHAR2 IS
414   BEGIN
415     RETURN CP_LC_ADJUSTMENT_TEXT;
416   END CP_LC_ADJUSTMENT_TEXT_P;
417 
418 END GMF_GMFLCHST_XMLP_PKG;
419