DICF1 ;SEA/TOAD,SF/TKW-VA FileMan: Finder, Part 2 (Transform) ;1SEP2014
Source file <DICF1.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 |
Package | Total | Caller Graph |
---|---|---|
VA FileMan | 3 | DICF DICF0 DICF2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
XFORM(DIFLAGS,DIVALUE,DISCREEN,DINDEX) | ;
; FIND--produce array of values and screens by transforming input ; subroutine, DIVALUE, DINDEX, & DISCREEN passed by reference |
|
VALUES | ; Alternate Lookup Values
|
|
LOWER | ; 2. Add Upper-case Lookup Value to Array, If Needed
|
|
CHK | ; 3. Skip Remaining Transforms for Most Data Types
|
|
COMMA | ; 4. Add Comma-piece Lookup Value to Arrays, If Needed
|
|
21 | ||
22 | ||
23 | ||
24 | ||
LONG | ; 5. Add Long Lookup Value to Arrays, If Needed
|
|
DIREF | ||
L10 | ||
SPECIAL(DIFILE,DIEN,DIFIEN,DIFLAGS,DIVALUE,DINDEX,DISCREEN,DIDENT,DIOUT,DILIST) | ;
; Process space-bar return, 'IEN or DIVALUE equal to an IEN. |
|
11 | ; 1. Handle Space Lookup Value (Space-bar Recall)
|
|
12 | ; Handle Accent-grave Lookup Value
|
|
13 | ; Handle Pure Numeric Lookup Value (Possible IEN)
|
|
ENTRY | ; Execute screens, and if entry passes, do ACCEPT to add it to output.
|
|
BACKFROM(DIVALUE,DINDEX) | ; create From values for backward collation
|
|
EOR | ; end of routine DICF1
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | CHK+8~, CHK+9* |
B | BACKFROM+19~*, BACKFROM+20, BACKFROM+27~*, BACKFROM+28 |
DI001 | 13+3~*, 13+6 |
DI01FLAG | 13+4~*, 13+6 |
DI0NODE | ENTRY+1~*, ENTRY+2, ENTRY+3 |
DIDENT | SPECIAL~, ENTRY+3 |
DIEN | SPECIAL~, 11+7*, 11+8*, 12+3*, 13+7*, 13+9*, ENTRY+1, ENTRY+2, ENTRY+3 |
>> DIERR | 13+9 |
DIFIEN | SPECIAL~, 11+3, ENTRY+2, ENTRY+3 |
DIFILE | SPECIAL~, 11+3, 13+3, 13+4, 13+5, 13+6, ENTRY+1, ENTRY+2, ENTRY+3 |
DIFILE( | 13+5, 13+6, ENTRY+1 |
DIFLAGS | XFORM~, VALUES+12, LOWER+2, CHK+8~, COMMA+2, 21+2, 22+2, 23+4, 24+5, L10+2 , L10+3, SPECIAL~, 13+6, ENTRY+2, ENTRY+3 |
DILIST | SPECIAL~, ENTRY+3 |
DINDEX | XFORM~, CHK+8~, SPECIAL~, ENTRY+2, ENTRY+3, BACKFROM~ |
DINDEX( | VALUES+6*, CHK+5, COMMA+4, LONG+2, LONG+5, LONG+11*, LONG+12, LONG+13, LONG+14* |
DINDEX("#" | XFORM+3, BACKFROM+14 |
DINDEX("DONE" | 13+9 |
DINODE | 11+4~*, 11+5, 11+6, 11+7 |
DINODEL | 11+5~*, 11+6, 11+7 |
DIOUT | 21+6~*, 21+7, 21+11*, 21+12*, SPECIAL~, SPECIAL+2*, 11+2*, 12+2, 12+4*, 13+9* |
DIPART1 | 21+3~*, 21+13 |
DIPART2 | 21+4~*, 21+13 |
DIPART3 | 21+5~*, 21+13 |
DIPC2 | 22+2~, 22+3*, 22+4*, 22+5 |
DIPIECE | 21+7~*, 21+8 |
DIPIECE1 | COMMA+3~*, COMMA+4, COMMA+5, 23+2, 24+3 |
DIPIECE2 | 22+2~, 22+3*, 22+4, 22+5, 23+4, 24+5 |
DIREF | LONG+3~, DIREF*, DIREF+1, DIREF+2 |
DIROOT | 11+3~*, 11+4, 11+6 |
DISCREEN | XFORM~, CHK+8~, SPECIAL~, ENTRY+2 |
DISCREEN( | VALUES+9!, 23+3*, 24+4*, LONG+8!*, LONG+16, L10+2*, L10+3*, L10+4*, L10+5* |
DISLONG | LONG+3~, LONG+15*, LONG+16*, DIREF+1, DIREF+2 |
DISPART | LONG+3~, DIREF+1*, L10+3, L10+5 |
DISTEMP | COMMA+3~*, 21+12, 21+13*, 21+14, 21+15*, 21+16, 22+5*, 23+3, 24+4 |
DISUB | XFORM+3~*, VALUES+4, VALUES+5, VALUES+6, VALUES+8, VALUES+9, VALUES+10, VALUES+11, LOWER+2, LOWER+3 , CHK+5, CHK+6, CHK+8~, COMMA+2, COMMA+3, COMMA+4, 21+8, 22+3, 23+2, 23+3 , 23+4, 24+2, 24+3, 24+4, 24+5, LONG+2, LONG+4, LONG+5, LONG+6, LONG+7 , LONG+8, LONG+9, LONG+11, LONG+12, LONG+13, LONG+14, LONG+16, DIREF, L10+2, L10+3 , L10+4, L10+5, BACKFROM+14~*, BACKFROM+16, BACKFROM+18, BACKFROM+19, BACKFROM+20, BACKFROM+24, BACKFROM+26, BACKFROM+27 , BACKFROM+28 |
DISXACT | LONG+3~, DIREF+2*, L10+2, L10+4 |
DIVAL | BACKFROM+22~*, BACKFROM+23, BACKFROM+24*, BACKFROM+25, BACKFROM+26, BACKFROM+27, BACKFROM+28 |
DIVALUE | XFORM~, CHK+8~, SPECIAL~, 11+2, 12+2, 12+3, 13+2, 13+5, 13+7, BACKFROM~ |
DIVALUE( | VALUES+4*, VALUES+5, VALUES+6, VALUES+8!, VALUES+10*, VALUES+11, LOWER+2, LOWER+3*, CHK+6, CHK+8 , COMMA+2, COMMA+3, 21+8, 22+3, 23+2*, 23+4*, 24+2, 24+3*, 24+5*, LONG+2 , LONG+4, LONG+6, LONG+7!*, LONG+9*, LONG+11*, LONG+13*, BACKFROM+16, BACKFROM+18, BACKFROM+19, BACKFROM+24 , BACKFROM+26, BACKFROM+27 |
DIVALUE("BACK" | BACKFROM+16*, BACKFROM+20*, BACKFROM+28* |
DIVPIECE | 21+7~, 21+8*, 21+9, 21+10*, 21+11, 21+12, 21+13 |
DUZ | 11+4 |
I | VALUES+5~*, VALUES+6, VALUES+8*, VALUES+9*, LONG+4*, LONG+6, LONG+7, LONG+8, LONG+9, LONG+10 , LONG+11, LONG+13, LONG+16, DIREF, L10+2, L10+3, L10+4, L10+5 |
J | LONG+3~, LONG+12*, LONG+13, LONG+14 |
L | LONG+5~*, LONG+6, LONG+9, LONG+12, LONG+14 |
M | LONG+5~, LONG+12* |
U | 13+4 |
X | CHK+8~*, LONG+3~, LONG+7*, LONG+8* |
Y | CHK+7~ |