Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 6

Package Total Routines
Imaging 6 MAGDRPCA    ^MAGD(2006.5759    IMAGES PRINTED    MAGDAIRF    MAGDAIRG    MAGVIM05    

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)

External References

Name Field # of Occurrence
^DIC .01+1
^DICR .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4n1.4), .01(XREF 4K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2006.5759 .01(XREF 2S), .01(XREF 3S), .01(XREF 4S)
^MAGD(2006.5759 - [#2006.5759] IXDSL+1*, IXDKL+1!, IXDKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4)
.01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 4K), 4(XREF 1S), 4(XREF 1K)
^RA(79.1 - [#79.1] .01(XREF 2n1.1), .01(XREF 3n1.1), .01(XREF 4n1.1)

Naked Globals

Name Field # of Occurrence
^("DIV" .01(XREF 4n1.1)
^(0 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.4)
.01(XREF 4K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.1), .01(XREF 4K)
>> DA IXDSL+1, IXDKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
4(XREF 1S), 4(XREF 1K)
DIC .01+1!*
DIC("S" .01+1*, .01SCR+1*
>> DIE .01+1
>> DIG .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4n1.4), .01(XREF 4K)
>> DIH .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4n1.4), .01(XREF 4K)
>> DIU .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.1)
.01(XREF 4n1.4), .01(XREF 4K)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.4), .01(XREF 4K)
>> I(0 .01(XREF 2n1.1), .01(XREF 3n1.1), .01(XREF 4n1.1)
U .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.1)
.01(XREF 4n1.4), .01(XREF 4K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
.01(XREF 3K), .01(XREF 4S), .01(XREF 4n1.1), .01(XREF 4n1.4), .01(XREF 4K), 4(XREF 1S), 4(XREF 1K)
X(1 IXDSL+1, IXDKL+1
X(2 IXDSL+1, IXDKL+1
Y .01+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
Y(1 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
Y(101 .01(XREF 2n1.1), .01(XREF 3n1.1), .01(XREF 4n1.1)
Y(102 .01(XREF 2n1.1), .01(XREF 3n1.1), .01(XREF 4n1.1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All