cQ5	;More functions ;cQ5;
	Q
	;
date	;date
	N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1
	F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<DD  S DM=DM+1,DD=DD-%J
	S:'DD DJ=DJ-1,DM=12,DD=31 S:DD<10 DD=0_DD S:DM<10 DM=0_DM S DT=DD_"."_DM_"."_$E(DJ,3,4)
datez	Q
time	;time
	N %J,%R S QT=$G(QT),%R=$P($H,",",2)\60,%J=%R\60
	S TD=$J(%J,2)_$P(" u ; h ; h ",";",$S(QT="F":2,QT="E":3,1:1))_(%R#60\10)_(%R#10)
timez	Q
doubleq(X)	;Double quotes in string
	N Y S Y=0 F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
doubleqz	K Y Q X
	;
MASTER	;set vars
	N I
	S boot=$ZCVT($ZU(110),"U")
	S bootrvg=$ZCVT($ZU(110),"U")
	S cs=$ZU(5),cs(1)=cs
	F I=1:1:99 I $ZU(90,10,$TR($ZU(5),"1234567890")_I) S cs(I)=$TR($ZU(5),"1234567890")_I  Q
	S master=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))
	S slave=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")))
	S workst=$G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U")))
	S client=$D(^cLOG($ZU(5),"CLIENT",$ZCVT($ZU(110),"U")))
	S alias=$S($ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")):$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:""),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))):$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS")),1:""),1:"")
MASTERZ	Q
	;
ALIAS	S alias=$S($ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")):$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:""),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))):$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS")),1:""),1:"")
ALIASZ	Q
	;
IO(I)	D MASTER Q $$IO^cQZSTART($G(I))
	;
IOS(I)	D MASTER Q $$IOS^cQZSTART($G(I))
	;
AIP(I,S)	N CFG,J,K S S=+$G(S),I=$G(I,$I) S:I="" I=$I Q:I'?1.N
	S CFG=$$CONFIG^cQ9 Q:'$D(^cQSYS(CFG,"DDB",I))
	S K=$G(IP,"?") S:'S K=$$IP(I)
	I K'="?",$P(^cQSYS(CFG,"DDB",I),",",2)'=K D
	. S $P(^(I),",",2)=K,J=""
	. F  S J=$O(^(J)) Q:J=""  I J'=I,$P(^(J),",",2)=K S $P(^(J),",",2)=""
AIPZ	Q
	;
ANBN(I,S)	N CFG,K S S=+$G(S),I=$G(I,$I) S:I="" I=$I Q:I'?1.N
	S CFG=$$CONFIG^cQ9 Q:'$D(^cQSYS(CFG,"DDB",I))
	S K=$G(NBN,"?") S:'S K=$$NBN(K)
	I K'="?",$P(^cQSYS(0,"DDB",I),",",3)'=K S $P(^cQSYS(CFG,"DDB",I),",",3)=K
ANBNZ	Q
	;
AMAC(I,S)	N CFG,K S S=+$G(S),I=$G(I,$I) S:I="" I=$I Q:I'?1.N
	S CFG=$$CONFIG^cQ9 Q:'$D(^cQSYS(CFG,"DDB",I))
	S K=$G(MAC,"?") S:'S K=$$MAC(I)
	I K'="?",$P(^cQSYS(CFG,"DDB",I),",",4)'=K S $P(^cQSYS(CFG,"DDB",I),",",4)=K
AMACZ	Q
	;
IP(I)	Q $$IP^cQZSTART($G(I))
	;
NBN(I)	Q $$NBN^cQZSTART($G(I))
	;
MAC(I)	Q $$MAC^cQZSTART($G(I))
	;
FIP(IP,P)	S IP=$G(IP),P=$G(P,1000)
	I IP'?3(1.3N1".")1.3N D  Q
	. W !,"Usage: set IP-addresses x.y.z.1 -> x.y.z.255"
	. W !,"       fixed to ports p+i",!
	. W !,"Ex.: D FIP^"_$T(+0)_"(""123.123.1.1"",9000)"
	. W !,"     sets IP-addresses 123.123.1.1 to 123.123.1.255"
	. W !,"     fixed to ports 9001 to 9255",!
	S IPB=$P(IP,".",1,3)_".",PB=P\1000*1000
	W !,"Ok to set IP-addresses ",IPB,"1 to ",IPB,"255"
	W !," fixed to ports ",PB+1," to ",PB+255
	W !," .[] = OK :" R K I K'="." Q
	S K=$$ZC S:$D(^cLOG($ZCVT($ZU(110),"U"),"DEV",0)) K=^(0) S:$D(^cLOG($ZU(5),"DEV",0)) K=^(0)
	F I=1:1:255 D
	. S ^cQSYS(0,"DDB",PB+I)="TELN,"_IPB_I_",,"
	. S ^cQSYS(0,"FIXED","IP",IPB_I)=PB+I
	. S ^cLOG($ZCVT($ZU(110),"U"),"DEV",PB+I)=K
FIPZ	Q
	;
FIP127	S IP="127.0.0.1",P=1000
	S K=$$ZC S:$D(^cLOG($ZCVT($ZU(110),"U"),"DEV",0)) K=^(0) S:$D(^cLOG($ZU(5),"DEV",0)) K=^(0)
	S ^cQSYS(0,"DDB",P)="TELN,"_IP_",,"
	S ^cQSYS(0,"FIXED","IP",IP)=P
	S ^cLOG($ZCVT($ZU(110),"U"),"DEV",P)=K
FIP127Z	Q
	;
UN(I)	N NBN,IP,JOB,K,R,%v
	S I=$G(I,$I) S:I="" I=$I S JOB=$$JOB^cQ14(I)
	I JOB,$D(^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","UN")) Q ^("UN")
UNZ	Q "?"
	;
WHO(I)	N CFG,K
	S I=$G(I,$I) S:I="" I=$I S CFG=$$CONFIG^cQ9,K=$$IO(I) I K="" S K=" "
	I $D(^cQSYS(CFG,"DDB",K)) I $L($P(^(K),",",3)) Q $P(^(K),",",3)
WHOZ	Q "?"
	;
ZC()	;Get device-code
	N I,K S K=""
	F I=$ZCVT($ZU(110),"U"),$ZU(5) I $D(^cLOG(I,"LOGON")),$L(^("LOGON")) S K=^("LOGON")
	I '$L(K) S K="ZC"
ZCZ	Q K
	;
ZDEV(I)	N DDB,K
ZDEVZ	Q $I
	;
QT	S QT=$G(QT,""),QTU=$S($L(QT):$F("FDE",QT),1:1) D MASTER
	Q
	;
SYSN()	Q $P($G(^cLOG($ZU(5),"DESCRIPTION",$$CONFIG^cQ9,0),$ZU(5)),"\")
	;
UCILIB(UCI)	       ;
	Q "%SYS"
	;
LOGJOB	D date,time D MASTER
	S ^cJOB($J,$ZCVT($ZU(110),"U"),"job","date_time")=$G(DT)_"\"_$G(TD)
	S ^("q")=$G(Q),^("qt")=$G(QT),^("qu")=$G(QU),^("qu1")=$G(QU(1))
	S ^("qu2")=$G(QU(2)),^("menu_gref")=$G(%ZM)
	S ^cJOB($J,$ZCVT($ZU(110),"U"),"job","menu_line")=$S($L($G(%ZM)):$G(@%ZM),1:"")
LOGJOBZ	Q
	;
CC()	Q $C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)
	;
INFO()	Q $$INFO^cQ14
	;
YZ	Q
	;
ER	S %=$ZE,%ZTRAP="ER^"_$T(+0)
	D ^cA400
	ZQ 1 I $ZT'="" G @$ZT
ERZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9