cTA804 ;AN. VERR. - DETAIL ;%TA80 ; [ 01/02/01  5:58 PM ]
 ;
T0 ;An. verr. - detail ;
 ;
T0F ;Op. an. - détail ;
 ;
T0E ;An. trans. - detail ;
 G 1
 ;
1 K DMU S DMU=4,FP=301 W @F F I=1:1:16 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_"FIE(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>19 S BNRD=BNRD-.01,SWVD=1 G YZ
27 S R=DMU,DMU=DMU+1+B,DMU(R)=BNRD D S5^cTA809 G 2
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84