©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
DIEZ4 ;SFISC/MKO-COMPILE INPUT TEMPLATE, RECORD-LEVEL INDEXES ;2:15 PM 14 Jul 1999 [ 04/02/2003 8:25 AM ]
Source file <DIEZ4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWROU | ;Start a new routine
|
|
| RECXR(DIEZAR) | ;Build routines for record-level indexes
|
|
| SAVE | ;Get the next available routine number
|
|
| BLDDEC(DIEZXR,DIEZO) | ;Build data extraction code
|
|
| L(X) | ;Add CODE to ^UTILITY
|
|
| BLDKCHK(DIEZUI) | ;Build code to check key for xref
|
|
| GETXR(DIEZXR) | ;Get code for one index DIEZXR
|
|
| DOTLINE(X) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("KEY" - [#.31] | GETXR+46, BLDKCHK+7 |
| ^UTILITY($J | L+1*, NEWROU+1!, NEWROU+2*, NEWROU+3*, SAVE+6! |
| Name | Line Occurrences |
|---|---|
| BLDDEC | GETXR+54 |
| BLDKCHK | GETXR+46 |
| DOTLINE | BLDDEC+7 |
| GETXR | RECXR+10 |
| L | GETXR+8, GETXR+22, GETXR+26, GETXR+27, GETXR+28, GETXR+30, GETXR+35, GETXR+39, GETXR+40, GETXR+41 , GETXR+43, GETXR+47, GETXR+51, GETXR+55, GETXR+56, BLDDEC+6, BLDDEC+8, BLDDEC+10, BLDDEC+12, BLDDEC+13 , BLDKCHK+11, BLDKCHK+12, BLDKCHK+13, BLDKCHK+21, BLDKCHK+23, DOTLINE+2, DOTLINE+3 |
| NEWROU | RECXR+5, GETXR+2 |
| SAVE | RECXR+12, GETXR+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | NEWROU+2 |
| ^(2 | NEWROU+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | BLDDEC+1~, BLDDEC+3*, BLDDEC+6, BLDDEC+9, BLDDEC+10, BLDDEC+12 |
| DIEZAR | RECXR~ |
| DIEZAR( | GETXR+5* |
| DIEZCNT | RECXR+2~, GETXR+4*, GETXR+5, GETXR+8, GETXR+51, BLDKCHK+23, NEWROU+4* |
| DIEZCOD | GETXR+1~, GETXR+24*, GETXR+25, GETXR+27, GETXR+37*, GETXR+38, GETXR+40 |
| DIEZF | GETXR+1~, GETXR+50*, GETXR+55 |
| DIEZKLOG | GETXR+1~, GETXR+20*, GETXR+21, GETXR+30 |
| DIEZKLST | BLDKCHK+1~, BLDKCHK+6*, BLDKCHK+7*, BLDKCHK+8, BLDKCHK+9*, BLDKCHK+23 |
| DIEZMAXL | BLDKCHK+1~, BLDKCHK+3, BLDKCHK+16, BLDKCHK+23 |
| DIEZMAXL( | BLDKCHK+19, BLDKCHK+20 |
| DIEZNSS | GETXR+1~, GETXR+11*, GETXR+14*, GETXR+15*, GETXR+16*, GETXR+17*, GETXR+22, GETXR+35 |
| DIEZO | GETXR+1~, GETXR+11*, GETXR+12*, GETXR+13, GETXR+14, GETXR+15, GETXR+53*, GETXR+54*, BLDDEC~, BLDDEC+3 , BLDDEC+4, BLDDEC+8, BLDDEC+9, BLDDEC+10, BLDDEC+13 |
| >> DIEZQ | RECXR+7, RECXR+9, RECXR+10, RECXR+11, GETXR+2, SAVE+5 |
| DIEZSLOG | GETXR+1~, GETXR+33*, GETXR+34, GETXR+43 |
| >> DIEZTMP | RECXR+1, RECXR+7, RECXR+9, GETXR+12, GETXR+13, GETXR+20, GETXR+24, GETXR+33, GETXR+37, GETXR+50 , GETXR+54, BLDDEC+3, BLDDEC+4, BLDDEC+9 |
| DIEZUI | BLDKCHK~, BLDKCHK+3, BLDKCHK+7 |
| DIEZUIR | BLDKCHK+1~, BLDKCHK+3, BLDKCHK+13 |
| DIEZXR | RECXR+2~, RECXR+8*, RECXR+9*, RECXR+10, GETXR~, GETXR+5, GETXR+8, GETXR+12, GETXR+13, GETXR+20 , GETXR+24, GETXR+33, GETXR+37, GETXR+46, GETXR+50, GETXR+54, BLDDEC~, BLDDEC+3, BLDDEC+4, BLDDEC+9 |
| >> DMAX | GETXR+2 |
| >> DNM | GETXR+5, BLDKCHK+23, NEWROU+2 |
| DP | RECXR+2~, RECXR+7*, RECXR+9, GETXR+5, GETXR+12, GETXR+13, GETXR+20, GETXR+24, GETXR+33, GETXR+37 , GETXR+50, GETXR+54, BLDDEC+3, BLDDEC+4, BLDDEC+9, BLDKCHK+23 |
| DQ | SAVE+1~, SAVE+2* |
| >> DRN | RECXR+4*, GETXR+5, BLDKCHK+23, NEWROU+2, SAVE+2 |
| >> DRN( | SAVE+2 |
| >> DRN("" | RECXR+4 |
| DT | NEWROU+2 |
| I | BLDKCHK+1~, BLDKCHK+6*, BLDKCHK+7* |
| >> L | L+1*, NEWROU+4* |
| NODE | BLDDEC+1~ |
| ORD | BLDKCHK+17~, BLDKCHK+18*, BLDKCHK+19*, BLDKCHK+20 |
| >> T | GETXR+2, L+1*, NEWROU+2*, NEWROU+3* |
| TRANS | BLDDEC+1~, BLDDEC+4*, BLDDEC+5, BLDDEC+7 |
| U | GETXR+5, BLDKCHK+23 |
| X | BLDKCHK+17~, BLDKCHK+18*, BLDKCHK+20*, BLDKCHK+21, L~, L+1, DOTLINE~, DOTLINE+1, DOTLINE+2, DOTLINE+3 |