source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSADH3.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
RevLine 
[613]1GMTSADH3 ; SLC/JER,KER - Ad Hoc Summary Driver - Help ; 02/27/2002
2 ;;2.7;Health Summary;**49**;Oct 20, 1995
3 ;
4 ; External References
5 ; DBIA 10026 ^DIR
6 ; DBIA 10102 DISP^XQORM1
7 ;
8HELP ; Help at Select Additional or Existing COMPONENT(S): prompt
9 N GMJ,GMTSTXT,HLP
10 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)
11 I X="???" W !! D HELP2^GMTSUP1
12 D REDISP
13 Q
14REDISP ; Ask Whether or not to redisplay menu
15 N I,DIR,X,Y S DIR(0)="Y",DIR("A")="Redisplay items",DIR("B")="YES" D ^DIR Q:'Y
16 W @IOF D DISP^XQORM1 W !
17 Q
18HTX1 ;;Help Text for "?"
19 ;;NOTE: At this point, any selections made are added to the list of
20 ;; previous selections. Any exceptions (-THIS, -THAT) DO NOT REMOVE
21 ;; components from previous selections. Exceptions only apply to the
22 ;; selections you are about to make.
23 ;;
24 ;;Select ONE or MORE items from the menu, separated by commas.
25 ;;
26 ;;Enter: ?? to see HELP for MULTIPLE SELECTION
27 ;; ??? to see HELP for "^^"-jump
28 ;;
29 ;;ZZZZ
30HTX2 ;;Help Text for "??"
31 ;;NOTE: At this point, any selections made are added to the list of
32 ;; previous selections. Any exceptions (-THIS, -THAT) DO NOT REMOVE
33 ;; components from previous selections. Exceptions only apply to the
34 ;; selections you are about to make.
35 ;;
36 ;;Select ONE or MORE items from the menu, separated by commas.
37 ;;
38 ;;ALL items may be selected by typing "ALL".
39 ;;
40 ;;EXCEPTIONS may be entered by preceding them with a minus.
41 ;; For example, "ALL,-THIS,-THAT" selects all but "THIS" and "THAT".
42 ;;
43 ;;NOTE: Menu items are ordered alphabetically by the Component NAME.
44 ;; However, the displayed text is the Header Name which generally
45 ;; is different from the Component Name. Component may be picked
46 ;; by their abbreviation, Header Name or Component Name.
47 ;;
48 ;;ZZZZ
Note: See TracBrowser for help on using the repository browser.