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