cQ6	;Set ^cLOG(boot) items ;cQ6;
	Q
	;
A501	S ^cLOG($ZU(5),"X","cA501",2)="D LOGJOB^cQ5"
	S ^cLOG($ZU(5),"X","cA501",3)="S K=$$SYSN^cQ5"
A508	S ^cLOG($ZU(5),"X","cA508",2)="D LOGJOB^cQ5"
	S ^cLOG($ZU(5),"X","cA508",3)="S K=$$SYSN^cQ5" Q
AUTOBU(S)	S ^cLOG($ZU(5),"BACKUP","AUTO")=$G(S) Q
BACKUP(S)	S ^cLOG($ZU(5),"BACKUP","TYPE")=$G(S) Q
BU(S)	S $P(^cLOG($ZU(5),"BACKUP"),"\",1)=$S($G(S)="Y":1,1:0) Q
BUN	D BU("N") Q
BUY	D BU("Y") Q
C(S)	Q
CTK0(S)	S ^cLOG($ZU(5),"CTK0","WAIT")=$G(S) Q
DAM	S ^cLOG($ZCVT($ZU(110),"U"),"DAM",0)="Parameters modules Data-M"
	S ^cLOG($ZCVT($ZU(110),"U"),"DAM",1)="1\Nieuwe log-in procedure"
	S ^cLOG($ZCVT($ZU(110),"U"),"DAM",2)="1\Nieuwe bestandsstructuur cDEV, cLOG(boot,""DEV"", cLOG(boot,""CP"" en printerkeuze via ^cPRINT"
	S ^cLOG($ZCVT($ZU(110),"U"),"DAM",3)="1\Nieuwe bestandslocaties"
	S ^cLOG($ZCVT($ZU(110),"U"),"DAM",4)="0\Registreer LU's op initialen"
	Q
DES(S)	S ^cLOG($ZU(5),"DESCRIPTION",0,0)=$G(S) Q
DEVB(S)	S ^cLOG($ZCVT($ZU(110),"U"),"DEV",0)=$G(S) Q
DEVC(S)	S ^cLOG($ZU(5),"DEV",0)=$G(S) Q
FH(S)	S ^cLOG($ZCVT($ZU(110),"U"),"CTK0","FRACTHANG")=+$G(S) Q	
LOGGING(I,N)	S ^cLOG($ZU(5),"LOG",+$G(I))=$G(N) Q
LOGIN(S)	S S=$G(S,"Y"),^cLOG($ZCVT($ZU(110),"U"),"TTT")=$S($G(S)="Y":1,1:0) Q
LOGINN	D LOGIN("N") Q
LOGINY	D LOGIN("Y") Q
LOGON	S ^cLOG($ZU(5),"LOGIN",0)=1 Q
M(S)	S ^cLOG($ZU(5),"SYSTEM","MASTER")=$G(S) Q
MS	S ^cLOG($ZU(5),"MS",0)="" Q
PDF(S,V)	S ^cLOG($S($L($G(S)):$G(S),1:$ZCVT($ZU(110),"U")),"PDF","Exe")=$G(V,1) Q
Q(S)	S ^cLOG($ZCVT($ZU(110),"U"),"Q",$ZU(5))=$G(S) Q
S(S)	S ^cLOG($ZU(5),"SYSTEM","SLAVE")=$G(S) Q
STU	S ^cLOG($ZCVT($ZU(110),"U"),"STU")="0\" Q
SMS(S)	S S=$S(S=2:"2\Faxination",1:"1\GFI faxmaker"),^cLOG($ZCVT($ZU(110),"U"),"SMS")=$G(S) Q
UPDATE	Q
WD(A,K,L,S,T)	;Set Watchdog Active
	S A=+$G(A),K=$G(K),L=$G(L),S=$G(S),T=$G(T)
	S ^cLOG($ZCVT($ZU(110),"U"),"Watchdog",0)=A
	I $L(K),$L(L) S ^cLOG($ZCVT($ZU(110),"U"),"Watchdog",1)=K_"\"_L
	I $L(S),$L(T) S ^cLOG($ZCVT($ZU(110),"U"),"Watchdog",2)=S_"\"_T
	Q
ZW(S)	S ^cLOG($ZU(5),"ZWINTERM",0)=$S($G(S)="Y":1,1:0) Q
	;
QQM	N QL,QU,K,L,%logctk D MASTER^cQ5
	I $D(^cLOG($ZCVT($ZU(110),"U"),"Q",$ZU(5))) D
	. S Q=$P(^($ZU(5)),"\"),QM=0,QT=$P($G(@("^"_Q_"BA(39)")),"\",2)
	. S:QT="N" QT="" S QTU=$S($L(QT):$F("FDE",QT),1:1)
	D ^cA604 Q
	;
INI	I $D(F),F["FP\100" Q
	G QQM
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9