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
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("XU8P497" | LOOP+2!, PRINT+2, PRINT+5* |
^USC(8932.1 - [#8932.1] | INAC+4, INAC+8 |
^VA(200 - [#200] | LOOP+3, REPOINT+7, REPOINT+10, PRINT+3, GETPC+3, GETPC+4, GETPC+6, GETPC+8, SETEXDA+6, SETEXDA+9 , SETEFDA+6, SETEFDA+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | INAC+6~*, INAC+7~*, SETEXDA+1~, SETEXDA+3*, SETEFDA+1~, SETEFDA+3* |
DA(1 | SETEXDA+2*, SETEXDA+4, SETEFDA+2*, SETEFDA+4 |
DA1 | REPOINT+1~, REPOINT+2*, REPOINT+4, REPOINT+5, REPOINT+6, REPOINT+7, REPOINT+8, REPOINT+10, SETEXDA+7, SETEFDA+7 |
DIE | INAC+6~*, INAC+7~*, SETEXDA+1~, SETEXDA+4*, SETEFDA+1~, SETEFDA+4* |
DR | INAC+6~*, INAC+7~*, SETEXDA+1~, SETEXDA+5*, SETEFDA+1~, SETEFDA+5* |
EFDATE | REPOINT~, REPOINT+3*, REPOINT+5, SETEFDA~ |
EXDATE | REPOINT~, REPOINT+6, SETEXDA~ |
NEWPC | REPOINT~, REPOINT+4 |
PCIEN | INAC~, INAC+1, INAC+2, INAC+4, INAC+5, INAC+6, INAC+7, INAC+8, SETDATE~, SETDATE+1 , SETDATE+2, SETEXDA~, SETEXDA+3, SETEFDA~, SETEFDA+3 |
PCNEW | PRINT~, PRINT+3 |
RX1 | REPOINT+1~ |
RX1( | REPOINT+4*, REPOINT+5*, REPOINT+6* |
RX2 | REPOINT+1~ |
USERIEN | REPOINT~, REPOINT+2, PRINT~, PRINT+3, SETDATE~, SETDATE+1, SETDATE+2, SETEXDA~, SETEXDA+2, SETEXDA+6 , SETEXDA+9, SETEFDA~, SETEFDA+2, SETEFDA+6, SETEFDA+9 |
XUA | REPOINT+8, INAC+3~, INAC+5, PRINT+1~, PRINT+6, SETEXDA+7, SETEFDA+7 |
XUA(1 | REPOINT+8*, INAC+5*, PRINT+3*, PRINT+5, SETEXDA+7*, SETEFDA+7* |
XUA(2 | REPOINT+8*, INAC+5*, PRINT+4*, SETEXDA+7*, SETEFDA+7* |
XUDT | INAC+3~* |
XUEFDA | SETDATE~, SETDATE+1 |
XUEFDATE | LOOP+1~, LOOP+8*, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16 |
XUEXDA | GETPC+1~, GETPC+6*, GETPC+7, SETDATE~, SETDATE+2 |
XUEXDATE | LOOP+1~, LOOP+9*, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16 |
XUI | INACTIVE+1~, INACTIVE+2* |
XUIEN | LOOP+1~, LOOP+3*, LOOP+4, LOOP+5, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15 , LOOP+16, GETPC~, GETPC+2, GETPC+3, GETPC+4, GETPC+6, GETPC+8 |
XUPC | LOOP+1~, LOOP+5*, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12, LOOP+13 , LOOP+14, LOOP+15, LOOP+16 |
XUPCIEN | GETPC+1~, GETPC+4*, GETPC+5, GETPC+6, GETPC+8 |
XUY | PRINT+1~, PRINT+2*, PRINT+5 |