Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LA7VMSG

Package: Automated Lab Instruments

Routine: LA7VMSG


Information

LA7VMSG ;DALOI/JMC - LAB ORU (Observation Result) message builder ;08/12/13 15:12

Source Information

Source file <LA7VMSG.m>

Entry Points

Name Comments DBIA/ICR reference
ORU ; Bleed the ORU (Observation Result) message queue
; Tasked by LA7SRR, LRCAPV2, LRU
ORR ; Bleed the ORR (Order Response) message queue
; Called by LRWLST12
SET(LRUID,SITE,RUID,SITEN,ORD,LRNLT,LRIDT,LRSS,LRDFN,ORDT,LA7VDB,LA7MTYP) ; adds entries to LA7V QUEUE file
; Called by LA7SRR, LRVER3, LRWLST12
; variable list
; LRUID - Host Unique ID from the local ACCESSION file (#68)
; SITE - remote sites IEN in INSTITUTION file (#4)
; RUID - Remote sites Unique ID from ACCESSION file (#68)
; SITEN - Primary site number of remote site ($$SITE^VASITE)
; ORD - Free text ordered test name from WKLD CODE file (#64)
; LRNLT - National Laboratory test code from WKLD CODE file (#64)
; LRIDT - Inverse date/time (accession date/time)
; LRSS - test subscript defined in LABORATORY TEST file (#60)
; LRDFN - IEN in LAB DATA file (#63)
; ORDT - Order date
; LA7VDB - <opt><byref> Chemistry results or database section
; for MI, SP, CY, EM subscripts
; ex. glucose LA7VDB(2)=LR NODE
; LA7VDB(2,1)="C" (corrected results)
; MI: LA7VDB(File #64 Field #63)=""
; SP: LA7VDB("88515.0000")="" CY: LA7VDB("88593.0000")=""
; EM: LA7VDB("88597.0000")="" AU: LA7VDB("88533.0000")=""
; LA7MTYP (Optional) - Message Type (ORU or ORR) defaults to ORU
MIAP(LRAA,LRAD,LRAN,LR60,LRDFN,LRSS,LRIDT,LRODT) ; Makes MI/AP calls to send results to LA7V QUEUE
CHKACC ; Check/validate parameters passed in before storing in file #62.49
ACK ; ACKnowledgment message processor
HLSTATUS(LA7MTYP,SITE,LRSS) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Report already in LEDI queue - no need to add again",IOM)
  • Line Location: MIAP+42

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
^LAHM(62.49 - [#62.49] GET1^DIQ
^LAM - [#64] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call