1: PACKAGE BODY AP_AMOUNT_UTILITIES_PKG AS
2: /* $Header: apamtutb.pls 120.3 2004/10/27 01:26:08 pjena noship $ */
3:
4: function ap_convert_number (in_numeral IN NUMBER) return varchar2 is
5: c_zero ap_lookup_codes.displayed_field%TYPE;
6: c_thousand ap_lookup_codes.displayed_field%TYPE;
7: c_million ap_lookup_codes.displayed_field%TYPE;
8: c_billion ap_lookup_codes.displayed_field%TYPE;
9: number_too_large exception;
2: /* $Header: apamtutb.pls 120.3 2004/10/27 01:26:08 pjena noship $ */
3:
4: function ap_convert_number (in_numeral IN NUMBER) return varchar2 is
5: c_zero ap_lookup_codes.displayed_field%TYPE;
6: c_thousand ap_lookup_codes.displayed_field%TYPE;
7: c_million ap_lookup_codes.displayed_field%TYPE;
8: c_billion ap_lookup_codes.displayed_field%TYPE;
9: number_too_large exception;
10: numeral integer := abs(in_numeral);
3:
4: function ap_convert_number (in_numeral IN NUMBER) return varchar2 is
5: c_zero ap_lookup_codes.displayed_field%TYPE;
6: c_thousand ap_lookup_codes.displayed_field%TYPE;
7: c_million ap_lookup_codes.displayed_field%TYPE;
8: c_billion ap_lookup_codes.displayed_field%TYPE;
9: number_too_large exception;
10: numeral integer := abs(in_numeral);
11: max_digit integer := 12; -- for numbers less than a trillion
4: function ap_convert_number (in_numeral IN NUMBER) return varchar2 is
5: c_zero ap_lookup_codes.displayed_field%TYPE;
6: c_thousand ap_lookup_codes.displayed_field%TYPE;
7: c_million ap_lookup_codes.displayed_field%TYPE;
8: c_billion ap_lookup_codes.displayed_field%TYPE;
9: number_too_large exception;
10: numeral integer := abs(in_numeral);
11: max_digit integer := 12; -- for numbers less than a trillion
12: number_text varchar2(240) := '';
32: if numeral = 0 then
33: select ' '||displayed_field||' '
34: into
35: c_zero
36: from ap_lookup_codes
37: where lookup_code = 'ZERO';
38: return(c_zero);
39: end if;
40:
60: billion_lookup,
61: million_lookup,
62: thousand_lookup,
63: units_lookup
64: from ap_lookup_codes lc1,
65: ap_lookup_codes lc2,
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
61: million_lookup,
62: thousand_lookup,
63: units_lookup
64: from ap_lookup_codes lc1,
65: ap_lookup_codes lc2,
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
62: thousand_lookup,
63: units_lookup
64: from ap_lookup_codes lc1,
65: ap_lookup_codes lc2,
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
70: ap_lookup_codes lc7,
63: units_lookup
64: from ap_lookup_codes lc1,
65: ap_lookup_codes lc2,
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
70: ap_lookup_codes lc7,
71: ap_lookup_codes lc8
64: from ap_lookup_codes lc1,
65: ap_lookup_codes lc2,
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
70: ap_lookup_codes lc7,
71: ap_lookup_codes lc8
72: where lc1.lookup_code = 'BILLION'
65: ap_lookup_codes lc2,
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
70: ap_lookup_codes lc7,
71: ap_lookup_codes lc8
72: where lc1.lookup_code = 'BILLION'
73: and lc1.lookup_type = 'NLS TRANSLATION'
66: ap_lookup_codes lc3,
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
70: ap_lookup_codes lc7,
71: ap_lookup_codes lc8
72: where lc1.lookup_code = 'BILLION'
73: and lc1.lookup_type = 'NLS TRANSLATION'
74: and lc2.lookup_code = 'MILLION'
67: ap_lookup_codes lc4,
68: ap_lookup_codes lc5,
69: ap_lookup_codes lc6,
70: ap_lookup_codes lc7,
71: ap_lookup_codes lc8
72: where lc1.lookup_code = 'BILLION'
73: and lc1.lookup_type = 'NLS TRANSLATION'
74: and lc2.lookup_code = 'MILLION'
75: and lc2.lookup_type = 'NLS TRANSLATION'