cQMSMLSB ;LOGGING DATA-BACKUP ;cQMSMLSB; [ 07/03/00  9:44 AM ]
 ;
T0 ;LOGGING DATA-BACKUP ;
T1 ; DATUM           UUR | BERICHT                                               ;u;
T2 ;do;vr;za;zo;ma;di;wo;
T3 ;PLAATS SMAL BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = OK   ,[] = HERNEMEN";
T4 ;Blz :;
T5 ;AFDRUKKEN\"[] = scherm   P[] = printer   -[] = einde programma";
 ;
T0F ;JOURNAL DATA-BACKUP ;
T1F ; DATE          HEURE | MESSAGE                                               ;h;
T2F ;je;ve;sa;di;lu;ma;me;
T3F ;PLACEZ DU PAPIER A4 SUR L'IMPRIMAMTE ET METTEZ-LA EN MARCHE\"[] = OK   ,[] = REPRENDRE";
T4F ;Page:;
T5F ;AFFICHER\"[] = écran   P[] = imprimante   -[] = 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(@("T5"_QT)),U,2)_"\1\\""-P""[K\\\1" D R0 G YZ:K="-",3:K=""
 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,""[K\" D R0 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)," ",@F5
 S R=102_D_2380,RV="124#2324\" 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
41 S FP=2403 W @F,"[] = ok : .",@F2,*8 R K G 11
 ;
YZ Q
 ;
DISP S (DAG,UUR)="",LOG="^cLOG(cs,""BACKUP"",""LOGGING"")"
 F J=1:1 S DAG=$O(@LOG@(DAG),-1) Q:DAG=""  D
 . F J=J:1 S UUR=$O(@LOG@(DAG,UUR),-1) Q:UUR=""!(J>8)  S R=^(UUR) D
 .. I 'PR S FP=X*100+Y W @F
 .. I PR D NL W @F30
 .. S %DN=+$P(R,D,4) D 200^%DO S I=$P(%DX,"/",2),K=$E("0"_I,$L(I),3)_"."
 .. S I=$P(%DX,"/"),I=$E("0"_I,$L(I),3),K=K_I_"."_$P(%DX,"/",3)
 .. W $P($T(@("T2"_QT)),U,DAG#7+2)," ",K," "
 .. S %TN=$P($P(R,D,4),",",2) D 300^%TO
 .. W $J($E(%TS,1,2)_$P($T(@("T1"_QT)),U,3)_$E(%TS,3,4),5)
 .. I 'PR S FP=FP+22 W @F
 .. I PR W ?36,@F30
 .. W $P($P(R,D),";")
 .. I 'PR S X=X+1,FP=FP+102 W @F
 .. I PR D NL W @F30,?36,@F30
 .. W $P($P(R,D),";",2)
 .. I $L($P($P(R,D),";",3)) D
 ... I 'PR S X=X+1,FP=FP+102 W @F,"-> "
 ... I PR D NL W @F30,?36,@F30
 ... W $P($P(R,D),";",3)
 .. I 'PR S X=X+1 I X>22 Q
 .. 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(@("T4"_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,11,33,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
 ;
MS U 0 S FP=2403 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R *K
MSZ Q
 ;
ZZ ; 14.02.01 - 16 u 10 * Cache-r2.0.2