NAMEXU-PERSON CLASS EDIT
DESCRIPTIONThis option is used to edit a user's Person Class. Usersthat have been terminated can't be edited.
CREATORUSER,ONE
DDSFILE200
DIC {DIC}VA(200,
DIC(0)AEMQ
DR{DDS}[XU-PERSON CLASS]
E ACTION PRESENTYES
ENTRY ACTIONS DIC="^VA(200,",DIC(0)="AEMQ",DIC("S")="I $S($P(^(0),U,11):$P(^(0),U,11)'
MENU TEXTPerson Class Edit
PACKAGEKERNEL
TYPEaction
UPPERCASE MENU TEXTPERSON CLASS EDIT