cTI2	;Tonen detail ;%TI14 ; [ 02/11/97  1:20 PM ]
	G 1
	;
T0	;Tonen detail ;
	;
T0F	;Montrer détail ;
	;
S1	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
S1Z	Q
	;
S2	F II=1:1:4 S @("S"_II)=$P(X,U,II)
S2A	S FP=UL*100+$P(UV,U,S2)+1,K=$S('S1:@S1,1:$P(U2,D,S1#100)) X:$L(S4) S4 G S2D:'$L(K)
S2B	I S3="L" W @F,K,$J("",$P(UV,U,S2+1)-$P(UV,U,S2)-$L(K))
S2C	E  W @F,$J(K,$P(UV,U,S2+1)-$P(UV,U,S2)-1)
S2D	S FP=UL*100+$P(UV,U,S2+1) W @F,@F7,@$P(FG,D,10),@F8
S2Z	K S1,S2,S3,S4 Q
	;
S3	S X=@("^"_Q_UGL_"(0,US,""UDET"")") I '$L($P(X,D,4)) F I="UT","UV","UUM" S:$D(^(I_$S(Z-1:Z-1,1:""))) @("X"_I)=^(I_$S(Z-1:Z-1,1:""))
S3A	E  F I="UT","UV","UUM" I $L($P($P(X,D,4),U,Z)),$D(@("^"_QT_"BIB($S(""ODULTOLRF""[UGL:""UGL"",1:UGL),I,$P($P(X,D,4),U,Z))")) S @("X"_I)=^($P($P(X,D,4),U,Z))
S3B	S Y=XUUM
S3Z	Q
	;
1	S UVN=K+99,SW12=1,UL=+UD,Z=$P(K,"D",2),(Y,XUUM)=UUM D S3:Z K UTA,SWVD
10	I $G(QW) W /WSCROFF
11	I UUM'=Y S UUM=Y,UV=XUV,FP=UD-2*100+1 W @F,@F1 X XUT G 15
13	S FP=UL*100+1 W @F,@F1
15	S Z=$P(UD,D,2)-UD+1
	;
2	S UVN=$O(@("^"_Q_UGL_"(KC,US,UR,UVN)")) G YZ:UVN="" S (U2,B(1))=^(UVN),UZ=UVN-100
21	I 'Z S SWVD=1 G YZ
23	I UL>$P(UD,D,2) S UL=UL-1,FP=UD*100+1 W @F,@FDL D S1
25	S UTA(UVN-100)=UL
27	S FP=UL*100+$P(UV,U,1) W @F,@F7,@$P(FG,D,10),@F8 F I=1:1 S X=$P(UUM,D,I) Q:'$L(X)  D S2
29	S UL=UL+1,Z=Z-1 G 2
	;
YZ	K XUT,XUV,XUUM W:$G(QW) /WSCRON Q
	;
ZZ	; 26.02.97 - 11 u 03 * V6.2.06