cI2 ;AFDRUKKEN BESTANDSBESCHRIJVING ;%I2;GC [ 04/12/00   9:03 AM ]
 ;
1 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) I QP W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 B 1 S BLZ=0,I1=0,I2=0 I 'QP S NR=PP(1),TT=PP(2) G 21
12 S FP=302,R="TT\22\3\BEGINLETTERS DOKUMENTATIE\""vb. %T, %F, ...   [] = ""_Q\3\\K'?1N.E&(K'?.E1P.E!(K?1""%"".E&(K'?1P.E1P.E))!(K=""-""))" W @F,@F1 D R0 G YZ:K="-" S:K="" TT=Q S:TT'["^" TT="^"_TT S FP=311
13 S I1=$N(@(TT_"DOC(I1)")) G 15:I1=-1
14 S K="",FP=FP+92 S:$D(^(I1,0)) K=^(0) W @F,I1 S FP=FP+8 W @F,K G 13:FP-F60<2000
 ;
15 S R="NR\22\3\BESTAND\"".[] = vervolg   [] = alle""\6" D R0 S FP=311 W @F,@F1 G:$L(K) 12:K="-",13:K=".",15:'$D(@(TT_"DOC(K)")) S PP(1)=NR,PP(2)=TT
 ;
2 S R="K\22\3\PLAATS SMAL BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"",[] = hernemen   [] = ok   .[] = later drukken""\1\\"".-,""[K" D R0 G R9:K=".",15:(K="-"!(K=","))
21 X F70 W @F80 S I1=NR G 3:$L(I1) S I1=-1
22 S I1=$N(@(TT_"DOC(I1)")),I2=0,BLZ=0 G YZ:I1=-1
 ;
3 S BLZ=BLZ+1 W !?5,DT," - ",TD,?70,"- ",BLZ," -",!!
31 S K=$N(@(TT_"DOC(I1,I2)")),L=0
32 I $D(^(0)) S L="-",K=TT_" - "_I1_" - "_^(0) W ?15,K,$$CR^cA334 W ?15,K,! S $P(L,L,$L(K)+1)=L,L=$E(L,1,$L(K)) W $$CR^cA334 W ?15,L,$$CR^cA334 W ?15,L,!! S L=0
35 S I2=$N(^(I2)),L=L+1 G 39:I2=-1 S K=^(I2) S:K="*nb" L=99 W:K'="*nb" !?5,K
36 G 35:L<55,35:$N(^(I2))=-1 W # G 3
39 W:L>1 # G 22:NR=""
 ;
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 QPT=$T(+0) D ^cA109
R9Z Q
 ;
Z X ^cZ Q
ZZ ; 19.04.00 - 14 u 04 * V7.3