cANR24	;Doorsturen leveringen naar Word; cANR24
	;
	Q
	;
YZ	Q
	;
	;  Opzoeken interludium
INTER 	N RX,UPM
	S $ZT="TRAP^cAN000"
	S U5=@("^"_Q_UGL_"(KC,US,UR,""1"")")
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,9)=$P(U5,D,27)_" "_$E(UR,1,($L(UR)-3))_"."_$E(UR,($L(UR)-2),$L(UR))
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,10)=": "_$P(U5,D,2)_D_": "_$P(U5,D,3)
 	S UPM=@("^"_Q_UGL_"(0,US,""ULNT"")")
 	I $P(UPM,D,53),$$SG^cAFA1("KL",KC,116) S K=$$SG^cAFA1("KL",KC,116),RX=$E(K,1,2) S:RX'?2U RX="BE" X:$D(^BA(5,RX,2)) "S K="_^(2) S $P(^HULP(boot,$J+.01,"HEADER"),D,12)=": "_K,$P(^HULP(boot,$J+.01,"THEADER"),D,3)=$S(HEADER="N":"BTW nr.",1:"No. TVA")
 	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="1" S $P(^HULP(boot,$J+.01,"HEADER"),D,12)=$S($L($P(U5,D,19))>0:": "_$P(U5,D,19),1:"") I $L($P(U5,D,19)) S $P(^HULP(boot,$J+.01,"THEADER"),D,3)=$S(HEADER="N":"Lev. datum",1:"Date liv.")
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,13)=""
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,14)=": "_$$SG^cAFA1("KL",KC,113)
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,15)=": "_$$SG^cAFA1("KL",KC,213)_D_""
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,16)=$$SG^cAFA1("KL",KC,104)_$S($L($P(^(0),D,4)):" ",1:"")_$$SG^cAFA1("KL",KC,102)
 	S $P(^HULP(boot,$J+.01,"HEADER"),D,17)=$$SG^cAFA1("KL",KC,318)
 	S $P(^HULP(boot,$J+.01,"THEADER"),D)=$S(HEADER="N":"Datum",1:"Date")
 	S $P(^HULP(boot,$J+.01,"THEADER"),D,2)=$S(HEADER="N":"Referte",1:"Référence")
 	; S $P(^HULP(boot,$J+.01,"THEADER"),D,3)=$S($L($P(^HULP(boot,$J+.01,"HEADER"),D,12))>0:$S(HEADER="N":"Lev. datum",1:"Date liv."),1:"")
 	S $P(^HULP(boot,$J+.01,"THEADER"),D,4)=D_$S(HEADER="N":"Telefoon",1:"Téléphone")_D_$S(HEADER="N":"Fax",1:"Fax")
INTERZ 	Q
	;
	;  Ophalen van de slotteksten
SLOT	S AANTL=@("^"_Q_"BA(""%F"",14,US,0,0)")
	S COT=$$SG^cAFA1("KL",KC,109)
	I '$L($G(AANTL)) G SLOTZ
	F I1=1:1:AANTL D
	. S ^HULP(boot,$J+.01,"SLOT",I1)=$G(@("^"_Q_"BA(""%F"",14,US,COT,I1)"))
SLOTZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08