825: AND pet.effective_end_date;
826:
827: Cursor decode_Currency is
828: Select Name
829: from Fnd_Currencies_Vl
830: Where Currency_Code = l_currency;
831: -- and Enabled_Flag = 'Y'; -- 5579090
832:
833: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
829: from Fnd_Currencies_Vl
830: Where Currency_Code = l_currency;
831: -- and Enabled_Flag = 'Y'; -- 5579090
832:
833: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
834:
835:
836: BEGIN
837: OPEN currency;
876: AND pet.effective_end_date;
877:
878: Cursor five_curr is
879: Select CURRENCY_CODE
880: from Fnd_Currencies_Vl
881: Where PRECISION = 5
882: and rownum = 1;
883:
884: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
880: from Fnd_Currencies_Vl
881: Where PRECISION = 5
882: and rownum = 1;
883:
884: P_Currency_name Fnd_Currencies_Vl.Name%TYPE := NULL;
885: BEGIN
886: OPEN currency;
887: FETCH currency INTO l_currency,l_uom;
888: CLOSE currency;