source: FOIAVistA/trunk/r/CLINICAL_CASE_REGISTRIES-ROR/RORTXT.m@ 1407

Last change on this file since 1407 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 932 bytes
Line 
1RORTXT ;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 ;
23TEXT(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.