Return to %TUIMENU.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%TUIMENU.m, revision 1.1

1.1     ! snw         1: %TUIMENU ; FREEM MENU HANDLER
        !             2:     Q
        !             3: GO(S,I) ;
        !             4:     N %,C,DS,OPT S (%,OPT)=""
        !             5:     D DISP(S,I)
        !             6: NXT S DS=1 W "Select ",$$G^%DB(S,I,"NAME")," Option//",$$G^%DB(S,I,"DEFAULT")," "
        !             7:     R %
        !             8:     I (%="q")!(%="Q") W " Quit",! Q
        !             9:     I %="?" D DISP(S,I) G NXT
        !            10:     S:%="" %=$$G^%DB(S,I,"DEFAULT"),DS=0
        !            11:     S %=$TR(%,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        !            12:     S:'$D(@S@(I,"OPTS",%)) %=""
        !            13:     I %="" W !,"Invalid selection. Press ? to view all options.",! G NXT
        !            14:     W:DS " " W @S@(I,"OPTS",%)
        !            15:     I ('$D(@S@(I,"ACT",%)))&('$D(@S@(I,"TAG",%))) W !,"No action or tag defined for ",%,".",! G NXT
        !            16:     K %TAG I $D(@S@(I,"TAG",%)) S %TAG=@S@(I,"TAG",%)
        !            17:     I $D(@S@(I,"ACT",%)) S C="D "_@S@(I,"ACT",%) X C K C G NXT
        !            18:     Q
        !            19: DISP(S,I) ;
        !            20:     N % S %=""
        !            21:     W !,$$G^%DB(S,I,"DESC")," - ",$$G^%DB(S,I,"NAME"),!,!
        !            22:     F  S %=$O(@S@(I,"OPTS",%)) Q:%=""  D
        !            23:     . W "  ",%,") ",@S@(I,"OPTS",%),!
        !            24:     W !,"  Q) Quit",!,!
        !            25:     Q
        !            26: