Field selection/lookup based on DD global with call to DIC
GENERAL DESCRIPTION
The LAB SERVICE package (LSRP project) has a
requirement for the user to be able to select specific fields in the
LABORATORY TEST (#60) file and to set auditing on and off for these fields.
In order for the users to select the fields available for a file, a DIC call
would be used with the variable DIC set to "^DD(". This ICR will allow the
LAB SERVICE package to use ^DD in this manner.
S DIC="^DD(60,"
S DIC(0)="AEQMZ",DIC("A")="Field: "
D ^DIC