cTI208	;Hulpprogramma UUM ;%TI208 ; [ 12/24/01  10:47 AM ]
	G YZ
	;
T0	;Hulpprogramma UUM ;
	;
T0F	;Programme auxiliaire UUM ;
	;
T0E	;Hulpprogramma UUM ;
	;
	; goederencode
S1	I $L(K) S K=$$SIG^cAFA1("INTR.GOE",K,101),K=" "_$E(K_$J("",8),1,8)_" ("_$P(^(0),D,3)_")"
S1Z	Q
	;
	; gewicht
S4	S:'K K="" I $L(K) S R=$S(K#1:2,1:0),K=$J(K,11-(3*'R),R)
S4Z	Q
	;
	; aanvullende eenheden
S5	S:'K K="" I $L(K) S R=$S(K#1:2,1:0),K=$J(K,13-(3*'R),R)
S5Z	Q
	;
	; factuurwaarde
S6	S:'K K="" I $L(K) S R=$S(K#1:UQA,1:0),K=$J(K,15-(UQA+1*'R),R)
S6Z	Q
	;
YZ	Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91