cwu ; ;[ 06/22/94  1:30 PM ]
 ;
 Set Q="K"
 Do ^cA604
 ;
 Set KLNr=0
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
 .Set ULNr=0
 .For  Set ULNr=$O(^KUL(KLNr,"F",ULNr)) Quit:ULNr=""  Do
 ..Set LIJNNr=100
 ..For  Set LIJNNr=$O(^KUL(KLNr,"F",ULNr,LIJNNr)) Quit:LIJNNr=""!(LIJNNr'?.N)  Do
 ...Set R=^KUL(KLNr,"F",ULNr,LIJNNr)
 ...Quit:$P(R,D,17)'="KF6"
 ...Write !!,R
 ...Set PRNr=$P(R,D,2),X=$$KLANTPR^KPRIJS(KLNr,PRNr),LijstPr=$P(X,D,4)
 ...Set CiffPpl=$J($P(X,D,13)/$P(X,D,9)*$P(X,D,11),0,2)
 ...Set $P(R,D,32)=$J(LijstPr,0,2),$P(R,D,33)=$J(CiffPpl,0,2)
 ...Write !,R
 ...;Set ^KUL(KLNr,"F",ULNr,LIJNNr)=R
 Quit
 ;