cQUP544	;Update cQ ;cQUP544;  ; Compiled November 7, 2007 16:00:21
	;
	;Release 5.4.4 - 09.10.2007 
	;Updated routines
	;cQCD     ;15.10.2007 13:53 ;appears to be suspended -> is suspended
	;         ;06.11.2007 15:30 ;JRNLD: default = C (not E)
	;cQCE     ;24.10.2007 16:00 ;X1,S1,M1 -> X(I),S(I),M(I)
	;cQCPF0   ;09.10.2007 10:48 ;Mapping of DBH added
	;         ;22.10.2007 17:50 ;database-G1->database-Gx since cQ5.4.1
	;cQHIST   ;09.10.2007 10:28 ;cQHIST - split up
	;cQZSTART ;21.09.2007 09:17 ;CM: On day -> Monday, Tuesday ...
	;New Routines
	;cQHIST1  ;09.10.2007 10:24 ;cQHIST - part 1
	;cQHIST2  ;09.10.2007 10:24 ;cQHIST - part 2
	;cQLOGO   ;28.08.2007 11:37 ;Read PCL Logo
	;cQUP544  ;09.10.2007 10:25 ;changes in version 5.4.4
	;Deleted Routines
	;
	;Update
	W !!,"Update voor  ",$ZV,"  release  ",$P($T(ZZ),"-r",2),!
	S NSPC=$G(^["%SYS"]cLOG(0,"NAMESPACE",0)) I $L(NSPC) ZN NSPC
	D VERS^cQ7,LOGOUT^cQ7
	;
	S REL=$P($T(ZZ),"-r",2),RELDP=$TR(REL,".")
	F K="cQINT","cQUP" D
	. S (I,J)=K
	. F  S I=$O(^$R(I)) Q:$E(I,1,$L(J))'=J  S K=$P(I,J,2) I K?.N,K'=RELDP X "ZR  ZS @I"
	;
	G YZ
	;
	S CN=$ZU(5),SN="%SYS",LN="%CACHELIB"
	;
	;Save routines in namespace %SYS
	I ($P($P($ZV,")",2),"(",1)[" 2007") D RS("cCHARWIN\%ZCHARWIN",CN,SN),RS("cX364\%ZX364",CN,SN)
	E  D RS("cCHARWIN\%CHARWIN",CN,SN),RS("cX364\%X364",CN,SN)
	D RS("cCHARWIN\cCHARWIN",CN,SN)
	D RS("cX364\cX364",CN,SN)
	D RS("cQQ\cQQ",CN,SN)
	D RS("cQZSTART\%ZSTART",CN,SN)
	D RS("cQZSTOP\%ZSTOP",CN,SN)
	;Save routines in current namespace
	D RS("cQIINT\IINT",CN,CN)
	D RS("cQTTSC\TTSC",CN,CN)
	;
	;Delete routines in namescpace %SYS
	D RD("cQMSMQ",CN,SN)
	;Delete routines in current namespace 
	D RD("cQCHKERR",CN,CN)
	D RD("cQCHKIMP",CN,CN)
	D RD("cQCHKMP",CN,CN)
	D RD("cQCHKPNT",CN,CN)
	D RD("cQDIAG",CN,CN)
	D RD("cQDSCON",CN,CN)
	D RD("cQMAIL",CN,CN)
	D RD("cQMSMIB",CN,CN)
	D RD("cQMSMLBU",CN,CN)
	D RD("cQMSMLSB",CN,CN)
	D RD("cQMSMLST",CN,CN)
	D RD("cQMSMP",CN,CN)
	D RD("cQMSMQ",CN,CN)
	D RD("cQMSMSSD",CN,CN)
	D RD("cQMSMUSL",CN,CN)
	D RD("cQSH",CN,CN)
	D RD("cQSTART1",CN,CN)
	D RD("cQSTOP",CN,CN)
	D RD("cQTAB",CN,CN)
	D RD("cQVHCON",CN,CN)
	D RD("cQVHGLO",CN,CN)
	D RD("cQVHSG",CN,CN)
	D RD("cQWD",CN,CN)
	D RD("cQZEDIT",CN,CN)
	D RD("cQZJREAD",CN,CN)
	D RD("cABIEO",CN,CN)
	;
	;Delete logbook ^ZZLOG
	F K="%GSIZE","GCOMPACT","INTEGRIT" I $D(^ZZLOG(K)) K ^ZZLOG(K)
	;
	;Change references to routines cQMSM... to cQ...
	K N D NSPC^cQ21(.N,1) S N=""
	F  S N=$O(N(N)) Q:N=""  D
	. F G="^DAMBA","^cDAMBA","^EABA" S GS=G_"(""MENU"")",I1="" D
	.. F  S I1=$O(@GS@(I1)) Q:I1=""  S I2="" D
	... F  S I2=$O(@GS@(I1,I2)) Q:I2=""  S A=^(I2) I A["cQMSM" D  S ^(I2)=A
	.... F  S A=$P(A,"cQMSM",1)_"cQ"_$P(A,"cQMSM",2,$L(A,"cQMSM")) Q:A'["cQMSM"
	;
	;change ^cLOG(0,"SYSTEM") to ^cLOG( cs ,"SYSTEM")
	I $D(^cLOG(0,"SYSTEM")) D
	. S K=$TR($ZU(5),"1234567890","")
	. F I=1:1:99 I $ZU(90,10,K_I) M ^cLOG(K_I,"SYSTEM")=^cLOG(0,"SYSTEM")
	. K ^cLOG(0,"SYSTEM")
	;
	;Change settings in Cache.cpf
	I '($P($P($ZV,")",2),"(",1)[" 2007") D
	. D FR^cQCPF("gmheap=","[config]","gmheap=32768")
	. D FR^cQCPF("BIGINT=","[SqlSysDatatypes]","BIGINT=%Library.BigInt")
	. D FR^cQCPF("ExtrinsicFunctions=","[SQL]","ExtrinsicFunctions=1")
	I ($P($P($ZV,")",2),"(",1)[" 2007") D
	. D FR^cQCPF("Mnemonic_OTH=^%X364","[IO]","Mnemonic_OTH=^%ZX364")
	. D FR^cQCPF("Mnemonic_SEQ=^%X364","[IO]","Mnemonic_SEQ=^%ZX364")
	. D FR^cQCPF("Mnemonic_TTY=^%X364","[IO]","Mnemonic_TTY=^%ZX364")
	;Update backgroundjobs
	D UCTK0^cQ10
	;
	;Change backuptime to seconds
	S (I,J)=""
	F  S I=$O(^cLOG($ZU(5),"BACKUP","LOGBOEK",4,I)) Q:I=""  D
	. F  S J=$O(^cLOG($ZU(5),"BACKUP","LOGBOEK",4,I,J)) Q:J=""  D
	.. S K=$P(^(J),"\",6) I K<60 S $P(^(J),"\",6)=K*60
	;
YZ	Q
	;
RS(R,From,To)	      ; Save routine R in namespace To
	S R=$G(R),From=$G(From),To=$G(To)
	Q:'$L(R)  Q:'$L($P(R,"\"))  Q:'$D(^$R($P(R,"\")))  Q:'$L($P(R,"\",2))  Q:'$L(From)  Q:'$L(To)
	W !,"Saving ",$P(R,"\")," as ",$P(R,"\",2)," in namespace ",To
	X "ZL "_$P(R,"\")_" ZN To ZS "_$P(R,"\",2)_" ZN From"
	Q
	;
RD(R,From,To)	      ; Delete routine R in namespace To
	S R=$G(R),From=$G(From),To=$G(To)
	Q:'$L(R)  Q:'$L($P(R,"\"))  Q:'$L(From)  Q:'$L(To)
	W !,"Removing ",$P(R,"\")," in namespace ",To
	X "ZN To ZR  ZS "_$P(R,"\")_" ZN From"
	Q
	;
XL(R,From,To)	      ; Xecute R in namespace To
	S R=$G(R),From=$G(From),To=$G(To)
	Q:'$L(R)  Q:'$L($P(R,"\"))  Q:'$L(From)  Q:'$L(To)
	W !,"Xecuting ",$P(R,"\")," in namespace ",To
	X "ZN To "_$P(R,"\")_" ZN From"
	Q
	;
ZZ	; 06.11.2007 - 16:00 * Cache-r5.4.4