DICOMPU ;GFT/GFT - META-DATA-DICTIONARY LOOKUP;24JAN2013
Source file <DICOMPU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(Y,J,DICOMP,DICMX) | ; Main Entry Point
|
|
| X | ||
| QX | ||
| LOOK() | ||
| FIELD(F,DD) | ;Can we TRANSlate File F, Field DD to the context of FILE?
|
|
| MULTIPL | ;First, can we get to the context by going up from a MULTIPLE
|
|
| FORWARD | ;Next, can we go FROM our context TO the found File F?
|
|
| PTQ | ||
| F | ||
| BACK | ;Finally, is there a Pointer FROM the found file TO our context?
|
|
| OUT | ||
| RECURSE() | ||
| TOP(B) | ;
|
|
| UP | ||
| ACCESS(A,B) | ||
| TOOLONG(A,B) | ||
| SAVE | ||
| ASK | ||
| GOT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | X+5, FIELD+1, MULTIPL+3, PTQ, PTQ+1, F, F+1, BACK+2, BACK+5, BACK+6 , BACK+7, UP, ACCESS+3 |
| ^DD("STRING_LIMIT" | TOOLONG |
| ^DDD - [#.9] | X |
| ^DDD("C" | X, X+2 |
| ^DIC - [#1] | BACK+2, ACCESS+1 |
| ^DIC("B" | X+5 |
| ^TMP("DICOMPU" | QX!, LOOK!, PTQ+1, F+4*, BACK+5, BACK+11*, GOT! |
| Name | Line Occurrences |
|---|---|
| $$ACCESS | FIELD+4 |
| $$FIELD | LOOK+4, MULTIPL+6, F+4 |
| $$LOOK | X, X+5 |
| $$RECURSE | BACK+9 |
| $$TOOLONG | MULTIPL+2, F+5, BACK+10 |
| $$TOP | BACK+6, ACCESS+1 |
| ASK | SAVE |
| F | F+1, F+2, F+5 |
| GOT | X, X+5 |
| MULTIPL | RECURSE |
| OUT | MULTIPL+2, FORWARD+1, BACK+2 |
| PTQ | PTQ+1, F, F+4 |
| QX | X |
| SAVE | MULTIPL+2, FORWARD+1, BACK+2, BACK+6 |
| UP | UP+1 |
| X | X+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN+2~, F+1*, F+2, OUT+1*, OUT+2, OUT+3, ASK+4*, ASK+6*, ASK+7 |
| A | ACCESS~, ACCESS+1, ACCESS+3, TOOLONG~, TOOLONG+1 |
| ASKED | EN+2~ |
| ASKED( | ASK+2, ASK+7* |
| B | MULTIPL+1~, BACK+4~, BACK+6*, BACK+7, BACK+8, BACK+9, TOP~, UP, UP+1*, UP+2 , ACCESS~, ACCESS+3, TOOLONG~, TOOLONG+1 |
| D | EN+2~, EN+3*, EN+8*, MULTIPL+1~, MULTIPL+2!, MULTIPL+3*, MULTIPL+4!, MULTIPL+5*, MULTIPL+6*!, BACK+4~ , BACK+5*, BACK+6, BACK+9, BACK+11 |
| DATE | EN+2~ |
| DD | EN+2~, FIELD~, FIELD+1, FIELD+4, ASK+1 |
| DIASK | ASK+3~, ASK+5 |
| DIASK(1 | ASK+4* |
| DIASK(2 | ASK+4* |
| DIASK(3 | ASK+4* |
| DIC | EN+2~, X*, ASK+4 |
| DIC("S" | ACCESS+2 |
| DICMX | EN~, FIELD+2, MULTIPL+2, PTQ+1, BACK+3 |
| DICN | EN+2~, X* |
| DICOMP | EN~, EN+6*, ASK+1 |
| DIS | EN+2~, EN+10*, X, X+2* |
| DISTART | EN+2~, EN+5*, EN+10, X+2, X+4, ASK+4 |
| DSPI | EN+2~, X+5*, ASK+1 |
| DUOUT | EN+4!, X, X+5, OUT+1, SAVE+3, ASK, ASK+6* |
| DUZ(0 | ACCESS, ACCESS+4 |
| F | EN+2~, X*, X+5*, FIELD~, FIELD+1, FIELD+3, FIELD+4, FIELD+5, MULTIPL+2, PTQ , PTQ+1, F, F+4, BACK+2, BACK+5, BACK+8, BACK+9, BACK+11, GOT |
| FI | FORWARD+2~, FORWARD+3*, PTQ*, PTQ+1, F, F+1, F+2, F+3, F+4 |
| FIELD | EN+2~, X*, X+5*, LOOK+3, LOOK+4, TOOLONG, ASK+2, ASK+7, GOT |
| FIL | EN+2~, X*, X+5*, LOOK+3, LOOK+4, ASK+2, ASK+7 |
| FILE | EN+2~, BACK+9~*, BACK+10 |
| FILE( | EN+8*, MULTIPL+5, F+3, BACK+2, BACK+3, BACK+9* |
| FLD | EN+2~, FORWARD+2~, PTQ+2*, F*, F+1, F+4 |
| I | MULTIPL+1~, BACK+4~, BACK+6* |
| J | EN~, EN+3!, EN+5 |
| J( | EN+8 |
| J(0 | EN+3* |
| KEEP | FORWARD+2~, FORWARD+3*, PTQ, F+5* |
| L | MULTIPL+1~, BACK+4~, BACK+6*, OUT+1*, OUT+2, OUT+3 |
| OUT | MULTIPL+1~, MULTIPL+2, MULTIPL+5*, FORWARD+1, F+3*, BACK+3, BACK+5, BACK+6, BACK+8*, OUT* , OUT+2, OUT+3*, OUT+4, SAVE+3* |
| OUT( | OUT+1, OUT+2, OUT+3, SAVE+2* |
| OUT("" | SAVE+2 |
| R | BACK+4~ |
| T | FIELD+5~*!, MULTIPL+1~, MULTIPL+2*, MULTIPL+3*, MULTIPL+4, MULTIPL+5, MULTIPL+6, F+4*, F+5, BACK+2* , BACK+3*, BACK+5, BACK+6, BACK+11, OUT*, OUT+2, OUT+3* |
| TRANS | MULTIPL+1~, MULTIPL+2*, MULTIPL+3*, MULTIPL+4, PTQ*, F+3*, F+5, BACK+2*, BACK+7*, BACK+10* , BACK+11*, SAVE, SAVE+2, ASK*, ASK+2*, ASK+7* |
| TRY | LOOK~, FIELD+5~* |
| TRY( | FIELD+3, FIELD+5*, MULTIPL+4, PTQ+1, BACK+5, BACK+9!* |
| U | X, FIELD+2, F+1, F+3, BACK+2, BACK+6, ASK+4 |
| UP | FORWARD+2~ |
| X | EN+2~, X*, X+4*, X+5 |
| Y | EN~, EN+5!, FORWARD+2~, ACCESS+1~* |
