cQ0	;Create ^cLOG ;cQ0;
	Q
	;
INIT	;Set ^cLOG(0)
	W !,$P($T(+1),";",2),"(0)"
	D ADRES^cQ7,BACKUP^cQ7,DRV^cQ7,PDF^cQ7,LOGON^cQ7,LOGOUT^cQ7,SYM^cQ7,VERS^cQ7
INITZ	Q
	;
BOOT	;Set ^cLOG(boot)
	W !,$P($T(+1),";",2),"(",$ZCVT($ZU(110),"U"),")"
	S I=0
	F  S I=$O(^cQSYS(0,"DDB",I)) Q:I=""  D
	. I '$D(^cLOG($ZCVT($ZU(110),"U"),"DEV",I)) S ^cLOG($ZCVT($ZU(110),"U"),"DEV",I)="ZC\BR"
	F I=1:1:2 S ^cLOG(0,"OS",I,"system")="\"_$ZCVT($ZU(110),"U")_"\"
	D CSQ,DAM^cQ6,STU^cQ6
BOOTZ	Q
	;
CS	;Set ^cLOG(cs)
	W !,$P($T(+1),";",2),"(",$ZU(5),")"
	D CSQ,DES^cQ6($ZU(5)),LOGIN^cQ6("Y"),A501^cQ6,A508^cQ6,ZW^cQ6("Y")
CSZ	Q
	;
CSQ	;Set ^cLOG(boot,"Q",cs) = DAM\EA
	W !,$P($T(+1),";",2),"(",$ZCVT($ZU(110),"U"),",""Q"",",$ZU(5),")= DAM\EA"
	D Q^cQ6("DAM\EA")
CSQZ	Q
	;
NS	;Set ^cLOG(0,"NAMESPACE",0) in %SYS
	S X=$ZU(5) I X="PETN1" Q
	I $E($ZCVT($ZU(110),"U"),1,4)="DAM-" S X=$TR($E($ZCVT($ZU(110),"U"),5,$L($ZCVT($ZU(110),"U"))),"-")_1
	S X="Set ^[""%SYS""]cLOG(0,""NAMESPACE"",0)="""_X_""""
	W !,X X X K X
NSZ	Q
	;
TS	;Set ^login("TELNET") in %SYS
	I ($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010") Q
	S ^["%SYS"]login("TELNET")="AAAAAA|"_$ZU(5)_"|^IINT|0,0"
	S ^["%SYS"]login("TRM:")="AAAAAA|"_$ZU(5)_"|^IINT|0,0"
TSZ	Q
	;
NB	;Set ^cLOG(0,"NETBIOSNAME")=1 in %SYS
	S X="Set ^[""%SYS""]cLOG(0,""NETBIOSNAME"")=1"
	W !,X X X K X
NBZ	Q
	;
NB0	;Set ^cLOG(0,"NETBIOSNAME")=0 in %SYS
	S X="Set ^[""%SYS""]cLOG(0,""NETBIOSNAME"")=0"
	W !,X X X K X
NB0Z	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9