INPUT TRANSFORM: S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,"B",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P(^(0),U,1)) K:X=0 X
LAST EDITED: MAR 02, 1984
HELP-PROMPT: Please enter the name of a field.
The name of a FileMan field required by this Package. This field is only to be filled in if you wish to send only selected fields in an INIT of this file, instead of the full data dictionary. (i.e., a partial DD).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER