©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
DICATTD ;SFISC/GFT-SCREEN-MODE 'MODIFY FILE ATTRIBUTES' ;01:41 PM 24 Dec 2001 [ 04/02/2003 8:25 AM ]
Source file <DICATTD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;PRE-ACTION of first block
|
|
| CHNG | ||
| ASKLOOP | ||
| END | ||
| BRANCH | ;given X=TYPE
|
|
| NEWFIELD | ||
| GET | ;
|
|
| DDS | ||
| LOCK | ||
| SCREEN | ;
|
|
| M | ||
| NUMBER | ;
|
|
| TYPE() | ;Figure out TYPE from the second piece of the zero node
|
|
| FIELD | ||
| X | ||
| VERIFY | ||
| MUL | ||
| UNED(I) |
| Name | Field # of Occurrence |
|---|---|
| ^DDS | DDS+1 |
| HLP^DDSUTL | X |
| REQ^DDSUTL | PRE+2, BRANCH+1, BRANCH+2 |
| UNED^DDSUTL | PRE+6, PRE+12, PRE+13, PRE+14, UNED, BRANCH+4 |
| PUT^DDSVALF | CHNG+1 |
| ^DIAC | PRE+7 |
| DIE^DIB | DICATTD+8 |
| ^DIC | FIELD+4 |
| SV^DICATTA | NEWFIELD+2 |
| CUNED^DICATTD6 | PRE+3 |
| GET^DICATTD8 | GET+3 |
| ^DICATTD9 | BRANCH+3 |
| N^DICATTDE | VERIFY |
| DELFLD^DICATTDK | DDS+3 |
| D^DICRW | DICATTD+7 |
| DIVR^DIUTL | VERIFY |
| IJ^DIUTL | NUMBER+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | DICATTD+7, LOCK+1, ASKLOOP, FIELD+3, MUL, DDS+2, GET+2, GET+3, NUMBER+4, SCREEN+5 |
| ^DIC - [#1] | DICATTD+7 |
| ^DICATTD( | LOCK, END |
| ^UTILITY("DDA" | DICATTD+6! |
| ^UTILITY("DICATTD" | DICATTD+6!, FIELD! |
| Name | Line Occurrences |
|---|---|
| $$TYPE | PRE+11, SCREEN+3 |
| DDS | MUL+1 |
| FIELD | MUL |
| GET | NEWFIELD+5 |
| M | ASKLOOP |
| UNED | PRE+4, PRE+7, PRE+9, PRE+10, PRE+11, X |
| X | PRE+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | NEWFIELD+1 |
| ^(0 | NEWFIELD+1, DDS+3, GET+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | PRE+7 |
| A | M+2~, NEWFIELD+2~* |
| DA | DICATTD+5~, LOCK*, LOCK+1, DDS* |
| DDA | DICATTD+5~, LOCK+1*, NEWFIELD*, NEWFIELD+1, NEWFIELD+2*, NEWFIELD+3 |
| DDA(1 | NEWFIELD+3* |
| DDSERROR | M~ |
| DDSFILE | M+3~, DDS* |
| DDSPAGE | M+3~, MUL+1~* |
| DDSPARM | M+3~, DDS* |
| DDSSAVE | M+3~, DDS!, VERIFY |
| >> DDSSTACK | BRANCH+6* |
| DG | DICATTD+5~, DICATTD+8 |
| DIAC | PRE+1~, PRE+7* |
| DIC | DICATTD+5~, DICATTD+8*, LOCK, FIELD!, FIELD+1*, FIELD+4! |
| DIC("B" | FIELD+3* |
| DIC("S" | FIELD+1* |
| DIC("W" | FIELD+2* |
| DIC(0 | FIELD+1*, FIELD+3* |
| DICATT2 | M+1~, MUL, GET+2*, PRE+3, PRE+4, PRE+10, PRE+15, TYPE+1, TYPE+2 |
| DICATT2N | M~, MUL+1~, DDS+3*, VERIFY, GET+1! |
| DICATT3 | M+1~, GET+2* |
| DICATT3N | M+1~, GET+1! |
| DICATT4 | M+1~, GET+2*, BRANCH+4 |
| DICATT5 | M+1~, GET+2*, CHNG |
| DICATT5N | M+1~, GET+1!, CHNG |
| DICATT5P | M+1~, GET+1! |
| DICATTA | DICATTD+5~, LOCK*, ASKLOOP*, FIELD+1, FIELD+3, NEWFIELD+1, NEWFIELD+3, MUL*, DDS+2, DDS+3 , VERIFY, GET+2, GET+3, PRE+5, NUMBER+1, NUMBER+4, SCREEN+5 |
| DICATTB | DICATTD+5~, LOCK*, ASKLOOP, END, PRE+5, PRE+7 |
| DICATTDK | M~ |
| DICATTDW | M~ |
| DICATTF | DICATTD+5~, ASKLOOP!, FIELD+4!, NEWFIELD+4*, DDS+2, DDS+3, VERIFY, GET+2, GET+3, PRE+2 , PRE+5, NUMBER+3, NUMBER+4, SCREEN+2, SCREEN+5, BRANCH+4 |
| DICATTL | M+1~ |
| DICATTLN | M+1~, GET+1! |
| DICATTMN | M~, VERIFY, CHNG!, CHNG+1 |
| DICATTNW | M+3~, NEWFIELD*, VERIFY |
| DICATTSC | M~, BRANCH+5! |
| DICATTVP | M~ |
| DICS | M~, FIELD+1 |
| DIFILE | PRE+1~, PRE+7* |
| DIMSG | M+3~, DDS!, VERIFY |
| >> DIR("S" | SCREEN+2*, SCREEN+3*, SCREEN+4*, SCREEN+5* |
| DIU0 | M+2~, NEWFIELD+1*, NEWFIELD+2 |
| DLAYGO | DICATTD+5~, DICATTD+7* |
| DQ | M+2~ |
| DR | M+2~, DDS* |
| DTOUT | M+3~, VERIFY |
| DUOUT | M+3~ |
| DUZ(0 | PRE+8, SCREEN+3 |
| I | M+2~, PRE+12*, PRE+13*, PRE+14*, UNED~, NUMBER+2*, BRANCH+1*, BRANCH+2* |
| J | M+2~ |
| J( | NUMBER+2 |
| J(0 | NUMBER+1 |
| N | TYPE+2~*, TYPE+3*, SCREEN+1~, SCREEN+3*, SCREEN+4, SCREEN+5 |
| O | M+2~, FIELD! |
| O(1 | NEWFIELD+1* |
| O(2 | NEWFIELD+1* |
| U | DICATTD+7, LOCK, ASKLOOP, FIELD+3, NEWFIELD, NEWFIELD+1, DDS+3, GET+2, NUMBER+4, SCREEN+5 |
| >> X | PRE+4*, PRE+5*, PRE+6, BRANCH+1, BRANCH+2, BRANCH+3, BRANCH+4, BRANCH+6 |
| >> Y | DICATTD+7, FIELD+4, NEWFIELD, NEWFIELD+4, NUMBER+1*, NUMBER+2*, NUMBER+3*, NUMBER+4*, NUMBER+5* |