Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
932 bytes
|
Rev | Line | |
---|
[628] | 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.