cQJRNLR	;Restore global from Journal ;cQJRNLR;
	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
	;
START	; select journalspace - copied from JRNDUMP
	W !!,"Restore global from journalspace",!!
	D BLD(.A)
DISP	F I=1:1:A W !,$J(I,3),". ",A(I)
	W !!,"Enter sequence number of desired journalspace: " R K I K="^"!(K="-") G YZ
	S K=+K I '$D(A(K)) W !!,"Invalid input",!! G DISP
	W !,"Restore global: " R GL G DISP:GL="-" I $E(GL)'="^" S GL="^"_GL
	U 0 W !!,"Reading journalspace ",A(K),!!
	D READ(A(K))
	Q
	;
READ(J)	; read journalfile
	S (%JFILE,JFILE)=J
	S ns=$ZU(5) ZN "%SYS"
	S X=$$OPENJRN^JRNUTIL(%JFILE) I X'=1 G ERR
	S X=$$USEJRN^JRNUTIL(%JFILE) I X'=1 G ERR
	S ADDR=0 K GREFB,GREFC,SIZEC,SIZED,TGLOC,TGLOD,VALN,VALO,JRNODE
	F  S X=$$GETREC^JRNUTIL(ADDR,.JRNODE) Q:X'=1  D  Q:ADDR=0
	. D DATA
	. I $E(GLOF,1,$L(GL))=GL D
	.. S NN=ACT_" "_GLO I ACT="S" S NN=NN_"="""_$$doubleq(V)_""""
	.. W !,DAY,"  ",TIME,!,NN
	.. I ACT="S",$D(VO) W !?8,"overwritten data: ",VO
	.. W !?8,"Xecute this action?  .[] = yes " R K
	.. I K="." X NN W !?8,"Action has been Xecuted !!",!
	.. E  W !?8,"Nothing done",!
	. K JRNODE
	S X=$$CLOSEJRN^JRNUTIL(%JFILE)
	ZN ns
	; 
YZ	Q
	;
BLD(A)	N K,JF,ns S ns=$ZU(5) zn "%SYS" K A
	S A=0,JF=$ZU(78,3) S:JF="" JF=$P($G(^%SYS("JOURNAL","LAST")),"^",2) I JF="" Q
	S A=A+1,A(A)=JF
	F  S K=$$PREVJRN^JRNUTIL2(JF,.JF) Q:K'>0  I '$ZU(140,4,JF) S A=A+1,A(A)=JF
	ZN ns
	Q
	;
DATA	;Get data
	K ACT,ADDRN,DATE,DAY,GLO,GLON,GLOR,GLOS,PID,TIME,V,VO
	S PID=$P($P(JRNODE(1,1),":"),"/",1) I $D(^SYS("PIDList",PID)) S PID=@$Q(^SYS("PIDList",PID))
	S ADDRN=$P($P(JRNODE(1,1),":"),"/",3)	;Get next address
	S ACT=$ZCONVERT($P(JRNODE(1,1),":",2),"U")	; Action, convert to upcase (v5)
	S GLO=$P(JRNODE(1,1),":",4,$L(JRNODE(1,1),":"))       ;full global reference
	S GLOS=$P($P(GLO,"^^",2),"""") S:'$L(GLOS) GLOS=0     ;database
	S GLOR=$S($L(GLO):"^"_$P(GLO,"]",2),1:"")   ;globalref
	S GLON=$P(GLOR,"(")    ;global
	S DATE=JRNODE(1,1,3),DAY=$ZD($P(DATE,",",1),3,,4),TIME=$$T($P(DATE,",",2))
	I $D(JRNODE(1,1,1)) S VO=JRNODE(1,1,1)
	I $D(JRNODE(1,1,2)) S V=JRNODE(1,1,2)
DATAZ	Q
	;
T(R)	S R=$G(R,$P($H,",",2))	
TZ	Q $E("0"_(R\3600),$L(R\3600),4)_":"_$E("0"_(R#3600\60),$L(R#3600\60),4)_":"_$E("0"_(R#3600#60\1),$L(R#3600#60\1),4)
	;
ERR	U 0 W !,$G(X),! G YZ
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9