cA507 ;MENU ;%A507; [ 01/03/01  4:59 PM ]
 G 1
 ;
T0 ;Menu ;
T2 ;Blz :;
 ;
T0F ;Menu ;
T2F ;Page:;
 ;
T0E ;Menu ;
T2E ;Page:;
 ;
S1 S S1=$J(S1,2)_". "_$P(^(S1),D),$P(S1,"-",40)=""
 W ?X,$E(S1,1,38) Q
 ;
1 S NM1=QN,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) G 19:'QP
11 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
15 D ^cAN3223("","1#9") I K="-" G YZ
19 K ^HULP(boot,$J),K S I=0,S(I)=0,BLZ=0,I1=-1 X F70 W @F80
 ;
2 S I=""
21 S I=$O(S(I)) I I'="" G 21:S(I) S S(I)=1,K=@("^"_Q_"BA(""MENU"",I,0)") G 3
23 D 8 W !," M E N U",!,@F81,! S I1=0,I2=0,I3=0,I4=0
24 S I=$O(^HULP(boot,$J,0,I)) I 'I W @F83,$$FF^cA334 X F71 G YZ
25 W ! S X=0,S1=I,A1=$P(^(I),D,4) D S1
26 S I1=$O(^HULP(boot,$J,A1,I1)) G 24:I1="" S X=40,S1=I1,A2=$P(^(I1),D,4) D S1
27 S I2=$O(^HULP(boot,$J,A2,I2)) W:I2="" ! G 26:I2="" S X=80,S1=I2,A3=$P(^(I2),D,4) D S1
28 S I3=$O(^HULP(boot,$J,A3,I3)) W:I3="" ! G 27:I3="" S X=120,S1=I3,A4=$P(^(I3),D,4) D S1
29 S I4=$O(^HULP(boot,$J,A4,I4)) W:I4="" ! G 28:I4="" S X=160,S1=I4 D S1 W ! G 29
 ;
3 D 8 F X=1:1:24 W ! D 9
31 W $$FF^cA334 G 2
 ;
8 S BLZ=BLZ+1 W !,NM1,?72,$P($T(@("T2"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334,?72,DT,!,NM3,?73,TD,!!! Q
 ;
9 S I1=$O(@("^"_Q_"BA(""MENU"",I,I1)")) Q:I1=""  S K=^(I1) G 9:$L($P(K,D,8)),9:$P(K,D,2)'=X
91 W $$CR^cA334,?$P(K,D,3) W:I1 $J(I1,2),"."
 I $L($P(K,D,QTU-1*10+1)) S $P(K,D)=$P(K,D,QTU-1*10+1)
 W " ",$P(K,D)
93 I $P(K,D,5)="M",'$D(S($P(K,D,4))),$P(K,D,9)=Q!'$L($P(K,D,9)) S S($P(K,D,4))=0,^HULP(boot,$J,I,I1)=K
95 G 9
 ;
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
 ;
R9 S QPT=$T(+0) D ^cA109
R9Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84