cTA80	;Analytische verrichtingen ;%TA80 ; [ 01/02/01  5:50 PM ]
	;
T0	;Analytische diverse verrichtingen ;
	;
T0F	;Opérations divers analytiques ;
	;
T0E	;Analytical miscellaneous transactions ;
	;
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	;
2	D ^cT164 I 'OK G YZ
21	S K2=$TR(VERBOT," ") K VERBOT
23	S Q41="^"_Q_"AR(BR,0)",Q95="^"_Q_"FIE(BP,RB,BNR)",(BC(0),BC(1))=0
	;
3	; S (BF,HBF)=$P(@("^"_Q_"BA(39)"),D),VM(HBF)=$P(^(11,HBF),D)
	;
4	G ^cTA800
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8