PVTEST ;NEW PROGRAM [ 05/19/99  1:15 PM ]
 d ^cA604
 s KL=0
 f  s KL=$O(^KKL(KL)) Q:KL=""  D
 .Q:'$P(^KKL(KL,1),D,5)
 .zw KL
 .S KLNr=$P(^KKL(KL,0),D)
 .s Dat=""
 .F  Set Dat=$O(^KFA1("F",KLNr,Dat)) Quit:Dat=""  Do
 ..s Fak=""
 ..F  Set Fak=$O(^KFA1("F",KLNr,Dat,Fak)) Quit:Fak=""  Do
 ...Set UL="U"
 ...F  Set UL=$O(^KFA("F",Fak,UL)) Quit:UL=""  Do
 ....S Lijn=100
 ....F  Set Lijn=$O(^KFA("F",Fak,UL,Lijn)) Quit:Lijn=""  Do CTR
 Q
 
CTR Set Rec=^KFA("F",Fak,UL,Lijn)
 Quit:'$P(Rec,D,2)
 ;zw Rec
 Set Kort=$P(Rec,D,7)
 Set LP=$P(Rec,D,32),VP=$P(Rec,D,34) Quit:LP=""&(VP="")
 Set AP=$P(Rec,D,33)
 Set NVP=LP*(1-($P(Kort,"#")/100))*(1-($P(Kort,"#",2)/100))
 Set Diff=NVP-VP ;/$P(Rec,D,3)
 Quit:Diff<100&(Diff>-100)
 zw KL
 Write $P(Rec,D,2),!
 zw NVP
 zw VP
 zw LP