©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
DIKZ0 ;SFISC/XAK-XREF COMPILER ;23AUG2004
Source file <DIKZ0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ;
|
|
| INDEX | ;Loop through ^TMP and pick up cross references for file DH
|
|
| DOTLINE(CODE) | ;Add code to ^UTILITY. If the code looks like it contains
|
|
| LINE(CODE) | ;Add line of code to ^UTILITY, increment DIKR
|
|
| XARR | ;Build code to set X array
|
|
| RET | ||
| 0 | ;
|
|
| PUT | ||
| GETINDEX | ;Get code for one index DIKC in file DH
|
|
| SD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | SD |
| ^TMP("DIKC" | SD, INDEX+5, GETINDEX+1, GETINDEX+2, GETINDEX+9, GETINDEX+11, GETINDEX+16, GETINDEX+32, GETINDEX+39, GETINDEX+43 , GETINDEX+50, XARR+6, XARR+7, XARR+17 |
| ^UTILITY("DIK" | A+1, A+2, A+4!, PUT+1, PUT+2, PUT+5 |
| ^UTILITY($J | 0+4*, 0+6*, PUT*, PUT+1*, PUT+3*, PUT+4*, PUT+5*, PUT+6*, PUT+7*, LINE+1* |
| Name | Line Occurrences |
|---|---|
| 0 | SD |
| A | DIKZ0+3 |
| DOTLINE | XARR+20 |
| GETINDEX | INDEX+5 |
| INDEX | A+3 |
| LINE | INDEX+6, GETINDEX+6, GETINDEX+10, GETINDEX+12, GETINDEX+18, GETINDEX+19, GETINDEX+29, GETINDEX+34, GETINDEX+35, GETINDEX+36 , GETINDEX+37, GETINDEX+39, GETINDEX+45, GETINDEX+46, GETINDEX+47, GETINDEX+48, GETINDEX+50, XARR+12, XARR+19, XARR+21 , XARR+23, XARR+25, XARR+26, DOTLINE+3, DOTLINE+4, DOTLINE+5 |
| PUT | A+1, A+2 |
| RET | RET+1 |
| SD | DIKZ0+3, RET+1 |
| XARR | GETINDEX+11 |
| Name | Field # of Occurrence |
|---|---|
| ^( | 0+4*, A+1, A+2, PUT+3, PUT+5*, GETINDEX+16 |
| ^(0 | PUT+1, PUT+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | A+1*, A+2*, PUT, PUT+1, PUT+3*, PUT+4, PUT+5, PUT+6, PUT+7 |
| >> A | RET*, 0+2, 0+3, 0+6, PUT+7 |
| CODE | XARR+2~, XARR+6*, XARR+9, XARR+14, XARR+15, DOTLINE~, DOTLINE+2, DOTLINE+4, DOTLINE+5, LINE~ , LINE+1 |
| >> DH | RET*, RET+1*, SD*, 0+6, A+1, A+2, PUT+1, PUT+2, PUT+4, PUT+5 , PUT+6, PUT+7, INDEX+5, GETINDEX+1, GETINDEX+2, GETINDEX+9, GETINDEX+11, GETINDEX+16, GETINDEX+32, GETINDEX+39 , GETINDEX+43, GETINDEX+50, XARR+6, XARR+7, XARR+17 |
| >> DH(1 | SD |
| >> DIK | 0+6*, PUT |
| >> DIK( | SD*! |
| >> DIK0 | DIKZ0+3*, PUT+4, PUT+5, PUT+6, PUT+7 |
| DIK01 | GETINDEX+4~, GETINDEX+23 |
| DIK01( | GETINDEX+24, XARR+8* |
| DIK01(0 | GETINDEX+27 |
| >> DIK1 | 0+1*, 0+2*, 0+3*, 0+4 |
| >> DIK2 | 0+6 |
| DIK6 | A+1!, A+4!, PUT+4!, PUT+5!, GETINDEX+51! |
| DIK6( | PUT*, XARR+11, XARR+13* |
| >> DIK8( | 0+6 |
| DIKA | RET*, 0+2, 0+5! |
| >> DIKC | PUT+2*, PUT+3, PUT+4, PUT+5, PUT+6, INDEX+5*, GETINDEX+1, GETINDEX+2, GETINDEX+6, GETINDEX+9 , GETINDEX+11, GETINDEX+16, GETINDEX+32, GETINDEX+39, GETINDEX+43, GETINDEX+50, XARR+6, XARR+7, XARR+17 |
| DIKCOD | GETINDEX+4~, GETINDEX+15*, GETINDEX+17*, GETINDEX+18, GETINDEX+24*, GETINDEX+25*, GETINDEX+26, GETINDEX+27*, GETINDEX+28*, GETINDEX+29 , GETINDEX+32*, GETINDEX+33, GETINDEX+35, GETINDEX+43*, GETINDEX+44, GETINDEX+46 |
| DIKCTAG | INDEX+1~, INDEX+2*, INDEX+6, GETINDEX+5*, GETINDEX+6 |
| DIKF | GETINDEX+4~, GETINDEX+9*, GETINDEX+12, GETINDEX+27 |
| >> DIKL2 | 0+3* |
| >> DIKLW | 0+5* |
| DIKO | INDEX+1~, GETINDEX+4~, GETINDEX+11*, GETINDEX+15*, GETINDEX+16*, GETINDEX+17, GETINDEX+24*, GETINDEX+25, XARR+6, XARR+7 , XARR+8, XARR+17, XARR+21, XARR+23, XARR+26 |
| >> DIKQ | A+1*, A+2*, PUT+1, PUT+2, PUT+4, PUT+5, PUT+6, PUT+7 |
| >> DIKR | 0+4*, 0+6*, PUT, PUT+1*, PUT+2*, PUT+3*, PUT+4, PUT+5*, PUT+6*, PUT+7 , LINE+1, LINE+2* |
| DIKSET | PUT~, PUT+1*, PUT+3 |
| >> DIKVR | A+1, A+2, GETINDEX+1, GETINDEX+2, GETINDEX+21, GETINDEX+41 |
| >> DIKZQ | DIKZ0+3, RET+1, SD, 0+1 |
| DK1 | RET, RET+1! |
| DK1( | RET, SD* |
| >> DNM | SD, PUT+6 |
| >> DRN | SD |
| >> DU( | SD! |
| LINE | XARR+2~, XARR+14*, XARR+15*, XARR+19, XARR+22, XARR+23, XARR+25 |
| NODE | XARR+2~, XARR+10*, XARR+11, XARR+12, XARR+13, XARR+14, XARR+22 |
| REF | XARR+2~, XARR+9*, XARR+10, XARR+12, XARR+14 |
| TRANS | XARR+2~, XARR+17*, XARR+18, XARR+20 |
| >> X | SD, PUT+4, PUT+6 |