KTR99 ; AFSLUITING BOEKJAAR ; [ 11/06/2001  4:52 PM ]
1 S Q0="^"_Q_"KL(I1)",Q1="^"_Q_"LE(I1)",Q2="^"_Q_"AR(I1)"
2 S I1=0,STR="\\\\\\\\\\\\\\\\\\\\\\\\\",FP=2403 W @F,@F2
3 S I1=$N(@Q0) I I1=-1 G YZ
4 S A=^(I1,0) S:'$D(^(BJ)) ^(BJ)=STR S B=^(BJ) S:'$D(^(BJ+.01)) ^(BJ+.01)=STR S SAL=$P(^(BJ+.01),D,1)
5 F X=1:2:25 S SAL=SAL+$P(B,D,X)-$P(B,D,X+1)
6 W @F,$P(A,D,1)," ",$P(A,D,2),@F2
7 S:'$D(^(BJ+1)) ^(BJ+1)=STR S:'$D(^(BJ+1.01)) ^(BJ+1.01)=STR
8 S A=^(BJ+1.01),^(BJ+1.01)=SAL_D_$P(A,D,2,99)
9 G 3
YZ Q