- XBHEDDM ;402,DJB,10/23/91,EDD - Menu Driver
- ;;2.6;IHS UTILITIES;;JUN 28, 1993
- ;;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
- XBHEDDM ;402,DJB,10/23/91,EDD - Menu Driver
- +1 ;;2.6;IHS UTILITIES;;JUN 28, 1993
- +2 ;;David Bolduc - Togus ME
- EN ;Entry Point
- +1 DO HD
- +2 IF FLAGP
- FOR I=1,8,2,9,3,10,4,11,5,12,6,13,7
- SET X=$TEXT(OPT+I)
- IF X=""
- QUIT
- WRITE @$SELECT(I<8:"!?7",1:"?41"),$SELECT(I=5:"*",I=9:"*",I=12:"*",1:" "),$JUSTIFY(I,2)_") ",$PIECE(X,";",3)
- +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
- +4 IF '$TEST
- FOR I=1,8,2,9,3,10,4,11,5,12,6,13,7
- SET X=$TEXT(OPT+I)
- IF X=""
- QUIT
- WRITE @$SELECT(I<8:"!?7",1:"?41"),$JUSTIFY(I,2)_") ",$PIECE(X,";",3)
- +5 ;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
- +6 WRITE !
- B READ !?8,"Select OPTION: ",O:DTIME
- IF '$TEST
- SET O="^^"
- IF "^"[O
- SET FLAGM=1
- GOTO EX
- +1 IF O="^^"
- SET FLAGE=1
- GOTO EX
- +2 IF O?1.N
- IF O>0
- IF O<14
- IF $TEXT(OPT+O)'=""
- GOTO C
- +3 IF O'?1.N
- DO ALLCAPS
- FOR I=1:1
- SET X=$PIECE($TEXT(OPT+I),";",5)
- IF X=""
- QUIT
- IF $EXTRACT(X,1,$LENGTH(O))=O
- WRITE $EXTRACT(X,$LENGTH(O)+1,80)
- SET O=I
- GOTO C
- +4 WRITE *7,?30,"Enter Option number or name."
- GOTO B
- C ;FLAGG indicates no Groups or no Pointers.
- SET X=$TEXT(OPT+O)
- DO @$PIECE(X,";",4)
- IF FLAGG
- SET FLAGG=0
- GOTO B
- EX KILL I,X,Y,ZHDR
- QUIT
- ALLCAPS ;
- +1 FOR %=1:1:$LENGTH(O)
- IF $EXTRACT(O,%)?1L
- SET O=$EXTRACT(O,0,%-1)_$CHAR($ASCII(O,%)-32)_$EXTRACT(O,%+1,999)
- +2 QUIT
- HD ;
- +1 SET ZHDR="M A I N M E N U"
- WRITE !?(IOM-$LENGTH(ZHDR)\2),ZHDR
- IF FLAGP
- WRITE ?57,"[*=Opts not printable]"
- +2 WRITE !
- QUIT
- OPT ;MENU OPTIONS
- +1 ;;Cross References;XREF^XBHEDD6;CROSS REFERENCES
- +2 ;;Pointers TO This File;PT^XBHEDD6;POINTERS
- +3 ;;Pointers FROM This File;PT^XBHEDD10;POINTERS FROM THIS FILE
- +4 ;;Groups;GRP^XBHEDD6;GROUPS
- +5 ;;Trace a Field;EN^XBHEDD8;TRACE A FIELD
- +6 ;;Individual Fld Summary;^XBHEDD3;INDIVIDUAL FIELD SUMMARY
- +7 ;;Field Global Location;EN^XBHEDD1;FIELD GLOBAL LOCATION
- +8 ;;Templates;EN^XBHEDD11;TEMPLATES
- +9 ;;File Description;DES^XBHEDD11;FILE DESCRIPTION
- +10 ;;Globals in ASCII Order;GL^XBHEDD10;LIST GLOBALS IN ASCII ORDER
- +11 ;;File Characteristics;CHAR^XBHEDD12;FILE CHARACTERISTICS
- +12 ;;Printing-On/Off;PRINTM^XBHEDD7;PRINTING - ON/OFF
- +13 ;;Help;^XBHEDDH1;HELP
