856: AND pet.effective_end_date;
857:
858: Cursor decode_Currency is
859: Select Name
860: from Fnd_Currencies_Vl
861: Where Currency_Code = l_currency;
862: -- and Enabled_Flag = 'Y'; -- 5579090
863:
864: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
860: from Fnd_Currencies_Vl
861: Where Currency_Code = l_currency;
862: -- and Enabled_Flag = 'Y'; -- 5579090
863:
864: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
865:
866:
867: BEGIN
868: OPEN currency;
907: AND pet.effective_end_date;
908:
909: Cursor five_curr is
910: Select CURRENCY_CODE
911: from Fnd_Currencies_Vl
912: Where PRECISION = 5
913: and rownum = 1;
914:
915: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
911: from Fnd_Currencies_Vl
912: Where PRECISION = 5
913: and rownum = 1;
914:
915: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
916: BEGIN
917: OPEN currency;
918: FETCH currency INTO l_currency,l_uom;
919: CLOSE currency;