©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
XUVERIFY ;SF/MUS - Checks a users ACCESS and VERIFY CODES ;11/23/2004 14:43
Source file <XUVERIFY.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACC | ;Access code
|
|
| VER | ;Verify code
|
|
| WITNESS(PREFIX,KEYS) | ;EF. IA# 1513
|
|
| EDIT | ;
|
|
| USER | ;ASK FOR USER ID, RETURN DUZ
|
|
| DIALOG | ;Set up the dialog
|
|
| KIL | ||
| XUS2 | ;MOVED FROM XUS2, TO CHECK OR RETURN USER ATTRIBUTES
|
|
| CHECK | ||
| CHKAV(AVCODE) | ;EF. IA# 10051
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | ACC+1, VER+1, USER+3, WITNESS+5 |
| ^%ZOSF("EON" | KIL, USER+6, WITNESS+12 |
| ^VA(200 - [#200] | XUVERIFY+13, ACC+2, VER+2 |
| ^XTV(8989.3 - [#8989.3] | WITNESS+4 |
| ^XUSEC( | WITNESS+10 |
| Name | Line Occurrences |
|---|---|
| $$CHKAV | USER+4, WITNESS+9 |
| @( | CHECK |
| CHECK | XUVERIFY+14 |
| DIALOG | XUVERIFY+11, USER+1, WITNESS+3 |
| EDIT | XUS2+1 |
| KIL | XUVERIFY+12, XUVERIFY+13, XUVERIFY+14 |
| USER | XUS2+1 |
| VER | ACC+2, ACC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | XUVERIFY+12*, XUVERIFY+13*, XUVERIFY+14*, CHECK, CHECK+1*, CHECK+2*, ACC+2*, ACC+3*, VER+2*, VER+3* , WITNESS+10* |
| %AC | XUVERIFY+11~, KIL!, ACC+1*, ACC+2*, ACC+3* |
| >> %DUZ | XUVERIFY+12, XUVERIFY+13, ACC+2, VER+2 |
| %R | XUVERIFY+11~, CHECK*, KIL! |
| %VC | XUVERIFY+11~, KIL!, VER+1*, VER+2 |
| AVCODE | CHKAV~, CHKAV+3 |
| CNT | WITNESS+3~, WITNESS+4*, WITNESS+7* |
| D0 | EDIT+1~ |
| DA | EDIT+1~, EDIT+2* |
| DI | EDIT+1~ |
| DIC | EDIT+1~ |
| DIE | EDIT+1~, EDIT+2* |
| DQ | EDIT+1~ |
| DR | EDIT+1~, EDIT+3* |
| DUZ | XUS2+1, USER+2*, USER+7, EDIT+2, CHKAV+2~, CHKAV+3*, CHKAV+4*, CHKAV+5 |
| DUZ(0 | USER+2* |
| DUZ(1 | USER+2* |
| DUZX | EDIT+1~, EDIT+2 |
| EXIT | WITNESS+3~, WITNESS+4*, WITNESS+7, WITNESS+9*, WITNESS+10*, WITNESS+13 |
| I | XUVERIFY+11~, KIL! |
| IEN | USER+1~, USER+4*, USER+5, CHKAV+2~, WITNESS+3~, WITNESS+4*, WITNESS+9*, WITNESS+10, WITNESS+13 |
| KEYS | WITNESS~, WITNESS+10 |
| PREFIX | WITNESS~, WITNESS+6*, WITNESS+8 |
| U | USER+1*, WITNESS+4* |
| X | XUVERIFY+11~, CHECK+1, CHECK+2, KIL!, ACC+1*, VER+1*, WITNESS+10* |
| X2 | USER+1~, USER+3*, USER+4, WITNESS+3~, WITNESS+8*, WITNESS+9 |
| XUC | EDIT+1~, EDIT+2*, EDIT+3 |
| XUF | USER+1~, USER+2*, CHKAV+2~, CHKAV+3* |
| XUFAC | USER+1~ |
| XUS | XUS2+1*, XUS2+2!, EDIT+2, EDIT+3 |
| XUSER | CHKAV+2~ |
| XUSTMP | XUVERIFY+11~, USER+1~, WITNESS+3~ |
| XUSTMP(51 | ACC+1, DIALOG+1* |
| XUSTMP(52 | VER+1, DIALOG+1* |
| XUTT | CHKAV+2~ |
| Y | XUVERIFY+11~, KIL! |
| Z | XUVERIFY+11~, KIL! |