cTU21 ;OVERZICHT BRIEVEN ;%TU21 ; [ 08/08/94  2:29 PM ]
 G 1
 ;
T1 ;VANAF BRIEF\"-[] = einde programma   .[] = vanaf het begin   [] = specifieke brief";
T2 ;TOT BRIEF\"I[] = idem als vorige   .[] = tot het einde   [] = specifieke brief";
T3 ;PLAATS SMAL BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T4 ;VANAF HET BEGIN;TOT HET EINDE;
T5 ;HET BRIEF;
T6 ;BLZ :;
 ;
1 B 1 S U=";",NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0
11 I 'QP S I1=PP(1),I1X=PP(2) G 29
12 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
19 F K=1,2 S FP=K*200+717 W @F,@F9,":",@F2 S FP=FP-15 W @F,@F6,$P($P($T(@("T"_K)),U,2),D,1),@F9
 ;
2 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\"".-""[K" D R0 G YZ:K="-"
21 I K="." S K=$P($T(T4),U,2),I1=1
22 E  S R="I1\2000\"_$P($T(T5),U,2)_"\LIB\LIB1" D ^cA101 G 2:K="-" S K=$P(^(K,0),D,2)
23 S FP=920 W @F,K,@F2
24 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\"".-""[K!(K=""I""&'I1)\\\1" D R0 G 2:K="-"
25 I K="." S K=$P($T(T4),U,3),I1X="~" G 27
26 S I1X=I1,R="I1X\2000\"_$P($T(T5),U,2)_"\LIB\LIB1" D:K'="I" ^cA101 G 24:K="-",26:I1]I1X S K=$P(@("^"_Q_"LIB(I1X,0)"),D,2)
27 S PP(1)=I1,PP(2)=I1X,FP=1120 W @F,K,@F2
28 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""-,.""[K" D R0 G 24:K="-",19:K="," I K="." D R9 G 19
29 X F70 W @F80 G 31:$D(@("^"_Q_"LIB(I1)"))
 ;
3 S I1=$N(@("^"_Q_"LIB(I1)")) G YZ:I1=-1!(I1]I1X)
31 S N1=^(I1,0),OM=$P(@("^"_Q_"LI($P(N1,D,3),0)"),D,1),I2=0
34 D 8,85 W !,": ",$P(N1,D,1)," ",$P(N1,D,2),?40,$J(OM,38)," :" D 85 S L=12
 ;
4 S I2=I2+1 I '$D(@("^"_Q_"LIB(I1,I2)")) W # G 3
41 S T=I2,L=L+1,K=^(I2) I L>56 W # D 8 S L=1
42 F POS=1:1:70 I $E(K,POS)="#" S I="",T=T+.01 S:$D(^(T)) I=$P(^(T),U,2) S K=$P(K,"#",1)_I_$P(K,"#",2,99)
43 W !,$J(I2,7),". ",K G 4
 ;
8 S L=0,BLZ=BLZ+1 W !,QN,?72,$P($T(T6),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,*13,?72,DT,!,NM3,?73,TD,! Q
85 W !,":------------------------------------------------------------------------------:" Q
 ;
YZ X F71 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
 ;
R9 S R1=$P($T(+1)," ",1) I $D(QPT) F I=1,2 I $L($P(QPT,"#",I)) S $P(R1,"#",I)=$P(QPT,"#",I)
R9A F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9B S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1
R9Z K R1,R2,R3 L  Q  ; V3  14.10.87
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5