DICF ;SEA/TOAD,SF/TKW-VA FileMan: Finder, Part 1 (Main) ;20APR2010
Source file <DICF.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
I8 | ||
HOOK75 | ;
|
|
I1 | ||
I0 | ||
I3 | ||
I2 | ||
I5 | ||
I4 | ||
I7 | ||
I6 | ||
LOOKUP | ;
|
|
FINDX | ; branch in from FIND^DIC
|
|
CLOSE | ;
; cleanup |
|
INPUT | ; Verify correctness of input parameters
|
|
BADVAL(DIVALUE) | ; Check for invalid characters in value
|
|
FIND(DIFILE,DIFIEN,DIFIELDS,DIFLAGS,DIVALUE,DINUMBER,DIFORCE,DISCREEN,DIWRITE,DILIST,DIMSGA,DINDEX,DIC,DIY,DIYX) | ;
; ENTRY POINT--silent selecter |
Name | Field # of Occurrence |
---|---|
$$EZBLD^DIALOG | HOOK75+10 |
CHKVAL1^DIC0 | LOOKUP+8 |
ALTIDX^DICF0 | LOOKUP+21 |
SPECIAL^DICF1 | LOOKUP+15 |
XFORM^DICF1 | LOOKUP+17 |
CHKALL^DICF2 | LOOKUP+23 |
ERR^DICF4 | I1+1, I5+3, I6+6, I7+5, HOOK75+11, BADVAL+2 |
$$DINDEX^DICL | I6+5, I6+12 |
SETMAP^DICL1 | CLOSE+12 |
IDENTS^DICU1 | LOOKUP+10 |
FILE^DICUF | I3+1 |
SCREEN^DICUF | I3+3 |
VPDATA^DICUF | LOOKUP+7 |
INDEX^DICUIX | LOOKUP+2 |
CALLOUT^DIEFU | CLOSE+2 |
INIZE^DIEFU | FINDX+2 |
DA^DILF | I3+4 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | HOOK75+2 |
^DD("OS" - [#.7] | LOOKUP+4 |
Name | Line Occurrences |
---|---|
$$BADVAL | I1+5, HOOK75+12 |
CLOSE | INPUT+3, HOOK75+3, LOOKUP+1, LOOKUP+8, LOOKUP+9, LOOKUP+12, LOOKUP+24 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | HOOK75+6~, HOOK75+10*, HOOK75+11 |
D | I0+4~*, HOOK75+6~, HOOK75+7* |
DIC | FIND~, HOOK75+4~, HOOK75+5*, LOOKUP+23 |
DIC("S" | HOOK75+13 |
DIC("V" | HOOK75+14 |
DIC(0 | FINDX+1, HOOK75+5* |
DICLERR | FINDX+3~*, CLOSE+3, CLOSE+5 |
DIDENT | FINDX+6~, LOOKUP+10, LOOKUP+15, LOOKUP+23, CLOSE+12 |
DIDENT( | FINDX+6*, I0+5*, I8*, I8+1*, CLOSE+8, CLOSE+10, CLOSE+11 |
DIEN | FINDX+4~, FINDX+5*!, I3+4, HOOK75+8, LOOKUP+15, LOOKUP+23 |
DIEND | I1+4~*, I1+5 |
DIERR | FINDX+3!, I3+2, HOOK75+9, LOOKUP+1, LOOKUP+8, LOOKUP+9, LOOKUP+12, CLOSE+3, CLOSE+4, CLOSE+5* , CLOSE+6 |
DIERRM | I1+1~, I1+2* |
DIFAIL | FINDX+4~, INPUT+3*, I0+2, I1+1, I1+4*, I1+5*, I3+2*, I5+1, I5+2*, I6+1 , I6+6, I6+7*, I7+1, I7+3, I7+5* |
DIFIELDS | FIND~, I0+3, I0+4, I4+1*, LOOKUP+10, LOOKUP+19 |
DIFIEN | FIND~, I3+1, I3+4, HOOK75+8, LOOKUP+15, LOOKUP+23 |
DIFILE | FIND~, I3+1, I3+3, I6+5, I6+12, HOOK75+2, HOOK75+5, HOOK75+11, LOOKUP+2, LOOKUP+10 , LOOKUP+15, LOOKUP+21, LOOKUP+23 |
DIFLAGS | FIND~, INPUT+1*, INPUT+2, I0+1*, I0+2, I0+6*, I0+7*, I0+8*, I1+1, I2+2 , I2+3, I2+4, I3+1, I3+3, I5+1, I5+2, I5+3, I6+1, I6+4, I6+5 , I6+9*, I6+12, I7+1, I8, HOOK75+3, HOOK75+5, LOOKUP+1, LOOKUP+2, LOOKUP+8, LOOKUP+9 , LOOKUP+10, LOOKUP+12, LOOKUP+15, LOOKUP+17, LOOKUP+23, CLOSE+4, CLOSE+8, CLOSE+9, CLOSE+10, CLOSE+11 |
DIFM | FINDX+2~* |
DIFORCE | FIND~, I6+2*, I6+3, I6+4*, I6+5*, I6+7, I6+8*, I6+11, LOOKUP+23 |
DIFORCE(0 | I6+4*, I6+5*, I6+8*, I6+9, I6+11 |
DIFORCE(1 | I6+2* |
DIHOOK75 | HOOK75+1~, HOOK75+2*, HOOK75+3, HOOK75+9 |
DILIST | FIND~, I2+1*, I2+2, I2+3, I2+4*, I2+6*, LOOKUP+2, LOOKUP+15, LOOKUP+23, CLOSE+7 , CLOSE+8, CLOSE+10, CLOSE+11, CLOSE+12, CLOSE+13 |
DILIST("C" | FINDX+6 |
DIMSGA | FIND~, CLOSE+2 |
DINDEX | FIND~, INPUT+2~, I6+11*, I6+12*, HOOK75+7, LOOKUP+2, LOOKUP+7, LOOKUP+8, LOOKUP+10, LOOKUP+15 , LOOKUP+17, LOOKUP+21, LOOKUP+23 |
DINDEX("#" | LOOKUP+8, LOOKUP+13, LOOKUP+18 |
DINDEX("MAXSUB" | LOOKUP+3, LOOKUP+4*, LOOKUP+5*, LOOKUP+6*, LOOKUP+20, LOOKUP+22* |
DINDEX("WAY" | INPUT+2* |
DINUMBER | FIND~, I7+2*, I7+3, I7+4, I8+1, LOOKUP+2, LOOKUP+21, LOOKUP+23 |
DIOUT | I8+2~*, HOOK75+3, HOOK75+9*, HOOK75+12*, LOOKUP+1, LOOKUP+2, LOOKUP+12, LOOKUP+15 |
DIQUIET | FINDX+1~* |
DISAVMAX | LOOKUP+20~*, LOOKUP+22 |
DISCREEN | FIND~, I3+3, LOOKUP+2, LOOKUP+7, LOOKUP+15, LOOKUP+17, LOOKUP+18~*, LOOKUP+21, LOOKUP+23 |
DISCREEN("S" | HOOK75+13* |
DISCREEN("V" | HOOK75+14*, LOOKUP+7 |
DIVALUE | FIND~, FINDX+5~*, I1+3, LOOKUP+2, LOOKUP+8, LOOKUP+17, LOOKUP+21, LOOKUP+23, BADVAL~, BADVAL+1 , BADVAL+2 |
DIVALUE( | I1+5*, LOOKUP+13, LOOKUP+14 |
DIVALUE(1 | I1+3*, HOOK75+3, HOOK75+7, HOOK75+12*, LOOKUP+8, LOOKUP+15, LOOKUP+18 |
DIVALUE(999999 | I1+4 |
DIWRITE | FIND~, I7+8*, LOOKUP+10 |
DIY | FIND~, LOOKUP+23 |
DIYX | FIND~, LOOKUP+23 |
I | I1+4~, I1+5*, LOOKUP+13~*, LOOKUP+14 |
S | LOOKUP+18~*! |
U | I6+7, I6+9, I6+11, LOOKUP+4, CLOSE+5, CLOSE+10 |
X | HOOK75+6~, HOOK75+7*, HOOK75+9, HOOK75+12 |
Y | HOOK75+6~, HOOK75+8* |
Y1 | HOOK75+6~, HOOK75+8* |