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: LRVR0

Package: Lab Service

Routine: LRVR0


Information

LRVR0 ;DALOI/STAFF - LEDI MI/AP Data Verification; Jul 20, 2020@13:53

Source Information

Source file <LRVR0.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
UID ;UID driven look-up
ERR1 ;Look-up Error
CLEAN ;
ACC ; Accession number look-up
ACCMSG ;
PROC ;Process the entry from LAH(LRLL
ACCSET ;Set up accession variables
NOLOCK ; Not able to lock message
UNLOCK ; Unlock accession and ^LR( global
ACCEPT ;Display results and accept data
PURG ; Ask if the entry should be purged from ^LAH(
ZAP ; Remove entry from ^LAH( global
SETACC ;
LEDI ; If LEDI put results in queue to return to collecting lab
; Called from above, LRMIEDZ2, LRMISTF1 and LRVRAP4.
LEDINO ; LEDI HL7 message sending error message
ISQN ; Find the entry associated with this accession area and accession number

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UID+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UID+21
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN," Age: ",AGE(2)
  • Line Location: UID+22
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN," ",LRACC," ["_LRUID,"]"
  • Line Location: UID+23
Function Call: WRITE
  • Prompt: !
  • Line Location: UID+24
Function Call: WRITE
  • Prompt: !,"No data for "_LRUID_" in file"
  • Line Location: ERR1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACC+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACC+31
Function Call: WRITE
  • Prompt: !," No accession available for this Load/Worklist",!
  • Line Location: ACCMSG+1
Function Call: WRITE
  • Prompt: !,"^LAH("_LRLL_",1,"_LRISQN_",0) Global is corrupt"
  • Line Location: ACCSET+5
Function Call: WRITE
  • Prompt: !,"Not a "_LRSS_" Area - Abort",!
  • Line Location: ACCSET+9
Function Call: WRITE
  • Prompt: !,"^LAH("_LRLL_",1,"_LRISQN_",0) Global is corrupt"
  • Line Location: ACCSET+13
Function Call: WRITE
  • Prompt: !,"Accession does not exist in ACCESSION file (#68)"
  • Line Location: ACCSET+16
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN," Age: ",AGE(2)
  • Line Location: ACCSET+32
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN," ",LRACC," ["_LRUID,"]"
  • Line Location: ACCSET+33
Function Call: WRITE
  • Prompt: !,"You cannot verify an accession which has not been collected.",$C(7)
  • Line Location: ACCSET+54
Function Call: WRITE
  • Prompt: !!,$S($G(LRERR)=1:" **Accession** ",$G(LRERR)=2:"**Patient's ^LR( file**",1:"Record")_" is locked by another user. "
  • Line Location: NOLOCK+1
Function Call: WRITE
  • Prompt: !!,"*******************************************************"
  • Line Location: ACCEPT+9
Function Call: WRITE
  • Prompt: !,"* Result verification cannot be performed due to a *"
  • Line Location: ACCEPT+10
Function Call: WRITE
  • Prompt: !,"* possible VistA instrument file configuration issue. *"
  • Line Location: ACCEPT+11
Function Call: WRITE
  • Prompt: !,"* Suggestion: Set the ""OVERLAY DATA"" (#12) field *"
  • Line Location: ACCEPT+12
Function Call: WRITE
  • Prompt: !,"* of the AUTO INSTRUMENT (#62.4) file to ""YES"". *"
  • Line Location: ACCEPT+13
Function Call: WRITE
  • Prompt: !,"* Results will then need to be retransmitted. *"
  • Line Location: ACCEPT+14
Function Call: WRITE
  • Prompt: !,"*******************************************************"
  • Line Location: ACCEPT+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: ACCEPT+82
Function Call: WRITE
  • Prompt: !
  • Line Location: PURG+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Sending report to LEDI collecting site",IOM)
  • Line Location: LEDI+26
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Unable to sent report to LEDI collecting site - no date report approved",IOM)
  • Line Location: LEDINO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ISQN+10
Function Call: WRITE
  • Prompt: !,?2,"Seq #: ",LRI,?13," Accession: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^")
  • Line Location: ISQN+12
Function Call: WRITE
  • Prompt: ?40," Results received: ",$$FMTE^XLFDT($P(LRX,"^",10),"1M")
  • Line Location: ISQN+13
Function Call: WRITE
  • Prompt: !,?20,"UID: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3),"UNKNOWN"),"^")
  • Line Location: ISQN+14
Function Call: WRITE
  • Prompt: ?44," Last updated: ",$$FMTE^XLFDT($P(LRX,"^",11),"1M")
  • Line Location: ISQN+15
Function Call: WRITE
  • Prompt: !,?13," Order NLT: "
  • Line Location: ISQN+18
Function Call: WRITE
  • Prompt: !,"No data for that accession"
  • Line Location: ISQN+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
^LAM - [#64] GET1^DIQ
^LRO(68 - [#68] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call