Last change
on this file since 1005 was 628, checked in by George Lilly, 15 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.