S BPS("X")=$G(BPS("Patient","Zip"))
S BPS("X")=$TR($G(BPS("X")),"-/._","") S BPS("X")=$$ANFF^BPSECFM(BPS("X"),15)
S $P(^BPSC(BPS(9002313.02),321),U,5)=BPS("X")
S BPS("X")=$TR(BPS("X"),"-/._","") S BPS("X")=$$ANFF^BPSECFM(BPS("X"),9)