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