Global: ^RAMIS(71.4

Information

FileMan FileNo	FileMan Filename	Package
71.4	RAD/NUC MED PROCEDURE MESSAGE	Radiology Nuclear Medicine

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.

Package	Total	Routines
Radiology Nuclear Medicine	2	RAMAIN RAMAINP

Package	Total	FileMan Files
Radiology Nuclear Medicine	2	RAD/NUC MED PROCEDURES(#71)[#71.04(.01)] NEW RAD PROCEDURE WORKUP(#71.11)[#71.12(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TEXT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`

TEXT

0;1

FREE TEXT

************************REQUIRED FIELD************************

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.