XU8P497 ;BP/BT - UPDATE PERSON CLASS FILE; 10/23/08
Source file <XU8P497.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ; entry point of Post-Initi Routine
|
|
LOOP | ; loop through New Person file. And map new Person Classes for users
|
|
REPOINT(USERIEN,NEWPC,EFDATE,EXDATE) | ;Use FM so to fire X-ref's
|
|
INACTIVE | ; inactivate Person Class entries
|
|
INAC(PCIEN) | ; inactivate single Person Class entry
|
|
PRINT(USERIEN,PCNEW) | ; print a user who is assigned the replacement Person Class
|
|
GETPC(XUIEN) | ;Get Person Class for a single user
|
|
SETDATE(USERIEN,PCIEN,XUEFDA,XUEXDA) | ;set eff and exp date for the privious Person Class entry.
|
|
SETEXDA(USERIEN,PCIEN,EXDATE) | ; set exp date
|
|
SETEFDA(USERIEN,PCIEN,EFDATE) | ; set eff date
|