©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
DIOZ ;SFISC/TKW - COMPILED SORT TEMPLATE ;11/29/94 09:53
Source file <DIOZ.m>
| Package | Total | Caller Graph |
|---|---|---|
| VA Fileman | 4 | DI SORT COMPILE DIO DIO2 DIO4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENC | ;CREATE COMPILED SORT ROUTINE
|
|
| R1 | ||
| EN1 | ||
| QER | ||
| TXT | ;;
|
|
| DIC | ||
| ENCU | ;MARK A SORT TEMPLATE FOR ROUTINE COMPILATION
|
|
| R | ||
| ENRLS(DRN) | ; MAKE ROUTINE NUMBER AVAILABLE FOR REUSE & DELETE ROUTINE
|
|
| N1 | ||
| NEW | ||
| N2 | ||
| N3 | ||
| NXTNO(DRN) | ; GET NEXT AVAILABLE ROUTINE NUMBER
|
|
| QSV |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("DEL" | R1+1 |
| ^DD("OS" - [#.7] | EN1+1, ENC+1, ENC+7 |
| ^DI( | N1, N3, N3+1*!, R, R1*! |
| ^DIBT( | EN1+4, EN1+7*, EN1+12!, NEW+3 |
| ^DIC(3 - [#3] | NEW+3 |
| ^TMP("DIBTC" | ENC+2, ENC+5, ENC+8! |
| ^UTILITY($J | ENC+5*, ENC+6*, NEW+2!, NEW+3*, NEW+4* |
| ^VA(200 - [#200] | NEW+3 |
| Name | Line Occurrences |
|---|---|
| DIC | EN1+2 |
| ENRLS | QSV |
| N1 | N1 |
| N2 | N2+1 |
| N3 | N1, N2+1 |
| NEW | ENC+4 |
| NXTNO | NEW |
| QSV | ENC+1, ENC+2, ENC+4 |
| R | R1+2 |
| R1 | ENRLS+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ENC+5 |
| ^("ROUOLD" | EN1+7* |
| ^(0 | NEW+3, R1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ENC+3~ |
| %H | ENC+3~ |
| %I | ENC+3~ |
| DDH | EN1~ |
| >> DIBT1 | NEW+3 |
| DIBTPGM | ENC+7, NEW*, NEW+3, QSV! |
| DIC | EN1~, DIC* |
| DIC("S" | DIC+1* |
| DIC("W" | DIC* |
| DIC(0 | DIC* |
| DICLEAN | ENRLS+1~*, R1+2 |
| >> DIERR | ENC+4, NEW, QER+1* |
| DILOCK | NXTNO+1~, N1*, N2*, N2+1, N3* |
| DIOZ | EN1~, EN1+2*, EN1+7, EN1+12 |
| >> DIQUIET | QER |
| DIR | EN1~, ENC+3~ |
| DIR("?" | EN1+8, EN1+13 |
| DIR("B" | EN1+6*, EN1+11* |
| DIR(0 | EN1+3* |
| DIROUT | EN1~, ENC+3~ |
| DIRUT | EN1~, ENC+3~ |
| >> DISYS | EN1+1, ENC+1, ENC+7 |
| >> DP | NEW+3 |
| DRN | ENC+3~, NEW, NXTNO~, NXTNO+1*, N1*, N2*, N3, N3+1, ENRLS~, ENRLS+1* , R*, R1, R1+1, QSV |
| DTOUT | EN1~, ENC+3~ |
| DUOUT | EN1~, ENC+3~ |
| DUZ | NEW+3 |
| DUZ(0 | ENCU+1 |
| I | ENC+3~, ENC+5*, ENC+6* |
| J | ENC+3~, ENC+5* |
| K | ENC+3~, ENC+5*, ENC+6* |
| U | ENC+7, NEW+3, R1 |
| X | EN1~, EN1+10, ENC+3~, ENC+5*, ENC+6*, ENC+7*, ENRLS+1~, R1+1* |
| X(1 | EN1+10* |
| X(2 | EN1+10* |
| Y | EN1~, EN1+2, EN1+4, EN1+6, EN1+11, ENC+3~, NEW+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(DIOZ+1 | NEW+4 |
| $T(TXT+I | ENC+6 |