cTI211	;Registratie goederenlijn ;%TI14 ; [ 01/30/98  5:18 PM ]
	G 1
	;
T0	;Registratie goederenlijn ;
	;
T0F	;Enregistrement ligne marchandise ;
	;
1	K C S K=$$^cANSYN("INTR.GOE","",$S($E(K)=".":"",1:K),"","",101)
12	G YZ:K="-"!(K=",")
14	S GC=K,A0=^(K,0),UM="."
	;
2	S FP=UL*100+1 W @F,@F1 I UL>$P(UD,D,2) S UL=UL-1,FP=UD*100+1 W @F,@FDL D S3
	;
3	K CA D 11^cTI22 G Y:K=","!(K="-")
	;
Y	K A0
YZ	Q
	;
S3	S X="" K:UTA($O(UTA(X)))=+UD UTA($O(UTA(X))) F I=1:1 S X=$O(UTA(X)) Q:'X  S UTA(X)=UTA(X)-1
S3Z	Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05