cAT259 ;BEHEER PARAMETERS ;%A200 ;AR, ARA, KL, LE ; [ 01/02/01  1:44 PM ]
 ;
T0 ;Beheer parameters ;
T1 ;Beheer parameters;
T2 ;1[] = beheer periodes;2[] = instelling maand;
T3 ;,[] = ;.x[] = scherm x;
T4 ;  Dit geldt voor volgende bestanden       scherm periodes     scherm maand;
T5 ;Gewenste maand\"Getal van 1 tot 12";
T6 ;Gewenste periode\"Getal van 1 tot 13";
T7 ;Van maand\"xx-[] = maand vorig jaar   xx[] = maand huidig jaar   .[] = buiten gebruik";      ;
T8 ;Tot maand\"xx[] = maand huidig jaar   xx+[] = maand volgend jaar";
T9 ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
T0F ;Gestion des paramètres ;
T1F ;Gestion des paramètres ;
T2F ;1[] = gestion périodes;2[] = mois de rapport;
T3F ;,[] = ;.x[] = écran x;
T4F ;  Valable pour les fichiers suivants       écran périodes      écran  mois;
T5F ;Mois desiré\"Chiffre entre 1 et 12";
T6F ;Période desirée\"Chiffre entre 1 et 13";
T7F ;Mois initial\"xx-[] = mois de l'année passée    xx[] = mois de l'année en cours  .[] = hors usage";      ;
T8F ;Mois final\"xx[] = mois de l'année en cours   xx+[] = mois de l'année suivante";
T9F ;Confirmation\".[] = ok   ,[] = hernemen";
 ;
T0E ;Settings ;
T1E ;Settings;
T2E ;1[] = periods;2[] = set up month;
T3E ;,[] = ;.x[] = screen x;
T4E ;  This counts for the following files       screen periods     screen month;
T5E ;Desired month\"Cipher from 1 until 12";
T6E ;Desired period\"Cipher form 1 until 13";
T7E ;From month\"xx-[] = month of previous year   xx[] = month of current year   .[] = out of use";      ;
T8E ;From month\"xx[] = month of current year   xx+[] = month of next year";
T9E ;Confirmation\".[] = ok   ,[] = retry";
 ;
1 S FP=355 W @F,$P($T(@("T1"_QT)),U,2),@F2 S FP=601 W @F,@F1," ",@F4,$P($T(@("T1"_QT)),U,2)," ",@F5
11 K A S KW=SW2,SW2=U5
13 L +@("^"_Q_"BA(""%A"",11)"):2 E  S R=14 D F2 G YZ
15 K A S J="" F I=1:1 S J=$O(@("^"_Q_"BA(""%A"",11,J)")) Q:J=""  S A(I)=J_D_^(J)
17 S FP=701 W @F,@F1,$P($T(@("T4"_QT)),U,2),!
19 S I="" F  S I=$O(A(I)) Q:I=""  W !?2,"- ",$P(@("^"_Q_$P(A(I),D)_"(0,0)"),U),?48,$P(A(I),D,2),?68,$P(A(I),D,3)
 ;
2 S FP=1401 W @F,@F1
21 S I=$L($P($T(@("T2"_QT)),U,2)),J=$L($P($T(@("T3"_QT)),U,2)_x1) I J>I S I=J
23 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\2\\""-,12""[K&$L(K)!($E(K)=""."")\\\1" D R0 G Y:K="-" S:K="," K=".,"
25 I $E(K)="." S KW=$E(K,2),K="-" G 2:KW>SW4!(KW=0)!(KW=U5),Y:$L(KW),2
27 S G=$P(A(1),D),SW2=$P(A(1),D,K+1) G 4:K=1
 ;
 ; instelling maand
3 S U2=@("^"_Q_G_"(0,SW2*100+3)"),U7=$P(U2,U,16),(X,Y)=$P($P(U7,"R2=",2),",R3")
31 S R="X\22\3\"_$P($T(@("T5"_QT)),U,2)_"\2\\K?1.2N&K&(K<13)!(K=""-"")!(K="","")\\\\\1" D R0 G 2:X=Y!(K="-")!(K=",")
33 S X=+X,Y=$P(@("^"_Q_"BA(39)"),D,2),Y=$E(^cBA(2,$E(Y_"N"),X),1,3),FP=2003 W @F,@F1,$P($P($T(@("T5"_QT)),U,2),D)," : ",X," ",^(X)
35 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 31:K'="."
37 S @%Q1=0,I="" F  S I=$O(A(I)) Q:I=""  S G=$P(A(I),D),SW2=$P(A(I),D,3) D
 . S U2=@("^"_Q_G_"(0,SW2*100+1)"),U3=$P(U2,U,8),K=$P(U3,"""",2)
 . S K=$P(K," ")_" "_Y_D_$P(K,D,2,999)
 . S $P(U3,"""",2)=K,$P(U2,U,8)=U3,^(SW2*100+1)=U2
 . F J=3:13:55 S U2=^(SW2*100+J) D  S ^(SW2*100+J)=U2
 .. S U2=Y_$E(U2,4,999)
 .. S U7=$P(U2,U,16),U7=$P(U7,",R2")_",R2="_X_",R3"_$P(U7,",R3",2),$P(U2,U,16)=U7
39 S @%Q1=1 G 2
 ;
 ; instelling periode
4 S U2=@("^"_Q_G_"(0,SW2*100+1)"),U3=$P(U2,U,8),K=$P(U3,"""",2)
41 F I=1:1:13 S FP=$S(I<7:I,1:I-6)+14*100+$S(I<7:1,1:41) W @F,$J(I,4),". ",$P(K,D,I)," "
43 S R="X\22\3\"_$P($T(@("T6"_QT)),U,2)_"\2\\K?1.2N&K&(K<14)!(K=""-"")!(K="","")" D R0 G 2:K="-"!(K=",")
45 S FP=$S(X<7:X,1:X-6)+14*100+$S(X<7:1,1:41) W @F,"*" S Y=$P($P(U3,"""",2),D,X) I Y="" S Y="   |   "
 ;
5 S J=$P($P(Y,"|")," "),R="J\22\3\"_$P($T(@("T7"_QT)),U,2)_"\3\\K?1.2N.1""-""&K&(K<13)!(K=""."")!(K=""-"")!(K="","")\\\\\1" D R0 G 4:K="-"!(K=",")
50 I K="." S Y="",FP=$S(X<7:X,1:X-6)+14*100+$S(X<7:7,1:47) W @F,$J("",8) G 59
51 S Y=$E(100+K,2,3)_$S(K["-":"-",1:" ")_$E(Y,4,99),FP=$S(X<7:X,1:X-6)+14*100+$S(X<7:7,1:47) W @F,Y," "
53 S J=$P($P(Y,"|",2)," ",2),R="J\22\3\"_$P($T(@("T8"_QT)),U,2)_"\3\\K?1.2N.1""+""&K&(K<13)!(K=""-"")!(K="","")\\\\\1" D R0 G 5:K="-"!(K=",")
55 S Y=$E(Y,1,5)_$E(100+K,2,3)_$S(K["+":"+",1:""),FP=$S(X<7:X,1:X-6)+14*100+$S(X<7:7,1:47) W @F,Y," "
57 S J=$P(Y,"|") I J'["-",K'["+",J>K G 53
59 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G:$L(Y) 53:K="-",5:K="," G:'$L(Y) 45:K="-"!(K=",")
 ;
6 S @%Q1=0,I="" F  S I=$O(A(I)) Q:I=""  S G=$P(A(I),D),SW2=$P(A(I),D,2) D
 . S U2=@("^"_Q_G_"(0,SW2*100+1)"),U3=$P(U2,U,8),K=$P(U3,"""",2),$P(K,D,X)=Y,$P(U3,"""",2)=K,$P(U2,U,8)=U3,^(SW2*100+1)=U2
 . S:Y="" Y="   |   " S Y=$E(Y,1,4)_$E(Y,6,9)
 . F J=2:13:54 S U2=^(SW2*100+J+X) D  S ^(SW2*100+J+X)=U2
 .. I J=54 S $P(U2,U)=Y
 .. I J<54 S U2=$E(Y_" ",1,7)_$E(U2,8,999)
 .. S U7=$P(U2,U,16),U7=$P(U7,",R2")_",R2="""_$E(Y_" ",1,7)_""",R3"_$P(U7,",R3",2),$P(U2,U,16)=U7
 . S Y=$E(Y,1,4)_" "_$E(Y,5,9) S:$E(Y)=" " Y=""
61 S @%Q1=1 G 4
 ;
Y L -@("^"_Q_"BA(""%A"",11)")
YZ S FP=601 W @F,@F1 S FP=355 W @F,@F2 K A,I,J,X,Y,U2,U3,U7 Q
 ;
C1 W !?2,$E($P($T(@("T2"_QT)),U,2)_$J("",I+4),1,I+4),$P($T(@("T2"_QT)),U,3)
C1A W !?2,$E($P($T(@("T3"_QT)),U,2)_x1_$J("",I+3),1,I+3),$P($T(@("T3"_QT)),U,3)
C1Z 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