1 PACKAGE IBY_AMOUNT_IN_WORDS AUTHID CURRENT_USER AS
2 /* $Header: ibyamtws.pls 120.3.12020000.2 2012/07/12 14:42:19 sgogula ship $ */
3
4
5 G_DEBUG_MODULE CONSTANT VARCHAR2(100) := 'iby.plsql.IBY_AMOUNT_IN_WORDS';
6
7
8 -- This function will return the text version of an amount.
9 -- It is usually needed for paper payment formats such as checks.
10 -- Current implementation is a wrapper of the various word amount conversion
11 -- modules in 11i AP and Global Financials. Many of these modules are
12 -- obseleted in R12; their code are copied and repackaged in this package.
13 --
14 -- The API uses the country code or currency code to switch to the 11i
15 -- modules. For example if the country code is ES, the API will call the logic
16 -- of 11i JEES_NTW. For this reason callers should pass in the currency code
17 -- and country code whenever possible. The API will try to find a global
18 -- country specific conversion module first; if not found the API
19 -- will use the AP logic in APXPBFOR.rdf for the conversion. The AP logic
20 -- uses userenv('LANG') to get the translated amount phrases from AP_lookup_codes.
21 --
22 -- The currency code is also used to look up the amount unit and subunit words
23 -- and unit ratios in AP logic.
24 --
25 -- Parameters:
26 -- p_amount: the amount to be converted to text
27 -- p_currency_code: the currency of the amount
28 -- p_precision: required for some cases such as JEES_NTW
29 -- p_country_code: used for cases where a global country specific conversion
30 -- module was used, e.g., JEES_NTW
31 FUNCTION Get_Amount_In_Words(p_amount IN NUMBER,
32 p_currency_code IN VARCHAR2 := NULL,
33 p_precision IN NUMBER := NULL,
34 p_country_code IN VARCHAR2 := NULL)
35 RETURN VARCHAR2;
36
37 FUNCTION amount_words_portugese(valor NUMBER) RETURN VARCHAR2;
38 PROCEDURE amount_words_portgse_milhares(valor NUMBER, b4 NUMBER, b5 NUMBER, b6 NUMBER, b7 NUMBER, b8 NUMBER, b9 NUMBER, l7 OUT NOCOPY VARCHAR2,
39 l8 OUT NOCOPY VARCHAR2, l9 OUT NOCOPY VARCHAR2, l10 OUT NOCOPY VARCHAR2, l11 OUT NOCOPY VARCHAR2, l12 OUT NOCOPY VARCHAR2, virgula_mi OUT NOCOPY VARCHAR2);
40 PROCEDURE amount_words_portgse_centos(valor NUMBER, b7 NUMBER, b8 NUMBER, b9 NUMBER, b10 NUMBER, b11 NUMBER, b12 NUMBER, l13 OUT NOCOPY VARCHAR2,
41 l14 OUT NOCOPY VARCHAR2, l15 OUT NOCOPY VARCHAR2, l16 OUT NOCOPY VARCHAR2, l17 OUT NOCOPY VARCHAR2, l18 OUT NOCOPY VARCHAR2, virgula_mil OUT NOCOPY VARCHAR2);
42 PROCEDURE amount_words_portgse_dezena(valor IN NUMBER, b10 IN NUMBER, b11 IN NUMBER, b12 IN NUMBER, l19 OUT NOCOPY VARCHAR2, l20 OUT NOCOPY VARCHAR2,
43 l21 OUT NOCOPY VARCHAR2, l22 OUT NOCOPY VARCHAR2, l23 OUT NOCOPY VARCHAR2, l24 OUT NOCOPY VARCHAR2, virgula_cr OUT NOCOPY VARCHAR2);
44 PROCEDURE amount_words_portgse_centavos(valor IN NUMBER, b13 IN NUMBER, b14 IN NUMBER, l25 OUT NOCOPY VARCHAR2, l26 OUT NOCOPY VARCHAR2, l27 OUT NOCOPY VARCHAR2, l28 OUT NOCOPY VARCHAR2, l29 OUT NOCOPY VARCHAR2);
45
46
47 /*Israel - Hebrew: Start of Components.*/
48 FUNCTION get_value_set_desc(P_Vset_Name in varchar2,P_Vset_Value in varchar2) RETURN varchar2;
49
50
51 FUNCTION trans_num2heb (P_Num in number) RETURN varchar2;
52
53
54 FUNCTION trans_money (P_Money in number) RETURN varchar2;
55
56
57 VSET_NUM_TO_HEB constant varchar2(60):=ltrim(rtrim(' NUM_TO_HEB '));
58 VSET_END_SEKEL constant varchar2(60):=ltrim(rtrim(' END_SEKEL '));
59 VSET_SEKEL_AGOROT constant varchar2(60):=ltrim(rtrim(' SEKEL_AND_AGOROT '));
60 VSET_AND_SEKEL constant varchar2(60):=ltrim(rtrim(' AND_SEKEL '));
61 VSET_END_AGOROT constant varchar2(60):=ltrim(rtrim(' END_AGOROT '));
62 VSET_ONLY constant varchar2(60):=ltrim(rtrim('ONLY'));
63 /*Israel - Hebrew: End of Components.*/
64
65
66 END IBY_AMOUNT_IN_WORDS;
67
68
[Home] [Help]