Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: DICFIX

Package: VA FileMan

Routine: DICFIX


Information

DICFIX ;SEA/TOAD,SF/TKW-FileMan: Finder, Search Compound Indexes ;5SEP2014

Source Information

Source file <DICFIX.m>

Entry Points

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.
Info |  Source |  Entry Points