©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
XQSMD6 ;SFISC/JDS - SECURE MENU DELEGATION UTILITIES ;03/02/98 10:40 [ 04/02/2003 8:29 AM ]
Source file <XQSMD6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| KEYS(MENULIST,XQKEY,ABORT) | ;
; Order thru menu structure in search of locks |
|
| CHILDADD | ;
; Add a child to the list of children ; quit if child is already in the list |
|
| PROCESS | ;
|
|
| BUILD | ;
; 1st check to see if this option is still on the system, ; then check to see if a key is locking this option |
|
| KEYADD | ;
; Add a key to the list of keys needed |
|
| CHECK | ;
; ensure that IEN passed in is in option file ^DIC(19, |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(19 - [#19] | BUILD+4, BUILD+5, BUILD+9, KEYADD+3, CHECK+3 |
| ^XTMP($J | KEYS+4!, KEYS+5*, KEYS+6*, PROCESS+1, PROCESS+3!, CHILDADD+4, CHILDADD+5*, CHILDADD+6*, CHILDADD+7*, CHILDADD+8 |
| Name | Line Occurrences |
|---|---|
| BUILD | PROCESS+1 |
| CHECK | KEYS+2 |
| CHILDADD | BUILD+9 |
| KEYADD | BUILD+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABORT | KEYS~, KEYS+2*, CHECK+4* |
| CNT | KEYS+8~, PROCESS+1* |
| >> IEN | CHECK+5 |
| KEY | KEYS+8~, KEYADD+3*, KEYADD+6, KEYADD+8, KEYADD+9 |
| MENULIST | KEYS~, KEYS+5 |
| MENULIST( | KEYS+6 |
| MENULIST(0 | KEYS+6 |
| MENULIST(1 | CHECK+3 |
| PIEN | KEYS+8~, PROCESS+1*, BUILD+4, BUILD+5, BUILD+9, KEYADD+3 |
| U | BUILD+5, KEYADD+3 |
| >> X | KEYS+6* |
| XQJ | KEYS+8~, KEYS+9*, BUILD+8*, BUILD+9*, CHILDADD+4, CHILDADD+6, CHILDADD+7 |
| XQKEY | KEYS~, KEYS+9* |
| XQKEY( | KEYADD+8* |
| XQKEY("B" | PROCESS+3!, KEYADD+6, KEYADD+9* |
| XQKEY(0 | KEYS+9*, KEYADD+7*, KEYADD+8 |