GMTSADH3.m

GMTSADH3 ; SLC/JER,KER - Ad Hoc Summary Driver - Help ; 02/27/2002

 ;;2.7;Health Summary;**49**;Oct 20, 1995

 ;                

 ; External References

 ;   DBIA 10026  ^DIR

 ;   DBIA 10102  DISP^XQORM1

 ;                    

HELP ; Help at Select Additional or Existing COMPONENT(S): prompt

 N GMJ,GMTSTXT,HLP

 S HLP=$S(X="??":"HTX2",X="?":"HTX1",1:"") I $L(HLP) W ! F GMJ=1:1 S GMTSTXT=$T(@HLP+GMJ) Q:GMTSTXT["ZZZZ"  W !,$P(GMTSTXT,";",3,99)

 I X="???" W !! D HELP2^GMTSUP1

 D REDISP

 Q

REDISP ; Ask Whether or not to redisplay menu

 N I,DIR,X,Y S DIR(0)="Y",DIR("A")="Redisplay items",DIR("B")="YES" D ^DIR Q:'Y

 W @IOF D DISP^XQORM1 W !

 Q

HTX1 ;;Help Text for "?"

 ;;NOTE: At this point, any selections made are added to the list of

 ;;      previous selections.  Any exceptions (-THIS, -THAT) DO NOT REMOVE

 ;;      components from previous selections.  Exceptions only apply to the

 ;;      selections you are about to make.

 ;;

 ;;Select ONE or MORE items from the menu, separated by commas.

 ;;

 ;;Enter: ??  to see HELP for MULTIPLE SELECTION

 ;;       ??? to see HELP for "^^"-jump

 ;;

 ;;ZZZZ

HTX2 ;;Help Text for "??"

 ;;NOTE: At this point, any selections made are added to the list of

 ;;      previous selections.  Any exceptions (-THIS, -THAT) DO NOT REMOVE

 ;;      components from previous selections.  Exceptions only apply to the

 ;;      selections you are about to make.

 ;;

 ;;Select ONE or MORE items from the menu, separated by commas.

 ;;

 ;;ALL items may be selected by typing "ALL".

 ;;

 ;;EXCEPTIONS may be entered by preceding them with a minus.

 ;;  For example, "ALL,-THIS,-THAT" selects all but "THIS" and "THAT".

 ;;

 ;;NOTE: Menu items are ordered alphabetically by the Component NAME.

 ;;      However, the displayed text is the Header Name which generally 

 ;;      is different from the Component Name. Component may be picked

 ;;      by their abbreviation, Header Name or Component Name.

 ;;

 ;;ZZZZ

GMTSADH3  ; SLC/JER,KER - Ad Hoc Summary Driver - Help ; 02/27/2002

 +1       ;;2.7;Health Summary;**49**;Oct 20, 1995

 +2       ;                

 +3       ; External References

 +4       ;   DBIA 10026  ^DIR

 +5       ;   DBIA 10102  DISP^XQORM1

 +6       ;                    

HELP      ; Help at Select Additional or Existing COMPONENT(S): prompt

 +1        NEW GMJ,GMTSTXT,HLP

 +2        SET HLP=$SELECT(X="??":"HTX2",X="?":"HTX1",1:"")

           IF $LENGTH(HLP)

               WRITE !

               FOR GMJ=1:1

                   SET GMTSTXT=$TEXT(@HLP+GMJ)

                   IF GMTSTXT["ZZZZ"

                       QUIT 

                   WRITE !,$PIECE(GMTSTXT,";",3,99)

 +3        IF X="???"

               WRITE !!

               DO HELP2^GMTSUP1

 +4        DO REDISP

 +5        QUIT 

REDISP    ; Ask Whether or not to redisplay menu

 +1        NEW I,DIR,X,Y

           SET DIR(0)="Y"

           SET DIR("A")="Redisplay items"

           SET DIR("B")="YES"

           DO ^DIR

           IF 'Y

               QUIT 

 +2        WRITE @IOF

           DO DISP^XQORM1

           WRITE !

 +3        QUIT 

HTX1      ;;Help Text for "?"

 +1       ;;NOTE: At this point, any selections made are added to the list of

 +2       ;;      previous selections.  Any exceptions (-THIS, -THAT) DO NOT REMOVE

 +3       ;;      components from previous selections.  Exceptions only apply to the

 +4       ;;      selections you are about to make.

 +5       ;;

 +6       ;;Select ONE or MORE items from the menu, separated by commas.

 +7       ;;

 +8       ;;Enter: ??  to see HELP for MULTIPLE SELECTION

 +9       ;;       ??? to see HELP for "^^"-jump

 +10      ;;

 +11      ;;ZZZZ

HTX2      ;;Help Text for "??"

 +1       ;;NOTE: At this point, any selections made are added to the list of

 +2       ;;      previous selections.  Any exceptions (-THIS, -THAT) DO NOT REMOVE

 +3       ;;      components from previous selections.  Exceptions only apply to the

 +4       ;;      selections you are about to make.

 +5       ;;

 +6       ;;Select ONE or MORE items from the menu, separated by commas.

 +7       ;;

 +8       ;;ALL items may be selected by typing "ALL".

 +9       ;;

 +10      ;;EXCEPTIONS may be entered by preceding them with a minus.

 +11      ;;  For example, "ALL,-THIS,-THAT" selects all but "THIS" and "THAT".

 +12      ;;

 +13      ;;NOTE: Menu items are ordered alphabetically by the Component NAME.

 +14      ;;      However, the displayed text is the Header Name which generally 

 +15      ;;      is different from the Component Name. Component may be picked

 +16      ;;      by their abbreviation, Header Name or Component Name.

 +17      ;;

 +18      ;;ZZZZ