INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S X=$$FLDCHK^DIFROMSD(D2,+$G(X),"MN") K:X'>0 X S:$D(X) DINUM=+X,X=$P(X,"^",2)
LAST EDITED: SEP 06, 1994
HELP-PROMPT: Enter a valid field NUMBER.
DESCRIPTION: Select field(s) to be sent for this Partial Data Dictionary.
Only the attributes for the field(s) selected are sent. Attributes such as identifers, "ID" nodes for a field, are not sent when sending a partial. Some attributes are considered file attributes, such as
identifiers, and are only sent with a Full Data Dictionary.
If the .01 field for a sub-file, multiple, is selected, the field at the level above, which points to the multiple, is automatically sent.
If no field is selected, all fields will be sent, as well as the multiple fields below this level.
EXECUTABLE HELP: D DDIOLFLD^DIFROMSD(D2,"M")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1)= S ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)=""
2)= K ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)
Used to create an array structure containing Partial DDs. This array is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport.