cT89 ;Boeking koersverschillen ;%T89 ;go naar %T890 ; [ 01/03/01  2:51 PM ]
 ;
T0 ;Boeking koersverschillen ;
 ;
T0F ;Imputation écarts de cours ;
 ;
T0E ;Account difference in exchange rate ;
 ;
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 K VERBOT
23 S Q41="^"_Q_"AR(BR,0)",Q95="^"_Q_"FI(BP,RB,BNR)",(BC(0),BC(1))=0
 ;
3 S BA86=$G(@("^"_Q_"BA(86)"))
31 ; S (BF,HBF)=$P(^(39),D),VM(HBF)=$P(^(11,HBF),D)
 ;
4 G ^cT890
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84