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. |
