STANDARD DATA DICTIONARY #2006.5759 -- OUTSIDE IMAGING LOCATION FILE 9/29/25 PAGE 1
STORED IN ^MAGD(2006.5759, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Entries in this file are locations identified in Radiology's IMAGING LOCATION file (#79.1) for entities that are non-credit
locations. These entries will be used by the DICOM Gateways during the ordering process to assign a location to an 'unordered'
Radiology study. The DICOM Gateways periodically download this file.
Use menu option 'Build Outside Imaging Location File' [MAG BUILD OUT LOC] to populate this file.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: OUTSIDE IMAGE LOCATION field (#7) of the DICOM RADIOLOGY PROCEDURES File (#2006.5758)
CROSS
REFERENCED BY: IMAGING LOCATION(B), INSTITUTION(C)
INDEXED BY: INSTITUTION & IMAGING TYPE (D)
2006.5759,.01 IMAGING LOCATION 0;1 POINTER TO IMAGING LOCATIONS FILE (#79.1) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,21)=2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 21, 2009
HELP-PROMPT: Enter an IMAGING LOCATION entry defined as 'NO CREDIT'.
DESCRIPTION: This is the 'No Credit' Radiology location to be used by the DICOM Gateways to collect imported
'outside' images and place or update a Radiology order on VistA.
The field has a screen to only allow entries that have been defined as 'No Credit' in Radiology's
IMAGING LOCATION file (#79.1).
SCREEN: S DIC("S")="I $P(^(0),U,21)=2"
EXPLANATION: Permits selection to be on locations with a credit method of 'No Credit".
CROSS-REFERENCE: 2006.5759^B
1)= S ^MAGD(2006.5759,"B",$E(X,1,30),DA)=""
2)= K ^MAGD(2006.5759,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^2006.5759^2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MAGD(2006.5759,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X
=X S DIU=X K Y X ^DD(2006.5759,.01,1,2,1.1) X ^DD(2006.5759,.01,1,2,1.4)
1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^RA(79.1,+D0,0)) D0=-1 S Y(102)=$S($D(^RA(79.1,D0,0)
):^(0),1:""),Y(101)=$G(X) S X=$P(Y(102),U,6),X=X S X=X S D0=I(0,0)
1.4)= S DIH=$G(^MAGD(2006.5759,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2006.5759,DIG=2 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MAGD(2006.5759,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X
=X S DIU=X K Y S X="" S DIH=$G(^MAGD(2006.5759,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2006.5759,DI
G=2 D ^DICR
3)= Field IMAGING TYPE will be populated with the identical value it has in Radiology's file IMAGIN
G LOCATION (#79.1) for the corresponding IMAGING LOCATION entry.
CREATE VALUE)= IMAGING LOCATION:INTERNAL(#6)
DELETE VALUE)= @
FIELD)= IMAGING TYPE
CROSS-REFERENCE: ^^TRIGGER^2006.5759^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MAGD(2006.5759,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X
=X S DIU=X K Y X ^DD(2006.5759,.01,1,3,1.1) X ^DD(2006.5759,.01,1,3,1.4)
1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^RA(79.1,+D0,0)) D0=-1 S Y(102)=$S($D(^RA(79.1,D0,0)
):^(0),1:""),Y(101)=$G(X) S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0)
1.4)= S DIH=$G(^MAGD(2006.5759,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2006.5759,DIG=3 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MAGD(2006.5759,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X
=X S DIU=X K Y S X="" S DIH=$G(^MAGD(2006.5759,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2006.5759,DI
G=3 D ^DICR
3)= Field HOSPITAL LOC will be populated with the identical value it has in Radiology's file IMAGIN
G LOCATION (#79.1) for the corresponding IMAGING LOCATION entry.
CREATE VALUE)= IMAGING LOCATION:INTERNAL(LOCATION)
DELETE VALUE)= @
FIELD)= HOSPITAL LOC
CROSS-REFERENCE: ^^TRIGGER^2006.5759^4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MAGD(2006.5759,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X
=X S DIU=X K Y X ^DD(2006.5759,.01,1,4,1.1) X ^DD(2006.5759,.01,1,4,1.4)
1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^RA(79.1,+D0,0)) D0=-1 S Y(102)=$S($D(^RA(79.1,D0,"D
IV")):^("DIV"),1:""),Y(101)=$G(X) S X=$P(Y(102),U,1),X=X S X=X S D0=I(0,0)
1.4)= S DIH=$G(^MAGD(2006.5759,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=2006.5759,DIG=4 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MAGD(2006.5759,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X
=X S DIU=X K Y S X="" S DIH=$G(^MAGD(2006.5759,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=2006.5759,DI
G=4 D ^DICR
3)= Field INSTITUTION will be populated with the identical value is has in Radiology's file IMAGING
LOCATION (#79.1) for the corresponding IMAGING LOCATION entry.
CREATE VALUE)= IMAGING LOCATION:INTERNAL(#25)
DELETE VALUE)= @
FIELD)= INSTITUTION
2006.5759,2 IMAGING TYPE 0;2 POINTER TO IMAGING TYPE FILE (#79.2)
LAST EDITED: AUG 15, 2008
HELP-PROMPT: Select the Imaging type for this location.
DESCRIPTION: The value of this field is the associated imaging type (e.g. VASCULAR LAB) for the outside imaging
location.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the IMAGING LOCATION field of the OUTSIDE IMAGING LOCATION File
RECORD INDEXES: D (#560)
2006.5759,3 HOSPITAL LOCATION 0;3 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: JAN 15, 2008
HELP-PROMPT: Select the hospital location for this location.
DESCRIPTION: The value for this field is the hospital location (e.g. Radiology clinic) pertaining to the outside
imaging location.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the IMAGING LOCATION field of the OUTSIDE IMAGING LOCATION File
2006.5759,4 INSTITUTION 0;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 15, 2008
HELP-PROMPT: Select the institution pertaining to this location.
DESCRIPTION: The value of this field is the institution related to the outside imaging location. Within a
consolidated database, an institution could be an Outpatient clinic.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the IMAGING LOCATION field of the OUTSIDE IMAGING LOCATION File
CROSS-REFERENCE: 2006.5759^C
1)= S ^MAGD(2006.5759,"C",$E(X,1,30),DA)=""
2)= K ^MAGD(2006.5759,"C",$E(X,1,30),DA)
RECORD INDEXES: D (#560)
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) HOSPITAL LOCATION (#3)
IMAGING LOCATIONS (#79.1) IMAGING LOCATION (#.01)
IMAGING TYPE (#79.2) IMAGING TYPE (#2)
INSTITUTION (#4) INSTITUTION (#4)
File #2006.5759
Record Indexes:
D (#560) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: Groups entries by INSTITUTION and IMAGING TYPE.
Description: The cross reference is needed by routines MAGDAIRF and MAGDRPCA. This cross reference will facilitate sorting
by institution especially within a consolidated database and each institution has their own DICOM Gateway.
Set Logic: S ^MAGD(2006.5759,"D",X(1),X(2),DA)=""
Kill Logic: K ^MAGD(2006.5759,"D",X(1),X(2),DA)
Whole Kill: K ^MAGD(2006.5759,"D")
X(1): INSTITUTION (2006.5759,4) (Subscr 1) (forwards)
X(2): IMAGING TYPE (2006.5759,2) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):