DCTEXT ;AFDRUKKEN DOKUMENTEN (Detail tekstlijnen) [ 08/06/2002  9:56 AM ]
 ;
BLOCK(R) 
 Do BLOCK^DCALG(R)
 Quit
 ;
 ; Verwerking tekstlijn
TEXTFAKT 
 If $L($P($P(R,D,18),";",2,4)),$P($P(R,D,18),";",4)'["F" Quit
 Quit:'$P($P(R,D,17),"#",2)
 Do TEXT
 Quit
 ;
TEXTBON 
 If $L($P($P(R,D,18),";",2,4)),$P($P(R,D,18),";",4)'["B" Quit
 Do TEXT
 Quit
 ;
TEXTORD 
 If $L($P($P(R,D,18),";",2,4)),$P($P(R,D,18),";",4)'["O" Quit
 Do TEXT
 Quit
 ;
TEXTOFF 
 Do TEXT
 Quit
 ;
TEXTTOE 
 Do TEXT
 Quit
 ;
TEXT 
 New T
 Set R=$P(R,D,5) If $E(R)="@" Set R=$E(R,2,99)
 If R="",'$D(B) Quit
 If $L(R),$TR(R,"-","")="" Do  Quit  ; onderlijnen vorige tekstlijn
 .Quit:'$D(B)
 .Set R=B(BCount),T=$P(R,"`")
 .For  Quit:$E(T,$L(T))'=" "  Set T=$E(T,1,$L(T)-1)
 .Quit:'$L(T)
 .Set T=P("U",1)_T_P("U",0)_$J("",48-$L(T))
 .Set $P(R,"`")=T,B(BCount)=R
 If $L(R) Set R=R_$J("",48-$L(R))_"`3`42`CT"
 Do BLOCK(R)
 Quit
 ;