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

Package: Lab Service

Global: ^LAB(64.6


Information

FileMan FileNo FileMan Filename Package
64.6 INTERIM REPORTS Lab Service

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Lab Service 4 ^LAB(64.6    LRRMM    LRRP2    LRTP    
IHS Changes To Lab 1 BLRLRRP2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Lab Service 1 LR153    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 1 DEVICE(#3.5)[3]    
Lab Service 1 URGENCY(#62.05)[4]    
MailMan 1 DOMAIN(#4.2)[6]    
Scheduling 1 HOSPITAL LOCATION(#44)[.01]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 05, 1991
  • DESCRIPTION:  
    This is the ward or clinic that will be receiving interim reports.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)]"""""
  • EXPLANATION:  Can use only locations that have abbreviations.
  • CROSS-REFERENCE:  64.6^B
    1)= S ^LAB(64.6,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(64.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^64.6^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P($G(^SC(+X,0)),U,2) X ^DD(64.6,.01,1,2,1.4)
    1.1)= S X=DIV S X=$S($L($P($G(^SC(+X,0)),U,2)):$P(^(0),U,2),1:"UNK")
    1.4)= S DIH=$S($D(^LAB(64.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=64.6,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$P($G(^SC(+X,0)),U,2)
    DELETE VALUE)= NO EFFECT
    FIELD)= LOCATION ABB
  • CROSS-REFERENCE:  64.6^AI^MUMPS
    1)= S:$P(^LAB(64.6,DA,0),U,3) ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)=""
    2)= K:$P(^LAB(64.6,DA,0),U,3) ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)
  • CROSS-REFERENCE:  64.6^AS1^MUMPS
    1)= S:$P(^LAB(64.6,DA,0),U,2) ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)=""
    2)= K:$P(^LAB(64.6,DA,0),U,2) ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)
1 IMMEDIATELY TRANSMIT RESULTS 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 1991
  • DESCRIPTION:  
    If this field is yes, all new data when verified will be transmitted to the device identified for the given location.
  • CROSS-REFERENCE:  64.6^AS^MUMPS
    1)= S:X ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)=""
    2)= K ^LAB(64.6,"AS",$P(^LAB(64.6,DA,0),U,6),DA)
2 INTERIM REPORTING 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 05, 1991
  • DESCRIPTION:  
    If this field is yes, the interim reports tasked  by TaskMan, will transmit all verified data for the current day appropriate for the location.
  • CROSS-REFERENCE:  64.6^AI^MUMPS
    1)= S:X ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)=""
    2)= K ^LAB(64.6,"AI",$P(^LAB(64.6,DA,0),U,6),DA)
3 DEVICE 0;4 POINTER TO DEVICE FILE (#3.5)
************************REQUIRED FIELD************************
DEVICE(#3.5)

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)="EMQ" D ^DIC S X=$P(Y,U,2),DIC=DIE K:Y<1 X
  • LAST EDITED:  APR 30, 1987
  • HELP-PROMPT:  ENTER THE NAME OF THE DEVICE TO PRINT THIS REPORT ON
  • DESCRIPTION:  
    The default device to print the interim report on.
  • EXECUTABLE HELP:  S X="?",DIC(0)="Q",DIC="^%ZIS(1,",PDO(2)=$S($D(DO(2)):DO(2),1:"") D ^DIC S DO(2)=PDO(2) K DIC,PDO(2)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  64.6^AD
    1)= S ^LAB(64.6,"AD",$E(X,1,30),DA)=""
    2)= K ^LAB(64.6,"AD",$E(X,1,30),DA)
4 URGENCY CUTOFF 0;5 POINTER TO URGENCY FILE (#62.05) URGENCY(#62.05)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 05, 1993
  • DESCRIPTION:  This field is used when lab results are verified and immediately reported/printed on a ward. If this field is left blank, all tests of all urgencies will be reported. If an urgency is entered in this field, that urgency
    along with all higher urgencies will be reported to the ward leaving all lower urgencies not immediately reported.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Prevent the selection of WKLD urgency
5 LOCATION ABBREVIATION 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 05, 1991
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field contains the printable short name for the location.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the LOCATION field of the INTERIM REPORTS File
6 DOMAIN NAME 0;7 POINTER TO DOMAIN FILE (#4.2) DOMAIN(#4.2)

  • LAST EDITED:  APR 02, 1997
  • HELP-PROMPT:  If this location is a referring site then enter that's site Domain name.
  • DESCRIPTION:  
    This field is used to identify the Referring Site.

External References

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

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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