UFN_GETCURRENCY_BYSHELBYCODE

create function dbo.UFN_GETCURRENCY_BYSHELBYCODE
(
  @ECURRENCYTYPE integer
)
----From eCurrencyType C:\Infinity\DEV\Firebird\ClassicCMS\Web\Content\Core\Data\ShelbyDonationTransaction.vb

returns uniqueidentifier
with execute as caller
as begin
  declare @CURRENCYID uniqueidentifier
  declare @ISOCODE nvarchar(6)

  select @ISOCODE=
    case @ECURRENCYTYPE
      when 0 then N'USD'
      when 1  then N'EUR'
      when 2 then N'GBP'
      when 3 then N'AUD'
      when 4 then N'CAD'
            when 5 then N'NZD'
            when 6 then N'DEFAULTLOCALE'
            when 7 then N'SGD'
            when 8 then N'HKD'
            when 9 then N'JPY'
    end 

   select @CURRENCYID = ID from dbo.CURRENCY where ISO4217 = @ISOCODE
   return @CURRENCYID
end