DICF ;VEN/TOAD,SF/TKW - Lookup: Finder, Part 1 (Main) ;1/24/13 3:51pm
Source file <DICF.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIND(DIFILE,DIFIEN,DIFIELDS,DIFLAGS,DIVALUE,DINUMBER,DIFORCE,DISCREEN,DIWRITE,DILIST,DIMSGA,DINDEX,DIC,DIY,DIYX) | ;
; Finder Implementation [internal use only] |
|
| FINDX | ; 1. Finder Pre-initialization [from FIND or FIND^DIC]
|
|
| INPUT | ; 2. Validate Input Parameters
|
|
| I1 | ||
| I2 | ||
| I3 | ||
| I4 | ||
| I5 | ||
| I6 | ||
| I7 | ||
| I8 | ||
| I9 | ; 2.9. Init Map (DIDENT(-3)), Window (DIDENT(-1)), & Done (DIOUT)
|
|
| HOOK75 | ; 3. Process Pre-lookup Transform
|
|
| LOOKUP | ; 4. Finder Main Lookup Code
|
|
| BADVAL(DIVALUE) | ; Validate a Lookup Value
|
|
| CLOSE | ; Cleanup before Exiting Finder
|
|
| EOR | ; end of routine DICF
|
| Name | Field # of Occurrence |
|---|---|
| $$EZBLD^DIALOG | HOOK75+11 |
| CHKVAL1^DIC0 | LOOKUP+9 |
| ALTIDX^DICF0 | LOOKUP+22 |
| BACKFROM^DICF1 | LOOKUP+18 |
| SPECIAL^DICF1 | LOOKUP+15 |
| XFORM^DICF1 | LOOKUP+16 |
| CHKALL^DICF2 | LOOKUP+24 |
| ERR^DICF4 | I2+2, I6+4, I7+7, I8+6, HOOK75+12, BADVAL+3 |
| $$DINDEX^DICL | I7+6, I7+12 |
| SETMAP^DICL1 | CLOSE+12 |
| IDENTS^DICU1 | LOOKUP+11 |
| FILE^DICUF | I4+2 |
| SCREEN^DICUF | I4+4 |
| VPDATA^DICUF | LOOKUP+8 |
| INDEX^DICUIX | LOOKUP+3 |
| CALLOUT^DIEFU | CLOSE+2 |
| INIZE^DIEFU | FINDX+3 |
| DA^DILF | I4+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | HOOK75+3 |
| ^DD("OS" - [#.7] | LOOKUP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | HOOK75+7~, HOOK75+11*, HOOK75+12 |
| D | I1+5~*, HOOK75+7~, HOOK75+8* |
| DIC | FIND~, HOOK75+5~, HOOK75+6*, LOOKUP+24 |
| DIC("S" | HOOK75+14 |
| DIC("V" | HOOK75+15 |
| DIC(0 | FINDX+2, HOOK75+6* |
| DICLERR | FINDX+4~*, CLOSE+3, CLOSE+5 |
| DIDENT | FINDX+5~, LOOKUP+11, LOOKUP+15, LOOKUP+24, CLOSE+12 |
| DIDENT( | FINDX+5*, I1+6*, I9+2*, I9+3*, I9+4*, I9+5*, CLOSE+8, CLOSE+10, CLOSE+11 |
| DIEN | INPUT+2~*!, I4+5, HOOK75+9, LOOKUP+15, LOOKUP+24 |
| DIEND | I2+5~*, I2+6 |
| DIERR | FINDX+4!, I4+3, HOOK75+10, LOOKUP+2, LOOKUP+9, LOOKUP+10, LOOKUP+12, CLOSE+3, CLOSE+4, CLOSE+5* , CLOSE+6 |
| DIERRM | I2+2~, I2+3* |
| DIFAIL | INPUT+6~*, INPUT+7, I1+3, I2+2, I2+5*, I2+6*, I4+3*, I6+2, I6+3*, I7+2 , I7+7, I7+8*, I8+2, I8+4, I8+6* |
| DIFIELDS | FIND~, I1+4, I1+5, I5+2*, LOOKUP+11, LOOKUP+20 |
| DIFIEN | FIND~, I4+2, I4+5, HOOK75+9, LOOKUP+15, LOOKUP+24 |
| DIFILE | FIND~, I4+2, I4+4, I7+6, I7+12, HOOK75+3, HOOK75+6, HOOK75+12, LOOKUP+3, LOOKUP+11 , LOOKUP+15, LOOKUP+22, LOOKUP+24 |
| DIFLAGS | FIND~, INPUT+3*, INPUT+4, I1+2*, I1+3, I1+7*, I1+8*, I1+9*, I2+2, I3+3 , I3+4, I3+5, I4+2, I4+4, I6+2, I6+3, I6+4, I7+2, I7+5, I7+6 , I7+10*, I7+12, I8+2, I9+2, HOOK75+4, HOOK75+6, LOOKUP+2, LOOKUP+3, LOOKUP+9, LOOKUP+10 , LOOKUP+11, LOOKUP+12, LOOKUP+15, LOOKUP+16, LOOKUP+17, LOOKUP+24, CLOSE+4, CLOSE+8, CLOSE+9, CLOSE+10 , CLOSE+11 |
| DIFM | FINDX+3~* |
| DIFORCE | FIND~, I7+3*, I7+4, I7+5*, I7+6*, I7+8, I7+9*, I7+11, LOOKUP+24 |
| DIFORCE(0 | I7+5*, I7+6*, I7+9*, I7+10, I7+11 |
| DIFORCE(1 | I7+3* |
| DIHOOK75 | HOOK75+2~, HOOK75+3*, HOOK75+4, HOOK75+10 |
| DILIST | FIND~, I3+2*, I3+3, I3+4, I3+5*, I3+6*, LOOKUP+3, LOOKUP+15, LOOKUP+24, CLOSE+7 , CLOSE+8, CLOSE+10, CLOSE+11, CLOSE+12, CLOSE+13 |
| DILIST("C" | FINDX+5 |
| DIMSGA | FIND~, CLOSE+2 |
| DINDEX | FIND~, INPUT+4~, I7+11*, I7+12*, HOOK75+8, LOOKUP+3, LOOKUP+8, LOOKUP+9, LOOKUP+11, LOOKUP+15 , LOOKUP+16, LOOKUP+18, LOOKUP+22, LOOKUP+24 |
| DINDEX("#" | LOOKUP+9, LOOKUP+13, LOOKUP+19 |
| DINDEX("MAXSUB" | LOOKUP+4, LOOKUP+5*, LOOKUP+6*, LOOKUP+7*, LOOKUP+21, LOOKUP+23* |
| DINDEX("WAY" | INPUT+4* |
| DINUMBER | FIND~, I8+3*, I8+4, I8+5, I9+3, LOOKUP+3, LOOKUP+22, LOOKUP+24 |
| DIOUT | I9+6~*, HOOK75+4, HOOK75+10*, HOOK75+13*, LOOKUP+2, LOOKUP+3, LOOKUP+12, LOOKUP+15 |
| DIQUIET | FINDX+2~* |
| DISAVMAX | LOOKUP+21~*, LOOKUP+23 |
| DISCREEN | FIND~, I4+4, LOOKUP+3, LOOKUP+8, LOOKUP+15, LOOKUP+16, LOOKUP+19~*, LOOKUP+22, LOOKUP+24 |
| DISCREEN("S" | HOOK75+14* |
| DISCREEN("V" | HOOK75+15*, LOOKUP+8 |
| DIVALUE | FIND~, INPUT+2~*, I2+4, LOOKUP+3, LOOKUP+9, LOOKUP+16, LOOKUP+18, LOOKUP+22, LOOKUP+24, BADVAL~ , BADVAL+2, BADVAL+3 |
| DIVALUE( | I2+6*, LOOKUP+13, LOOKUP+14 |
| DIVALUE(1 | I2+4*, HOOK75+4, HOOK75+8, HOOK75+13*, LOOKUP+9, LOOKUP+15, LOOKUP+19 |
| DIVALUE(999999 | I2+5 |
| DIWRITE | FIND~, I8+7*, LOOKUP+11 |
| DIY | FIND~, LOOKUP+24 |
| DIYX | FIND~, LOOKUP+24 |
| I | I2+5~, I2+6*, LOOKUP+13~*, LOOKUP+14 |
| S | LOOKUP+19~*! |
| U | I7+8, I7+10, I7+11, LOOKUP+5, CLOSE+5, CLOSE+10 |
| X | HOOK75+7~, HOOK75+8*, HOOK75+10, HOOK75+13 |
| Y | HOOK75+7~, HOOK75+9* |
| Y1 | HOOK75+7~, HOOK75+9* |
