KOFTNOSA ;MODULE WISSELEN NORMALE- SCHADUWPRIJZEN ; [ 01/28/94  1:23 PM ]
 ;
 New I,R,U3,Detail
 If NoSa="" Set K="-" Quit
 If '$$IsActief^KLPUTZ2("S",QU(1)) Set NoSa=""
 Else  Set NoSa=$S('NoSa:1,NoSa=1:2,1:0)
 Set I=100
 For  Set I=$O(^KOFT(0,US,I)) Quit:I'?.N  Do
 .Set R=^KOFT(0,US,I) Quit:$P(R,U,16)'="NoSa"
 .Set (K,U3)=NoSa
 .If $L($P(R,U,8)) Xecute "Set U3="_$P(R,U,8)
 .Set FP=$P(R,U,5)*100+$P(R,U,6)
 .Write @F,$J("",$P(R,U,9)),$J("",$P(R,U,13))
 .Write @F,@FMTB,U3,@FMTb
 Set Detail=$O(UTA(""),-1)
 Set Detail=Detail-($P(UD,D,2)-UD+1/(NoSa=2+1)-1)
 Set K=Detail_"D" Do ^KOFT15
 Quit