cT80 ;Fin. & div. verrichtingen ;%T80 ;go naar %T800 ; [ 01/12/01  9:46 AM ]
 ;
T0 ;Fin. & div. verrichtingen ;
 ;
T0F ;Opérations fin. & diverses ;
 ;
T0E ;Financial and 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
 ;
 ; 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 ; 05.02.01 - 16 u 23 * V7.84