[Home] [Help]
PACKAGE BODY: APPS.AP_WEB_DB_COUNTRY_PKG
Source
1 PACKAGE BODY AP_WEB_DB_COUNTRY_PKG AS
2 /* $Header: apwdbctb.pls 120.5 2005/10/02 20:11:38 albowicz ship $ */
3 --------------------------------------------------------------------------------
4 FUNCTION GetCountryListCursor(
5 p_country_list_cursor OUT NOCOPY CountryListCursor
6 ) RETURN BOOLEAN IS
7 --------------------------------------------------------------------------------
8 BEGIN
9 OPEN p_country_list_cursor FOR
10 SELECT territory_short_name,
11 territory_code
12 FROM fnd_territories_vl;
13
14 return TRUE;
15
16 EXCEPTION
17
18 WHEN NO_DATA_FOUND THEN
19 RETURN FALSE;
20
21 WHEN OTHERS THEN
22 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCountryListCursor' );
23
24 APP_EXCEPTION.RAISE_EXCEPTION;
25 return FALSE;
26 END GetCountryListCursor;
27
28
29 --------------------------------------------------------------------------------
30 FUNCTION GetCurrencyPrecision(
31 p_reimb_curr_code IN curr_currCode
32 ) RETURN curr_precision IS
33 --------------------------------------------------------------------------------
34
35 l_curr_precision AP_WEB_DB_COUNTRY_PKG.curr_precision;
36
37 BEGIN
38
39 SELECT NVL(fndcvl.precision,0) precision
40 INTO l_curr_precision
41 FROM fnd_currencies_vl fndcvl
42 WHERE fndcvl.currency_code = p_reimb_curr_code;
43
44 return l_curr_precision;
45
46 EXCEPTION
47
48 WHEN NO_DATA_FOUND THEN
49 RETURN NULL;
50
51 WHEN OTHERS THEN
52 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCurrencyPrecision' );
53 APP_EXCEPTION.RAISE_EXCEPTION;
54 RETURN NULL;
55 END GetCurrencyPrecision;
56
57
58 /* Suggested currency cursor extraction in apwxutlb.pls */
59 -------------------------------------------------------------------
60 FUNCTION GetCurrencyInfoCursor(
61 p_currency_info_cursor OUT NOCOPY CurrencyInfoCursor
62 ) RETURN BOOLEAN IS
63 -------------------------------------------------------------------
64 BEGIN
65
66 OPEN p_currency_info_cursor FOR
67 SELECT fndcvl.currency_code,
68 fndcvl.name,
69 NVL(fndcvl.precision,0) precision,
70 fndcvl.minimum_accountable_unit,
71 fndcvl.derive_factor,
72 fndcvl.derive_effective
73 FROM fnd_currencies_vl fndcvl
74 WHERE fndcvl.enabled_flag = 'Y'
75 AND fndcvl.currency_flag = 'Y'
76 AND trunc(nvl(fndcvl.start_date_active, sysdate)) <= trunc(sysdate)
77 AND trunc(nvl(fndcvl.end_date_active, sysdate)) >= trunc(sysdate)
78 ORDER BY UPPER(fndcvl.currency_code);
79
80 return TRUE;
81
82 EXCEPTION
83
84 WHEN NO_DATA_FOUND THEN
85 RETURN FALSE;
86
87 WHEN OTHERS THEN
88 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCurrencyInfoCursor' );
89 APP_EXCEPTION.RAISE_EXCEPTION;
90 return FALSE;
91 END GetCurrencyInfoCursor;
92
93 --------------------------------------------------------------------------------
94 FUNCTION GetCurrNameForCurrCode(
95 p_curr_code IN AP_WEB_DB_COUNTRY_PKG.curr_currCode,
96 p_curr_name OUT NOCOPY AP_WEB_DB_COUNTRY_PKG.curr_name
97 ) RETURN BOOLEAN IS
98 --------------------------------------------------------------------------------
99 BEGIN
100 SELECT name
101 INTO p_curr_name
102 FROM fnd_currencies_vl
103 WHERE currency_code = p_curr_code;
104
105 RETURN TRUE;
106 EXCEPTION
107 WHEN NO_DATA_FOUND THEN
108 RETURN FALSE;
109
110 WHEN OTHERS THEN
111 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCurrNameForCurrCode' );
112 APP_EXCEPTION.RAISE_EXCEPTION;
113 return FALSE;
114 END GetCurrNameForCurrCode;
115
116 -------------------------------------------------------------------
117 FUNCTION GetCurrCodeProperties(
118 p_curr_code IN curr_currCode,
119 p_curr_name OUT NOCOPY curr_name,
120 p_precision OUT NOCOPY curr_precision,
121 p_minimum_acct_unit OUT NOCOPY curr_minAcctUnit
122 ) RETURN BOOLEAN IS
123 -------------------------------------------------------------------
124 BEGIN
125 SELECT fndcvl.name,
126 NVL(fndcvl.precision,0),
127 fndcvl.minimum_accountable_unit
128 INTO p_curr_name,
129 p_precision,
130 p_minimum_acct_unit
131 FROM fnd_currencies_vl fndcvl
132 WHERE currency_code = p_curr_code;
133
134 return TRUE;
135 EXCEPTION
136
137 WHEN NO_DATA_FOUND THEN
138 RETURN FALSE;
139
140 WHEN OTHERS THEN
141 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCurrCodeProperties' );
142 APP_EXCEPTION.RAISE_EXCEPTION;
143 return FALSE;
144 END GetCurrCodeProperties;
145
146 -------------------------------------------------------------------
147 FUNCTION GetCurrencyProperties(
148 p_curr_code IN curr_currCode,
149 p_curr_name OUT NOCOPY curr_name,
150 p_precision OUT NOCOPY curr_precision,
151 p_minimum_acct_unit OUT NOCOPY curr_minAcctUnit
152 ) RETURN BOOLEAN IS
153 -------------------------------------------------------------------
154 BEGIN
155
156 SELECT fndcvl.name,
157 NVL(fndcvl.precision,0),
158 fndcvl.minimum_accountable_unit
159 INTO p_curr_name,
160 p_precision,
161 p_minimum_acct_unit
162 FROM fnd_currencies_vl fndcvl
163 WHERE currency_code = p_curr_code
164 AND fndcvl.enabled_flag = 'Y'
165 AND fndcvl.currency_flag = 'Y'
166 AND trunc(nvl(fndcvl.start_date_active, sysdate)) <= trunc(sysdate)
167 AND trunc(nvl(fndcvl.end_date_active, sysdate)) >= trunc(sysdate);
168
169 RETURN TRUE;
170
171 EXCEPTION
172
173 WHEN NO_DATA_FOUND THEN
174 RETURN FALSE;
175
176 WHEN OTHERS THEN
177 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCurrencyProperties' );
178
179 APP_EXCEPTION.RAISE_EXCEPTION;
180 return FALSE;
181 END GetCurrencyProperties;
182
183 --------------------------------------------------------------------------------
184 FUNCTION GetCurrCodeCursor(
185 p_curr_code_cursor OUT NOCOPY CurrencyCodeCursor
186 ) RETURN BOOLEAN IS
187 --------------------------------------------------------------------------------
188 BEGIN
189 OPEN p_curr_code_cursor FOR
190 SELECT fndcvl.currency_code
191 FROM fnd_currencies_vl fndcvl
192 -- chiho:1326239:
193 WHERE enabled_flag = 'Y'
194 ORDER BY UPPER(fndcvl.currency_code);
195
196 RETURN TRUE;
197
198 EXCEPTION
199
200 WHEN NO_DATA_FOUND THEN
201 RETURN FALSE;
202
203 WHEN OTHERS THEN
204 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetCurrCodeCursor' );
205
206 APP_EXCEPTION.RAISE_EXCEPTION;
207 return FALSE;
208 END GetCurrCodeCursor;
209
210
211 END AP_WEB_DB_COUNTRY_PKG;