cTI140	;Commentaarlijnen ;%TI14 ; [ 09/19/96  11:39 AM ]
	G 1
	;
T0	;Commentaarlijnen ;
	;
T0F	;Lignes de commentaire ;
	;
K1	S USC=@("^"_Q_UGL_"(0,US,""USC""_$S(X:UMDV,1:UMD))"),FX=$S(24-$L(USC,U)>+USM:+USM,1:24-$L(USC,U))
K1A	S R="UM\"_FX_"\3\"_UX_"\K2\"_$P(USM,U,2)_"\\"_$S($D(UMC):UMC,1:$P(USM,D,2))_"!(K=""""&$D(^(""USC""_UMDV)))",$P(R,D,11)=1 D R0
K1B	S FP=FX*100+1 W @F,@F1 I UM="" S X='X G K1
K1Z	K USC,FX Q
	;
K2	F I=1:1:$L(USC,U) W:$L($P(USC,U,I)) !?2,$P(USC,U,I)
K2Z	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
1	I '$L(UMD),'$D(@("^"_Q_UGL_"(0,US,""UCS""_UMD)")) S X=0 D K1 G YZ
10	S UCS=$S($D(@("^"_Q_UGL_"(0,US,""UCS""_UMD)")):^("UCS"_UMD),1:@("^"_QT_"BIB($S(""ODULTOLRF""[UGL:""UGL"",1:UGL),""UCS"",UMD)"))
11	I $D(@("^"_Q_UGL_"(0,US,""UCP"")")) S UCS=UCS_D_$S($D(^("UCP"_^("UCP"))):^("UCP"_^("UCP")),1:@("^"_QT_"BIB($S(""ODULTOLRF""[UGL:""UGL"",1:UGL),""UCP"",^(""UCP""))"))
13	S (SWL,SWS)=1 S:$L(K)>1&($E(K,2,9)?.N) SWS=$E(K,2,9)
15	S X=$L($P(UCS,D,SWS),U),FX=$S(24-X>+USM:+USM,1:24-X)
17	S R="UM\"_FX_"\3\"_UX_"\S1\"_$P(USM,U,2)_"\\"_$S($D(UMC):UMC,1:$P(USM,D,2))_"!($L(UCS,D)>1&'$L(K))",$P(R,D,11)=1 D R0
19	S FP=FX*100+1 W @F,@F1 G 13:K["?" I UM="" S SWS=SWS+1 S:SWS>$L(UCS,D) SWS=1 G 15
	;
YZ	K SWL,SWS,FX Q
	;
S1	S X=$P(UCS,D,SWS)
S1A	F I=1:1:$L(X,U) W ! I $L($P(X,U,I)) S Y=$S($D(@("^"_Q_UGL_"(0,US,""USC""_$P(X,U,I))")):^("USC"_$P(X,U,I)),1:@("^"_QT_"BIB($S(""ODULTOLRF""[UGL:""UGL"",1:UGL),""USC"",$P(X,U,I))")) W ?2,Y
S1Z	Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05