ISKLANT(AANTNS,VPRINT)	;Installatie programma klanten; ISKLANT [ 04/05/01  8:54 AM ]
	;
T0	;Installatie programma klanten;
	;
	; Input: AANTS = aantal namespaces indien "" = 1 namespace
	;        VPRINT = 0 of "" niet verwijderen centrale printers
	;                 1 verwijderen centrale printers
	;
1	S D="\" G 3:$ZV["MSM"
11	I '$L($G(AANTNS)) S AANTNS=1
12	I '$L($G(VPRINT)) S VPRINT=0
13	S NS=$ZU(5) F  Q:$E(NS,$L(NS))'?1N  S NS=$E(NS,1,$L(NS)-1)
15	ZN NS_1
17	D BOOT^cQ0,NS^cQ0,TS^cQ0,CVER^cQ13 I %v(5) D CLOG^cQ21,SYS^cQ10
19	F I1=1:1:AANTNS ZN NS_I1 D CS^cQ0 S ^cLOG(NS_I1,"DESCRIPTION",0,0)="Administratie" W !!,$ZR,"=",@$ZR
	;
2	ZN NS_1
21	D VERSCQ
23	D BGJOB
	;
3	I $G(VPRINT)=1 D PRINTER
	;
YZ	Q
	;
BGJOB	W !,"Opzetten backgroundjobs"
	D CTK0^cQ10
BGJOBZ	Q
	;
	; Verwijderen centrale printers, centrale printers per gebruiker en de
	; lokale printers
PRINTER	W !,"Verwijderen printers"
	N Q
	S Q="DAM"
	S I1=1000
	F  S I1=$O(^DATA(0,"SYS.CP",I1)) Q:I1=""  K ^(I1)
	K ^DATA(0,"USR_SYS.CP")
	K ^DATA(0,"SYS.LP")
	D S1^cAN002(0,"SYS.CP",0,0)
	D S1^cAN002(0,"USR_SYS.CP",0,0)
	D S1^cAN002(0,"SYS.LP",0,0)
PRINTERZ	Q
	;
	;  Inlezen nieuwe versie van cQ inlezen
VERSCQ	S VERS=$TR($P($P(^cLOG(0,"VERS","cQ"),"\"),"-r",2),".","")
	S K="cQUP"_VERS I $D(^$R(K)) D @("^"_K)
VERSCQZ	Q 
	;
ZZ	; 24.09.03 - 14 u 29 * V7.96