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 |