cICHKAP(K) ;AUTOMATISCH KOPIEREN BESTANDEN ;%ICHKAP; [ 02/22/00  8:59 AM ]
 ;
T0 ;AUTOMATISCH KOPIEREN BESTANDEN ;
T1 ;PLAATS BREED BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = OK   ,[] = HERNEMEN";
T2 ;Blz :;
T3 ;Schema: ;Bestand: ;
 ;
T0F ;COPIE AUTOMATIQUE DES FICHIERS ;
T1F ;PLACEZ DU PAPIER LARGE SUR L'IMPRIMAMTE ET METTEZ-LA EN MARCHE\"[] = OK   ,[] = REPRENDRE";
T2F ;Page:;
T3F ;Profile: ;Fichier: ;
 ;
1 D MASTER^cQ5,INI^cQ6 S C=$G(K,"A")
 S %LOG="^cLOG(boot,""CHANGE"",""G"",C)"
 S LOG="^|home|ZZLOG(""CHANGE"",""G"",C)",LOGC="^|home|ZZLOG(""GCOPY"",""G"",C)"
 G YZ:'$D(@%LOG@(0,"HOME")) S home=@%LOG@(0,"HOME")
 S C=$G(K),CHK=0,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
 S NM1=$G(@("^"_Q_"BA(99,1)")),NM2=$G(^(2)),NM3=$G(^(3)),B=130
 ;
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,""[K\" D R0 I K="-"!(K=",") G YZ
 S BLZ=1 X F70 W @F80 D HDR,NL S X=$X,A1=9,A2=50,G=0
 F  S G=$O(@LOGC@(G)) Q:G=""  S S=0 D  D NL
 . D NL W ?X,$P($T(@("T3"_QT)),U,3),G," from ",$O(@LOG@(G,0))
 . W ?X+A2,$TR($G(@LOGC@(G,0,0)),D," ") D NL
 . F  S S=$O(@LOGC@(G,S)) Q:S=""  S N=0 D
 .. F  S N=$O(@LOGC@(G,S,N)) Q:N=""  S L=^(N) D LINE
 ;
4 W # X F71
 ;
YZ 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
 ;
LINE D NL W ?X+A1,$S(G["^SYS":G,1:$P(G,"boot",1)_""""_N_""""_$p(G,"boot",2))
 W " in ",$J(S,8),?X+A2,$TR(L,D," ")
 Q
 ;
HDR S K=$P($T(@("T0"_QT)),U,2) W !,NM1,?B-8,$P($T(@("T2"_QT)),U,2),$J(BLZ,3)
 W !,NM2,$C(13) S $X=0 W ?B\2-$L(K),@F82,K,@F83,$C(13) S $X=0 W ?B-8,DT,!,NM3,?B-7,TD,! W:$D(ISO) ?B-$L(ISO),ISO S $Y=0
 S K=$P($T(@("T3"_QT)),U,2)_C W !?B\2-$L(K),@F82,K,@F83,!
 Q
 ;
NL W ! I $Y-6>LNMAX W # S BLZ=BLZ+1 D HDR W !!
 Q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3