DICFIX1 ;SEA/TOAD,SF/TKW-FileMan: Finder, Search Compound Indexes (cont.) ;15MAY2011
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
; limited comma piece lookup, skip nonmatching names in index
N DIUTF8 D
.N X,Y S Y=$C(126),X=$G(^DD("OS",^DD("OS"),"HIGHESTCHAR")) X:X]"" X S DIUTF8=Y
I $P(DIVAL,",")=DIPART S DIVAL=DIPART_","_DIUTF8,DISKIP=1 Q ;UTH/SMH
I $$PREFIX(DIPOSTC,DIPPOSTC) Q
I $$PREFIX(DIPPOSTC,DIPOSTC) Q
; Skip forward within index based on limited comma piecing
I DIPPOSTC]DIPOSTC D Q
. ; Current first name before starting first name, skip to starting first name
. S DIVAL=DIPREC_","_DIPPOSTC
. I '$D(@DINDEX(DISUB,"ROOT")@(DIVAL)) S DISKIP=1
; Else, skip the rest of the first names within current last name.
S DIVAL=DIPREC_","_DIUTF8,DISKIP=1 Q ;UTH/SMH