©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XU8P497 ;BP/BT - UPDATE PERSON CLASS FILE; 10/23/08
Source file <XU8P497.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPC(XUIEN) | ;Get Person Class for a single user
|
|
| INAC(PCIEN) | ; inactivate single Person Class entry
|
|
| SETDATE(USERIEN,PCIEN,XUEFDA,XUEXDA) | ;set eff and exp date for the privious Person Class entry.
|
|
| PRINT(USERIEN,PCNEW) | ; print a user who is assigned the replacement Person Class
|
|
| INACTIVE | ; inactivate Person Class entries
|
|
| REPOINT(USERIEN,NEWPC,EFDATE,EXDATE) | ;Use FM so to fire X-ref's
|
|
| SETEFDA(USERIEN,PCIEN,EFDATE) | ; set eff date
|
|
| POST | ; entry point of Post-Initi Routine
|
|
| LOOP | ; loop through New Person file. And map new Person Classes for users
|
|
| SETEXDA(USERIEN,PCIEN,EXDATE) | ; set exp 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 |
| Name | Line Occurrences |
|---|---|
| $$GETPC | LOOP+5 |
| INAC | INACTIVE+2 |
| INACTIVE | POST+1 |
| LOOP | POST+1 |
| LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16 | |
| REPOINT | LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16 |
| SETEFDA | SETDATE+1 |
| SETEXDA | SETDATE+2 |
| >> | 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 |