cT804 ;Fin & div: detail ;%T80 ; [ 01/03/01  9:47 AM ]
 ;
T0 ;Fin & div: detail ;
 ;
T0F ;Fin & div: détail ;
 ;
T0E ;Financial and miscellaneous transactions: detail ;
 ;
1 K DMU S DMU=4,FP=301 W @F F I=1:1:8 W !,@F2
11 I U5="D"!'$D(BNRD) S BNRD=0
13 I BNRD<BNR0!(BNRD>BNR) S BNRD=BNR0-.01
 ;
2 S BNRD=$O(@("^"_Q_"FI(BP,RB,BNRD)")),SWVD=0 I BNRD<BNR0!(BNRD>BNR) G YZ
21 S K=^(BNRD) I $P(K,D,3)'=NUM G YZ
23 S B=$L($P(K,D,15))!$L($P(K,D,16))
25 I DMU+B>11 S BNRD=BNRD-.01,SWVD=1 G YZ
27 S R=DMU,DMU=DMU+1+B,DMU(R)=BNRD D S5^cT809 G 2
 ;
YZ Q
 ;
 ; wijzigen muntcode mutaties
S1 S SWMU='SWMU
S1A S RR="" F  S RR=$O(DMU(RR)) Q:RR=""  S R=RR D S5^cT809
S1Z K RR Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84