cABI3	;Codebestanden ;%ABI0 ; [ 02/14/02  5:00 PM ]
	;
T0	;Codebestanden ;
T1	;Keuze\"I[] = installatie   D[] = de-installatie";       
T2	;De-installatie;verwijderd.;
T3	;Installatie;opgezet.;
T4	;Codebestanden kan niet worden geïnstalleerd, ^DMS(0,"CODE.VV" bestaat niet;
	;
1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	W /CUP(2,3) ZW Q
	W /CUP(3,3) ZW QN
11	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""ID-""[K&$L(K)\\\1" D R0 G YZ:K="-"
	;
	; de-installatie
2	I K="D" D
	. W /CUP(5,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,!
	. I '$D(^DMS(0,"CODE.VV")) S K=$P($T(@("T4"_QT)),U,2) D TXT^cAFA1(250) Q
	. ; KO - 25.04.02
	. ; S $P(^DMS(0,"CODE.VV",0),D,30)=1
	. ; K @("^"_Q_"BA")@("MENU",16,11) D S1
	. ; K @("^"_Q_"BA")@("MENU",116,11) D S1
	. K @("^"_Q_"BA")@("MENU","16.11",1) D S1
	. K @("^"_Q_"BA")@("MENU","16.11",21) D S1
	. S ^DPAR(0,"SETUP","CODE.VV",0)=0_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0)_D D S2
	. D TXT^cAFA1(4)
	;
	; installatie
3	I K="I" D
	. W /CUP(5,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,!
	. I '$D(^DMS(0,"CODE.VV")) S K=$P($T(@("T4"_QT)),U,2) D TXT^cAFA1(250) Q
	. ; KO - 25.04.02
	. ; S $P(^DMS(0,"CODE.VV",0),D,30)=""
	. S J=^DMS(0,"CODE.VV",0)
	. ; S @("^"_Q_"BA")@("MENU",16,11)="\15\3\16.11\M\16.11" D S2,S3
	. ; S @("^"_Q_"BA")@("MENU",116,11)="\15\3\VV^cAN227\D\VV^cAN227" D S2,S3
	. S @("^"_Q_"BA")@("MENU","16.11",1)="Definiëren codebestanden\4\3\D^cAN227\D\W^cAN200(""CODE.VV"","""","""","""")\\\\\Définition fichiers-codes\\\\\\\\\\\\\\\\\\\\Definition codefiles" D S2
	. S @("^"_Q_"BA")@("MENU","16.11",21)="Controlelijst definities\4\43\L^cAN200(""CODE.VV"","""","""","""")\D\L^cAN200(""CODE.VV"","""","""","""")\\\\\Liste de contrôle définitions\\\\\\\\\\\\\\\\\\\\Checklist definitions" D S2
	. S ^DPAR(0,"SETUP","CODE.VV",0)=1_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0)_D D S2
	. D TXT^cAFA1(4)
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S1	W !?5,$ZR,?40,$P($T(@("T2"_QT)),U,3)
S1Z	Q
	;
S2	W !?5,$ZR,?40,$P($T(@("T3"_QT)),U,3)
S2Z	Q
	;
S3	F I=1:10:31 S $P(^(11),D,I)=$P(J,D,I)
S3Z	Q
	;
ZZ	; 07.05.02 - 17 u 05 * V7.92