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.XTR_XTRHOAPR_XMLP_PKG

Source


1 PACKAGE BODY XTR_XTRHOAPR_XMLP_PKG AS
2 /* $Header: XTRHOAPRB.pls 120.1 2007/12/31 07:18:29 npannamp noship $ */
3   FUNCTION AFTERPFORM RETURN BOOLEAN IS
4     P_AR_FROM VARCHAR2(100);
5     P_AP_FROM VARCHAR2(100);
6     P_AR_WHERE VARCHAR2(10000);
7     P_AP_WHERE VARCHAR2(10000);
8     V_DATE_FROM VARCHAR2(80);
9     V_DATE_TO VARCHAR2(80);
10     CURSOR GET_SOURCE_NAME(P_SOURCE IN VARCHAR2) IS
11       SELECT
12         MEANING
13       FROM
14         FND_LOOKUPS
15       WHERE LOOKUP_TYPE = 'XTR_HEDGE_SOURCES'
16         AND LOOKUP_CODE = P_SOURCE;
17     CURSOR GET_MISC(P_MISC IN VARCHAR2) IS
18       SELECT
19         MEANING
20       FROM
21         FND_LOOKUPS
22       WHERE LOOKUP_TYPE = 'XTR_HEDGE_MISC'
23         AND LOOKUP_CODE = P_MISC;
24     CURSOR GET_YES_NO(P_YES_NO IN VARCHAR2) IS
25       SELECT
26         MEANING
27       FROM
28         FND_LOOKUPS
29       WHERE LOOKUP_TYPE = 'YES_NO'
30         AND LOOKUP_CODE = P_YES_NO;
31     CURSOR GET_COMPANY_NAME(P_COMPANY_CODE IN VARCHAR2) IS
32       SELECT
33         FULL_NAME
34       FROM
35         XTR_PARTY_INFO_V
36       WHERE PARTY_CODE = P_COMPANY_CODE;
37     CURSOR GET_FACTOR(P_FACTOR IN VARCHAR2) IS
38       SELECT
39         MEANING
40       FROM
41         FND_LOOKUPS
42       WHERE LOOKUP_TYPE = 'XTR_NUM_FACTOR'
43         AND LOOKUP_CODE = P_FACTOR;
44     CURSOR GET_REPORT_NAME(P_CONC_REQUEST_ID IN VARCHAR2) IS
45       SELECT
46         CP.USER_CONCURRENT_PROGRAM_NAME
47       FROM
48         FND_CONCURRENT_PROGRAMS_VL CP,
49         FND_CONCURRENT_REQUESTS CR
50       WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
51         AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
52         AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
53   BEGIN
54   P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
55   P_CRITERIA_SET_V := P_CRITERIA_SET;
56     IF (P_SEARCH_BY <> 'ADVANCED') THEN
57       P_CRITERIA_SET_V := NULL;
58     END IF;
59     V_DATE_FROM := TO_CHAR(P_DATE_FROM
60                           ,'RRRR/MM/DD');
61     V_DATE_TO := TO_CHAR(P_DATE_TO
62                         ,'RRRR/MM/DD');
63 --added as fix
64    P_DATE_FROM_v := P_DATE_FROM;
65    P_DATE_TO_v := P_DATE_TO;
66     XTR_HEDGE_PROCESS_P.GET_HOAPR_REPORT_PARAMETERS(P_CRITERIA_SET_V
67                                                    ,P_CRITERIA_SET_OWNER
68                                                    ,P_SOURCE
69                                                    ,P_CURRENCY
70                                                    ,P_COMPANY_CODE
71                                                    ,P_SOB_CURRENCY
72                                                    ,P_DISCOUNT_METHOD
73                                                    ,P_FACTOR
74                                                    ,V_DATE_FROM
75                                                    ,V_DATE_TO
76                                                    ,P_UNAPLD_RECEIPTS
77                                                    ,P_UNAPLD_PREPAYMENTS
78                                                    ,AR_FROM_CLAUSE
79                                                    ,AP_FROM_CLAUSE
80                                                    ,AR_WHERE_CLAUSE
81                                                    ,AP_WHERE_CLAUSE);
82     IF (P_DUMMY1 <> 'D') THEN
83       DSP_CRITERIA_SET := P_CRITERIA_SET_V;
84     END IF;
85   /*  P_DATE_FROM := TO_DATE(V_DATE_FROM
86                           ,'RRRR/MM/DD');
87     P_DATE_TO := TO_DATE(V_DATE_TO
88                         ,'RRRR/MM/DD');*/
89     P_DATE_FROM_V := TO_DATE(V_DATE_FROM
90                               ,'RRRR/MM/DD');
91         P_DATE_TO_V := TO_DATE(V_DATE_TO
92                         ,'RRRR/MM/DD');
93     OPEN GET_SOURCE_NAME('AR');
94     FETCH GET_SOURCE_NAME
95      INTO AR_SOURCE_NAME;
96     CLOSE GET_SOURCE_NAME;
97     OPEN GET_SOURCE_NAME('AP');
98     FETCH GET_SOURCE_NAME
99      INTO AP_SOURCE_NAME;
100     CLOSE GET_SOURCE_NAME;
101     IF (P_DISCOUNT_METHOD = 'MAX') THEN
102       AP_ORDER_CLAUSE := 'MAX_DISCOUNTED_DATE ';
103     ELSIF (P_DISCOUNT_METHOD = 'MIN') THEN
104       AP_ORDER_CLAUSE := 'MIN_DISCOUNTED_DATE ';
105     ELSE
106       AP_ORDER_CLAUSE := 'MIN_DUE_DATE ';
107     END IF;
108     IF P_FACTOR = '0' THEN
109       P_UNIT := 1;
110     ELSE
111       P_UNIT := TO_NUMBER(P_FACTOR);
112     END IF;
113     P_REF_DATE := TRUNC(SYSDATE);
114     OPEN GET_COMPANY_NAME(P_COMPANY_CODE);
115     FETCH GET_COMPANY_NAME
116      INTO DSP_COMPANY_NAME;
117     CLOSE GET_COMPANY_NAME;
118     OPEN GET_MISC(P_DISCOUNT_METHOD);
119     FETCH GET_MISC
120      INTO DSP_DISCOUNT_METHOD;
121     CLOSE GET_MISC;
122     OPEN GET_MISC(P_SEARCH_BY);
123     FETCH GET_MISC
124      INTO DSP_SEARCH_BY;
125     CLOSE GET_MISC;
126     OPEN GET_SOURCE_NAME(P_SOURCE);
127     FETCH GET_SOURCE_NAME
128      INTO DSP_SOURCE;
129     CLOSE GET_SOURCE_NAME;
130     OPEN GET_YES_NO(P_SHOW_TRANSACTIONS);
131     FETCH GET_YES_NO
132      INTO DSP_SHOW_TRANSACTIONS;
133     CLOSE GET_YES_NO;
134     OPEN GET_YES_NO(P_UNAPLD_PREPAYMENTS);
135     FETCH GET_YES_NO
136      INTO DSP_UNAPLD_PREPAYMENTS;
137     CLOSE GET_YES_NO;
138     OPEN GET_YES_NO(P_UNAPLD_RECEIPTS);
139     FETCH GET_YES_NO
140      INTO DSP_UNAPLD_RECEIPTS;
141     CLOSE GET_YES_NO;
142     OPEN GET_FACTOR(P_FACTOR);
143     FETCH GET_FACTOR
144      INTO DSP_FACTOR;
145     CLOSE GET_FACTOR;
146     OPEN GET_REPORT_NAME(P_CONC_REQUEST_ID);
147     FETCH GET_REPORT_NAME
148      INTO P_REPORT_NAME;
149     CLOSE GET_REPORT_NAME;
150     RETURN (TRUE);
151   EXCEPTION
152     WHEN OTHERS THEN
153       /*SRW.MESSAGE(100
154                  ,SQLERRM)*/NULL;
155   END AFTERPFORM;
156 
157   FUNCTION CF_NET_POSITIONFORMULA(SUMSUMAMOUNTPERRPT IN NUMBER
158                                  ,SUMHPAMOUNTPERRPT IN NUMBER) RETURN NUMBER IS
159   BEGIN
160     RETURN NVL(SUMSUMAMOUNTPERRPT
161               ,0) + NVL(SUMHPAMOUNTPERRPT
162               ,0);
163   END CF_NET_POSITIONFORMULA;
164 
165   FUNCTION AMOUNT_DSPFORMULA(AMOUNT IN NUMBER
166                             ,AMOUNT_DSP IN VARCHAR2) RETURN CHAR IS
167   BEGIN
168     /*SRW.REFERENCE(AMOUNT)*/NULL;
169     /*SRW.REFERENCE(AMOUNT_DSP)*/NULL;
170     FORMAT_AMOUNT_FIELD('amount');
171     RETURN (AMOUNT_DSP);
172   END AMOUNT_DSPFORMULA;
173 
174   FUNCTION SUMAMOUNTPERAR_SRC_DSPFORMULA(SUMAMOUNTPERAR_SRC IN NUMBER
175                                         ,SUMAMOUNTPERAR_SRC_DSP IN VARCHAR2) RETURN CHAR IS
176   BEGIN
177     /*SRW.REFERENCE(SUMAMOUNTPERAR_SRC)*/NULL;
178     /*SRW.REFERENCE(SUMAMOUNTPERAR_SRC_DSP)*/NULL;
179     FORMAT_AMOUNT_FIELD('SumAMOUNTPerAR_SRC');
180     RETURN (SUMAMOUNTPERAR_SRC_DSP);
181   END SUMAMOUNTPERAR_SRC_DSPFORMULA;
182 
183   FUNCTION SUMAMOUNTPERAP_SRC_DSPFORMULA(SUMAMOUNTPERAP_SRC IN NUMBER
184                                         ,SUMAMOUNTPERAP_SRC_DSP IN VARCHAR2) RETURN CHAR IS
185   BEGIN
186     /*SRW.REFERENCE(SUMAMOUNTPERAP_SRC)*/NULL;
187     /*SRW.REFERENCE(SUMAMOUNTPERAP_SRC_DSP)*/NULL;
188     FORMAT_AMOUNT_FIELD('sumamountperap_src');
189     RETURN (SUMAMOUNTPERAP_SRC_DSP);
190   END SUMAMOUNTPERAP_SRC_DSPFORMULA;
191 
192   FUNCTION AMOUNT1_DSPFORMULA(AMOUNT1 IN NUMBER
193                              ,AMOUNT1_DSP IN VARCHAR2) RETURN CHAR IS
194   BEGIN
195     /*SRW.REFERENCE(AMOUNT1)*/NULL;
196     /*SRW.REFERENCE(AMOUNT1_DSP)*/NULL;
197     FORMAT_AMOUNT_FIELD('amount1');
198     RETURN (AMOUNT1_DSP);
199   END AMOUNT1_DSPFORMULA;
200 
201   FUNCTION SUM_AMOUNT_DSPFORMULA(SUM_AMOUNT IN NUMBER
202                                 ,SUM_AMOUNT_DSP IN VARCHAR2) RETURN CHAR IS
203   BEGIN
204     /*SRW.REFERENCE(SUM_AMOUNT)*/NULL;
205     /*SRW.REFERENCE(SUM_AMOUNT_DSP)*/NULL;
206     FORMAT_AMOUNT_FIELD_LARGE('sum_amount');
207     RETURN (SUM_AMOUNT_DSP);
208   END SUM_AMOUNT_DSPFORMULA;
209 
210   FUNCTION HP_AMOUNT_DSPFORMULA(HP_AMOUNT IN NUMBER
211                                ,HP_AMOUNT_DSP IN VARCHAR2) RETURN CHAR IS
212   BEGIN
213     /*SRW.REFERENCE(HP_AMOUNT)*/NULL;
214     /*SRW.REFERENCE(HP_AMOUNT_DSP)*/NULL;
215     FORMAT_AMOUNT_FIELD_LARGE('hp_amount');
216     RETURN (HP_AMOUNT_DSP);
217   END HP_AMOUNT_DSPFORMULA;
218 
219   FUNCTION SUMSUMAMOUNTPERRPT_DSPFORMULA(SUMSUMAMOUNTPERRPT IN NUMBER
220                                         ,SUMSUMAMOUNTPERRPT_DSP IN VARCHAR2) RETURN CHAR IS
221   BEGIN
222     /*SRW.REFERENCE(SUMSUMAMOUNTPERRPT)*/NULL;
223     /*SRW.REFERENCE(SUMSUMAMOUNTPERRPT_DSP)*/NULL;
224     FORMAT_AMOUNT_FIELD_LARGE('SumSUMAMOUNTPerRPT');
225     RETURN (SUMSUMAMOUNTPERRPT_DSP);
226   END SUMSUMAMOUNTPERRPT_DSPFORMULA;
227 
228   FUNCTION SUMHPAMOUNTPERRPT_DSPFORMULA(SUMHPAMOUNTPERRPT IN NUMBER
229                                        ,SUMHPAMOUNTPERRPT_DSP IN VARCHAR2) RETURN CHAR IS
230   BEGIN
231     /*SRW.REFERENCE(SUMHPAMOUNTPERRPT)*/NULL;
232     /*SRW.REFERENCE(SUMHPAMOUNTPERRPT_DSP)*/NULL;
233     FORMAT_AMOUNT_FIELD_LARGE('SumHPAMOUNTPerRPT');
234     RETURN (SUMHPAMOUNTPERRPT_DSP);
235   END SUMHPAMOUNTPERRPT_DSPFORMULA;
236 
237   FUNCTION CF_NET_POSITION_DSPFORMULA(CF_NET_POSITION IN NUMBER
238                                      ,CF_NET_POSITION_DSP IN VARCHAR2) RETURN CHAR IS
239   BEGIN
240     /*SRW.REFERENCE(CF_NET_POSITION)*/NULL;
241     /*SRW.REFERENCE(CF_NET_POSITION_DSP)*/NULL;
242     FORMAT_AMOUNT_FIELD_LARGE('cf_net_position');
243     RETURN (CF_NET_POSITION_DSP);
244   END CF_NET_POSITION_DSPFORMULA;
245 
246   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
247     CURSOR GET_LANGUAGE_DESC IS
248       SELECT
249         ITEM_NAME,
250         TEXT LANG_NAME
251       FROM
252         XTR_SYS_LANGUAGES_VL
253       WHERE MODULE_NAME = 'XTRHOAPR';
254   BEGIN
255     FOR c IN GET_LANGUAGE_DESC LOOP
256       IF C.ITEM_NAME = 'Z_REPORT_DATE' THEN
257         Z_REPORT_DATE := C.LANG_NAME;
258       ELSIF C.ITEM_NAME = 'Z_PAGE' THEN
259         Z_PAGE := C.LANG_NAME;
260       ELSIF C.ITEM_NAME = 'Z_SEARCH_BY' THEN
261         Z_SEARCH_BY := C.LANG_NAME;
262       ELSIF C.ITEM_NAME = 'Z_SOURCE' THEN
263         Z_SOURCE := C.LANG_NAME;
264       ELSIF C.ITEM_NAME = 'Z_CURRENCY' THEN
265         Z_CURRENCY := C.LANG_NAME;
266       ELSIF C.ITEM_NAME = 'Z_COMPANY' THEN
267         Z_COMPANY := C.LANG_NAME;
268       ELSIF C.ITEM_NAME = 'Z_SOB_CURRENCY' THEN
269         Z_SOB_CURRENCY := C.LANG_NAME;
270       ELSIF C.ITEM_NAME = 'Z_AP_DISCOUNT' THEN
271         Z_AP_DISCOUNT := C.LANG_NAME;
272       ELSIF C.ITEM_NAME = 'Z_FACTOR' THEN
273         Z_FACTOR := C.LANG_NAME;
274       ELSIF C.ITEM_NAME = 'Z_DUE_DATE_FROM' THEN
275         Z_DUE_DATE_FROM := C.LANG_NAME;
276       ELSIF C.ITEM_NAME = 'Z_DUE_DATE_TO' THEN
277         Z_DUE_DATE_TO := C.LANG_NAME;
278       ELSIF C.ITEM_NAME = 'Z_UNAPPLIED_PREPAYMENTS' THEN
279         Z_UNAPPLIED_PREPAYMENTS := C.LANG_NAME;
280       ELSIF C.ITEM_NAME = 'Z_UNAPPLIED_RECEIPTS' THEN
281         Z_UNAPPLIED_RECEIPTS := C.LANG_NAME;
282       ELSIF C.ITEM_NAME = 'Z_SHOW_TRANSACTIONS' THEN
283         Z_SHOW_TRANSACTIONS := C.LANG_NAME;
284       ELSIF C.ITEM_NAME = 'Z_CRITERIA_SET' THEN
285         Z_CRITERIA_SET := C.LANG_NAME;
286       ELSIF C.ITEM_NAME = 'Z_PARAMETERS' THEN
287         Z_PARAMETERS := C.LANG_NAME;
288       ELSIF C.ITEM_NAME = 'Z_BASIC_SEARCH_CRITERIA' THEN
289         Z_BASIC_SEARCH_CRITERIA := C.LANG_NAME;
290       ELSIF C.ITEM_NAME = 'Z_ADVANCED_SEARCH_CRITERIA' THEN
291         Z_ADVANCED_SEARCH_CRITERIA := C.LANG_NAME;
292       ELSIF C.ITEM_NAME = 'Z_OPEN_ARAP_HEDGE_POSITION' THEN
293         Z_OPEN_ARAP_HEDGE_POSITION := C.LANG_NAME;
294       ELSIF C.ITEM_NAME = 'Z_AS_OF_DATE' THEN
295         Z_AS_OF_DATE := C.LANG_NAME;
296       ELSIF C.ITEM_NAME = 'Z_SUMMARY_POSITION' THEN
297         Z_SUMMARY_POSITION := C.LANG_NAME;
298       ELSIF C.ITEM_NAME = 'Z_NET_POSITION' THEN
299         Z_NET_POSITION := C.LANG_NAME;
300       ELSIF C.ITEM_NAME = 'Z_ACTUAL_HEDGE_POSITION' THEN
301         Z_ACTUAL_HEDGE_POSITION := C.LANG_NAME;
302       ELSIF C.ITEM_NAME = 'Z_UNDER_APPLIED' THEN
303         Z_UNDER_APPLIED := C.LANG_NAME;
304       ELSIF C.ITEM_NAME = 'Z_OVER_APPLIED' THEN
305         Z_OVER_APPLIED := C.LANG_NAME;
306       ELSIF C.ITEM_NAME = 'Z_EVEN' THEN
307         Z_EVEN := C.LANG_NAME;
308       ELSIF C.ITEM_NAME = 'Z_ACTUAL_OPEN_POSITION_SUM' THEN
309         Z_ACTUAL_OPEN_POSITION_SUM := C.LANG_NAME;
310       ELSIF C.ITEM_NAME = 'Z_OUTSTANDING_AMOUNT' THEN
311         Z_OUTSTANDING_AMOUNT := C.LANG_NAME;
312       ELSIF C.ITEM_NAME = 'Z_ACTUAL_HEDGE_POSITION_SUM' THEN
313         Z_ACTUAL_HEDGE_POSITION_SUM := C.LANG_NAME;
314       ELSIF C.ITEM_NAME = 'Z_HEDGE_NUMBER' THEN
315         Z_HEDGE_NUMBER := C.LANG_NAME;
316       ELSIF C.ITEM_NAME = 'Z_DEAL_NUMBER' THEN
317         Z_DEAL_NUMBER := C.LANG_NAME;
318       ELSIF C.ITEM_NAME = 'Z_OFFSET' THEN
319         Z_OFFSET := C.LANG_NAME;
320       ELSIF C.ITEM_NAME = 'Z_DAYS' THEN
321         Z_DAYS := C.LANG_NAME;
322       ELSIF C.ITEM_NAME = 'Z_REMAINING' THEN
323         Z_REMAINING := C.LANG_NAME;
324       ELSIF C.ITEM_NAME = 'Z_RECEIVABLES' THEN
325         Z_RECEIVABLES := C.LANG_NAME;
326       ELSIF C.ITEM_NAME = 'Z_TRANS_TYPE' THEN
327         Z_TRANS_TYPE := C.LANG_NAME;
328       ELSIF C.ITEM_NAME = 'Z_OPERATING_UNIT' THEN
329         Z_OPERATING_UNIT := C.LANG_NAME;
330       ELSIF C.ITEM_NAME = 'Z_CUSTOMER' THEN
331         Z_CUSTOMER := C.LANG_NAME;
332       ELSIF C.ITEM_NAME = 'Z_TRANS_DATE' THEN
333         Z_TRANS_DATE := C.LANG_NAME;
334       ELSIF C.ITEM_NAME = 'Z_DUE_DATE' THEN
335         Z_DUE_DATE := C.LANG_NAME;
336       ELSIF C.ITEM_NAME = 'Z_TRANS_NUMBER' THEN
337         Z_TRANS_NUMBER := C.LANG_NAME;
338       ELSIF C.ITEM_NAME = 'Z_TRANS_AMOUNT' THEN
339         Z_TRANS_AMOUNT := C.LANG_NAME;
340       ELSIF C.ITEM_NAME = 'Z_TOTAL' THEN
341         Z_TOTAL := C.LANG_NAME;
342       ELSIF C.ITEM_NAME = 'Z_PAYABLES' THEN
343         Z_PAYABLES := C.LANG_NAME;
344       ELSIF C.ITEM_NAME = 'Z_INVOICE_TYPE' THEN
345         Z_INVOICE_TYPE := C.LANG_NAME;
346       ELSIF C.ITEM_NAME = 'Z_SUPPLIER' THEN
347         Z_SUPPLIER := C.LANG_NAME;
348       ELSIF C.ITEM_NAME = 'Z_INVOICE_DATE' THEN
349         Z_INVOICE_DATE := C.LANG_NAME;
350       ELSIF C.ITEM_NAME = 'Z_INVOICE_NUMBER' THEN
351         Z_INVOICE_NUMBER := C.LANG_NAME;
352       ELSIF C.ITEM_NAME = 'Z_INVOICE_AMOUNT' THEN
353         Z_INVOICE_AMOUNT := C.LANG_NAME;
354       ELSIF C.ITEM_NAME = 'Z_END_OF_REPORT' THEN
355         Z_END_OF_REPORT := C.LANG_NAME;
356       ELSIF C.ITEM_NAME = 'Z_NO_DATA_FOUND' THEN
357         Z_NO_DATA_FOUND := C.LANG_NAME;
358       END IF;
359     END LOOP;
360     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
361     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
362     RETURN (TRUE);
363   END BEFOREREPORT;
364 
365   FUNCTION AFTERREPORT RETURN BOOLEAN IS
366   BEGIN
367     IF (P_DUMMY1 = 'D') THEN
368       DELETE FROM XTR_HEDGE_CRITERIA
369        WHERE CRITERIA_SET = P_CRITERIA_SET_V
370          AND CRITERIA_SET_OWNER = P_CRITERIA_SET_OWNER;
371       COMMIT;
372       P_CRITERIA_SET_V := NULL;
373     END IF;
374     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
375     RETURN (TRUE);
376   END AFTERREPORT;
377 
378   FUNCTION CF_FROM_VALUE_DSPFORMULA(CRITERIA_CODE IN VARCHAR2
379                                    ,FROM_VALUE IN VARCHAR2) RETURN CHAR IS
380     V_VALUE VARCHAR2(240);
381     CURSOR C_COMN_OPUNIT(P_VALUE IN VARCHAR2) IS
382       SELECT
383         NAME
384       FROM
385         HR_OPERATING_UNITS OU
386       WHERE ORGANIZATION_ID = P_VALUE;
387     CURSOR C_AP_SUPPLIER(P_VALUE IN VARCHAR2) IS
388       SELECT
389         VENDOR_NAME
390       FROM
391         PO_VENDORS
392       WHERE VENDOR_ID = P_VALUE;
393     CURSOR C_AP_INVTYPE(P_VALUE IN VARCHAR2) IS
394       SELECT
395         DISPLAYED_FIELD
396       FROM
397         AP_LOOKUP_CODES
398       WHERE LOOKUP_TYPE = 'INVOICE TYPE'
399         AND LOOKUP_CODE = P_VALUE;
400     CURSOR C_AP_SOURCE(P_VALUE IN VARCHAR2) IS
401       SELECT
402         DISPLAYED_FIELD
403       FROM
404         AP_LOOKUP_CODES
405       WHERE LOOKUP_TYPE = 'SOURCE'
406         AND LOOKUP_CODE = P_VALUE;
407   BEGIN
408     IF CRITERIA_CODE in ('AR_SOURCE','AR_TRXTYPE','AR_CUSTOMER') THEN
409       V_VALUE := FROM_VALUE;
410     ELSIF CRITERIA_CODE = 'COMN_OPUNIT' THEN
411       OPEN C_COMN_OPUNIT(FROM_VALUE);
412       FETCH C_COMN_OPUNIT
413        INTO V_VALUE;
414       CLOSE C_COMN_OPUNIT;
415     ELSIF CRITERIA_CODE = 'AP_SUPPLIER' THEN
416       OPEN C_AP_SUPPLIER(FROM_VALUE);
417       FETCH C_AP_SUPPLIER
418        INTO V_VALUE;
419       CLOSE C_AP_SUPPLIER;
420     ELSIF CRITERIA_CODE = 'AP_INVTYPE' THEN
421       OPEN C_AP_INVTYPE(FROM_VALUE);
422       FETCH C_AP_INVTYPE
423        INTO V_VALUE;
424       CLOSE C_AP_INVTYPE;
425     ELSIF CRITERIA_CODE = 'AP_SOURCE' THEN
426       IF FROM_VALUE = 'XTR_AP_SOURCE_MANUAL' THEN
427         FND_MESSAGE.SET_NAME('XTR'
428                             ,'XTR_AP_SOURCE_MANUAL');
429         V_VALUE := SUBSTR(FND_MESSAGE.GET
430                          ,1
431                          ,80);
432       ELSIF FROM_VALUE = 'XTR_AP_SOURCE_OTHER' THEN
433         FND_MESSAGE.SET_NAME('XTR'
434                             ,'XTR_AP_SOURCE_OTHER');
435         V_VALUE := SUBSTR(FND_MESSAGE.GET
436                          ,1
437                          ,80);
438       ELSE
439         OPEN C_AP_SOURCE(FROM_VALUE);
440         FETCH C_AP_SOURCE
441          INTO V_VALUE;
442         CLOSE C_AP_SOURCE;
443       END IF;
444     END IF;
445     RETURN V_VALUE;
446   END CF_FROM_VALUE_DSPFORMULA;
447 
448 PROCEDURE FORMAT_AMOUNT_FIELD(p_amt_field VARCHAR2) IS
449   l_precision number;
450 BEGIN
451 
452 /*SRW.REFERENCE(:p_currency);
453 SRW.REFERENCE(L_PRECISION);*/
454 
455 If P_FACTOR = '0' then
456 
457   /* SRW.USER_EXIT('FND FORMAT_CURRENCY
458                 CODE=":p_currency"
459                 DISPLAY_WIDTH="20"
460                 AMOUNT=":'||p_amt_field||'"
461                 DISPLAY=":'||p_amt_field||'_dsp"
462                 PRECISION="STANDARD"
463 	        ');*/null;
464 
465 Else
466 
467   /* SRW.USER_EXIT('FND FORMAT_CURRENCY
468                 CODE=":p_currency"
469                 DISPLAY_WIDTH="20"
470                 AMOUNT=":'||p_amt_field||'"
471                 DISPLAY=":'||p_amt_field||'_dsp"
472                 PRECISION="STANDARD"
473                 DISPLAY_SCALING_FACTOR="'||to_char(length(:p_factor)-1)||'"
474 	        ');*/ null;
475 End If;
476 
477 END;
478 
479 PROCEDURE FORMAT_AMOUNT_FIELD_LARGE(p_amt_field VARCHAR2) IS
480   l_precision number;
481 BEGIN
482 
483 /*SRW.REFERENCE(:p_currency);
484 SRW.REFERENCE(L_PRECISION);
485 */
486 If P_FACTOR = '0' then
487 
488    /*SRW.USER_EXIT('FND FORMAT_CURRENCY
489                 CODE=":p_currency"
490                 DISPLAY_WIDTH="50"
491                 AMOUNT=":'||p_amt_field||'"
492                 DISPLAY=":'||p_amt_field||'_dsp"
493                 PRECISION="STANDARD"
494 	        ');*/null;
495 
496 Else
497 
498   /* SRW.USER_EXIT('FND FORMAT_CURRENCY
499                 CODE=":p_currency"
500                 DISPLAY_WIDTH="50"
501                 AMOUNT=":'||p_amt_field||'"
502                 DISPLAY=":'||p_amt_field||'_dsp"
503                 PRECISION="STANDARD"
504                 DISPLAY_SCALING_FACTOR="'||to_char(length(:p_factor)-1)||'"
505 	        ');*/ null;
506 End If;
507 
508 END;
509 
510 END XTR_XTRHOAPR_XMLP_PKG;
511