Global: ^RAMIS(71.3

FileMan FileNo	FileMan Filename	Package
71.3	RAD/NUC MED COMMON PROCEDURE	Radiology Nuclear Medicine

Package	Total	Routines
Radiology Nuclear Medicine	15	PROCEDURE MODIFIERS RACOMDEL RADD1 RADD2 RADD3 RAMAIN2 RAO7MFN RAORDU1 RAPRI RAUTL13 RAUTL14 RAUTL17 RAUTL18 ^RAMIS(71 ^RAMIS(71.3

Package	Total	Routines
Radiology Nuclear Medicine	2	RACOMDEL RAMAIN2

Package	Total	FileMan Files
Radiology Nuclear Medicine	3	IMAGING LOCATIONS(#79.1)[8] RAD/NUC MED PROCEDURES(#71)[.01] PROCEDURE MODIFIERS(#71.2)[#71.312(.01)]

Field #	Name	Loc	Type	Details
.01	PROCEDURE	0;1	POINTER TO RAD/NUC MED PROCEDURES FILE (#71)	**********************REQUIRED FIELD********************** RAD/NUC MED PROCEDURES(#71) INPUT TRANSFORM: `S DIC("S")="I $$EN1^RADD2(X,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:+$O(^RAMIS(71.3,"B",+$G(X),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: `JUL 20, 1995` 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(X,Y)"` EXPLANATION: `Only active procedures may be selected.` LAYGO TEST: `1,0)= X:+$O(^RAMIS(71.3,"B",+X,0)) ^DD(71.3,.01,9.2) I '+$O(^RAMIS(71.3,"B",+X,0))` 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)
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)
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'.
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.
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.
8	IMAGING LOCATION	0;8	POINTER TO IMAGING LOCATIONS FILE (#79.1)	**********************REQUIRED FIELD********************** IMAGING LOCATIONS(#79.1) 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.`
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.
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.
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.
12	PROCEDURE MODIFIERS	M;0	POINTER Multiple #71.312	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.
13	NAME OF ORDERABLE ITEM	0;13	FREE TEXT	**********************REQUIRED FIELD********************** 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 already 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`

Field #

Name

Loc

Type

Details

.01

PROCEDURE

0;1

POINTER TO RAD/NUC MED PROCEDURES FILE (#71)

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

RAD/NUC MED PROCEDURES(#71)

INPUT TRANSFORM: S DIC("S")="I $$EN1^RADD2(X,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:+$O(^RAMIS(71.3,"B",+$G(X),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: JUL 20, 1995
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(X,Y)"
EXPLANATION: Only active procedures may be selected.
LAYGO TEST: 1,0)= X:+$O(^RAMIS(71.3,"B",+X,0)) ^DD(71.3,.01,9.2) I '+$O(^RAMIS(71.3,"B",+X,0))
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)

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)

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'.

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.
```

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.

8

IMAGING LOCATION

0;8

POINTER TO IMAGING LOCATIONS FILE (#79.1)

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

IMAGING LOCATIONS(#79.1)

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.

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.

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.

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.
```

12

PROCEDURE MODIFIERS

M;0

POINTER Multiple #71.312

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.

13

NAME OF ORDERABLE ITEM

0;13

FREE TEXT

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

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 already 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

Name	Line Occurrences (* Changed, ! Killed)
^DD(	4(XREF 1n1.4), 4(XREF 1n2.4)
^DD(71.3	.01LAYGO1+1, 4(XREF 1S), 4(XREF 1K)
^ORD(101 - [#101]	13+1
^RAMIS(71 - [#71]	.01+1, .01OF9.2+1
^RAMIS(71.3 - [#71.3]	.01+1, .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3+1, 3(XREF 1S) , 3(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	3+1, 4(XREF 1S), 4(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3(HELP ), 3(XREF 1S), 3(XREF 1K), 4DEL1+1 , 4(XREF 1S), 4(XREF 1K)
DIC	.01+1!, 8+1!
DIC("S"	.01+1, .01SCR+1, 8+1, 8SCR+1
>> DIE	.01+1, 8+1
>> DIG	4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIH	4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIU	4(XREF 1S), 4(XREF 1K)
DIV	4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
DIV(0	4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
U	.01+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3+1, 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4) , 4(XREF 1K), 4(XREF 1n2.4)
X	.01+1!, .01OF9.2+1, .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 3+1! , 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4), 8+1!, 13+1!
Y	.01+1, 4(XREF 1S), 4(XREF 1K), 8+1, 13+1
Y(1	4(XREF 1S), 4(XREF 1K)

Customize PDF page

Package: Radiology Nuclear Medicine

Global: ^RAMIS(71.3

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 11

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
EN^DDIOL	.01OF9.2+1
^DIC	.01+1, 8+1
^DICR	4(XREF 1n1.4), 4(XREF 1n2.4)
$$REACMMN^RADD3	4DEL1+1
$$EN3^RAUTL17	.01(XREF 3S), .01(XREF 3K), 3+1, 3(XREF 1S), 3(XREF 1K)
EN5^RAUTL17	.01(XREF 3S), .01(XREF 3K), 3(XREF 1S), 3(XREF 1K)
EN6^RAUTL17	.01+1
EN3^RAUTL18	3(HELP )
UPPER^RAUTL4	13+1