cA510 ;BEHEER MENU ;%A506;Do uit %A506 [ 01/26/95   6:07 PM ]
 ;
T0 ;Beheer menu ;
T1 ;Nummer van de firma;
T2 ;Omschrijving van de firma-selectie\"[] = ;
T3 ;   [] volgende;
T4 ;Deze firma bestaat niet !;
T5 ;Programma's;beheer menu;
 ;
T0F ;Gestion du menu ;
T1F ;Numéro du firme;
T2F ;Description pour la sélection du firme\"[] = ;
T3F ;   [] suivant;
T4F ;Ce firme n'existe pas !;
T5F ;Programmes;gestion menu;
 ;
T0E ;Beheer menu ;
T1E ;Nummer van de firma;
T2E ;Omschrijving van de firma-selectie\"[] = ;
T3E ;   [] volgende;
T4E ;Deze firma bestaat niet !;
T5E ;Programma's;beheer menu;
 ;
1 F I=2:1:$L(X,D)-1 S A2(I-1)=$P(X,D,I)
11 S A3=0,A4=-1,FP=2200 W /CUP(FP\100,FP#100),/ED 
 ;
2 S R="K\24\3\"_$P($T(@("T1"_QT)),U,2)_$S(A3:$P($T(@("T3"_QT)),U,2),1:"")_"\\3\\""-""[K!(K?1N.N)" D R0 S FP=2103 W /CUP(FP\100,FP#100),/ED G 39:K="-",23:$L(K)
21 S A4=$O(A2(A4)) S A3=0 G 2:'A4 W /CUP(FP\100,FP#100),$J(A4,3),"  ",@("^"_A2(A4)_"BA(99,1)") S FP=FP+100 S A3=1 G 21:FP<2300,2
23 S A3=0 I '$D(A2(K)) S K=$P($T(@("T4"_QT)),U,2) X ^cTXT(0,$E(QT_"N"),250) R K G 2
25 S A0=A2(K),A1=@("^"_A0_"BA(99,1)"),R="K\23\3\"_$P($T(@("T2"_QT)),U,2)_A1_"""\34" D R0 G 2:K="-" S:'$L(K) K=A1
27 S S(S5)=K_D_(S5>17*-17+S5+3)_D_(S5>17*40+3)_D_"0\M\0\\\"_A0_D,FP=S5*100+307-(S5>17*1660) W /CUP(FP\100,FP#100),K
29 F K=1:1 Q:'$D(@("^"_Q_"BA(""MENU"",OM,K)"))
 ;
3 S ^(K)=S(S5) I '$D(@("^"_A0_"BA(""MENU"",0,0)")) S @("^"_A0_"BA(""MENU"",0,0)")=$P($T(@("T5"_QT)),U,2)_"\2\3\22\3\EXIT",K=1,A3="\3\3" G 35
31 F K=1:1 Q:'$D(@("^"_A0_"BA(""MENU"",0,K)"))  G 39:$P(@("^"_A0_"BA(""MENU"",0,K)"),D,4)="^cA506"
33 S A3=@("^"_A0_"BA(""MENU"",0,K-1)")
35 S @("^"_A0_"BA(""MENU"",0,K)")=$P($T(@("T5"_QT)),U,3)_D_($P(A3,D,2)+1)_D_$P(A3,D,3)_"\^cA506\D\^cA506\\\\\"
39 K A0,A1,A2,A3,A4 Q
 ;
S3 S K=@("^"_Q_"BA(""MENU"",A1,0)")
S3A F I=1:1:20 S:$E(K,1)?1N K=$E(K,2,999) S:$E(K,1)="." K=$E(K,2,999) I $E(K,1)=" " S K=$E(K,2,999) Q:'K
S3Z S A3=A3_A2_"." S:$P(^(0),D,6)="EXIT" A3="" S ^(0)=A3_$E(" ",1,$L(A3))_K,A2=0,^HULP(boot,$J,0,A1)=1 Q
 ;
S2 K ^HULP(boot,$J) S A1=0,A2=0,A3="",A4=1,^HULP(boot,$J,0,0)=1
S2A S A2=$O(@("^"_Q_"BA(""MENU"",A1,A2)")) G S2Z:'A2 S K=^(A2)
S2B I $P(K,D,5)="M",$P(K,D,9)=""!($P(K,D,9)=Q) S K=$P(K,D,4) I '$D(^HULP(boot,$J,0,K)) S A4=A4+1,^HULP(boot,$J,A4)=A1_D_A2_D_A3,A1=K D S3
S2C G S2A
S2Z S A4=A4-1 I A4>0 S K=^HULP(boot,$J,A4+1),A1=$P(K,D),A2=$P(K,D,2),A3=$P(K,D,3) G S2A
 ;
YZ K ^HULP(boot,$J) 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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84