Index: PROC1.mac.rou
===================================================================
diff -u -r29059 -r48394
--- PROC1.mac.rou	(.../PROC1.mac.rou)	(revision 29059)
+++ PROC1.mac.rou	(.../PROC1.mac.rou)	(revision 48394)
@@ -42,13 +42,13 @@
  I R="",$G(DLz)="" G Find3
  I '$D(DLz),$L(R) S DLz=R
  S:R'="" DLz=R
- W @F,@FMTK,$P($T(T2),U,$F("NF",DLTaal)),DLz,@FMTk,@F2
+ W @F,@FMTK,$P($T(T2),U,$F("NF",DLTaal)),DLz,@FMTk,@F2 // Gezochte tekst laten pinken: "Zoeken naar : <zoekterm>"
  S DLv=DLo I $D(DLn),DLn>DLo,DLn<(DLo+DLal) S DLv=DLn
  S:DLsl DLv=DLsl S DLn=DLv,DLv=DLv+1,DLzx=""
  Set DLzx=$$UPTRIMAN^vhRtn1(DLz)
  S:DLzx="" DLzx=DLz
  ;Find2 S:'$D(@DLt) DLv=1 S DLi=@DLt I DLv'=DLn,DLi'[DLz,$$UPTRIMAN^vhRtn1(DLi)'[DLzx S DLv=DLv+1 G Find2 ;Zoek aangepast CW 07.03.2008
-Find2 S:'$D(@DLt) DLv=1 S DLi=@DLt I '$$Compare(DLv,DLn,DLi,DLz,DLzx) S DLv=DLv+1 G Find2
+Find2 S:'$D(@DLt) DLv=1 S DLi=@DLt I '$$Compare(DLv,DLn,DLi,DLz,DLzx) S DLv=DLv+1 G Find2 // Alle lijnen in ^HULP(KLNr, ... afzoeken op match.
  G Find4:DLv'=DLn W @F,@F2,"  ",@FMTB,@FMTI,"""",DLz
  W """  ",@FMTK,$P($T(T3),U,$F("NF",DLTaal)),@FMTk,@FMTB,@FMTI,$P($T(T4),U,2),@FMTb,@FMTi
  D IK S FP=DLbl+DLal*100+1 W @F,@F2 S:R="ENTER" R=""