|
Last change
on this file since 1053 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
932 bytes
|
| Line | |
|---|
| 1 | RORTXT ;HCIOFO/SG - TEXT RESOURCE UTILITIES ; 12/13/02 11:15am
|
|---|
| 2 | ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
|
|---|
| 3 | ;
|
|---|
| 4 | ;***** RETURNS THE TEXT RESOURCE
|
|---|
| 5 | ;
|
|---|
| 6 | ; DIALOG Dialog number (in the DIALOG file)
|
|---|
| 7 | ;
|
|---|
| 8 | ; .RORDST Reference to a local variable where the text
|
|---|
| 9 | ; will be stored.
|
|---|
| 10 | ;
|
|---|
| 11 | ; [FLAGS] Flags that define the mode of execution
|
|---|
| 12 | ;
|
|---|
| 13 | ; A Append the text to the content of RORDST.
|
|---|
| 14 | ;
|
|---|
| 15 | ; S Suppress the blank line that is normally
|
|---|
| 16 | ; inserted between discrete blocks of text
|
|---|
| 17 | ; (in Append mode).
|
|---|
| 18 | ;
|
|---|
| 19 | ; F Format the local array similar to the default
|
|---|
| 20 | ; output format of the ^TMP global (see the
|
|---|
| 21 | ; BLD^DIALOG documentation for more detailes).
|
|---|
| 22 | ;
|
|---|
| 23 | TEXT(DIALOG,RORDST,FLAGS) ;
|
|---|
| 24 | N DIERR,DIHELP,DIMSG
|
|---|
| 25 | K:'($G(FLAGS)["A") RORDST
|
|---|
| 26 | D BLD^DIALOG(DIALOG,,,"RORDST",$TR($G(FLAGS),"A"))
|
|---|
| 27 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
