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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^RA(79.199

Package: Radiology Nuclear Medicine

Global: ^RA(79.199


Information

FileMan FileNo FileMan Filename Package
79.199 RADIOLOGY REQUESTING LOCATIONS Radiology Nuclear Medicine

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Radiology Nuclear Medicine 1 ^RA(79.199    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 DEVICE(#3.5)[3]    
Scheduling 1 HOSPITAL LOCATION(#44)[.01]    

Fields, Total: 7

Field # Name Loc Type Details
.01 REQUESTING LOCATION 0;1 POINTER TO HOSPITAL LOCATION FILE (#44)
************************REQUIRED FIELD************************
HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X Q
  • LAST EDITED:  FEB 10, 1997
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  79.199^B
    1)= S ^RA(79.199,"B",$E(X,1,30),DA)=""
    2)= K ^RA(79.199,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^79.199^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RA(79.199,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(79.199,.01,1,2,1.1) X ^DD(79.199,.01,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^RA(79.199,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=79.199,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= THIS VALUE MUST BE EDITED IN THE HOSPITAL LOCATION FILE, #44.
    CREATE VALUE)= .01:ABBREV
    DELETE VALUE)= NO EFFECT
    FIELD)= LO
  • CROSS-REFERENCE:  ^^TRIGGER^79.199^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RA(79.199,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(79.199,.01,1,3,1.1) X ^DD(79.199,.01,1,3,1.4)
    1.1)= S X=DIV X ^DD(79.199,.01,1,3,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_":",2),$C(59),1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^RA(79.199,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=79.199,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    3)= This field is triggered from the #.01 field and takes its value from field #2 in the Hospital Locations file #44.
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(44,2,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^SC(D0,0)):^(0),1:"")
    CREATE VALUE)= .01:2
    DELETE VALUE)= NO EFFECT
    FIELD)= #2
  • CROSS-REFERENCE:  79.199^AZ9^MUMPS
    1)= S DIC("DR")=""
    2)= Q
    3)= Prevents DIC asking for identifiers.
1 PRINT REPORTS (YES/NO) 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 12, 1992
2 LOCATION TYPE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 23, 1992
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the REQUESTING LOCATION field of the RADIOLOGY REQUESTING LOCATIONS File
3 PRINTER 0;4 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  AUG 12, 1992
5 LOCATION ABBREVIATION 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 12, 1992
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the REQUESTING LOCATION field of the RADIOLOGY REQUESTING LOCATIONS File
2505 INACTIVATE DATE I;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 1992
  • HELP-PROMPT:  Enter the date after which this Location will no longer be selectable.
2506 REACTIVATE DATE I;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 1992
  • HELP-PROMPT:  Enter the date after which this Location will again be selectable.

External References

Name Field # of Occurrence
^%DT 2505+1, 2506+1
^DICR .01(XREF 2n1.4), .01(XREF 3n1.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4)
^DD(44 .01(XREF 3n49.2)
^DD(79.199 .01(XREF 2S), .01(XREF 3S), .01(XREF 3n1.1)
^RA(79.199 - [#79.199] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
^SC - [#44] .01(XREF 2n1.1), .01(XREF 3n49.2)

Naked Globals

Name Field # of Occurrence
^(0 ID2+1, ID5+1, .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3n49.2)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 2505+1*, 2506+1*
>> D0 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n49.2)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S)
>> DIC("DR" .01(XREF 4S)
>> DIG .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DINUM .01+1*
>> DIU .01(XREF 2S), .01(XREF 3S)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3n49.2)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
>> I(0 .01(XREF 2n1.1), .01(XREF 3n1.1), .01(XREF 3n49.2)
U ID2+1, ID5+1, .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3n49.2)
X .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), 2+1!
, 5+1!, 2505+1*!, 2506+1*!
Y .01(XREF 2S), .01(XREF 3S), 2505+1, 2506+1
Y(1 .01(XREF 2S), .01(XREF 3S)
Y(101 .01(XREF 2n1.1), .01(XREF 3n1.1), .01(XREF 3n49.2)
Y(102 .01(XREF 3n1.1), .01(XREF 3n49.2)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All