; This is a response-only field which does not use the GET, FORMAT, or SET code
D SET566^BPSFLD01
S BPS("X")=$$DFF^BPSECFM($G(BPS("X")),6)