source: IHS-VA_UTILITIES-XB/trunk/XBHELP.m@ 1545

Last change on this file since 1545 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 902 bytes
Line 
1XBHELP ; IHS/ADC/GTH - DISPLAY HELP TEXT FROM ROUTINE ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; Display text from the named routine, beginning at the
5 ; named label. The fourth semi-colon piece is displayed.
6 ; If the third semi-colon piece is "@", the indirection
7 ; of the fourth semi-colon piece is written. The display
8 ; ends if null or "###" is returned.
9 ;
10 ; E.g:
11 ;
12 ; D HELP^XBHELP("LABEL","ROUTINE",0) will print the text
13 ; after LABEL:
14 ;
15 ; ROUTINE ;
16 ; LABEL ;
17 ; ;;Please enter what I think you should enter.
18 ; ;;@;*7
19 ; ;;@;!
20 ; ;;###
21 ;
22HELP(L,R,T) ;PEP - Display text at label L, routine R, tab T spaces (default 4).
23 Q:$D(ZTQUEUED)
24 S:$G(T)'?1.N T=4
25 NEW X
26 W !
27 F %=1:1 S X=$T(@L+%^@R) Q:($P(X,";",3)="###")!(X="") D
28 . I $P(X,";",3)="@" W @($P(X,";",4)) Q
29 . W !?T,$P(X,";",3)
30 .Q
31 Q
32 ;
Note: See TracBrowser for help on using the repository browser.