STANDARD DATA DICTIONARY #71.4 -- RAD/NUC MED PROCEDURE MESSAGE FILE                                              9/29/25    PAGE 1
STORED IN ^RAMIS(71.4,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                      (VERSION 5.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains messages concerning special requirements when ordering a procedure.  One or more of these messages can be tied
to a procedure in the Rad/Nuc Med Procedures file (#71) so that they are displayed to a requestor at the time an order is placed.  
 
 Data Storage 
 ------------
 The data for the 'RAD/NUC MED PROCEDURE MESSAGE' file is stored in the ^RAMIS(71.4, global.  
 
 Templates 
 ---------
 The package does not use any input, print or sort templates associated with this file.  


IDENTIFIED BY: 
      "WRITE": N RA714 S RA714=$P(^(0),"^"),RA714(1)=$E(RA714,31,999),RA714(1,"F")="?0",RA714(2)=" " D:$G(DZ)["?" EN^DDIOL(.RA714)

POINTED TO BY: MESSAGE field (#.01) of the MESSAGE sub-field (#71.04) of the RAD/NUC MED PROCEDURES File (#71) 
               MESSAGE field (#.01) of the MESSAGE sub-field (#71.12) of the NEW RAD PROCEDURE WORKUP File (#71.11) 
               

CROSS
REFERENCED BY: TEXT(B)



71.4,.01      TEXT                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>240!($L(X)<3)!'(X'?1P.E) X
              HELP-PROMPT:      Message can be 3-240 characters in length. It cannot be preceded with punctuation. 
              DESCRIPTION:      This field contains messages concerning special requirements when ordering a procedure.  One or
                                more of these messages can be tied to a procedure in the RAD/NUC MED PROCEDURES file (#71). 
                                Messages cannot begin with punctuation marks.  

              DELETE TEST:      1,0)= I $G(DUZ(0))'="@"

              CROSS-REFERENCE:  71.4^B 
                                1)= S ^RAMIS(71.4,"B",$E(X,1,30),DA)=""
                                2)= K ^RAMIS(71.4,"B",$E(X,1,30),DA)
                                     Regular 'B' cross reference assigned by FileMan.  




INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):