STANDARD DATA DICTIONARY #71.3 -- RAD/NUC MED COMMON PROCEDURE FILE 3/24/25 PAGE 1
STORED IN ^RAMIS(71.3, *** 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 the procedures used in the display of common procedures when requesting a procedure. Up to 40 active common
procedures are allowed per imaging type. Active common procedures have a sequence number that determines their display order on
the common procedure selection screen.
CROSS
REFERENCED BY: SEQUENCE NUMBER(AA), PROCEDURE(AD), PROCEDURE(AE), PROCEDURE(B)
LAST MODIFIED: AUG 27,2019@09:02:08
71.3,.01 PROCEDURE 0;1 POINTER TO RAD/NUC MED PROCEDURES FILE (#71) (Required)
INPUT TRANSFORM: S DIC("S")="I $$EN1^RADD2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) EN6^RAUTL17($P($G(^RAMIS(
71,X,0)),U,12),X)
9.2 = D EN^DDIOL("`"_$P($G(^RAMIS(71,+X,0)),"^")_"' already exists as a Common Procedure.")
LAST EDITED: APR 18, 2019
HELP-PROMPT: Enter a procedure name.
DESCRIPTION:
This field is an "active" entry from your RAD/NUC MED PROCEDURES file (#71).
SCREEN: S DIC("S")="I $$EN1^RADD2(Y)"
EXPLANATION: Only active of like i-type non-parents -or- active of like i-type parents with one or more descenda
nts
LAYGO TEST: 1,0)= I $$EN713^RAUTL17(X)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 71.3^B
1)= S ^RAMIS(71.3,"B",$E(X,1,30),DA)=""
2)= K ^RAMIS(71.3,"B",$E(X,1,30),DA)
Regular 'B' cross reference assigned by FileMan.
CROSS-REFERENCE: 71.3^AD^MUMPS
1)= S:$P(^RAMIS(71.3,DA,0),U,3)]"" ^RAMIS(71.3,"AC",$P(^(0),U,3),$E(X,1,30),DA)=""
2)= K:$P(^RAMIS(71.3,DA,0),U,3)]"" ^RAMIS(71.3,"AC",$P(^(0),U,3),$E(X,1,30),DA)
Used to look-up common procedures by procedure name.
CROSS-REFERENCE: 71.3^AE^MUMPS
1)= D EN5^RAUTL17(DA,$$EN3^RAUTL17(X),$P($G(^RAMIS(71.3,DA,0)),U,4),"S")
2)= D EN5^RAUTL17(DA,$$EN3^RAUTL17(X),$P($G(^RAMIS(71.3,DA,0)),U,4),"K")
3)= Do not delete.
This cross-reference updates the 'AA' cross-reference when the procedure changes. It sets/kills
the following node: ^RAMIS(71.3,"AA",Imaging_Type_IEN,Sequence_Number,DA)
71.3,3 SEQUENCE NUMBER 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N)!($D(^RAMIS(71.3,"AA",$$EN3^RAUTL17($P($G(^RAMIS(71.3,D0,0)),U))
,X))) X
LAST EDITED: OCT 11, 1994
HELP-PROMPT: Type a Number between 1 and 40, 0 Decimal Digits. Must be UNIQUE!
DESCRIPTION: This is a unique number that puts a procedure on the common procedure display and allows selection
by this number.
EXECUTABLE HELP: D EN3^RAUTL18(+$G(DA))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the INACTIVE field of the RAD/NUC MED COMMON PROCEDURE File
CROSS-REFERENCE: 71.3^AA^MUMPS
1)= D EN5^RAUTL17(DA,$$EN3^RAUTL17($P($G(^RAMIS(71.3,DA,0)),U)),X,"S")
2)= D EN5^RAUTL17(DA,$$EN3^RAUTL17($P($G(^RAMIS(71.3,DA,0)),U)),X,"K")
3)= Do not delete.
Used for the generation of the common procedure list. Only active procedures have the "AA"
X-reference set. Sets/kills the following node:
^RAMIS(71.3,"AA",Imaging_Type_IEN,Sequence_Number,DA)
71.3,4 INACTIVE 0;5 SET
'Y' FOR yes;
LAST EDITED: MAR 13, 1990
HELP-PROMPT: Enter 'Y'es if you do not want this procedure displayed during order entry.
DESCRIPTION: This field should be answered 'yes' if you do not want the procedure to show up on display during
order entry.
DELETE TEST: 1,0)= I $$REACMMN^RADD3(.DA)
CROSS-REFERENCE: ^^TRIGGER^71.3^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAMIS(71.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y S X="" X ^DD(71.3,4,1,1,1.4)
1.4)= S DIH=$S($D(^RAMIS(71.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=71.3,DIG=3 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAMIS(71.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y S X="" X ^DD(71.3,4,1,1,2.4)
2.4)= S DIH=$S($D(^RAMIS(71.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=71.3,DIG=3 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
3)= Do not delete.
CREATE VALUE)= ""
DELETE VALUE)= ""
FIELD)= SE
Deletes the 'AA' cross reference when the 'Inactive' field is set to 'Yes'.
71.3,6 CATEGORY OF EXAM 0;6 SET
'I' FOR INPATIENT;
'O' FOR OUTPATIENT;
'C' FOR CONTRACT;
'S' FOR SHARING;
'E' FOR EMPLOYEE;
'R' FOR RESEARCH;
LAST EDITED: MAY 07, 1991
HELP-PROMPT: If an entry is not made for this field, the category of 'Inpatient' will automatically be entered
for each request generated from the protocol that is built for this procedure.
DESCRIPTION: This field contains a category for this procedure of 'I' for inpatient, 'O' for outpatient, 'C' for
Contract, 'S' for sharing, 'E' for employee, or 'R' for research. If an entry is not made for this
field, the category of 'Inpatient' will be automatically entered for each request generated from
the protocal that is built for this procedure.
71.3,7 REQUESTED DATE 0;7 SET
'TODAY' FOR TODAY;
'TODAY+1' FOR TOMORROW;
LAST EDITED: MAY 08, 1991
HELP-PROMPT: If an entry is not made in this field, the date of today (TODAY) will automatically be entered for
each request generated from the protocol that is built for this procedure.
DESCRIPTION: Enter the date on which you would like the exam done. This field should not be interpreted as an
appointment date.
71.3,8 IMAGING LOCATION 0;8 POINTER TO IMAGING LOCATIONS FILE (#79.1) (Required)
INPUT TRANSFORM: S DIC("S")="I $$SUBMITQ^RAUTL13(DA,+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 29, 1994
HELP-PROMPT: Enter the imaging location for this procedure.
DESCRIPTION: This field contains the imaging location for this procedure. Only an imaging location is
selectable. The procedure request will be printed at this location.
SCREEN: S DIC("S")="I $$SUBMITQ^RAUTL13(DA,+Y)"
EXPLANATION: The imaging type of the procedure and the imaging type of the location must be the same.
71.3,9 MODE OF TRANSPORT 0;9 SET
'a' FOR AMBULATORY;
'p' FOR PORTABLE;
's' FOR STRETCHER;
'w' FOR WHEEL CHAIR;
LAST EDITED: MAY 07, 1991
HELP-PROMPT: If an entry is not made in this field, the mode of transport of 'ambulatory' will automatically be
entered for each request generated from the protocol that is built for this procedure.
DESCRIPTION: Enter the mode of transport, 'a' for ambulatory, 'p' for portable, 's' for stretcher, and 'w' for
wheelchair.
71.3,10 ISOLATION PROCEDURES 0;10 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: MAY 07, 1991
HELP-PROMPT: If an entry is not made in this field, a value of 'NO' (isolation procedures not required) will
automatically be entered for each request generated from the protocol that is built for this
procedure.
DESCRIPTION:
Enter 'y'es if isolation procedures are required for this procedure.
71.3,11 REQUEST URGENCY 0;11 SET
'1' FOR STAT;
'2' FOR URGENT;
'9' FOR ROUTINE;
LAST EDITED: MAY 07, 1991
HELP-PROMPT: If an entry is not made in this field, a request urgency of 'ROUTINE' will automatically be entered
for each request generated from the protocol that is built for this procedure.
DESCRIPTION:
Enter the urgency of this request.
71.3,12 PROCEDURE MODIFIERS M;0 POINTER Multiple #71.312
LAST EDITED: AUG 06, 1999
DESCRIPTION: This field identifies the Procedure Modifiers that are associated with this Common Procedure.
Common Procedures may have more than one Procedure Modifier association.
71.312,.01 PROCEDURE MODIFIERS 0;1 POINTER TO PROCEDURE MODIFIERS FILE (#71.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="N RASERIES I $D(^RAMIS(71.2,""AB"",(+$$ITYPE^RASITE(+$P($G(^RAMIS(71.3,D0,0)),U))),+Y))
,$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 06, 1999
HELP-PROMPT: This multiple field is used to associate one or more rad/nuc med Procedure Modifiers with the
procedure being ordered.
DESCRIPTION:
Enter the Procedure modifier(s) associated with this procedure.
SCREEN: S DIC("S")="N RASERIES I $D(^RAMIS(71.2,""AB"",(+$$ITYPE^RASITE(+$P($G(^RAMIS(71.3,D0,0)),U))),+Y))
,$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""":1,1:0)"
EXPLANATION: Only Procedure Modifiers associated with the imaging type may be selected. In addition, if the proc
edure is 'SERIES', it must not have AMIS CREDIT INDICATOR
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:71.312^B
1)= S ^RAMIS(71.3,DA(1),"M","B",$E(X,1,30),DA)=""
2)= K ^RAMIS(71.3,DA(1),"M","B",$E(X,1,30),DA)
Regular filewide 'B' cross reference assigned by FileMan.
71.3,13 NAME OF ORDERABLE ITEM 0;13 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>63!($L(X)<3) X I $D(X) D UPPER^RAUTL4 I $D(^ORD(101,"C",Y)) W !,"An item with this name alr
eady exists in file 101." K X
LAST EDITED: MAY 09, 1991
HELP-PROMPT: Answer must be 3-63 characters in length.
DESCRIPTION: This is the name (menu text) that the person ordering this procedure will see when they are placing
orders in the OE/RR package.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
IMAGING LOCATIONS (#79.1) IMAGING LOCATION (#8)
PROCEDURE MODIFIERS (#71.2) PROCEDURE MODIFIERS:PROCEDURE MODIFIERS (#.01)
RAD/NUC MED PROCEDURES (#71) PROCEDURE (#.01)
INPUT TEMPLATE(S):
RA COMMON PROCEDURE EDIT MAY 22, 1997@13:23 USER #0
This template is used to set up and change the common procedure display
that is shown while requesting an exam.
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):