S BPS("X")=$G(BPS("Patient","Prefix"))
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),10)
S $P(^BPSC(BPS(9002313.02),"E00"),U,10)=BPS("X")