cTA226 ;Controle op analytische rekeningen ;;do uit %T646,%T687 ; [ 01/02/01  4:20 PM ]
 G 1
 ;
T0 ;Controle op analytische rekeningen ;
T1 ;Analytische rekening ;
 ;
T0F ;Contrôle des comptes analytiques ;
T1F ;Compte analytique ;
 ;
T0E ;Check on analytical accounts ;
T1E ;Analytical account ;
 ;
S1 S ^(R11,0)=$P(R11," ")_"\?\1\\\\\\\\\\\\\\\\\\\\\",@("^"_Q_"RA1("" ""_$P(R11,"" ""))")="?"
S1Z Q
 ;
1 S R10=""
11 S R10=$O(^HULP(boot,$J,0,R10)) G YZ:R10="" S K=$P(^(R10),D),R11=$P(K,S,9) I R11="" G 11
12 I '$D(@("^"_Q_"ARA(R11)")) D S1,F1
13 G 11
 ;
YZ K R10,R11 Q
 ;
F1 S RA=$P($T(@("T1"_QT)),U,2)_R11,R=8
F2 D TXT^cAFA1(R)
FZ K R,RA Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84