©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
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* |