KT222 G 1 ;Z-DIAGRAM ;KT221; [ 08/07/2002   4:08 PM ]
 ;
T1 ;KEUZE\"[] = Z-diagram   1[] = laatste 12 maanden   2[] = afdrukken   E[] = einde"
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
S1 S FP=2317 W @F11,@F1,@F,@F7,@$P(FG,D,8) F I=1:1:61 W @$P(FG,D,9)
S1A W @$P(FG,D,8) S T=0 F K=2217:-200:117 S FP=K W @F,@$P(FG,D,10) S FP=K+62 W @F,@$P(FG,D,10) S FP=K-100 W @F,@$P(FG,D,6) S FP=K-38 W @F,@$P(FG,D,7)
S1B S FP=120 W @F8,@F,TIT F I=1:1:12 S K=BP#1*100+I S:K>12 K=K-12 S:T<B(I) T=B(I) S FP=I*5+2315+(K<10) W @F,K
S1C S:T<5 T=5 S:$E(T,2)=9 T=($E(T,1,2)+1)_$E(T,3,99) S I=$E(1E15,1,$L(T)-1),T=$E(T,1)_(I*$E(T,2)+I)/20 F I=0:2:20 S FP=23-I*100+1 W @F S R=T*I_"\15\\"_QD D R3
S1Z Q
 ;
S2 F I=1:1:12 S FP=-$J(B(I)/T,0,0)*100+(I*5)+2316-LN S:FP<100 FP=I*5-LN+16 D:FP<2300&(FP>100) S5 F FP=FP+100:100:2300 W @F,@F7,@$P(FG,D,LN=2*11+10),@F8,$J("",LN),@F7,@$P(FG,D,LN=2*11+10),@F8
S2Z Q
 ;
S3 S C(1)=A(13) F I=2:1:12 S C(I)=A(I+12)+C(I-1)
S3A S B(12)=C(12) F I=11:-1:1 S B(I)=B(I+1)-A(I+13)+A(I+1)
S3Z Q
 ;
S4 S @("^"_Q_"HULP($J,0)")="",T=0 F I=1:1:12 S:T<B(I) T=B(I) S ^(I*2-2)="|"_$J("|",64),^(I*2-1)="+"_$J("+",64)
S4A S:$E(T,2)=9 T=($E(T,1,2)+1)_$E(T,3,99) S I=$E(1E15,1,$L(T)-1),T=$E(T,1)_(I*$E(T,2)+I)/20
S4B F I=1:1:12 S K=-$J(B(I)/T,0,0)+23 S:K<2 K=2 S:$D(^(K)) C=^(K),^(K)=$E(C,1,I*5)_LN_$E(C,I*5+2,99) I LN="*" F K=K:1:23 S:$D(^(K)) C=^(K),^(K)=$E(C,1,I*5)_LN_$E(C,I*5+2,99)
S4Z Q
 ;
S5 W @F,@F7,@$P(FG,D,LN=2*11+1) F K=1:1:LN W @$P(FG,D,LN=2*11+9)
S5Z W @$P(FG,D,LN=2*11+2),@F8 Q
 ;
1 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S FP=503 W @F,TIT
13 S K=0 F I=1:1:24 S:A(I)<0 K=K+1 S:A(I)>0 K=K-1
14 I K>0 F I=1:1:24 S A(I)=-A(I)
 ;
2 S R="K\22\3\"_$P($T(T1),";",2)_"\1\\""12E-""[K" D R0 G YZ:K="-",4:K=1,5:K,YZ:K="E"
 ;
3 S LN=2 D S3,S1 S FP=2478 W @F,@F4 D S2 S FP=2478 W @F,@F5 F I=1:1:12 S B(I)=C(I)
33 S LN=1,FP=2478 W @F,@F92 D S2 S FP=2478 W @F,@F93 F I=1:1:12 S B(I)=A(I+12)
34 S K=$P(^cLOG(boot,"DEV",$$IO^cQ5),D) I K="AD"!(K="AR") S KK=FG,FG="*66\*70\*74\*78\*82\*86\*90\*94\*98\*102\*106"
37 S LN=0,FP=2478 W @F,@F94 D S2 S FP=2478 W @F,@F95
38 S K=$P(^cLOG(boot,"DEV",$$IO^cQ5),D) I K="AD"!(K="AR") S FG=KK
39 G 49
 ;
4 S LN=2 F I=1:1:12 S B(I)=A(I+12)
41 D S1,S2
49 S R="K\24\3\[] = ok\\1\\""-""[K" D R0 G 1
 ;
5 D INIT^vhPRINTER(80) G 2:'$D(Print)
55 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) K @("^"_Q_"HULP($J)")
56 W !,QN,?72,"BLZ :  1",!,NM2,?30,@F82,$P($T(+1),";",2),@F83,$C(13),?72,DT,!,NM3,?30,TIT,?73,TD,!
 ;
6 S LN="J" D S3,S4 F I=1:1:12 S B(I)=C(I)
61 S LN="C" D S4B F I=1:1:12 S B(I)=A(I+12)
62 S LN="M" D S4B F I=2:1:22 W ! S R=$P(23-I*T,D,I+1#2+1)_"\13\\"_QD D R3:R W:'R $J("",14) W " ",^(I)
63 W !,?13,"0 |" F I=1:1:12 S K=BP#1*100+I S:K>12 K=K-12 W $E("----"_K,$L(K),9)
64 W "---|" S LN="*" D S4 F I=2:1:22 W ! S R=$P(23-I*T,D,I+1#2+1)_"\13\\"_QD D R3:R W:'R $J("",14) W " ",^(I)
65 W !,?13,"0 |" F I=1:1:12 S K=BP#1*100+I S:K>12 K=K-12 W $E("----"_K,$L(K),9)
66 W "---|",! F I=1:1:6 W !,?4 F K=1:1:4 S R=30-(K*6)-I/-100+BP S:R#1>.13!'(R#1) R=R-.88 S:R#1>.13!'(R#1) R=R-.88 S:R<9 R=R#1*100 W $J(R#100,5,R#1&1*2) S R=A(K*6+I-6)_"\11\\"_QD D R3 W:K<4 " | "
69 W # D CLOSE^vhPRINTER G 1:QP
 ;
YZ K B,C,@("^"_Q_"HULP($J)") Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;