cANU200	;Beheer listings ;%ANU20 ; [ 02/24/00  11:18 AM ]
	G 1
	;
T0	;Beheer listings ;
T1	; Beheer listing ;
T2	;Fout in de bestandscodes   [] = ok;
	;
T0F	;Gestion des listings ;
T1F	; Gestion listing ;
T2F	;Erreur dans les fichiers   [] = ok;
	;
T0D	;Listenverwaltung ;
T1D	; Listenverwaltung ;
T2D	;Fout in de bestandscodes   [] = ok;
	;
	; algemene initialisatie
1	S Q1=$P(B(1),D,2) D DMS^cAN000("UQC","USC",Q1) G E1:UQC=""!(USC=""),E1:'$D(^DMC(UQC,USC))
10	S $ZT="TRAP^cAN000"
11	S UQA=$P(^DMS(Q,Q1,0),D,3),USA=$P(^(0),D,4),I=$P(^(0),D,2),UFU="U",UTX=$P($T(@("T1"_QT)),U,2)_$P(UTOP(1.1)," ",1,3)
13	G E1:UQA=""!(USA="")!'I,E1:'$D(^DMA(UQA,USA,0,"DMS"))
15	S C=^("DMS") I C'=Q1 D  I C'=Q1 G E1
	. I $L(C),$G(^DMS(Q,C))=^DMS(Q,Q1) S C=Q1
17	S I=$G(^DMA(UQA,USA,0,"WIN")) F J=1:1:8 S $P(I,D,J)=+$P(I,D,J)
18	S:$P(I,D)>2 $P(I,D)=2 S:$P(I,D,3)<20 $P(I,D,3)=20 S:$P(I,D,2)>1 $P(I,D,2)=1 S:$P(I,D,4)<80 $P(I,D,4)=80
19	S J=I
	;
	; window + titel tonen
2	S UTIT=""
23	S I=UTX
26	D P^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8),I,0,0,7,1,1)
	;
	; aantal pagina's & nodes
3	S USL=D,$P(USL,D,29)=D,(SW2,SW3,SW5)=1,I=0
31	F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  S SW4=I,J="" D
	. F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  S U7=$G(^(J,16)) I U7\100>SW3 S SW3=U7\100
	;
	; overgang
4	S OM=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
41	S OM=$$UC^cAFA1($E(OM))_$E(OM,2,99),OMA=OM,Q1A=Q1,SW4A=SW4,UQAA=UQA,USAA=USA
43	G ^cANU201
	;
Y	D C^cA612 G 4^cANU20
YZ	G YZ^cANU20
	;
E1	D ER^cAN000($P($T(@("T2"_QT)),U,2)) G YZ
	;
ZZ	; 22.06.04 - 16 u 32 * V8