DIETED ;SFISC/GFT SCREEN-EDIT AN INPUT TEMPLATE ;22MAY2006
Source file <DIETED.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| LINE(X) | ;Process one LINE from the screen | |
| DIC | ||
| DOWN | ||
| DR | ;takes 'Y' and puts it into 'DR' array | |
| DEF | ||
| SEMIC | ||
| SAVEAS | ||
| 1 | ||
| OUT | ||
| E | ||
| D | ||
| EDIT(DIET) | ; Edit Template using Screen Editor | |
| K | ||
| NDB | ||
| DDW | ||
| L | ||
| SAVEFLDS(Y) | ; | |
| X | ||
| ALL | ||
| GET(DIETA,DIT) | ;put displayable template into @DIETA | |
| XEC | ||
| DIAB | ||
| UP | ||
| KL | ||
| PUT | ;save template | |
| DIAT | ||
| NOW | ||
| PROCESS(DIETA) | ;puts nodes into ^UTILITY("DIETED") | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("EON" | E+1, DDW+4 | 
| ^DD( | 1+2, 1+5, 1+8, DIC+2 | 
| ^DD("OS" - [#.7] | NOW+4 | 
| ^DD("ROU" | NOW+4 | 
| ^DIC - [#1] | PROCESS+2 | 
| ^DIE - [#.402] | E+2, E+6, GET+3, SAVEAS+2, SAVEAS+3, SAVEAS+5*, SAVEAS+6, NOW*, NOW+1*, NOW+2!* , NOW+3!*, NOW+4 | 
| ^DIE("F" | SAVEAS+4* | 
| ^TMP("DIETED" | KL! | 
| ^UTILITY("DIETED" | K!, KL+2*, PUT+1, SAVEFLDS+2, NOW+2 | 
| ^UTILITY("DIETEDIAB" | K!, ALL+1*, DIAB*, NOW+3 | 
| Name | Line Occurrences | 
|---|---|
| 1 | 1, 1+6, 1+10, NDB, UP+1 | 
| D | DIC+3, L+2 | 
| DDW | DDW+5 | 
| DEF | DIC+5 | 
| DIC | DEF | 
| DOWN | GET+7, 1+7, 1+8 | 
| DR | OUT+2, ALL+3, DIC+1, DIC+4, L+2, XEC+4 | 
| E | DIETED+5 | 
| GET | E+5 | 
| K | DDW+2, NOW+5 | 
| KL | DDW+1 | 
| L | DIC+6 | 
| LINE | PROCESS+5 | 
| NDB | 1 | 
| OUT | OUT | 
| PROCESS | DDW+3 | 
| PUT | DIETED+6 | 
| SAVEAS | SAVEAS+2 | 
| SAVEFLDS | SAVEAS+7 | 
| UP | 1+9 | 
| X | ALL+3, SEMIC, DIC+4, DEF | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | NDB, PROCESS+3 | 
| ^("DIAB" | GET+6 | 
| ^("ROU" | NOW+4 | 
| ^("ROUOLD" | NOW+4 | 
| ^(0 | E+3, 1+5, NOW+4 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | 1+1*, 1+2, 1+5, 1+8*, DOWN*, SEMIC+1*, DIC+1*, DIC+2, DIC+3, L+1* , D~*, D+1, DR+1~, DR+2*, DR+3, DR+5, SAVEAS+2*, NOW | 
| B | DR+1~, DR+2*, DR+5 | 
| D | LINE+1~, LINE+2*, LINE+3*, OUT, OUT+1, ALL+2~, ALL+4~, SEMIC+1* | 
| D( | ALL+4* | 
| D0 | E~ | 
| DA | ALL+2~, ALL+4~, DIC+6*, DEF+2*, XEC+1, XEC+5* | 
| DATE | LINE+1~ | 
| DB | E~, GET+1~, GET+4*, 1*, 1+3, 1+6*, DOWN*, DOWN+1*, NDB*, UP+1* | 
| DB( | DOWN+1*, UP+1 | 
| DDSCHG | DIETED+3~, DDW+6* | 
| DG | ALL+2~, ALL+4~ | 
| DI | E~, GET+6*, 1+2, 1+3, 1+5, 1+7*, 1+8*, DIAT, NDB, UP+1* , PROCESS+2*, OUT*, ALL+1, DIC+3*, L+2*, D, DR+2, DIAB | 
| DI( | 1+3 | 
| DIAB | GET+1~, 1+3*, 1+5, PROCESS+1~, SEMIC*, DIC+6*, XEC+3*, XEC+4~, DIAB! | 
| DIAO | GET+1~, GET+4*, 1+3, DOWN+1*, NDB*, NDB+1*, UP+1* | 
| DIAO( | DOWN+1*, UP+1 | 
| DIAP | PROCESS+1~, PROCESS+2*, OUT*, ALL+1, D+1*, D+2*, DR+4*, DR+5*, DR+7*, DIAB | 
| DIAP( | OUT, D+2* | 
| DIAR | GET+1~, GET+4*, 1+3, DOWN*, DIAT, NDB, UP+1*, PROCESS+1~, PROCESS+2*, OUT* , ALL+1, D, D+1*, DR+2, DIAB | 
| DIAR( | DOWN*, UP+1, OUT, D* | 
| DIAT | GET+1~, GET+4*, 1, DOWN, DIAT*, NDB*, UP+1* | 
| DIC | DIETED+3~, DIETED+4*, LINE+1~, DIC*, PUT+2~, SAVEAS* | 
| DIC("A" | SAVEAS* | 
| DIC("B" | PUT+3*, SAVEAS+2! | 
| DIC("S" | XEC*, SAVEAS* | 
| DIC(0 | DIETED+4*, DIC*, SAVEAS* | 
| DICMX | LINE+1~, DIC+6*, DEF+2* | 
| DICOMP | LINE+1~, DIC+6*, DEF+2* | 
| DICOMPX | LINE+1~ | 
| DIET | DIETED+3~, DIETED+5*, EDIT~, E+2, E+6, GET+3, PUT+3 | 
| DIETA | GET~, GET+2, 1+6, PROCESS~, PROCESS+3 | 
| DIETAB | PROCESS+1~, PROCESS+2*, OUT*, OUT+1*, D+2 | 
| DIETAB( | OUT, D+2* | 
| DIETAD | GET+1~, GET+4*, 1+6* | 
| DIETED | DIETED+3~, EDIT+1~, E+3*, E+6, DDW+5, SAVEAS | 
| DIETEDER | E~, DDW+5! | 
| DIETEDER( | PROCESS+6* | 
| DIETEDER(0 | DDW+5 | 
| DIETH | E~, E+6*, DDW, DDW+5* | 
| DIETREL | GET+1~, 1+3*, 1+6, 1+7 | 
| DIETROW | E~, E+6*, DDW, DDW+5* | 
| DIETSAVE | PROCESS+1~, DIC+4*, DIC+5, DIC+6, DEF, XEC+3 | 
| DIETSL | PROCESS+1~, DIC+5*, DEF, XEC+5 | 
| >> DISYS | NOW+4 | 
| DIT | GET~, GET+3*, GET+5, DIAT, NDB, UP+1 | 
| DMAX | SAVEFLDS+1~, NOW+4* | 
| DP | E~, DIC+5*, L+1, L+2, DEF, DEF+2, XEC+2*, XEC+5, SAVEFLDS+1~, NOW+4* | 
| DQI | PROCESS+1~, DIC+6*, DEF+2* | 
| DR | E~, DDW+1!, KL+1, KL+2, GET+4*, PROCESS+2!, PROCESS+4! | 
| DR( | D, DR+2 | 
| DR(99 | L* | 
| DRK | DIETED+3~, EDIT+1~, E+6*, DDW, PROCESS+2 | 
| DRR | LINE+1~, D+1, DR+2*, DR+3*, DR+4, DR+5*, DR+6 | 
| DTOUT | E~, DDW+1 | 
| DUOUT | E~, DDW+1 | 
| DUZ | NOW+1 | 
| DUZ(0 | DIC+4, DIC+5 | 
| DV | LINE+1~, ALL+3*, SEMIC+1*, DIC+1, DEF* | 
| DXS | PROCESS+1~, PROCESS+2*, DIC+6, L*, DEF+2, XEC+2* | 
| ERR | PROCESS+1~, PROCESS+3!, PROCESS+6, X* | 
| F | E~, GET+4*, 1+6, DOWN*, DOWN+1, UP, UP+1*, PROCESS+2*, OUT*, ALL+4 , D*, D+2 | 
| I | DIETED+3~, EDIT+1~, DDW+2!, GET+1~ | 
| I( | UP!, OUT!, DIC+3*, DEF+1, DEF+2 | 
| I(0 | PROCESS+2* | 
| J | DIETED+3~, EDIT+1~, DDW+2!, GET+1~, ALL+3*, ALL+4, DEF+1*, DEF+2 | 
| J( | 1+7*, 1+8*, UP!, UP+1, OUT!, DIC+3* | 
| J(0 | GET+5*, GET+6, PROCESS+2*, SAVEAS+4, SAVEAS+5 | 
| L | E~, GET+1~, GET+4*, 1+7*, 1+8*, UP*, UP+1, PROCESS+1~, PROCESS+2*, OUT* , DIC+3*, DIC+6, L+1*, DEF+1, DEF+2 | 
| LINE | PROCESS+1~, PROCESS+3*, PROCESS+4*, PROCESS+6*, PROCESS+7 | 
| U | E+3, E+6, GET+5, 1+2, 1+5, 1+7, 1+8, DOWN, DIC+1, DIC+2 , DIC+3, L+1, D+1, DEF+1, XEC+2, XEC+5, SAVEAS+2, SAVEAS+4, SAVEAS+5, NOW , NOW+1, NOW+4 | 
| X | PROCESS+3*, PROCESS+4, PROCESS+5, LINE~, LINE+2*, LINE+3*, LINE+4, OUT+2, ALL, ALL+1 , ALL+3, SEMIC*, DIC+4*, DIC+6!*, L, L+1!, DEF*, DEF+1*, DEF+2*, XEC , XEC+2, SAVEFLDS+1~, NOW+4* | 
| X( | XEC+1 | 
| Y | DIETED+4, DIETED+5, 1*, 1+1*, 1+2*, 1+3*, 1+4*, 1+5*, 1+6, 1+9 , LINE+1~, OUT+2*, ALL+3, ALL+4*, SEMIC*, SEMIC+1!, DIC+1*, DIC+4*, L+1*, XEC , XEC+1*, XEC+2*, DR+5, DR+6, SAVEAS+2, SAVEAS+3, SAVEAS+4, SAVEAS+5, SAVEAS+6, SAVEAS+7 , SAVEFLDS~, SAVEFLDS+2, NOW, NOW+1, NOW+2, NOW+3, NOW+4 | 
| Y(0 | DIC+1, DIC+3 |