XU-PERSON CLASS EDIT (6171)    OPTION (19)

View in ViViaN Menu
Name Value
NAME XU-PERSON CLASS EDIT
MENU TEXT Person Class Edit
UPPERCASE MENU TEXT PERSON CLASS EDIT
PACKAGE KERNEL
E ACTION PRESENT YES
ENTRY ACTION S DIC="^VA(200,",DIC(0)="AEMQ",DIC("S")="I $S($P(^(0),U,11):$P(^(0),U,11)'DIC K DIC Q:Y=-1 S DA=+Y,DR="[XU-PERSON CLASS]",DIE="^VA(200," D XUDIE^XUS5 K D0,DA,DIE,DR
DESCRIPTION 
This option is used to edit a user's Person Class.  Users
that have been terminated can't be edited.
CREATOR USER,ONE
DIC {DIC} VA(200,
DIC(0) AEMQ
TYPE action
DR{DDS} [XU-PERSON CLASS]