cA506 ;BEHEER MENU ;%A506;Do %A505,%A510 [ 05/13/93  3:38 PM ]
 Q
 ;
T0 ;Beheer menu ;
T1 ;Gewenste nummer\"xx[] = nummer   xx=xx[] = verwisselen met nummer   .[] = einde programma         -[] = vorige menu";
T2 ;Wijzigen menulijn\"[] = ok   V[] = verwijderen lijn";
T3 ;Het programma;
T4 ;Menu of programma\"[] = programma   .[] = menu;
T5 ;Omschrijving voor het menu\;
T6 ;Omschrijving programma\"[] = ;
T7 ;,[] = hernemen   V[] = DEFINITIEF verwijderen\;
T8 ;   ,[] = firma-selectie;
 ;
T0F ;Gestion du menu ;
T1F ;Numéro desire\"xx[] = numéro   xx=xx[] = changer avec numéro   .[] = fin du programme           -[] = menu précedent";
T2F ;Modifier ligne du menu\"[] = ok   V[] = radier ligne";
T3F ;Programme;
T4F ;Menu ou programme\"[] = programme   .[] = menu;
T5F ;Description pour le menu\;
T6F ;Description du programme\"[] = ;
T7F ;,[] = reprendre   V[] = radier DEFINITIVEMENT\;
T8F ;   ,[] = sélection du firme;
 ;
T0E ;Beheer menu ;
T1E ;Gewenste nummer\"xx[] = nummer   xx=xx[] = verwisselen met nummer   .[] = einde programma         -[] = vorige menu";
T2E ;Wijzigen menulijn\"[] = ok   V[] = verwijderen lijn";
T3E ;Het programma;
T4E ;Menu of programma\"[] = programma   .[] = menu;
T5E ;Omschrijving voor het menu\;
T6E ;Omschrijving programma\"[] = ;
T7E ;,[] = hernemen   V[] = DEFINITIEF verwijderen\;
T8E ;   ,[] = firma-selectie;
 ;
1 S:'$D(OM) OM=0 S:'OM OM=0 S SW=$D(@("^"_Q_"BA(21,0)")) I SW S:$P(^(0),D,2)="" SW=0 S:SW X=^(0)
11 S S=$P($T(@("T0"_QT)),U,2)_@("^"_Q_"BA(""MENU"",OM,0)")
13 S S1=0,S9=$P(S,D,2)*100+$P(S,D,3),S10=$P(S,D)_" "_QN_" ",FP=S9+$L(S10)+1
15 W /CUP(0,0),/cDR(0),/ED,/CUP(FP\100,FP#100)," ",/SGR(27) S FP=S9 W /CUP(FP\100,FP#100),/SGR(7)," ",S10," ",/SGR(27) K S
17 S S1=$O(^(S1)) I S1 S:$P(^(S1),D,8)'="-" S2=^(S1),S($P(S2,D,3)>40*20+$P(S2,D,2)-3)=S2 G 17
19 F S1=1:1:17,21:1:37 S FP=S1*100+303-(S1>20*1960) W /CUP(FP\100,FP#100),$J(S1,2),". " I $D(S(S1)) S S2=S(S1) W $P(S2,D)
 ;
2 S R="S5\22\3\"_$P($T(@("T1"_QT)),U,2)_"\5\\K?1N.N!(K?1N.N1""=""1N.N)!(K=""."")!(K=""-"")" D R0 G 2:K>37!(K>17&(K<21))
21 I K["=" S K=$P(K,"=",2),S5=+S5 G 2:K<1!(S5<1)!(K>37)!(K>17&(K<21))!(S5=K),7
23 I 'K D S1 S OM=$P(S,D,6) G YZ:K=".",YZ:OM="EXIT",1
25 I $D(S(S5)),$P(S(S5),D,9)'="",$P(S(S5),D,9)'=Q G 5 
27 G 52:'$D(S(S5)) S K=S(S5)
29 I $P(K,D,5)="M" D S1 S S=$P(K,D,4) G 2:S<100&S&(QL<9) S OM=$P(K,D,4),S=$P(K,D,9) S:$L(S) Q=S,QN=@("^"_Q_"BA(99,1)") G 1
 ;
5 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""V-""[K" D R0 G 2:K="-",8:K="V"
52 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_$S(SW:$P($T(@("T8"_QT)),U,2),1:"")_"""\1\\""-.""[K!(K="",""&SW)" D R0 G 6:K=".",2:K="-",9:K=","
54 S R="K\2100\"_$P($T(@("T3"_QT)),U,2)_"\MENU\MENU1" D ^cA505 G 2:K="-" S S=^(K,0)
56 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_$P(S,D,2)_"""\34" D R0 G 54:K="-" S:'$L(K) K=$P(S,D,2)
58 S R="\D\\\\\\" S:$D(S(S5)) R=D_$P(S(S5),D,5,99)
59 S S(S5)=K_D_(S5>20*-20+S5+3)_D_(S5>20*40+3)_D_$P(S,D,3)_R,FP=S5*100+307-(S5>20*1960) W /CUP(FP\100,FP#100),$J("",35),/CUP(FP\100,FP#100),K G 2
 ;
6 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\34" D R0 G 2:K="-"
62 S S(S5)=K_D_(S5>20*-20+S5+3)_D_(S5>20*40+3) F K=101:1 Q:'$D(@("^"_Q_"BA(""MENU"",K)"))
64 S S(S5)=S(S5)_D_K_"\M\"_K_"\\\\\"
66 S @("^"_Q_"BA(""MENU"",K,0)")=$P(S(S5),D)_"\2\3\22\3\"_OM D S1 S OM=K G 1
 ;
S1 S S5=0,S6=0,@%Q1=0,S=@("^"_Q_"BA(""MENU"",OM,0)")
S1A S S6=$O(^(S6)) I S6 K:$P(^(S6),D,8)'="-" ^(S6) G S1A
S1B S S5=$O(S(S5)) I S5 S:$P(S(S5),D,3)>40&(S6<20) S6=20 S S6=S6+1,^(S6)=S(S5) G S1B
S1C I '$O(S(0)),$P(^(0),D,6)'="EXIT" K ^(0) S R=@("^"_Q_"BA(""MENU"",$P(S,D,6),0)") F R=1:1:40 I $D(^(R)),$P(^(R),D,4)=OM K ^(R) Q
S1Z S @%Q1=1 Q
 ;
7 S FP=S5*100+307-(S5>20*1960),S="" S:$D(S(S5)) S=S(S5) K S(S5) W /CUP(FP\100,FP#100),$J("",35)
71 I $D(S(K)) W /CUP(FP\100,FP#100),$P(S(K),D) S S(S5)=$P(S(K),D)_D_(S5>20*-20+S5+3)_D_(S5>20*40+3)_D_$P(S(K),D,4,99) K S(K)
73 S:$L(S) S(K)=$P(S,D)_D_(K>20*-20+K+3)_D_(K>20*40+3)_D_$P(S,D,4,99)
75 S FP=K*100+307-(K>20*1960) W /CUP(FP\100,FP#100),$J("",35),/CUP(FP\100,FP#100),$P(S,D) G 2
 ;
8 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\"",-V""[K&$L(K)" D R0
81 I K="V" K S(S5) S FP=S5*100+307-(S5>20*1960) W /CUP(FP\100,FP#100),$J("",35)
83 G 2
 ;
9 D ^cA510 G 2
 ;
YZ G S2^cA510
 ;
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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84