cICOPROP ;AUTOMATISCH KOPIEREN ROUTINES ;%ICOPROP; [ 02/22/00  9:38 AM ]
 ;
T0 ;AUTOMATISCH KOPIEREN PROGRAMMA'S ;
T1 ;PLAATS BREED BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = OK   ,[] = HERNEMEN";
T2 ;Blz :;
T3 ;Datum     Uur      Systeem  Programma  Checksum  Opmerking;
T4 ;Vervolg  [] = ok: ;
T5 ;KEUZE\"P[] = afdrukken   V[] = verwijderen   -[] = einde programma";
T6 ;VERWIJDEREN T.E.M.\"dd.mm.jj[] = datum";
T7 ;DEFINITIEF VERWIJDEREN\"V[] = verwijderen   ,[] = hernemen";
 ;
T0F ;COPIE AUTOMATIQUE DES PROGRAMMES ;
T1F ;PLACEZ DU PAPIER LARGE SUR L'IMPRIMAMTE ET METTEZ-LA EN MARCHE\"[] = OK   ,[] = REPRENDRE";
T2F ;Page:;
T3F ;Date      Heure    Système  Programme  Checksum  Remarque;
T4F ;Suite   [] = ok: ;
T5F ;CHOIX\"P[] = imprimer   V[] = radier   -[] = fin du programme";
T6F ;RADIER JUSQUE\"jj.mm.aa[] = date";
T7F ;RADIER DEFINITIVEMENT\"V[] = radier   ,[] = reprendre";
 ;
1 D INI^cQ6 S G=$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=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),HD=""
 S %LOG="^cLOG(boot,""RCOPY"")",LOG="^|home|ZZLOG(""RCOPY"")"
 D MASTER^cQ5 G YZ:'$D(@%LOG@(0,"HOME")) S home=@%LOG@(0,"HOME")
 S FP=420 W @FS S FP=302,$Y=0 W @F
 F  S HD=$O(@LOG@(HD)) Q:HD=""  S HT=0 D  Q:K="-"  Q:K="-"
 . F  S HT=$O(@LOG@(HD,HT)) Q:HT=""  S UCI=0 D  Q:K="-"
 .. S L="" F  S UCI=$O(@LOG@(HD,HT,UCI)) Q:UCI=""  S L=L_"  "_UCI
 .. I '$L(L) Q
 .. S K=$G(@LOG@(HD,HT,0)) W !?2,$P(K,D),?12,$P(K,D,2),?21,L
 .. Q:$Y<17  S FP=2303 W @F,@F1,$P($T(@("T4"_QT)),U,2) R K I K'="-" S $Y=0,FP=2078 W @F,@F1
 S FP=124 W @FS
 ;
2 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,PV""[K&$L(K)\\\1" D R0 G YZ:K="-",1:K=",",3:K="P"
 G 2:$O(@LOG@(""))=""
21 S R="T\22\3\"_$P($T(@("T6"_QT)),U,2)_"\8\DCTR\$L(K)\\\" D R0 G 2:K="-"
 S R="K\23\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,V""[K\\\1" D R0 G 21:K="-",2:K=","
 S %DS=$TR("45/12/78","12345678",T) D ^cDI S I1=0
 F  S I1=$O(@LOG@(I1)) Q:I1=""!(I1>%DN)  K @LOG@(I1)
 G 1
 ;
3 G 2:$O(@LOG@(""))=""
 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,""[K\" D R0 I K="-"!(K=",") G 2
 S HD="",B=130,BLZ=1 X F70 W @F80 D HDR,NL
 ;
4 F  S HD=$O(@LOG@(HD)) Q:HD=""  S HT=0 D  D NL
 . F  S HT=$O(@LOG@(HD,HT)) Q:HT=""  S UCI=0 D
 .. F  S UCI=$O(@LOG@(HD,HT,UCI)) Q:UCI=""  D
 ... S %RN="",K=$G(@LOG@(HD,HT,0)) D NL W $P(K,D),?10,$P(K,D,2),?19,UCI
 ... F  S %RN=$O(@LOG@(HD,HT,UCI,%RN)) Q:%RN=""  S %UCI="" D
 .... I %RN=0 D  Q
 ..... F  S %UCI=$O(@LOG@(HD,HT,UCI,%RN,%UCI)) Q:%UCI=""  W ?49,%UCI,?58,$P(^(%UCI),D) D NL
 .... W ?28,%RN,?36,$$INTERP^cQ9($G(@LOG@(HD,HT,UCI,%RN)),0,12)
 .... F  S %UCI=$O(@LOG@(HD,HT,UCI,%RN,%UCI)) Q:%UCI=""  W ?49,%UCI,?58,$P(^(%UCI),D) I $O(@LOG@(HD,HT,UCI,%RN,%UCI))'="" D NL
 .... D NL
 W # X F71 G 1
 ;
YZ Q
 ;
HDR S X=$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(X),@F82,X,@F83,$C(13) S $X=0 W ?B-8,DT,!,NM3,?B-7,TD,! S $Y=0
 S X="",$P(X,"-",B)="-" W !,$P($T(@("T3"_QT)),U,2),!,X,!
 Q
 ;
NL W ! I $Y-6>LNMAX W # S BLZ=BLZ+1 D HDR
 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
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3