cwdeur ; ;[ 02/16/99  9:31 AM ]
 ;
 Set Q="K"
 Do ^cA604
 Lock CwDeur:2 Else  Quit
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set I=$O(^KPR(PRNr,"I"))
 .Quit:$E(I)'="I"
 .Set R=^KPR(PRNr,I),Groep=$P(R,D,2)
 .Quit:$E(Groep,3,4)'="DE"
 .Quit:$E(Groep,7,9)="ACC"
 .Quit:$P(^KPR(PRNr,2),D,15)=0
 .IF $$CHKDEL^EWPR(PRNr) Do
 ..Set $P(^KPR(PRNr,2),D,15)=0
 ..Write !,PRNr," ",$P(^KPR(PRNr,0),D)," SET MANUEEL"
 .Else  Do
 ..Write !,PRNr," ",$P(^KPR(PRNr,0),D)," NOT SET"
 Quit
 ;