©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
XQOPED ;SEA/Luke - Option Editor ;04/27/98 12:26 [ 04/02/2003 8:29 AM ]
Source file <XQOPED.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| H(XQIEN) | ;Process Help for ScreenMan form
|
|
| XA | ;EXIT ACTION for the option XQOPED, the screen based Option Editor
|
|
| EA | ;ENTRY ACTION for the option XQOPED, the screen-based option editor
|
|
| CHECK() | ;See if this person should have programmer access to the
|
|
| IN | ;Called from the Pre Action of the XQEDTOPT form
|
|
| CMPLT | ;Check to make sure that the option is complete enough to leave
|
|
| OUT | ;Called from the Post Action of the XQEDTOPT form
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(19 - [#19] | XA+7, CMPLT+4 |
| ^DIC(19.8 - [#19.8] | H+2, H+4 |
| ^TMP($J | IN+1!, EA+1!, XA+3, XA+6, XA+10! |
| ^XUSEC("XUMGR" | CHECK+11 |
| ^XUSEC("XUPROG" | CHECK+12 |
| Name | Line Occurrences |
|---|---|
| $$CHECK | EA+2 |
| CMPLT | OUT+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | XA+7*, H+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | XA+4~*, XA+5, XA+6*, XA+7, CMPLT+3~, CMPLT+4*, CMPLT+5 |
| DA | OUT+2, CMPLT+5*! |
| DDSCHANG | OUT+2, OUT+4! |
| >> DIE | OUT+2 |
| DIK | CMPLT+5*! |
| >> DLAYGO | EA+2* |
| DUZ | OUT+2, CHECK+10, CHECK+11, CHECK+12, XA+7 |
| DUZ(0 | CHECK+17, CHECK+18 |
| U | OUT+1, XA+7, CMPLT+4 |
| XQA | H+3~, H+5 |
| XQA( | H+4* |
| XQDICNEW | OUT+1, OUT+4!, CMPLT+2, CMPLT+4, CMPLT+5 |
| XQI | H+3~, H+4* |
| XQIEN | H~, H+1, H+2, H+4, H+6! |
| XQYES | CHECK+8~*, CHECK+10, CHECK+11*, CHECK+12*, CHECK+17, CHECK+18*, CHECK+21 |