©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
DIEZ3 ;SFISC/MKO-COMPILE INPUT TEMPLATE, BUILD CODE TO CHECK KEYS ;2:54 PM 15 Jul 1999 [ 04/02/2003 8:25 AM ]
Source file <DIEZ3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| L(X) | ;Add CODE to ^UTILITY
|
|
| BLD(DIEZFIL,DIEZFLD,DIEZUI,DQ,DIEZCNT) | ;Get code for one index DIEZXR
|
|
| GETKEY(DIEZFIL,DIEZFLD,DIEZKEY,DQ) | ;Build routine to check keys
|
| Name | Field # of Occurrence |
|---|---|
| XRINFO^DIKCU2 | BLD+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^UTILITY($J | L+1* |
| Name | Line Occurrences |
|---|---|
| BLD | GETKEY+8 |
| L | GETKEY+5, BLD+4, BLD+5, BLD+6, BLD+7, BLD+8, BLD+15, BLD+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIEZCNT | BLD~, BLD+6, BLD+17 |
| DIEZFIL | GETKEY~, GETKEY+8, BLD~, BLD+5, BLD+7 |
| DIEZFLD | GETKEY~, GETKEY+8, BLD~, BLD+5, BLD+7 |
| DIEZKEY | GETKEY~, GETKEY+1 |
| DIEZKEY( | GETKEY+7, GETKEY+8 |
| DIEZMAXL | BLD+1~, BLD+2, BLD+10, BLD+17 |
| DIEZMAXL( | BLD+13, BLD+14 |
| DIEZSLIS | BLD+1~ |
| DIEZUI | GETKEY+2~, GETKEY+6*, GETKEY+7*, GETKEY+8, BLD~, BLD+2, BLD+4 |
| DIEZUIR | BLD+1~, BLD+2, BLD+8 |
| >> DNM | BLD+17 |
| DQ | GETKEY~, GETKEY+5, GETKEY+8, BLD~, BLD+6, BLD+17 |
| >> DRN | BLD+17 |
| >> L | L+1* |
| ORD | BLD+11~, BLD+12*, BLD+13*, BLD+14 |
| >> T | L+1* |
| U | BLD+17 |
| X | BLD+11~, BLD+12*, BLD+14*, BLD+15, L~, L+1 |