S BPS("X")=$G(BPS("RX",BPS(9002313.0201),"DUR","DUR Conflict Code",439))
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),2)
D FLD439^BPSOSSG