cQLMF	;Logboek veiligheidskopie ;cQLBU; [ 06/29/01  4:44 PM ]
	;
T0	;Logboek veiligheidskopie ;
T1	; Bu|    Datum      Uur  |Init.   |Duur;u;
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.;h;
T2F	;je;ve;sa;di;lu;ma;me;
T3F	;Page:;
T4F	;Afficher\"[] = écran   .[] = imprimante   L[] = aperçu modif.   -[] = fin du programme";
	;
1	D INI^cQ6,MASTER^cQ5
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\136#2336\141#2341\145#2345\166#2366\175#2375" 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	Q
	;
DISP	S LOG="^cLOG(cs,""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+9 W @F
	. I PR W ?34,@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,*13,?B-$L(K)\2,@F85,K,@F83,*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
	Q
	;
LN	S K="",$P(K,"-",C)="-" F I=1,5,26,35,C S $E(K,I)="+"
	W !,K S K=""
	Q
	;
NL	W ! I $Y-12>LNMAX W $$FF^cA334 S BLZ=BLZ+1 D HDR
	Q
	;
DUUR	S K=$P(R,D,6)
	I K?.N D
	. I K\60 S K=$J(K\60_$P($T(@("T1"_QT)),U,3)_(K#60\10)_(K#60#10),4)
	. E  S K=$J("  "_$S(K#60\10:K#60\10,1:" ")_(K#60#10),4)
	Q
	;
G	;Get logboek into ^cLOG(cs,"BACKUP",logboek)
	D MASTER^cQ5 I workst!client G GZ
	I +$G(^cLOG(cs,"BACKUP","LOGBOEK","TYPE"),1)=3 D G^cQLBV G GZ
	I $G(^cLOG(cs,"BACKUP","TYPE"),1)'=1 G GZ
GZ	Q
	;
L	;Leegmaken logboek
	D MASTER^cQ5 I workst!client G LZ
	I $G(^cLOG(cs,"BACKUP","TYPE"),1)=3 S (I,J)="" D  G LZ
	. F  S I=$O(^cLOG(cs,"BACKUP","LOGBOEK",I)) Q:I=""  D
	.. F  S J=$O(^cLOG(cs,"BACKUP","LOGBOEK",I,J)) Q:J=""  I $E(^(J))="B" S $E(^(J))="b"
	I $G(^cLOG(cs,"BACKUP","TYPE"),1)'=1 K ^cLOG(cs,"BACKUP","LOGBOEK") G LZ
LZ	Q
	;
S(IN,DR)	;Add entry to logboek
	D MASTER^cQ5 I workst!client 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(cs,"BACKUP","TYPE"),4)
	S ^cLOG(cs,"BACKUP","LOGBOEK",TYPE,+$H,+$P($H,",",2))="BM\"_($H#7)_"\"_DD_"."_DM_"."_DJ_"\"_%TIM_"\"_$G(IN)_"\"_$G(DR)
	D CLEAN^cQ13("^cLOG(cs,""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	; 23.01.03 - 11 u 00 * Cache-r3.5.4