DICFIX ;SEA/TOAD,SF/TKW-FileMan: Finder, Search Compound Indexes ;5SEP2014
Source file <DICFIX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
WALK(DIFLAGS,DINDEX,DIDENT,DIFILE,DIEN,DIFIEN,DISCREEN,DILIST,DIC,DIY,DIYX) | ;
|
|
PREP | ; prepare to loop through subscript
|
|
LOOP | ; loop through subscripts
|
|
DATA | ||
IEN | ||
CLEAN | ; clean up after loop, exit
|
|
CHK | ; See whether we have a match or are at the end of the subscripts.
|
|
MATCH | ; No more subscripts or partial matches, or past our TO value?
|
|
NUM | ;I +$P($G(DIPART),"E")=$G(DIPART),+$P(DIVAL,"E")=DIVAL,DIVAL'=DIPART S DIDONE=1 Q ;***'100' SHOULD NOT MATCH '1000' -- MCPHELAN. BUT VA DISAGREES.
|
|
TRY | ; Apply screens to entry. If passed, add entry to output.
|
|
DICLIST | ; Build output list when Finder is called from ^DIC.
; Display entries and allow selection if screen is filled. |