ISCLP	;Installatie centrale en lokale printers op Caché database; ISCLP
	;
	G 1
	;
T0	;Installatie centrale en lokale printers op Caché database;
	;
1	N HOMENS,NS,AANTNS,I1
11	S $ZT="TRAP^cAN000"
	; initialisatie
13	S Q=$G(Q) D ^cA604 S QU="DAM"
15	S HOMENS="DATAM1" 
	; Bewaren van de printers
17	I cs=HOMENS D
	. D SAVE
	; Restoren van de printers
19	I cs'=HOMENS D
	. S NS=cs F  Q:$E(NS,$L(NS))'?1N  S NS=$E(NS,1,$L(NS)-1)
	. ZN NS_1
	. D BOOT^cQ0
	. D NSPC^cQ21(.AANTNS,1)
	. S I1=NS
	. F  S I1=$O(AANTNS(I1)) Q:I1=""!($E(I1,1,$L(NS))'=NS)
	. S I1=$O(AANTNS(I1),-1)
	. S AANTNS=$P(I1,NS,2)
	. F I1=1:1:AANTNS ZN NS_I1 D CS^cQ0
	. D REST("qsys.gsa")
	. D REST("clp.gsa")
	;
YZ	Q
	;
REST(BEST)	; Restoren van de printers uit file
	N FILE,ER,A,B,SW1,SW2
	S $ZT="TRAP^cAN000"
	S FILE="\\DATA-M.be\DFS\Shared\"_BEST
	S ER=$$OR^cA710(FILE) I ER S K="File "_FILE_" kan niet worden geopend!" D TXT^cAFA1(250) Q
	S SW1=1,SW2=1
RESTA	S ER=$$RF^cA710(FILE,.A) I ER S SW1=0 
	S ER=$$RF^cA710(FILE,.B) I ER S SW2=0
	I SW1=0!(SW2=0) G RESTB
	S @A=B
	G RESTA
RESTB	S ER=$$CF^cA710(FILE) I ER S K="File "_FILE_" kan niet worden gesloten!" D TXT^cAFA1(250) Q
RESTZ	Q
	;
	; Bewaren van de printers in file
SAVE	N D,U,FILE,DEV,ER,G,GS
	S $ZT="TRAP^cAN000"
	; Saven van ^cQSYS
	S D="\",U=";",DEV=51
	S FILE="\\DATA-M.be\DFS\Shared\qsys.gsa"
	I DEV S ER=$$DEL^cA710(FILE) I ER S K="File "_FILE_" kan niet worden verwijderd!" D TXT^cAFA1(250) Q
	I DEV S ER=$$OW^cA710(FILE) I ER G SAVEA
	F G="^cQSYS" D
	. S GS=G F  S GS=$Q(@GS) Q:GS=""  S GD=@GS D WRITE
SAVEA	S ER=$$CF^cA710(FILE) I ER S K="File "_FILE_" kan niet worden gesloten!" D TXT^cAFA1(250) Q
	; Saven van ^DATA(0,"SYS.CP" en ^DATA(0,"SYS.LP" + ^INDEX
	S FILE="\\DATA-M.be\DFS\Shared\clp.gsa"
	I DEV S ER=$$DEL^cA710(FILE) I ER S K="File "_FILE_" kan niet worden verwijderd!" D TXT^cAFA1(250) Q
	I DEV S ER=$$OW^cA710(FILE) I ER G SAVEY
	F G="^DATA(0,""SYS.CP"")","^DATA(0,""SYS.LP"")","^INDEX(0,""SYS.CP"")","^INDEX(0,""SYS.LP"")" D
	. S GS=G
	. F  S GS=$Q(@GS) Q:$NA(@GS,2)'=G  S GD=@GS D WRITE
	.. I DEV D
SAVEY	S ER=$$CF^cA710(FILE) I ER S K="File "_FILE_" kan niet worden gesloten!" D TXT^cAFA1(250) 
SAVEZ	Q
	;
	;  Schrijven in file
WRITE	I DEV D 
	. S ER=$$WF^cA710(FILE,GS_$C(13,10))
	. I ER S K="File "_FILE_" kan niet worden weg geschreven!" D TXT^cAFA1(250)
	I 'DEV W GS,!
	I DEV D
	. S ER=$$WF^cA710(FILE,GD_$C(13,10))
	. I ER S K="File "_FILE_" kan niet worden weg geschreven!" D TXT^cAFA1(250)
	I 'DEV W GD,!
WRITEZ	Q
	;
ZZ	; 29.10.02 - 11 u 40 * V7.93