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