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 |  Found Entries |  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: 7

Package Total Routines
Automated Lab Instruments 3 LA27    LA7PURG    LA7SMU    
Lab Service 3 LR232    LR302A    LREVENT    
IHS Changes To Lab 1 BLRAG09A    

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.







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All