INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,7)=""M"",$S('$D(PRSESER(1)):1,1:$P(^(0),U,8)=PRSESER(1)!($P(^(0),U,9)=0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 16, 1994
HELP-PROMPT: Enter program or class that is mandated by this group.
DESCRIPTION:
This field indicates mandatory classes for this group.
TECHNICAL DESCR:
Pointer to file 452.1 Program Class File.
SCREEN: S DIC("S")="I $P(^(0),U,7)=""M"",$S('$D(PRSESER(1)):1,1:$P(^(0),U,8)=PRSESER(1)!($P(^(0),U,9)=0))"
EXPLANATION: Select only MI entries.
CROSS-REFERENCE: 452.31^B
1)= S ^PRSE(452.3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRSE(452.3,DA(1),1,"B",$E(X,1,30),DA)
Main index of mandatory classes by class name.
CROSS-REFERENCE: 452.3^C^MUMPS
1)= S ^PRSE(452.3,"C",DA(1),$E(X,1,30),DA)=""
2)= K ^PRSE(452.3,"C",DA(1),$E(X,1,30),DA)
Indexes mandatory training group entries by group/class name.