|
Last change
on this file since 808 was 642, checked in by Sam Habiel, 15 years ago |
|
Modified directory structure; moved routines.
|
|
File size:
902 bytes
|
| Rev | Line | |
|---|
| [641] | 1 | XBHELP ; 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 | ;
|
|---|
| 22 | HELP(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.
