cT80	;Fin. & div. verrichtingen ;%T80 ;go naar %T800 ; [ 01/12/01  9:46 AM ]
	;
T0	;Fin. & div. verrichtingen ;Diverse verrichtingen ;
	;
T0F	;Opérations fin. & diverses ;Opérations diverses ;
	;
T0E	;Financial and miscellaneous transactions ;Miscellaneous transactions ;
	;
T0D	;Finanz- und diverse Operationen ;
	;
1	S K=$P($T(@("T0"_QT)),U,2+$P(@("^"_Q_"BA(39)"),D,17))_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	;
	; controle basisrekeningen
2	D ^cT164 I 'OK G YZ
21	S K2=$TR(VERBOT," ") K VERBOT
	;
	; algemene initialisatie
3	S Q41="^"_Q_"AR(BR,0)",Q95="^"_Q_"FI(BP,RB,BNR)",(BC(0),BC(1))=0
31	S BA86=$G(@("^"_Q_"BA(86)"))
33	S D1("K")=$P(^(12),D) I $P(SWAN,D,5)=1 S D1("K","A")=$P(^(12),D,2)
35	S D1("L")=$P(^(13),D) I $P(SWAN,D,4)=1 S D1("L","A")=$P(^(13),D,2)
37	S PRM=$G(^("%T",2))
	;
4	G ^cT800
	;
YZ	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8