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
Print Page as PDF
Routine: LRVR1

Package: Lab Service

Routine: LRVR1


Information

LRVR1 ;DALOI/CJS/JAH - LAB ROUTINE DATA VERIFICATION;Sep 27, 2018@10:00:00

Source Information

Source file <LRVR1.m>

Entry Points

Name Comments DBIA/ICR reference
T1
T2
T3
VER ; from LRFLAG, LRGP, LRVRW
V2
LD
TEST ; from LRGV1
TEST1 ; from LRFLAG
EX2 ;
; If dataname then process and quit
QUIT
WAIT
WAIT1
SEQDISP(LRLL,LRISQN) ; Display test results for a LAH entry.
; Call with LRLL = ien of enry in LAH
; LRISQN = sequence ien of enry in LAH

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRVR1+12
Function Call: WRITE
  • Prompt: !,?2,"Seq #: ",LRI,?13," Accession: ",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^")
  • Line Location: LRVR1+14
Function Call: WRITE
  • Prompt: ?40," Results received: ",$$FMTE^XLFDT($P(LRX,"^",10),"1M")
  • Line Location: LRVR1+15
Function Call: WRITE
  • Prompt: !,?20,"UID: ",$P($G(^LAH(LRLL,1,LRI,.3),"UNKNOWN"),"^")
  • Line Location: LRVR1+16
Function Call: WRITE
  • Prompt: ?44," Last updated: ",$$FMTE^XLFDT($P(LRX,"^",11),"1M")
  • Line Location: LRVR1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: LRVR1+26
Function Call: WRITE
  • Prompt: !,"No data there"
  • Line Location: LRVR1+34
Function Call: READ
  • Formatting: !
  • Prompt: "What tray: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !,"Enter a number"
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !,"Can't MANUALLY add to a SEQUENCE instrument data file."
  • Line Location: T1+2
Function Call: WRITE
  • Prompt: !,"Enter manually"
  • Line Location: T1+3
Function Call: READ
  • Formatting: !
  • Prompt: "What cup: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !,"Enter a number"
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !,?5,LRI
  • Line Location: T2+5
Function Call: WRITE
  • Prompt: !,"No data for that tray & cup"
  • Line Location: T3+0
Function Call: READ
  • Formatting: !
  • Prompt: "Choose sequence number: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !,"Enter a number"
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !,"No data there"
  • Line Location: T3+4
Function Call: WRITE
  • Prompt: !!,"Amended results exist for this accession. Please process these"
  • Line Location: VER+8
Function Call: WRITE
  • Prompt: !,"first using option Enter/verify/modify data (manual) [LRENTER]"
  • Line Location: VER+9
Function Call: WRITE
  • Prompt: !,"No tests in editing profile"
  • Line Location: VER+12
Function Call: WRITE
  • Prompt: !,$P(^LRO(69,LRODT,1,LRSN,1),U,6)
  • Line Location: V2+2
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO POINTER TO FILE #63 - PLEASE NOTIFY SYSTEM MANAGER^ <<<<<",!
  • Line Location: V2+26
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO ENTRY IN FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<^ <<<",!
  • Line Location: V2+27
Function Call: WRITE
  • Prompt: !!?5,"No Data for this Accession ",!!
  • Line Location: LD+4
Function Call: WRITE
  • Prompt: !,"Type ""^"" to skip "
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !!,"Results for Sequence #"_LRISQN
  • Line Location: SEQDISP+6
Function Call: WRITE
  • Prompt: !,"Test",?25,"Value",?40,"Flag",?50,"Units"
  • Line Location: SEQDISP+9
Function Call: WRITE
  • Prompt: !,"----",?25,"-----",?40,"----",?50,"-----"
  • Line Location: SEQDISP+10
Function Call: WRITE
  • Prompt: !,$E($P(LR60(0),"^"),1,24),?25," ",$P(LRX,"^"),?39," ",$P(LRX,"^",2),?49," ",$P($P(LRX,"^",5),"!",7)
  • Line Location: SEQDISP+18
Function Call: WRITE
  • Prompt: !,"Comments"
  • Line Location: SEQDISP+22
Function Call: WRITE
  • Prompt: !,"#",LRI," ",$P(LRX,"^")
  • Line Location: SEQDISP+26
Function Call: WRITE
  • Prompt: !,"Comments # ",LRJ," previously processed"
  • Line Location: SEQDISP+28
Function Call: WRITE
  • Prompt: !
  • Line Location: SEQDISP+30
Info |  Source |  Entry Points |  Interaction Calls