38 lines
1.9 KiB
Mathematica
38 lines
1.9 KiB
Mathematica
XBHEDDM ;402,DJB,10/23/91,EDD - Menu Driver
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
|
;;David Bolduc - Togus ME
|
|
EN ;Entry Point
|
|
D HD
|
|
I FLAGP F I=1,8,2,9,3,10,4,11,5,12,6,13,7 S X=$T(OPT+I) Q:X="" W @$S(I<8:"!?7",1:"?41"),$S(I=5:"*",I=9:"*",I=12:"*",1:" "),$J(I,2)_") ",$P(X,";",3)
|
|
;I FLAGP F I=1,6,11,2,7,12,3,8,13,4,9,5,10 S X=$T(OPT+I) Q:X="" W @$S(I<6:"!",I<11:"?29",1:"?58"),$S(I=5:"*",I=9:"*",I=12:"*",1:" "),$J(I,2)_") ",$P(X,";",3) ;3 Columns
|
|
E F I=1,8,2,9,3,10,4,11,5,12,6,13,7 S X=$T(OPT+I) Q:X="" W @$S(I<8:"!?7",1:"?41"),$J(I,2)_") ",$P(X,";",3)
|
|
;E F I=1,6,11,2,7,12,3,8,13,4,9,5,10 S X=$T(OPT+I) Q:X="" W @$S(I<6:"!",I<11:"?29",1:"?58"),$J(I,2)_") ",$P(X,";",3) ;3 Columns
|
|
W !
|
|
B R !?8,"Select OPTION: ",O:DTIME S:'$T O="^^" I "^"[O S FLAGM=1 G EX
|
|
I O="^^" S FLAGE=1 G EX
|
|
I O?1.N,O>0,O<14,$T(OPT+O)'="" G C
|
|
I O'?1.N D ALLCAPS F I=1:1 S X=$P($T(OPT+I),";",5) Q:X="" I $E(X,1,$L(O))=O W $E(X,$L(O)+1,80) S O=I G C
|
|
W *7,?30,"Enter Option number or name." G B
|
|
C S X=$T(OPT+O) D @$P(X,";",4) I FLAGG S FLAGG=0 G B ;FLAGG indicates no Groups or no Pointers.
|
|
EX K I,X,Y,ZHDR Q
|
|
ALLCAPS ;
|
|
F %=1:1:$L(O) S:$E(O,%)?1L O=$E(O,0,%-1)_$C($A(O,%)-32)_$E(O,%+1,999)
|
|
Q
|
|
HD ;
|
|
S ZHDR="M A I N M E N U" W !?(IOM-$L(ZHDR)\2),ZHDR W:FLAGP ?57,"[*=Opts not printable]"
|
|
W ! Q
|
|
OPT ;MENU OPTIONS
|
|
;;Cross References;XREF^XBHEDD6;CROSS REFERENCES
|
|
;;Pointers TO This File;PT^XBHEDD6;POINTERS
|
|
;;Pointers FROM This File;PT^XBHEDD10;POINTERS FROM THIS FILE
|
|
;;Groups;GRP^XBHEDD6;GROUPS
|
|
;;Trace a Field;EN^XBHEDD8;TRACE A FIELD
|
|
;;Individual Fld Summary;^XBHEDD3;INDIVIDUAL FIELD SUMMARY
|
|
;;Field Global Location;EN^XBHEDD1;FIELD GLOBAL LOCATION
|
|
;;Templates;EN^XBHEDD11;TEMPLATES
|
|
;;File Description;DES^XBHEDD11;FILE DESCRIPTION
|
|
;;Globals in ASCII Order;GL^XBHEDD10;LIST GLOBALS IN ASCII ORDER
|
|
;;File Characteristics;CHAR^XBHEDD12;FILE CHARACTERISTICS
|
|
;;Printing-On/Off;PRINTM^XBHEDD7;PRINTING - ON/OFF
|
|
;;Help;^XBHEDDH1;HELP
|