cTI280	;Wijzigen goederenlijn ;%TI28 ; [ 06/20/96  4:26 PM ]
	G 1
	;
T0	;Wijzigen goederenlijn ;
	;
T0F	;Modific. ligne marchandise ;
	;
1	S GC=$P(A(1),D),A0="" I GC S A0=$$SIG^cAFA1("INTR.GOE",GC,101),A0=^(0)
11	S U1=100 I '$D(CA) S X=$D(@("^"_Q_UGL_"(0,US,0)")) S X=3300,Y=101 F I=1:1 S X=$O(^(X)) Q:X<3300!(X>3399)  S CA(Y)=$P(^(X),U,1,8),Y=Y+1
13	S U1=$O(CA(U1)) G YZ:U1="" S U2=CA(U1),FP=$P(U2,U,2)*100+$P(U2,U,3)
15	I $P(U2,U,4),$L($P(U2,U,7)) S X=$P(U2,U,4) X "S $P(B(X\100),D,X#100)="_$P(U2,U,7)
17	I FP W @F,$P(U2,U) S FP=$P(U2,U,5)*100+$P(U2,U,6)-2 W @F,":"
19	S FP=$P(U2,U,5)*100+$P(U2,U,6) X "S K="_$P(U2,U,7) X:$L($P(U2,U,8)) $P(U2,U,8) G YZ:K="-" W:FP @F,K G 13
	;
YZ	K CA Q
	;
Z	X ^cZ Q
ZZ	; 19.09.96 - 13 u 49 * V6.2.05