cwn ;
 ;
KSKORT(PRNr,Korting,NoSa) 
 New R,J,KSDB,%Vork,KatPrKs
 If $G(PRNr) Set R=^KPR(PRNr,2),KatPrKs=$P(R,D,24) If $L(KatPrKs)  Do  Quit Korting
 .Set R="",J=$O(^KPR(PRNr,"J")) Set:$E(J)="J" R=^KPR(PRNr,J)
 .Set %Vork=$P(R,D,27)
 .Set Korting=%Vork*$S(KatPrKs="G":100,KatPrKs="S":50,1:0)/100
 If '$G(PRNr) Set KSDB=20
 Else  Do
 .Set:$G(NoSa)'="S" NoSa=""
 .Set R=$O(^KPR(PRNr,"J")) Set:$E(R)="J" R=^KPR(PRNr,R)
 .Set KSDB=$P(R,D,10)
 .If NoSa="S" Set R=^KPR(PRNr,2) Set:$P(R,D,10) KSDB=$P(R,D,10)
 Set:Korting="E" Korting=100-(10000/(100-KSDB))
 Set:Korting="K" Korting=100-(10000/(100-KSDB))/2.5
 Quit Korting