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

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Imaging 3 MAGDAIRF    MAGDAIRG    MAGVIM05    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Imaging 1 DICOM RADIOLOGY PROCEDURES(#2006.5758)[7]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Radiology Nuclear Medicine 2 IMAGING LOCATIONS(#79.1)[.01]    IMAGING TYPE(#79.2)[2]    
Kernel 1 INSTITUTION(#4)[4]    
Scheduling 1 HOSPITAL LOCATION(#44)[3]    

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