cTU23 ;Z-DIAGRAM ;%TU22 ; [ 09/18/98  8:16 AM ]
 G 1
 ;
T1 ;KEUZE\"[] = Z-diagram   1[] = laatste 12 maanden   2[] = afdrukken   E[] = einde";
T2 ;PLAATS SMAL BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T3 ;BLZ :  1;
 ;
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) Q: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  ;V2 20.11.86
 ;
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 T=T+.5\1,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 ^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 T=T+.5\1,I=$E(1E15,1,$L(T)-1),T=$E(T,1)_(I*$E(T,2)+I)/20
S4B S:'T T=1 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 B 1 I 'QP S TIT=PP(1),BP=PP(2) F I=1:1:24 S A(I)=PP(I+2) I I=24 K PP G 55
11 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\\\1" 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",$I),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",$I),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 S R="K\22\3\"_$P($T(T2),";",2)_"\1\\""-.,""[K" D R0 G 2:K="-"!(K=",")
51 I K="." S PP(1)=TIT,PP(2)=BP F I=1:1:24 S PP(I+2)=A(I) I I=24 D R9 K PP G 2
55 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) X F70 W @F80 K ^HULP($J)
56 W !,QN,?72,$P($T(T3),U,2),!,NM2,?30,@F82,$P($T(+1),";",2),@F83,*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 # X F71 G 1:QP
 ;
YZ K B,C,^HULP($J) Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
R9 S R1=$P($T(+1)," ",1) I $D(QPT) F I=1,2 I $L($P(QPT,"#",I)) S $P(R1,"#",I)=$P(QPT,"#",I)
R9A F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9B S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1
R9Z K R1,R2,R3 L  Q  ; V3  14.10.87
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5