ZBCHKRCP
 Quit
 
CHECKRCP
 Do
 . New Check
 . Set Q="K"
 . Do ^cA604
 If '$D(Check) Write !!,"*** WMS rcp ***"
 Set RCPNr=""
 For  Set RCPNr=$O(^RCP("D",RCPNr)) Quit:RCPNr=""  Do
 . Set RCPRec=^RCP("D",RCPNr),RCPZR=$ZR,TOENr=""
 . If $P(RCPRec,D)="K" Do
 ..  Set KLNr=$P(RCPRec,D,2)
 ..  Quit:$D(^RCP("IK",KLNr,RCPNr))
 ..  If $D(Check) Set Check=0
 ..  Else  Write !!,$ZR,!,"Index onbekend"
 . Else  Do
 ..  Set LEVNr=$P(RCPRec,D,2)
 ..  Quit:$D(^RCP("IL",LEVNr,RCPNr))
 ..  If $D(Check) Set Check=0
 ..  Else  Write !!,$ZR,!,"Index onbekend"
 . Do:$D(^RCP("IO",RCPNr))
 ..  If $P(RCPRec,D,20)'="I" Quit
 ..  If $D(Check) Set Check=0
 ..  Else  Write !!,RCPZR,!,RCPRec,!,"Openstaand ?"
 . 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
 ...   Quit:$$CHKSTATUS(RCPNr,CONSNr,"I")
 ...   If $D(Check) Set Check=0
 ...   Else  Write !!,RCPIZR,!,"RCPNr ",$S(R:"verschillend",1:"onbekend")
 ..  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
 ....    If $D(Check) Set Check=0
 ....    Else  Write !!,RCPZR,!,RCPTOERec,!,"Status ""I"" ?"
 ...   Set R=$G(^RCP("IT",TOENr,TLUNr)),RCPIZR=$ZR
 ...   If $P(RCPRec,D)="L",$P(RCPTOERec,D,2)'="I",R'=RCPNr Do
 ....    If $D(Check) Set Check=0
 ....    Else  Write !!,RCPIZR,!,"RCPNr ",$S(R:"verschillend",1:"onbekend")
 ...   If $P(RCPRec,D)="L",$P(RCPTOERec,D,2)'="I" Do
 ....    Set TLNr=$G(^TO("IU",TOENr,TLUNr))
 ....    If 'TLNr Do  Quit
 .....     If $D(Check) Set Check=0
 .....     Else  Write !!,$ZR,!,RCPTOERec,!,"Toeleveringslijn onbekend"
 ....    Set TOERec=$G(^KTO(LEVNr,TOENr,TLNr)),TOEPRNr=$P(TOERec,D,2)
 ....    Do:TOEPRNr'=RCPPRNr
 .....     If $D(Check) Set Check=0
 .....     Else  Write !!,RCPZR,!,RCPTOERec,!,$ZR,!,TOERec,!,$S('TOEPRNr:"Toeleveringslijn onbekend",1:"Produkt verschillend")
 ...   If $P(RCPRec,D)="K",$P(RCPTOERec,D,2)'="I" Do
 ....    Set BLNr=$G(^BON("IU",CONSNr,BLUNr))
 ....    Do:'BLNr
 .....     If $D(Check) Set Check=0
 .....     Else  Write !!,$ZR,!,RCPTOERec,!,"Bonlijn onbekend"
 Quit
 
CHKSTATUS(RCPNr,TOENr,Status)
 New R,TLUNr
 Set TLUNr=""
 For  Set TLUNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr)) Quit:TLUNr=""  Do  Quit:Status="?"
 . Set R=^RCP("D",RCPNr,"D",TOENr,TLUNr)
 . Set:$P(R,D,2)'=Status Status="?"
 Quit Status'="?"
 
CHECK() 
 New
 Set Check=1
 Do CHECKRCP
 Quit Check