Index: ZBCHKRCP.mac.rou
===================================================================
diff -u -r55821 -r64389
--- ZBCHKRCP.mac.rou	(.../ZBCHKRCP.mac.rou)	(revision 55821)
+++ ZBCHKRCP.mac.rou	(.../ZBCHKRCP.mac.rou)	(revision 64389)
@@ -23,7 +23,7 @@
  . Do:$D(^RCP("IO",RCPNr))
  ..  If $P(RCPRec,D,20)'="I" Quit
  ..  Set Check=0
- ..  Write !!,RCPZR,!,RCPRec,!,"Openstaand ?"
+ ..  Write !!,RCPZR,!,RCPRec,!,"Status RCP is ""I"", index Openstaand bestaat nog. Indien receptie volledig ingeboekt, dan index "_$Name(^RCP("IO",RCPNr))_" verwijderen. "
  . For  Set (TOENr,CONSNr)=$O(^RCP("D",RCPNr,"D",TOENr)) Quit:TOENr=""  Do
  ..  Set R=$G(^RCP("IU",CONSNr)),RCPIZR=$ZR
  ..  If $P(RCPRec,D)="K",$P(RCPRec,D,20)'="A",$P(RCPRec,D,20)'="I",R'=RCPNr Do