cTA4 ;BEHEER ANALYTISCHE VERDEELKURVES ;%TA4 ;Do naar %TA5 ; [ 01/02/01  6:22 PM ]
 G 1
 ;
T0 ;Beheer analytische verdeelkurves ;
T1 ;Verdeelcurve : ;de verdeelcurve;
T2 ;Wijzigen verdeelcurve\"[] = ok   .[] = openen verdeelcurve   -[] = einde programma";
T3 ;Omschrijving verdeelcurve\;"V[] = verwijderen verdeelcurve   [] = omschrijving ok";
T4 ;Openen verdeelcurve\"[] = automatisch nummer   xx[] = bepaald nummer";
T5 ;Verwijderen verdeelcurve ;",[] = hernemen   V[] = definitief verwijderen";
T6 ; Nr   Analytische rekening                                    % ;
T7 ;   [] = ok ;
 ;
T0F ;Gestion des courbes analytiques ;
T1F ;Courbe : ;la courbe;
T2F ;Modification courbe\"[] = ok   .[] = création courbe   -[] = fin du programme";
T3F ;Description courbe\;"V[] = radier courbe   [] = description ok";
T4F ;Création courbe\"[] = numéro automatique   xx[] = numéro spécifique";
T5F ;Radier courbe ;",[] = reprendre   V[] = radier définitivement";
T6F ; N°   Compte analytique                                       % ;
T7F ;   [] = ok ;
 ;
T0E ;Analytical divide curves ;
T1E ;Divide curve : ;the divide curve;
T2E ;Modification of divide curve\"[] = ok   .[] = open divide curve   -[] = end program";
T3E ;Description of divide curve\;"V[] = remove divide curve   [] = description ok";
T4E ;Open divide curve\"[] = automatic number   xx[] = particular number";
T5E ;Remove divide curve ;",[] = retry   V[] = remove permanently";
T6E ; Nr   Analytical account                                    % ;
T7E ;   [] = ok ;
 ;
 ; kontrole indexbestanden
S1 D EG^cAFA1,S1^cAN002(0,"AK"),C^cA612
S1Z Q
 ;
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
11 S FP=303 W @F,$P($T(@("T1"_QT)),U,2) S FP=578 W @F,@F5 S FP=502 W @F,@F4,$P($T(@("T6"_QT)),U,2),@F5
12 S TK=F7_","_$P(FG,D,10)_","_F8,FP=401 W @F,@F7,@$P(FG,D,1) F I=1:1:65 W @$P(FG,D,9)
13 W @$P(FG,D,2),@F8 F FP=501,507,560,567 W @F,@TK
14 F FP=407,460,467 W @F,@F7,@$P(FG,D,2),@F8
 ;
2 S R="A1\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.""[K" D R0 I K="-" G YZ
21 I K="" S R="I1\2000\"_$P($T(@("T1"_QT)),U,3)_"\AK\AK1" D @$G(@("^"_Q_"AK(0,5)"),"^cA101") G 2:K="-" S NR=$P(K," ",2),OM=$P(^(K,0),D,2) G 3
22 S OM="",R="NR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\3\\K?.N&$E(K,1)!(""-""[K)" D R0 I K="-" G 2
23 I K S I1=" "_NR G 3:'$D(@("^"_Q_"AK1(NR)")),22
24 S:'$D(@("^"_Q_"AK(0,1)")) ^(1)=1,^(0)=$P($T(@("T1"_QT)),U,2) S NR=^(1)
25 I $D(@("^"_Q_"AK1(NR)")) S NR=NR+1 G 25
26 S @("^"_Q_"AK(0,1)")=NR,I1=" "_NR
 ;
3 S FP=320 W @F,NR," - ",OM,@F2 L @("^"_Q_"AK1(NR)"):2 E  S R=14 D F2 S K=A1 G 21
31 S KR=OM,R="KR\22\3\"_$P($T(@("T3"_QT)),U,2) S:$L(OM) R=R_$P($T(@("T3"_QT)),U,3) S R=R_"\30\\\\\\\1" D R0 G 9:K="V"!(K="v")&NR I K="-" S K=A1 G 21
32 S:$L(K) OM=K S B(1)=NR_D_OM D ^cA218 K B(1)
33 S @%Q1=0,@("^"_Q_"AK1(NR)")=I,@("^"_Q_"AK(I,0)")=NR_D_OM_D_$S($D(@("^"_Q_"AK(I1,0)")):$P(^(0),D,3,99),1:"") D S1
34 G 39:I=I1 S K=0
35 S K=$O(@("^"_Q_"AK(I1,K)")) I K'="" S @("^"_Q_"AK(I,K)")=^(K) G 35
36 K @("^"_Q_"AK(I1)") S I1=I D S1
39 S @%Q1=1,FP=320 L @("^"_Q_"AK1(NR)") W @F,NR," - ",OM,@F2
 ;
4 S T=0 D ^cTA5 S FP=320 W @F,@F2 S FP=601 W @F,@F1 G 2
 ;
9 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_NR_D_$P($T(@("T5"_QT)),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" G 31
91 S @%Q1=0 K @("^"_Q_"AK(I1)"),@("^"_Q_"AK1(NR)") D S1 S @%Q1=1 G 2
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
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