Häflerli rund um Währige
Es Häferli rund um s'Handling vo Währige
[Script 1.0]
script package rbsc$curry
is
/*
-------------------------------------------------------------------------------------------------------------
Bank :
Business Area :
Description : Constants and utilities around currencies
Owner :
-------------------------------------------------------------------------------------------------------------
ID Date Name, Company Issue Change Log or Description
-------------------------------------------------------------------------------------------------------------
001
-------------------------------------------------------------------------------------------------------------
*/
import native def_obj_key;
-- ISO abbreviation
c_aed constant text := 'AED'; -- United Arab Emirates dirham
c_aud constant text := 'AUD'; -- Australian Dollar
c_bgn constant text := 'BGN'; -- Bulgarian (new) Lev
c_brl constant text := 'BRL'; -- Brasilian Real
c_cad constant text := 'CAD'; -- Canadian Dollar
c_chf constant text := 'CHF'; -- Swiss Franc
c_cny constant text := 'CNY'; -- China Yuan Renminbi Ausland
c_czk constant text := 'CZK'; -- Czech Koruna
c_dkk constant text := 'DKK'; -- Danish Krona
c_eur constant text := 'EUR'; -- Euro
c_gbp constant text := 'GBP'; -- Pound Sterling
c_hkd constant text := 'HKD'; -- Honk Kong Dollar
c_hrk constant text := 'HRK'; -- Croatian Kuna
c_huf constant text := 'HUF'; -- Hungarian Forint
c_idr constant text := 'IDR'; -- Indonesia Rupia
c_inr constant text := 'INR'; -- India Rupee
c_isk constant text := 'ISK'; -- Islandic Krona
c_jpy constant text := 'JPY'; -- Japanese Jenn
c_krw constant text := 'KRW'; -- Korea (South) Wong
c_ltl constant text := 'LTL'; -- Lithuanian Litas
c_lvl constant text := 'LVL'; -- Latvian Lats
c_myr constant text := 'MYR'; -- Malaysia Ringgit
c_nok constant text := 'NOK'; -- Norwegian Krona
c_nzd constant text := 'NZD'; -- New Zealand Dollar
c_pln constant text := 'PLN'; -- Polish (new) Zloty
c_php constant text := 'PHP'; -- Philippines Peso
c_rmb constant text := 'RMB'; -- China Yuan Renminbi Inland
c_ron constant text := 'RON'; -- Romanian (new) Leu
c_rub constant text := 'RUB'; -- Russian Ruble
c_sar constant text := 'SAR'; -- Saudi Riyal
c_sek constant text := 'SEK'; -- Swedish Krona
c_sgd constant text := 'SGD'; -- Singapore Dollar
c_thb constant text := 'THB'; -- Thailand Bath
c_try constant text := 'TRY'; -- Turkish Lira
c_twd constant text := 'TWD'; -- Taiwan New Dollar
c_usd constant text := 'USD'; -- US Dollar
c_zar constant text := 'ZAR'; -- South African Rand
-- Metal currencies
c_kru constant text := 'KRU'; -- Kruegerrand
c_xag constant text := 'XAG'; -- Silver
c_xau constant text := 'XAU'; -- Gold
c_xpd constant text := 'XPD'; -- Palladium
c_xpt constant text := 'XPT'; -- Platinum
-- Format: c_<key: asset_iso(9)>
c_aed_id constant number := lookup.curry_id(c_aed, def_obj_key.asset_iso);
c_aud_id constant number := lookup.curry_id(c_aud, def_obj_key.asset_iso);
c_bgn_id constant number := lookup.curry_id(c_bgn, def_obj_key.asset_iso);
c_brl_id constant number := lookup.curry_id(c_brl, def_obj_key.asset_iso);
c_cad_id constant number := lookup.curry_id(c_cad, def_obj_key.asset_iso);
c_chf_id constant number := lookup.curry_id(c_chf, def_obj_key.asset_iso);
c_cny_id constant number := lookup.curry_id(c_cny, def_obj_key.asset_iso);
c_czk_id constant number := lookup.curry_id(c_czk, def_obj_key.asset_iso);
c_dkk_id constant number := lookup.curry_id(c_dkk, def_obj_key.asset_iso);
c_eur_id constant number := lookup.curry_id(c_eur, def_obj_key.asset_iso);
c_gbp_id constant number := lookup.curry_id(c_gbp, def_obj_key.asset_iso);
c_hkd_id constant number := lookup.curry_id(c_hkd, def_obj_key.asset_iso);
c_huf_id constant number := lookup.curry_id(c_huf, def_obj_key.asset_iso);
c_idr_id constant number := lookup.curry_id(c_idr, def_obj_key.asset_iso);
c_inr_id constant number := lookup.curry_id(c_inr, def_obj_key.asset_iso);
c_isk_id constant number := lookup.curry_id(c_isk, def_obj_key.asset_iso);
c_jpy_id constant number := lookup.curry_id(c_jpy, def_obj_key.asset_iso);
c_krw_id constant number := lookup.curry_id(c_krw, def_obj_key.asset_iso);
c_ltl_id constant number := lookup.curry_id(c_ltl, def_obj_key.asset_iso);
c_lvl_id constant number := lookup.curry_id(c_lvl, def_obj_key.asset_iso);
c_myr_id constant number := lookup.curry_id(c_myr, def_obj_key.asset_iso);
c_nok_id constant number := lookup.curry_id(c_nok, def_obj_key.asset_iso);
c_nzd_id constant number := lookup.curry_id(c_nzd, def_obj_key.asset_iso);
c_pln_id constant number := lookup.curry_id(c_pln, def_obj_key.asset_iso);
c_php_id constant number := lookup.curry_id(c_php, def_obj_key.asset_iso);
c_rmb_id constant number := lookup.curry_id(c_rmb, def_obj_key.asset_iso);
c_ron_id constant number := lookup.curry_id(c_ron, def_obj_key.asset_iso);
c_rub_id constant number := lookup.curry_id(c_rub, def_obj_key.asset_iso);
c_sar_id constant number := lookup.curry_id(c_sar, def_obj_key.asset_iso);
c_sek_id constant number := lookup.curry_id(c_sek, def_obj_key.asset_iso);
c_sgd_id constant number := lookup.curry_id(c_sgd, def_obj_key.asset_iso);
c_thb_id constant number := lookup.curry_id(c_thb, def_obj_key.asset_iso);
c_try_id constant number := lookup.curry_id(c_try, def_obj_key.asset_iso);
c_twd_id constant number := lookup.curry_id(c_twd, def_obj_key.asset_iso);
c_usd_id constant number := lookup.curry_id(c_usd, def_obj_key.asset_iso);
c_zar_id constant number := lookup.curry_id(c_zar, def_obj_key.asset_iso);
-- Metal currencies
c_kru_id constant number := lookup.asset_id(c_kru, def_obj_key.asset_iso);
c_xag_id constant number := lookup.asset_id(c_xag, def_obj_key.asset_iso);
c_xau_id constant number := lookup.asset_id(c_xau, def_obj_key.asset_iso);
c_xpd_id constant number := lookup.asset_id(c_xpd, def_obj_key.asset_iso);
c_xpt_id constant number := lookup.asset_id(c_xpt, def_obj_key.asset_iso);
---------------------------------------------------------------------------------------
-- Function returns true if the currency is officially used in one of the EEA countries
-- EEA = European Eceonomic Area = EWR Europaeischer Wirtschaftsraum
-- Attention: FL is part of the EEA and thus CHF features among these currencies!!
---------------------------------------------------------------------------------------
function is_eea_curry_iso(i_curry_iso text)
return boolean
is
begin
if i_curry_iso in (c_eur, c_bgn, c_chf, c_czk, c_dkk, c_hrk, c_huf, c_isk, c_ltl, c_nok, c_pln, c_ron, c_sek, c_gbp)
then
return true
else
return false
end if;
end is_eea_curry_iso;
end rbsc$curry;
