cAB1270	;Beheer synoniemen; %AB127 [ 03/29/01  9:33 AM ]
	G YZ
	;
T0	;Beheer DMC ;
T1	;Kopiëren layout;
T2	;Te kopiëren layout;
T3	;Dit synoniem bevat geen layout!;
T4	;Bevestigen\".[] = ok    ,[] = hernemen";
	;
	;  Kopiëren van een bestaande layout van een synoniem
KOPY(VOLGNR)	
	D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T1"_QT)),U,2),0,1,1,0,0)
	N BINDEX,VERPL,LENGTE,BEGINPOS,ALIN,OUT,NR,I1,I2,TEKST,TELLER,STOP 
	S $ZT="TRAP^cAN000"
KOPYA	W /CUP(1,1),@F1
	S NR=0 S I1=0
	F  S I1=$O(^DMC(UQC,USC,"SYN",I1)) Q:I1=""  D
	. I I1=VOLGNR Q
	. S NR=NR+1,MTAB(NR,0)=I1,MTAB(NR,1)="",TEKST="",BINDEX="",I2=""
	. F  S I2=$O(^DMC(UQC,USC,"SYN",I1,I2)) Q:(I2="LAY"!(I2=""))  D
	.. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",I1,I2,"B")),D)
	.. S MTAB(NR,1)=$G(MTAB(NR,1))_I2_U_BINDEX_D
	.. S TEKST=TEKST_$P(^DMC(UQC,USC,"SYN",I1,I2,"TAAL","N"),D,3)
	.. S TEKST=TEKST_" ("_BINDEX_") "
	. W /CUP(NR+1,2),NR,". ",TEKST
KOPYB	S R="NUM\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\2\\$L(K)&(((K?.N)&((K'<1)&(K'>NR)))!(""-""[K))" D R0 G KOPYZ:K="-"
	S VOLG=MTAB(NUM,0)
	I '$D(^DMC(UQC,USC,"SYN",VOLG,"LAY")) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) G KOPYB
	W /CUP(1,1),@F1
	S I2="" S TEKST=""
	F  S I2=$O(^DMC(UQC,USC,"SYN",VOLGNR,I2)) Q:(I2="LAY"!(I2=""))  D
	. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,I2,"B")),D)
	. S TEKST=TEKST_$P($G(^DMC(UQC,USC,"SYN",VOLGNR,I2,"TAAL","N")),D,3)
	. S TEKST=TEKST_" ("_BINDEX_") "
	W /CUP(2,6),/SGR(1),"Synoniem : ",TEKST,/SGR(0),/WCMD
	W /CUP(4,1),/SGR(1),"Huidige layout : ",/SGR(0),/WCMD
	S I1="" S TELLER=1
	F  S I1=$O(^DMC(UQC,USC,"SYN",VOLGNR,"LAY",I1)) Q:I1=""  D
	. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,"LAY",I1)),D)
	. S VERPL=$P($G(^(I1)),D,2),LENGTE=$P($G(^(I1)),D,3)
	. S STOP=VERPL+LENGTE-1
	. I STOP=1 S STOP=2
	. W /CUP(6,VERPL),TELLER
	. F i=VERPL:1:(STOP-1) W /CUP(7,i),@F4," "
	. W /CUP(7,VERPL),BINDEX
	. W /CUP(8,VERPL),@F5
	. W /CUP(8,1)
	. F i=1:1:78 W $S(i#10:".",1:i\10)
	. F i=1:1:78 W $S(i#5:".",i#10:5,1:0)
	. S TELLER=TELLER+1
	W /CUP(11,1),/SGR(1),"Vervangen door : ",/SGR(0),/WCMD
	S I1="" S TELLER=1
	F  S I1=$O(^DMC(UQC,USC,"SYN",VOLG,"LAY",I1)) Q:I1=""  D
	. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLG,"LAY",I1)),D)
	. S VERPL=$P($G(^(I1)),D,2),LENGTE=$P($G(^(I1)),D,3)
	. S STOP=VERPL+LENGTE-1
	. I STOP=1 S STOP=2
	. W /CUP(13,VERPL),TELLER
	. F i=VERPL:1:(STOP-1) W /CUP(14,i),@F4," "
	. W /CUP(14,VERPL),BINDEX
	. W /CUP(15,VERPL),@F5
	. W /CUP(15,1)
	. F i=1:1:78 W $S(i#10:".",1:i\10)
	. F i=1:1:78 W $S(i#5:".",i#10:5,1:0)
	. S TELLER=TELLER+1
	S R="BEVEST\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\$L(K)&(""-.,""[K)" D R0 G KOPYA:K="-"!(K=",")
	I BEVEST="." D
	. S I2=""
	. F  S I2=$O(^DMC(UQC,USC,"SYN",VOLGNR,"LAY",I2)) Q:I2=""  D
	.. K ^DMC(UQC,USC,"SYN",VOLGNR,"LAY",I2)
	. S I1="" S TELLER=1
	. F  S I1=$O(^DMC(UQC,USC,"SYN",VOLG,"LAY",I1)) Q:I1=""  D
	.. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLG,"LAY",I1)),D)
	.. S VERPL=$P($G(^(I1)),D,2),LENGTE=$P($G(^(I1)),D,3)
	.. S ALIN=$P($G(^(I1)),D,4),OUTP=$P($G(^(I1)),D,5)
	.. S ^DMC(UQC,USC,"SYN",VOLGNR,"LAY",TELLER)=BINDEX_D_VERPL_D_LENGTE_D_ALIN_D_OUTP_D
	.. S TELLER=TELLER+1
KOPYZ	D C^cA612 Q
	;
	;  Tekenen van de layout
OPEN	S EINDE1=0
	W /CUP(1,1),@F1
	S I2="" S TEKST=""
	F  S I2=$O(^DMC(UQC,USC,"SYN",VOLGNR,I2)) Q:(I2="LAY"!(I2=""))  D
	. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,I2,"B")),D)
	. S TEKST=TEKST_$P(^DMC(UQC,USC,"SYN",VOLGNR,I2,"TAAL","N"),D,3)
	. S TEKST=TEKST_" ("_BINDEX_") "
	W /CUP(3,1),TEKST
	W /CUP(8,1)
	F i=1:1:78 W $S(i#10:".",1:i\10)
	F i=1:1:78 W $S(i#5:".",i#10:5,1:0)
	S I1="" S TELLER=1
	F  S I1=$O(^DMC(UQC,USC,"SYN",VOLGNR,"LAY",I1)) Q:I1=""  D
	. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",VOLGNR,"LAY",I1)),D)
	. S VERPL=$P($G(^(I1)),D,2),LENGTE=$P($G(^(I1)),D,3)
	. S STOP=VERPL+LENGTE-1
	. I STOP=1 S STOP=2
	. W /CUP(6,VERPL),TELLER
	. F i=VERPL:1:(STOP-1) W /CUP(7,i),@F4," "
	. W /CUP(7,VERPL),BINDEX
	. W /CUP(8,VERPL),@F5
	. W /CUP(8,1)
	. F i=1:1:78 W $S(i#10:".",1:i\10)
	. F i=1:1:78 W $S(i#5:".",i#10:5,1:0)
	. S TELLER=TELLER+1
OPENZ	Q
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86