S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"DUR","DUR Outcome Code",441)) S:BPS("X")="" BPS("X")="00"
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),2)
D FLD441^BPSOSSG