VistA-IHS-VA_UTILITIES-XB/XBHEDDM.m

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