cANIMP11	;Beheer Excel lay-outs; cANIMP10
	;
T0	;Beheer Excel lay-outs ;
T1	;Fout in de bestandscodes   [] = ok;
	;
T0F	;Gestion mise en pages Excel ;
T1F	;Erreur dans les fichiers   [] = ok;
	;
	; algemene initialisatie
1	S Q1=$P(B(1),D,3) 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,24),USA=$P(^(0),D,25),I=$P(^(0),D,22),UFU="U",UTX=$P($T(@("T0"_QT)),U,2)_$P(UTOP(1.1)," ",1)
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
	; startbestand
	S SW2=$S(Q1A=Q1:SW2,1:0),Q1A=Q1,OMA=OM,SW4A=SW4,UQAA=UQA,USAA=USA
	S LMIN=2,LMAX=$P(QW(QW),D,3)-($P(QW(QW),D,5)*2)
	S KMIN=1,KMAX=$P(QW(QW),D,4)-($P(QW(QW),D,5)*2)
	I KEU="Y" G ^cANIMP14
43	G ^cANIMP12
	;
Y	D C^cA612 G 4^cANIMP10
YZ	G YZ^cANIMP10
	;
E1	D ER^cAN000($P($T(@("T1"_QT)),U,2)) G YZ
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04