cQLBU	;Logboek veiligheidskopie ;cQLBU;
	;
T0	;Logboek veiligheidskopie ;
T1	; Bu|    Datum      Uur  |Init.|Duur   ;
T2	;do;vr;za;zo;ma;di;wo;
T3	;Blz :;
T4	;Afdrukken\"[] = scherm   .[] = printer   L[] = logging   -[] = einde programma";
	;
T0F	;Journal de copie de sauvegarde ;
T1F	; Bu|    Date       Heure|Init.|Dûr.   ;
T2F	;je;ve;sa;di;lu;ma;me;
T3F	;Page:;
T4F	;Afficher\"[] = écran   .[] = imprimante   L[] = aperçu modif.   -[] = fin du programme";
	;
T0E	;Logbook backup ;
T1E	; Bu|    Date       Hour |Init.|Time   ;
T2E	;th;fr;sa;su;mo;tu;we;
T3E	;Page:;
T4E	;Print\"[] = screen   .[] = printer   L[] = logging   -[] = end program";
	;
T0D	;Logbook backup ;
T1D	; Bu|    Date       Hour |Init.|Time   ;
T2D	;th;fr;sa;su;mo;tu;we;
T3D	;Page:;
T4D	;Print\"[] = screen   .[] = printer   L[] = logging   -[] = end program";
	;
1	D:'$D(Q) INI^cQ6 D B^cA612
11	S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	;
2	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-.L""[K\\\1" D R0 G YZ:K="-",3:K=""
	I K="L" D ^cQLSB G 1
	S R=0_D_1 D ^cA345 I K="-"!(K=",") G 2
	S NM1=QN,NM2=$G(@("^"_Q_"BA(99,2)")),NM3=$G(^(3))
	S B=78,C=41,BLZ=1,PR=1 X F70 W @F80 D HDR,DISP
	D LN W $$FF^cA334 X F71 G 11
	;
3	W @F61,@F11,@F1 S FP=202 W @F,@F4,$P($T(@("T1"_QT)),U,2),"|",$P($T(@("T1"_QT)),U,2)," ",@F5
	S R=102_D_2380,RV="106#2306\127#2327\133#2333\141#2341\145#2345\166#2366\172#2372" D ^cA319
	S K=$P($T(@("T0"_QT)),U,2)_QN,FP=141-($L(K)\2) W @F," ",K," " B 1
	;
4	S X=3,Y=4,PR=0 D DISP
	S FP=2403 W @F,"[] = ok : .",@F2,*8 R K G 11
	;
YZ	D C^cA612 Q
	;
DISP	S LOG="^cLOG("""_$ZU(5)_""",""BACKUP"",""LOGBOEK"",""A"")"
	S A=LOG
	F I=1:1:40 S A=$Q(@A,-1) Q:A=""  I $QS(A,5)?1.N  Q:$NA(@A,3)'=$NA(@LOG,3)  S R=@A D
	. I 'PR S FP=X*100+Y W @F
	. I PR D NL W @F30," "
	. W $P(R,D)
	. I 'PR S FP=FP+4 W @F
	. I PR W ?4,@F30," "
	. W $P($T(@("T2"_QT)),U,$P(R,D,2)+2)," ",$P(R,D,3)," "
	. S K=$P($P(R,D,4),":",1,2) S:$L(K)=3 K=" "_K S K=$E(K,1,5) W $J(K,5)
	. I 'PR S FP=FP+20 W @F
	. I PR W ?24,@F30
	. W $P(R,D,5)
	. I 'PR S FP=FP+6 W @F
	. I PR W ?31,@F30," "
	. D DUUR W K
	. I 'PR S X=X+1 S:X>22 X=3,Y=43
	. I PR W @F30
DISPZ	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
HDR	S K=$P($T(@("T0"_QT)),U,2) W !,NM1,?B-8,$P($T(@("T3"_QT)),U,2),$J(BLZ,3)
	W !,NM2,$C(13),?B-$L(K)\2,@F85,K,@F83,$C(13),?B-8,DT,!,NM3,?B-7,TD,! W:$D(ISO) ?B-$L(ISO),ISO S $Y=0
	D LN W !,@F30,$P($T(@("T1"_QT)),U,2)," ",@F30 D LN
HDRZ	Q
	;
LN	S K="",$P(K,"-",C)="-" F I=1,5,26,32,C S $E(K,I)="+"
	W !,K S K=""
LNZ	Q
	;
NL	W ! I $Y-12>LNMAX W $$FF^cA334 S BLZ=BLZ+1 D HDR
NLZ	Q
	;
DUUR	S K=$P(R,D,6) I K?.N S K=$J((K\60)_"'"_(K#60\10)_(K#60#10)_"""",7)
DUURZ	Q
	;
G	;Get logboek into ^cLOG($ZU( 5 ),"BACKUP",logboek)
	I $G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U")))!$D(^cLOG($ZU(5),"CLIENT",$ZCVT($ZU(110),"U"))) G GZ
	I +$G(^cLOG($ZU(5),"BACKUP","LOGBOEK","TYPE"),1)=3 D G^cQLBV G GZ
	I $G(^cLOG($ZU(5),"BACKUP","TYPE"),1)'=1 G GZ
GZ	Q
	;
L	;Empty logbook
	I $G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U")))!$D(^cLOG($ZU(5),"CLIENT",$ZCVT($ZU(110),"U"))) G LZ
	N X,Y S (X,Y)="^cLOG("""_$ZU(5)_""",""BACKUP"",""LOGBOEK"")"
	f  S X=$Q(@X) Q:X=""  Q:$NA(@X,3)'=Y  I $QS(X,4)?.N,$E(@X)="B" S $E(@X)="b"
LZ	Q
	;
S(IN,DR)	;Add entry to logbook
	I $G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U")))!$D(^cLOG($ZU(5),"CLIENT",$ZCVT($ZU(110),"U"))) G SZ
	N I,%TIM,%TN,%TS
	D ^cA106 S %TN=$P($H,",",2) D 300^%TO
	S I=$P($H,",",2)#3600#60,%TIM=$E(%TS,1,2)_":"_$E(%TS,3,4)
	S TYPE=$G(^cLOG($ZU(5),"BACKUP","TYPE"),4)
	S ^cLOG($ZU(5),"BACKUP","LOGBOEK",TYPE,+$H,+$P($H,",",2))="BM\"_($H#7)_"\"_DD_"."_DM_"."_DJ_"\"_%TIM_"\"_$G(IN)_"\"_$G(DR)
	D CLEAN^cQ13("^cLOG("""_$ZU(5)_""",""BACKUP"",""LOGBOEK"","""_TYPE_""")",40)
SZ	Q
	;
MS	U 0 S FP=2403 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R *K
MSZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9