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 |  Local Variables  | All
Print Page as PDF
Global: ^LAHM(62.85

Package: Automated Lab Instruments

Global: ^LAHM(62.85


Information

FileMan FileNo FileMan Filename Package
62.85 LAB SHIPPING EVENT Automated Lab Instruments

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Automated Lab Instruments 5 LA7SMU    ^LAHM(62.93    LA7PURG    ^LAHM(62.85    LA27    
Lab Service 3 LR232    LR302A    LREVENT    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Automated Lab Instruments 2 LA27    LA7PURG    
Lab Service 1 LREVENT    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Lab Service 2 LABORATORY TEST(#60)[.08]    LAB ELECTRONIC CODES(#64.061)[.05]    
Kernel 1 NEW PERSON(#200)[.02]    

Fields, Total: 8

Field # Name Loc Type Details
.01 IDENTIFIER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  NOV 27, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  This field will contain one of two types of identifiers.
    If the event relates to a shipping manifest, it will contain the shipping manifest identitier.
    If it relates to a laboratory test on the shipping manifest, it will contain the unique identifier (UID) of the test's accession.
  • CROSS-REFERENCE:  62.85^B
    1)= S ^LAHM(62.85,"B",$E(X,1,30),DA)=""
    2)= K ^LAHM(62.85,"B",$E(X,1,30),DA)
.02 USER 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  MAY 08, 1997
  • HELP-PROMPT:  Name of user initiating this event
  • DESCRIPTION:  
    Pointer to file #200, NEW PERSON. Is the user who generated the event that is being recorded in this file.
.03 RECORD DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 08, 1997
  • HELP-PROMPT:  Date/time that event was logged
  • DESCRIPTION:  
    The date/time that this event is being recorded in the file.
.04 EVENT TYPE 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR SHIPPING MANIFEST;
  • '2' FOR ACCESSION TEST;

  • LAST EDITED:  MAY 08, 1997
  • HELP-PROMPT:  Enter what this event relates to
  • DESCRIPTION:  
    This field describes what the event relates to. Does it reflect changes made to a shipping manifest or to an accession on the manifest.
.05 EVENT CODE 0;5 POINTER TO LAB ELECTRONIC CODES FILE (#64.061)
************************REQUIRED FIELD************************
LAB ELECTRONIC CODES(#64.061)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^LAB(64.061,Y,0),U,7)=""E""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 16, 1997
  • HELP-PROMPT:  Select the lab code that describes this event.
  • DESCRIPTION:  
    Used to describe the event that occurred.
  • SCREEN:  S DIC("S")="I $P(^LAB(64.061,Y,0),U,7)=""E"""
  • EXPLANATION:  On "event" type codes can be selected.
.07 EVENT DATE/TIME 0;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 27, 1997
  • HELP-PROMPT:  Enter the date/time that this event occured.
  • DESCRIPTION:  
    The date/time that the event occurred.
  • CROSS-REFERENCE:  62.85^ADT^MUMPS
    1)= D ADT^LREVENT
    2)= D KADT^LREVENT
    This MUMPS type cross reference stores the events for a particular shipping manifest by the inverse event date/time. It is used to sort events in reverse chronological order. The format for the resulting cross reference
    node is as follows:
    ^LAHM(62.85,"ADT",Associated Manifest,Inverse Event Date/Time,IEN)=""
  • CROSS-REFERENCE:  62.85^ATST1^MUMPS
    1)= D ATST1^LREVENT
    2)= D KATST1^LREVENT
    This MUMPS cross reference lists events by test and by the inverse date/time of the event. This list is used for sorting. The format for the resulting cross reference node is as follows:
    ^LAHM(62.85,"ATST",UID,Lab Test,Inverse Event Date/Time,IEN)=""
.08 LAB TEST 0;8 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  MAY 27, 1997
  • HELP-PROMPT:  Enter the laboratory test associated with this event if any.
  • DESCRIPTION:  
    If this event relates to a test on an accession, the test will be recorded in this field.
  • CROSS-REFERENCE:  62.85^ATST^MUMPS
    1)= D ATST^LREVENT
    2)= D KATST^LREVENT
    This MUMPS cross reference lists events by test and by the inverse date/time of the event. This list is used for sorting. The format for the resulting cross reference node is as follows:
    ^LAHM(62.85,"ATST",UID,Lab Test,Inverse Event Date/Time,IEN)=""
.09 ASSOCIATED MANIFEST 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 28, 1997
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    If the event relates to a test then the shipping manifest affected is recorded in this field.
  • CROSS-REFERENCE:  62.85^AM^MUMPS
    1)= I $L($P(^LAHM(62.85,DA,0),"^")) S ^LAHM(62.85,"AM",$P(^LAHM(62.85,DA,0),"^"),X,DA)=""
    2)= I $L($P(^LAHM(62.85,DA,0),"^")) K ^LAHM(62.85,"AM",$P(^LAHM(62.85,DA,0),"^"),X,DA)
    Cross-reference a test event with it's associated shipping manifest.

External References

Name Field # of Occurrence
^%DT .03+1, .07+1
^DIC .05+1
ADT^LREVENT .07(XREF 1S)
ATST^LREVENT .08(XREF 1S)
ATST1^LREVENT .07(XREF 2S)
KADT^LREVENT .07(XREF 1K)
KATST^LREVENT .08(XREF 1K)
KATST1^LREVENT .07(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAHM(62.85 - [#62.85] .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .07+1*
>> DA .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K)
DIC .05+1!*
DIC("S" .05+1*, .05SCR+1*
>> DIE .05+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1*!, .05+1*!, .07+1*!, .09+1!, .09(XREF 1S), .09(XREF 1K)
>> Y .03+1, .05+1, .07+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All