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