RORTXT ;HCIOFO/SG - TEXT RESOURCE UTILITIES ; 12/13/02 11:15am
;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
;
;***** RETURNS THE TEXT RESOURCE
;
; DIALOG Dialog number (in the DIALOG file)
;
; .RORDST Reference to a local variable where the text
; will be stored.
;
; [FLAGS] Flags that define the mode of execution
;
; A Append the text to the content of RORDST.
;
; S Suppress the blank line that is normally
; inserted between discrete blocks of text
; (in Append mode).
;
; F Format the local array similar to the default
; output format of the ^TMP global (see the
; BLD^DIALOG documentation for more detailes).
;
TEXT(DIALOG,RORDST,FLAGS) ;
N DIERR,DIHELP,DIMSG
K:'($G(FLAGS)["A") RORDST
D BLD^DIALOG(DIALOG,,,"RORDST",$TR($G(FLAGS),"A"))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORTXT 959 printed Dec 13, 2024@01:43:37 Page 2
RORTXT ;HCIOFO/SG - TEXT RESOURCE UTILITIES ; 12/13/02 11:15am
+1 ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
+2 ;
+3 ;***** RETURNS THE TEXT RESOURCE
+4 ;
+5 ; DIALOG Dialog number (in the DIALOG file)
+6 ;
+7 ; .RORDST Reference to a local variable where the text
+8 ; will be stored.
+9 ;
+10 ; [FLAGS] Flags that define the mode of execution
+11 ;
+12 ; A Append the text to the content of RORDST.
+13 ;
+14 ; S Suppress the blank line that is normally
+15 ; inserted between discrete blocks of text
+16 ; (in Append mode).
+17 ;
+18 ; F Format the local array similar to the default
+19 ; output format of the ^TMP global (see the
+20 ; BLD^DIALOG documentation for more detailes).
+21 ;
TEXT(DIALOG,RORDST,FLAGS) ;
+1 NEW DIERR,DIHELP,DIMSG
+2 if '($GET(FLAGS)["A")
KILL RORDST
+3 DO BLD^DIALOG(DIALOG,,,"RORDST",$TRANSLATE($GET(FLAGS),"A"))
+4 QUIT
