©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
XUSRA ;ISCSF/RWF - Remote access control ;08/27/2003 10:11
Source file <XUSRA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INTRO(RESULT) | ;Return INTRO TEXT.
|
|
| VCVALID() | ;Check if the Verify code needs changing.
|
|
| VALIDAV(RESULT,AVCODE) | ;Check a users access
|
|
| USERSET(AV) | ;sr. If a valid A/V setup DUZ for user.
|
|
| USX | ||
| CVC(RESULT,XU1) | ;change VC
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | VALIDAV+4! |
| ^UTILITY($J | VALIDAV+4! |
| ^VA(200 - [#200] | VCVALID+2 |
| ^XTV(8989.3 - [#8989.3] | VCVALID+2 |
| ^XUTL("XQ" | VALIDAV+4! |
| Name | Line Occurrences |
|---|---|
| $$VCVALID | VALIDAV+6 |
| USX | USERSET+7, USERSET+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %1 | USERSET+4~ |
| AV | USERSET~, USERSET+8 |
| AVCODE | VALIDAV~, VALIDAV+6 |
| DUZ | VALIDAV+5*, VALIDAV+6*, VALIDAV+7, VALIDAV+8, VCVALID+1, VCVALID+2, CVC+1, USERSET+4!, USERSET+5*, USERSET+8* , USX* |
| DUZ(0 | USERSET+5* |
| NZ | USERSET+4~ |
| RESULT | VALIDAV~, VALIDAV+8*, INTRO~, CVC~, CVC+1* |
| U | VALIDAV+8, CVC+1*, USERSET+5* |
| VCOK | USERSET+4~, USERSET+5*, USERSET+9* |
| X | VALIDAV+3~, USERSET+4~ |
| >> XQXFLG("ZEBRA" | USX+1* |
| XRA1 | VALIDAV+3~, VALIDAV+5*, VALIDAV+6*, VALIDAV+7 |
| XRA2 | VALIDAV+3~, VALIDAV+5*, VALIDAV+6*, VALIDAV+8 |
| XU1 | CVC~, CVC+1*, CVC+2 |
| XU2 | CVC+1~*, CVC+2 |
| XUDEV | USERSET+4~ |
| XUF | VALIDAV+3~, VALIDAV+5*, USERSET+4~, USERSET+5* |
| XUM | USERSET+4~, USERSET+5*, USERSET+7*, USERSET+8*, USX, USX+1, USX+2 |
| XUMSG | VALIDAV+3~, VALIDAV+5*, VALIDAV+7*, VALIDAV+8, USERSET+4~, USERSET+5*, USX*, USX+2 |
| XUNOW | USERSET+4~ |
| XUSER | VALIDAV+3~, USERSET+4~ |