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
|
