Index: BLMSG.mac.rou
===================================================================
diff -u -r29059 -r36111
--- BLMSG.mac.rou	(.../BLMSG.mac.rou)	(revision 29059)
+++ BLMSG.mac.rou	(.../BLMSG.mac.rou)	(revision 36111)
@@ -3,10 +3,11 @@
 BEGIN Set:'$D(MsgId) MsgId=1
  Set RecNr=-1,RecNaam="MSG-11"
  Set FP=2301 Write @F,@F1,"Bevestigen berichten",!,"Bericht : "
-LOOP Set RecNr=$N(^BLImp(MsgId,RecNr)) Goto CHECK:RecNr=-1
+LOOP Set RecNr=$N(^BLImp(MsgId,RecNr)) Goto YZ:RecNr=-1
  Set RecInp=^(RecNr) Do TF
  If $D(^BLBeri("O",PMMSGI)) Set FP=2411 Write @F,@F1,PMMSGI Set $P(^(PMMSGI),D,8)=1
  Goto LOOP
+ 
  ; Nakijken of er nog onbevestigde berichten zijn
 CHECK Set RecNr=-1,Test=0
  Set FP=2301 Write @F,@F1,"Nakijken nog niet bevestigde berichten"
@@ -24,6 +25,7 @@
  Set FP=2401 Write @F,"Druk een toets in om verder te gaan"
  R *K
  Goto YZ
+ 
  ;Transformeer BLUM record naar Mumps record
  ;Parameters 
  ;RecNaam : Naam van het record
@@ -45,3 +47,4 @@
  Q
 YZ Set FP=2301 Write @F,@F1 Q
 
+