;This is Response-only field which does not use the GET FORMAT or SET code
S $P(^BPSR(BPS(9002313.02),1000,BPS(9002313.0201),550),U,7)
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),1)