cTA803 ;AN. VERR. - KEUZE MODULE ;%TA80 ; [ 01/12/01  10:10 AM ]
 G 1
 ;
T0 ;An. verr. - keuze module ;
T1 ;Keuze;
T2 ;[] = ingave verrichting   D[] = detail mutaties   ;.[] = vervolg detail;
 ;
T0F ;Op. an. - choix module ;
T1F ;Choix;
T2F ;[] = entrée opération   D[] = détail   ;.[] = suite détail;
 ;
T0E ;An. trans. - module choice ;
T1E ;Choice;
T2E ;[] = input transaction   D[] = detail mutations   ;.[] = next detail;
 ;
1 L @Q93:2 E  S R=14 D F2 G Y
 ;
2 S R="U5\21\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\1\\""-D""[K!(K="".""&SWVD)\\\1" D R0 G Y:K="-"
21 I K="D"!(K=".") D ^cTA804 G 2
23 D ^cTA805 G 2
 ;
Y I HUX S R=85 D F2 G 1
YZ L @Q93 Q
 ;
C1 W !?2,$P($T(@("T2"_QT)),U,2),$P($T(@("T2"_QT)),U,4-SWVD) Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84