TKFAXL ;LOGBOEK FAX ;TKFAXL; [ 03/22/2000   9:21 AM ]
 ;
T1 ;PLAATS SMAL PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen";
T2 ;| NR.|QUEUE TIME | STATUS                       |DUR. | FROM                       | TO COMPANY                 | TO FAXNUMMER      |;
T3 ;|    | FAX TIME  | ERROR MESSAGE                |RETR.| SUBJECT                    | TO CONTACT                 | REMOTE FAX ID     |;
T4 ;+----+-----------+------------------------------+-----+----------------------------+----------------------------+-------------------+;
T5 ;BLZ :;
T6 ;VAN\22\3\VANAF \"[] = ;   dd.mm.jj[] = datum  .[] = het begin   -[] = einde programma"\8\DCTS\;
T7 ;TOT\22\3\T.E.M.\"[] = ;   dd.mm.jj[] = datum  .[] = het einde   I[] = idem vorig"\8\DCTS\;
T8 ;HET BEGIN ;HET EINDE ;
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S R=$P($T(T6),U,2)_DT_$P($T(T6),U,3) D R0 G 11:K="I",YZ:K="-" S:K="" VAN=DT
12 S FP=603 W @F,@F1,$$S2(VAN,"T6",3)
13 S R=$P($T(T7),U,2)_DT_$P($T(T7),U,3) D R0 G 11:K="-"!(K=",") S:K="" TOT=DT S:K="I" TOT=VAN
14 S FP=803 W @F,@F1,$$S2(TOT,"T7",3)
15 S VANM=$$S1($S(VAN=".":"01.01.50",1:VAN)),TOTM=$$S1($S(TOT=".":"31.12.49",1:TOT))
16 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\""-,""[K\" D R0 G 11:K=",",13:K="-"
17 S (BLZ,TEL)=0,NR="" I '$D(NM2) S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
18 X F70 W @F80,@F81
 ;
2 F  S NR=$O(^TKFAXQ("DIR",NR)) Q:NR=""  S A=^(NR) D
 . S K=$P(A,D,28),B=$P(A,D,31) I K<VANM!(K>TOTM) Q
 . I 'TEL D
 .. W:BLZ !,$P($T(T4),U,2),$C(12,13) S BLZ=BLZ+1,X=$P($T(+1),U,2),K=$$S2(VAN,"T6",2)_"  "_$$S2(TOT,"T7",3)
 .. W !,QN,?125,$P($T(T5),U,2),$J(BLZ,3),!,NM2,?128-$L(X)\2,@F83,X,@F81,$C(13),?125,DT,!,NM3,?132-$L(K)\2,K,?126,TD,!
 .. W @F81,!,$P($T(T4),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2),!,$P($T(T4),U,2)
 . W !,@F30,$J(1000000-NR,4),?5,@F30,$P(A,D,6),?17,@F30,$E($P(A,D,3),1,30),?48,@F30,$P(A,D,8)
 . W ?54,@F30,$E($P(A,D,11),1,28),?83,@F30,$E($P(A,D,32),1,28),?112,@F30,$E($P(A,D,4),1,19),?132,@F30
 . W !,@F30,?5,@F30,$P(A,D,7),?17,@F30,$E($G(^TKFAXQ("ERR",NR)),1,30),?48,@F30,$J($P(A,D,30),5)
 . W ?54,@F30,$E(B,1,28),?83,@F30,$E($P(A,D,13),1,28),?112,@F30,$E($P(A,D,5),1,19),?132,@F30
 . I $L(B)>28 F I=1:1 S K=$E(B,I*28+1,I+1*28) Q:'$L(K)  D
 .. W !,@F30,?5,@F30,?17,@F30,?48,@F30,?54,@F30,K,?83,@F30,?112,@F30,?132,@F30
 .. S TEL=TEL+1
 . S TEL=TEL+2 S:TEL>LNMAX TEL=0
 ;
3 W:BLZ !,$P($T(T4),U,2),$C(12,13) X F71
 ;
YZ Q
 ;
S1(R) S R0=$P(R,".",2),R1=$P(R,".",3),R1=R1<50+19_R1-1841,R2=R1\4*1461,R3=R1#4*365,R=R2+R3+$P(R,".",1)+(R3>730&(R0>2))-1
S1A F X=1:1:R0-1 S R=R+$P("31\28\31\30\31\30\31\31\30\31\30\31",D,X)
S1Z K R0,R1,R2,R3 Q R
 ;
S2(X,Y,Z) Q $P($P($T(@Y),U,2),D)_" "_$S(X=".":$P($T(T8),U,Z),1:X)
 ;
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 K R0,R1 D ^cA100 Q
 ;
DCTS ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("I-,."[K)
 ;
ZZ ; 28.12.92 - 10 u 07 *