Index: ZBCHKRCP.mac.rou
===================================================================
diff -u -r29059 -r39507
--- ZBCHKRCP.mac.rou	(.../ZBCHKRCP.mac.rou)	(revision 29059)
+++ ZBCHKRCP.mac.rou	(.../ZBCHKRCP.mac.rou)	(revision 39507)
@@ -1,4 +1,4 @@
-ZBCHKRCP
+rZBCHKRCP
  Quit
  
 CHECKRCP
@@ -29,13 +29,13 @@
  ..  If $P(RCPRec,D)="K",$P(RCPRec,D,20)'="A",$P(RCPRec,D,20)'="I",R'=RCPNr Do
  ...   Quit:$$CHKSTATUS(RCPNr,CONSNr,"I")
  ...   Set Check=0
- ...   Write !!,RCPIZR,!,"RCPNr ",$S(R:"verschillend",1:"onbekend")
+ ...   Write !!,RCPIZR,!,"RCPNr ",$S(R:"verschillend",1:"onbekend; maak ^RCP(IU,KUL-nummer)=RCP-nummer aan voor deze terugname.")
  ..  Set TLUNr=""
  ..  For  Set (TLUNr,BLUNr)=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr)) Quit:TLUNr=""  Do
  ...   Set RCPTOERec=^RCP("D",RCPNr,"D",TOENr,TLUNr),RCPZR=$ZR,RCPPRNr=$P(RCPTOERec,D)
  ...   If $P(RCPRec,D,20)="I",$P(RCPTOERec,D,2)'="I" Do
  ....    Set Check=0
- ....    Write !!,RCPZR,!,RCPTOERec,!,"Status ""I"" ?"
+ ....    Write !!,RCPZR,!,RCPTOERec,!,"Status ""I"" op receptie-hoofding, maar niet op receptielijn. Lijnniveau is normaal gezien correct."
  ...   Set R=$G(^RCP("IT",TOENr,TLUNr)),RCPIZR=$ZR
  ...   If $P(RCPRec,D)="L",$P(RCPTOERec,D,2)'="I",R'=RCPNr Do
  ....    Set Check=0
@@ -53,7 +53,7 @@
  ....    Set BLNr=$G(^BON("IU",CONSNr,BLUNr))
  ....    Do:'BLNr
  .....     Set Check=0
- .....     Write !!,$ZR,!,RCPTOERec,!,"Bonlijn onbekend"
+ .....     Write !!,$ZR,!,RCPTOERec,!,"Bonlijn onbekend. ^BON(IU is misschien te snel verwijderd, maak die terug."
  Quit
  
 CHKSTATUS(RCPNr,TOENr,Status)
@@ -71,3 +71,4 @@
  Quit Check
  
 
+