;GET code for this COB field is executed in COB^BPSOSHF
S BPS("X")=$$ANFF^BPSECFM($G(BPS("X")),2)
D SET393^BPSFLD01