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