| Name | Value |
|---|---|
| NAME | XUSERDEACT |
| MENU TEXT | Deactivate a User |
| UPPERCASE MENU TEXT | DEACTIVATE A USER |
| DELEGABLE | NO |
| ROUTINE | XUSTERM |
| DESCRIPTION | As of a specified TERMINATION DATE, user will not be allowed to sign on to the computer. |
| CREATOR | ADAM,ADAM |
| HELP FRAME | XUUSER-DEACT |
| DIC {DIC} | DIC(3, |
| DIC(0) | AEQMZ |
| DIC(A) | Select USER to be deactivated: |
| DIC(S) | I $P(^(0),U,3)]"" |
| TYPE | run routine |
| DIE | DIC(3, |
| DR {DIE} | 9.2;S %=$P(^DIC(3,DA,0),U,11) I %>DT!'% S Y=0;W !,"EMPLOYEE IS NO LONGER A CURRENT EMPLOYEE, AND HAS NO SIGN-ON ACCESS",*7;2///@;7///N |