'EOMRate Dynamic Calc
Dim viewMember As ViewMember = ViewMember.GetItem(api.Pov.View.MemberPk.MemberId)

If viewMember.IsAnnotationType Then
    'Return an empty string if this is a text-based dataCell.
    Return ""
Else
	    Dim destCurrId As Integer = api.Pov.Cons.MemberPk.MemberId
	    If destCurrId = Currency.USD.Id Then
		Return 1.0
	Else
	   'Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForRevenueExp() 'AverageRate
		Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForAssetLiability() 'EOMRate
	    Dim cubeId As Integer = api.Pov.Cube.CubeId
	    Dim timeId As Integer = api.Pov.Time.MemberPk.MemberId
	    Dim sourceCurrId As Integer = Currency.USD.Id
		Dim rate As Decimal = api.FxRates.GetCalculatedFxRate(rateType, cubeId, timeId, sourceCurrId, destCurrId)
	    Return rate
	End If
End If

'AVGRate Dynamic Calc

Dim viewMember As ViewMember = ViewMember.GetItem(api.Pov.View.MemberPk.MemberId)

If viewMember.IsAnnotationType Then
    'Return an empty string if this is a text-based dataCell.
    Return ""
Else
	    Dim destCurrId As Integer = api.Pov.Cons.MemberPk.MemberId
	    If destCurrId = Currency.USD.Id Then
		Return 1.0
	Else
	   	Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForRevenueExp() 'AverageRate
		'Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForAssetLiability() 'EOMRate
	    Dim cubeId As Integer = api.Pov.Cube.CubeId
	    Dim timeId As Integer = api.Pov.Time.MemberPk.MemberId
	    Dim sourceCurrId As Integer = Currency.USD.Id
		Dim rate As Decimal = api.FxRates.GetCalculatedFxRate(rateType, cubeId, timeId, sourceCurrId, destCurrId)
	    Return rate
	End If
End If

'GBP EOMRate Dynamic Calc
Dim viewMember As ViewMember = ViewMember.GetItem(api.Pov.View.MemberPk.MemberId)

If viewMember.IsAnnotationType Then
    'Return an empty string if this is a text-based dataCell.
    Return ""
Else
	    Dim destCurrId As Integer = api.Pov.Cons.MemberPk.MemberId
	    If destCurrId = Currency.GBP.Id Then
		Return 1.0
	Else
	   'Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForRevenueExp() 'AverageRate
		Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForAssetLiability() 'EOMRate
	    Dim cubeId As Integer = api.Pov.Cube.CubeId
	    Dim timeId As Integer = api.Pov.Time.MemberPk.MemberId
	    Dim sourceCurrId As Integer = Currency.GBP.Id
		Dim rate As Decimal = api.FxRates.GetCalculatedFxRate(rateType, cubeId, timeId, sourceCurrId, destCurrId)
	    Return rate
	End If
End If

'GBP AVGRate Dynamic Calc

Dim viewMember As ViewMember = ViewMember.GetItem(api.Pov.View.MemberPk.MemberId)

If viewMember.IsAnnotationType Then
    'Return an empty string if this is a text-based dataCell.
    Return ""
Else
	    Dim destCurrId As Integer = api.Pov.Cons.MemberPk.MemberId
	    If destCurrId = Currency.GBP.Id Then
		Return 1.0
	Else
	   	Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForRevenueExp() 'AverageRate
		'Dim rateType As FxRateType = api.FxRates.GetFxRateTypeForAssetLiability() 'EOMRate
	    Dim cubeId As Integer = api.Pov.Cube.CubeId
	    Dim timeId As Integer = api.Pov.Time.MemberPk.MemberId
	    Dim sourceCurrId As Integer = Currency.GBP.Id
		Dim rate As Decimal = api.FxRates.GetCalculatedFxRate(rateType, cubeId, timeId, sourceCurrId, destCurrId)
	    Return rate
	End If
End If