Global: ^MAGDICOM(2006.5757

FileMan FileNo	FileMan Filename	Package
2006.5757	DICOM RADIOLOGY PROCEDURE MODIFIERS	Imaging

FileMan FileNo

FileMan Filename

Package

2006.5757

DICOM RADIOLOGY PROCEDURE MODIFIERS

Imaging

Description

The DICOM RADIOLOGY PROCEDURE MODIFIERS file (#2006.5757) resides on the DICOM Gateway. It contains the list of Radiology procedure modifiers that may be used when placing orders for VistA on the DICOM Gateway. This file is periodically updated on the Gateway by a remote procedure call to VistA to read file Radiology's PROCEDURE MODIFIERS (#71.2). This allows the Gateway to continue processing if a VistA connections is lost.

Package	Total	Routines
Imaging	2	IMAGES PRINTED ^MAGDICOM(2006.5757

Package

Total

Routines

Imaging

IMAGES PRINTED ^MAGDICOM(2006.5757

Package	Total	FileMan Files
Radiology Nuclear Medicine	2	IMAGING TYPE(#79.2)[3] PROCEDURE MODIFIERS(#71.2)[2]

Package

Total

FileMan Files

Radiology Nuclear Medicine

IMAGING TYPE(#79.2)[3] PROCEDURE MODIFIERS(#71.2)[2]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RAD PROC MOD NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `MAY 05, 2008` HELP-PROMPT: `Enter the procedure modifier; answer must be 1-30 characters in length.` DESCRIPTION: `This field is a copy of the procedure modifier NAME (#.01) field of file PROCEDURE MODIFIERS (#71.2).` `The DICOM Gateway's store redundant information in case the VistA connection is lost.` CROSS-REFERENCE: `2006.5757^B` `1)= S ^MAGDICOM(2006.5757,"B",$E(X,1,30),DA)=""` `2)= K ^MAGDICOM(2006.5757,"B",$E(X,1,30),DA)`
2	RAD PROC MOD IEN	0;2	POINTER TO PROCEDURE MODIFIERS FILE (#71.2)	PROCEDURE MODIFIERS(#71.2) LAST EDITED: `APR 20, 2009` HELP-PROMPT: `Select the procedure modifier.` DESCRIPTION: `The Importer will use this procedure's value when placing an order on Vista from the DICOM Gateway.` CROSS-REFERENCE: `2006.5757^C` `1)= S ^MAGDICOM(2006.5757,"C",$E(X,1,30),DA)=""` `2)= K ^MAGDICOM(2006.5757,"C",$E(X,1,30),DA)`
3	TYPE OF IMAGING	0;3	POINTER TO IMAGING TYPE FILE (#79.2)	IMAGING TYPE(#79.2) LAST EDITED: `APR 20, 2009` HELP-PROMPT: `Select the IMAGING TYPE for the procedure.` DESCRIPTION: `The Importer will use the corresponding TYPE OF IMAGING for the selected procedure when placing an order on VistA from the DICOM Gateway.` CROSS-REFERENCE: `2006.5757^D` `1)= S ^MAGDICOM(2006.5757,"D",$E(X,1,30),DA)=""` `2)= K ^MAGDICOM(2006.5757,"D",$E(X,1,30),DA)`

.01

RAD PROC MOD NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: MAY 05, 2008
HELP-PROMPT: Enter the procedure modifier; answer must be 1-30 characters in length.
DESCRIPTION: This field is a copy of the procedure modifier NAME (#.01) field of file PROCEDURE MODIFIERS (#71.2).
The DICOM Gateway's store redundant information in case the VistA connection is lost.
CROSS-REFERENCE: 2006.5757^B
1)= S ^MAGDICOM(2006.5757,"B",$E(X,1,30),DA)=""
2)= K ^MAGDICOM(2006.5757,"B",$E(X,1,30),DA)

RAD PROC MOD IEN

0;2

POINTER TO PROCEDURE MODIFIERS FILE (#71.2)

PROCEDURE MODIFIERS(#71.2)

LAST EDITED: APR 20, 2009
HELP-PROMPT: Select the procedure modifier.
DESCRIPTION:
The Importer will use this procedure's value when placing an order on Vista from the DICOM Gateway.
CROSS-REFERENCE: 2006.5757^C
1)= S ^MAGDICOM(2006.5757,"C",$E(X,1,30),DA)=""
2)= K ^MAGDICOM(2006.5757,"C",$E(X,1,30),DA)

TYPE OF IMAGING

0;3

POINTER TO IMAGING TYPE FILE (#79.2)

IMAGING TYPE(#79.2)

LAST EDITED: APR 20, 2009
HELP-PROMPT: Select the IMAGING TYPE for the procedure.
DESCRIPTION:
The Importer will use the corresponding TYPE OF IMAGING for the selected procedure when placing an order on VistA from the DICOM Gateway.
CROSS-REFERENCE: 2006.5757^D
1)= S ^MAGDICOM(2006.5757,"D",$E(X,1,30),DA)=""
2)= K ^MAGDICOM(2006.5757,"D",$E(X,1,30),DA)

Name	Line Occurrences (* Changed, ! Killed)
^MAGDICOM(2006.5757 - [#2006.5757]	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Name

Line Occurrences (* Changed, ! Killed)

^MAGDICOM(2006.5757 - [#2006.5757]

.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Customize PDF page

Package: Imaging

Global: ^MAGDICOM(2006.5757

Information

Description

Directly Accessed By Routines, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 3

Global Variables Directly Accessed

Local Variables

Legend: