Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^MAGD(2006.5759

Package: Imaging

Global: ^MAGD(2006.5759

Information

FileMan FileNo	FileMan Filename	Package
2006.5759	OUTSIDE IMAGING LOCATION	Imaging

Description

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.

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	IMAGING LOCATION	0;1	POINTER TO IMAGING LOCATIONS FILE (#79.1)	**********************REQUIRED FIELD********************** IMAGING LOCATIONS(#79.1) 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,DIG=2 D ^DICR` `3)= Field IMAGING TYPE will be populated with the identical value it has in Radiology's file IMAGING 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,DIG=3 D ^DICR` `3)= Field HOSPITAL LOC will be populated with the identical value it has in Radiology's file IMAGING 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,"DIV")):^("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,DIG=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`
2	IMAGING TYPE	0;2	POINTER TO IMAGING TYPE FILE (#79.2)	IMAGING TYPE(#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)`
3	HOSPITAL LOCATION	0;3	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#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`
4	INSTITUTION	0;4	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#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)`

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All