; This is a response-only field which does not use the GET, FORMAT, or SET code
S $P(^BPSR(BPS(9002313.02),1000,BPS(9002313.0201),567.01,DUR,0),U,5)=BPS("X")
S BPS("X")=$$DTF1^BPSECFM($G(BPS("X"))