1 package FND_CURRENCY_CACHE AUTHID CURRENT_USER as
2 /* $Header: AFMLCUCS.pls 120.2 2005/11/02 14:05:10 fskinner noship $ */
3
4
5 /* GET_FORMAT_MASK- get the format mask for a particular currency.
6 **
7 ** Returns a currency format mask to be used with the forms
8 ** SET_ITEM_PROPERTY(item_name, FORMAT_MASK,
9 ** FND_CURRENCY.GET_FORMAT_MASK(...)) built-in call,
10 ** or the PLSQL to_char() routine, based on the currency code passed in.
11 **
12 */
13 function GET_FORMAT_MASK( currency_code IN VARCHAR2,
14 field_length IN NUMBER)
15 return VARCHAR2;
16
17
18 /*
19 ** GET_INFO- get the precision information for a currency code
20 **
21 ** returns information about a currency code, based on the
22 ** cache of currency information from the FND db table.
23 **
24 */
25 procedure GET_INFO(
26 currency_code IN VARCHAR2, /* currency code */
27 precision OUT nocopy NUMBER, /* number of digits to right of decimal*/
28 ext_precision OUT nocopy NUMBER, /* precision where more precision is needed*/
29 min_acct_unit OUT nocopy NUMBER /* minimum value by which amt can vary */
30 );
31
32
33 /* BUILD_FORMAT_MASK- create a format mask for a currency value
34 **
35 ** Creates a currency format mask to be used with forms
36 ** SET_ITEM_PROPERTY(item_name, FORMAT_MASK, new_format_mask)
37 ** built-in call, or the PLSQL to_char() routine,
38 ** based on the currency parameters passed in.
39 **
40 ** Note that if neg_format is '-XXX', then pos_format must
41 ** be '+XXX' or 'XXX'.
42 **
43 ** If the last three parameters are left off, their values will
44 ** default from the profile value system.
45 */
46 procedure BUILD_FORMAT_MASK(
47 format_mask OUT nocopy VARCHAR2,
48 field_length IN NUMBER, /* maximum number of char in dest field */
49 precision IN NUMBER, /* number of digits to right of decimal*/
50 min_acct_unit IN NUMBER, /* minimum value by which amt can vary */
51 disp_grp_sep IN BOOLEAN default NULL,
52 /* NULL=from profile CURRENCY:THOUSANDS_SEPARATOR */
53 neg_format IN VARCHAR2 default NULL,
54 /* '-XXX', 'XXX-', '<XXX>', */
55 /* NULL=from profile CURRENCY:NEGATVE_FORMAT */
56 pos_format IN VARCHAR2 default NULL
57 /* 'XXX', '+XXX', 'XXX-', */
58 /* NULL=from profile CURRENCY:POSITIVE_FORMAT*/
59 );
60
61 END FND_CURRENCY_CACHE;
62