cQ10	;Set ^cLOG($ZU( 5 ),"CTK0","AUTO") ;cQ10;
 	Q
A	;Application BG-jobs
	;SEND^cA350(0,"MAIL","DAM")\300\\\1\\\\\1\\M\\-1\DAM\
	;DEL^cA350("DAM",0,"MAIL")\1\0\22:00\0\\\\\1\\M\\-1\DAM\
	;^cT99("EA","")\1\0\04:00\1\\\\\*\10\M\\-1\EA\
	;OD^cI531("EA")\1\0\05:00\1\\\\\1\\M\\-1\EA\
	;TO^cI531("EA")\1\0\05:10\1\\\\\1\\M\\-1\EA\
	;BG^cANP003("EA")\1\0\05:20\1\\\\\1\\M\\-1\EA\
	;D1010^cANEM0\1\0\05:30\1\\\\\*\1\M\\-1\DAM\
	;D1011^cANEM0("EA")\1\0\05:40\1\\\\\*\1\M\\-1\EA\
AZ	;
	;
Q	;System BG-jobs
	;START^cQAUTOBU\1\0\01:00\1\\\\\1\\M\\1\DAM\\
	;^cQLBUV\1\0\07:00\1\\\\\1\\M\\1\DAM\\
	;DINTMP^cQ14\1\0\00:15\1\\\\\*\1\\\-1\DAM\\
	;^cQLINT\7\4\08:00\1\\\\\1\\\\0\DAM\\
	;^cQCC\900\\\1\\\\\1\\\\0\DAM\\
	;FS^cQCD("C",3072)\3600\\\1\\\\\1\\\\-1\DAM\\
	;FS^cQCD("D",3072)\3600\\\1\\\\\1\\\\-1\DAM\\
	;FS^cQCD("E",3072)\3600\\\1\\\\\1\\\\-1\DAM\\
	;JRNL^cQCD()\3600\\\1\\\\\1\\\\0\DAM\23:00-02:00\
	;JRNLD^cQCD("E")\3600\\\1\\\\\1\\\\0\DAM\\
	;MAIL^cQCD(60)\3600\\\1\\\\\1\\M\\-1\DAM\23:00-02:00\
	;SAL^cQCD()\600\\\1\\\\\1\\\\0\DAM\\
	;SHDW^cQCD()\3600\\\1\\\\\1\\\\0\DAM\23:00-02:00\
	;SUSP^cQCD()\3600\\\1\\\\\1\\\\0\DAM\23:00-02:00\
	;BU^cQCE(0)\1\0\07:05\1\\\\\1\\M\\1\DAM\\
	;BU^cQCE(1)\7\4\08:05\1\\\\\1\\M\\1\DAM\\
	;CTK^cQCE()\600\\\1\\\\\1\\\\0\DAM\\
	;DMP^cQCE()\3600\\\1\\\\\1\\\\0\DAM\23:00-02:00\
	;ALERT^cQLIC()\3600\\\1\\\\\1\\\\0\DAM\23:00-02:00\
	;LU^cQLIC()\3600\\\1\\\\\1\\\\0\DAM\23:00-02:00\
	;START^cQDCMPCT\7\3\04:00\0\\\\\1\\\\0\DAM\
QZ	;
	;
CTK0	D S1("A",1),S1("Q",1)
CTK0Z	Q
	;
SYS	W !,"System settings"
	S %nspc=$ZU(5)  ; remember current namespace
	D JRNL
	ZN "%SYS"
	I ($P($P($ZV,")",2),"(",1)[" 5.") D
	. ; Set 'Security', 'User Accounts'
	. S ^login("SU")="ALRDQP|%SYS|^%PMODE|0,0"
	. S ^login("SYS")="QJQCAA|%SYS|^%PMODE|0,0"
	. S ^login("TELNET")="AAAAAA|"_%nspc_"|^IINT|0,0"
	. S ^login("TRM:")="AAAAAA|"_%nspc_"|^IINT|0,0"
	. ; Set 'Security', 'Trusted Applications'
	. S ^%CDSec("CCTRLPNL.EXE",855549672)="1"_$C(22)_"1/3/06 2:48 PM"_$C(22)_"1232896"_$C(22)_"Caché Control Panel"
	. ; Set 'Security', 'Caché Direct Users'
	. D SEC(1)
	ZN %nspc  ; switch back to where you came from
	S ^cLOG(%nspc,"BACKUP","AUTO")="DATA"
	S ^cLOG(%nspc,"BACKUP","AUTO","DATA","X")="S BUDIR="""_$S(JD="F":"E",1:"C")_":/backup"",DIRFR="""_$E($ZU(86))_":/DataM"",JRNL=1"
	S ^cLOG(%nspc,"BACKUP","TYPE")=4
	M ^cLOG(%nspc,"OS",2)=^cLOG(0,"OS",2)
SYSZ	Q
	;
YZ	Q
	;
UCTK0	D S1("Q",0)
UCTK0Z	Q
	;
SEC(X)	I ($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010") Q
	S ^%CDUaf=+$G(X)_$C(22)_0
	S ^%CDUaf("SU")="OEEFXQ"_$C(22)_"1"_$C(22)_"SuperUser"_$C(22)_"Data-M gebruiker"
SECZ	Q
	;
JRNL	; Set 'Journaling', 'Journal Directory'
	S %nspc=$ZU(5)  ; remember current namespace
	S JD="C" I '$$TST^cQFILE("E:\") S JD="E"
	S K=$$CRED^cQFILE(JD_":\DataM\Journal\Aij\")
	S K=$$CRED^cQFILE(JD_":\DataM\Journal\Shadow\")
	S K=$$CRED^cQFILE($E($ZU(86))_":\DataM\Journal\Aij\")
	S K=$$CRED^cQFILE($E($ZU(86))_":\DataM\Journal\Wij\")
	S K=$$CRED^cQFILE($E($ZU(86))_":\DataM\Journal\Backup\Aij\")
	S K=$$DEL^cQFILE($P($ZU(86),"\",1,(($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010"))+3)_"\Mgr\cache.wij")
	D DJ
	ZN "%SYS"
	S ^%SYS("JOURNAL","ALTDIR")=$E($ZU(86))_":\DataM\Journal\Aij\"
	S ^%SYS("JOURNAL","CURDIR")=JD_":\DataM\Journal\Aij\"
	D JRNSWCH^JRNUTIL(JD_":\DataM\Journal\Aij\")
	ZN %nspc  ; switch back to where you came from
JRNLZ	Q
	;
S1(R,X)	S R=$G(R),X=$G(X,1) Q:'$L(R)
	F I=1:1 S K=$T(@R+I) Q:$P(K," ")=(R_"Z")  S K=$P(K,";",2) D S2(X,K)
S1Z	Q
	; Kill vóór Set = Clear-functie
S2(I,K)	S I=+$G(I),SW=0
	I 'I D  Q:SW
	. S I="" F  S I=$O(^cLOG($ZU(5),"CTK0","AUTO",I)) Q:I=""  I ($S($P(^(I),"\")["(":$P($P(^(I),"\"),"(")_"(",1:$P(^(I),"\")))=($S($P(K,"\")["(":$P($P(K,"\"),"(")_"(",1:$P(K,"\"))) S SW=1 Q
	. ;find entry without (
	. I $P(K,"\")["(" S I="" F  S I=$O(^cLOG($ZU(5),"CTK0","AUTO",I)) Q:I=""  I $P(^(I),"\")=$P($P(K,"\"),"(") S SW=0 Q
	I 'I F I=1:1 I '$D(^cLOG($ZU(5),"CTK0","AUTO",I)) Q
	K ^cLOG($ZU(5),"CTK0","AUTO",I)
	S ^cLOG($ZU(5),"CTK0","AUTO",I)=K
	S $P(^cLOG($ZU(5),"CTK0","AUTO",I),"\",13)=$ZCVT($ZU(110),"U")
S2Z	Q
	;
DJ	; Delete journafiles
	F X="C",$E($ZU(86)),"F",$P($ZU(86),"\",1,(($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010"))+3)_"\Mgr\Journal\" D
	. I $L(X)=1 S X=X_":\DataM\Journal\Aij\"
	. S E=$$DIR^cQDIR(X,.A) Q:E  S Y=""
	. F  S Y=$O(A(Y)) Q:Y=""  I $P(A(Y,0),"\",$L(A(Y,0),"\"))?8N1"."3N D DEL^cQFILE(A(Y,0))
DJZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9