cANU400(DMS,UI1,BP,SW)	      ; Z-diagram ;%ANU40 ; [ 10/14/98  12:36 PM ]
	G 1
	;
T0	; Z-diagram ;
T1	; Z-diagram ; 12 Maanden ;
	;
T0F	; Diagramme 'Z' ;
T1F	; Diagramme 'Z' ; 12 Mois ;
	;
T0D	; Z-diagramm ;
T1D	; Z-diagramm ; 12 Monate ;
	;
	; vraag papier
1	I SW=2 S R=0_D_1 D ^cA345 G YZ:$L(K)
	;
	; berekening cijfers
2	N A,I,J,J1,R1,R2,R3,R4
21	S J=BP-2 F I=1:1:24 S J=J+.01 S:J#1>.12 J=J+.88 D
	. S J1=UI1,R1=DJ-(J\1),R2=J#1*100,R3=DMS
	. I DMS="KL"!(DMS="LE") S R2=R2+1 D ^cANT25
	. I DMS="AR"!(DMS="ARA") S R4="S" D ^cANT79
	. S A(I)=K                                          ; omz/sal per maand
	;
	; opzetten UTOP
3	N UQC,USC D DMS^cAN000("UQC","USC",DMS)
31	X ^DMC(UQC,USC,"LOGGING","TOP") S UTOP(1)=$$UC^cAFA1($E(UTOP(1)))_$E(UTOP(1),2,99)
33	I SW=2 G 4
35	D B^cA612 W /CUP(1,1),/cDR(1),/cDR(2,80),/cDR(0),/CUP(1,71)," ",BP," "
37	W /CUP(1,2),/SGR(1),$P($T(@("T1"_QT)),U,SW+2),/SGR(0)
38	W /CUP(2,3),/SGR(4),UTOP(1),/SGR(0)," : ",UTOP(1.1)
39	W /CUP(2,75),@F92,$P($$MNTW^cAFE1(Q,$$BJ^cAFE1(Q,BP)),D),@F93,@F1,/WSCROFF
	;
4	S QDR=$G(QDR,QD) N B,C,QD S QD=QDR D ^cANU401 I SW<2 D C^cA612
	;
YZ	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8