Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 6 P15^LROE1  ($$NLT,$$RNLT)^LRVER1  $$LRTM60^LRVR  ^LRVR2  ZAPALL^LRVR3  DUZ^LRX  
VA FileMan 2 YN^DICN  ^DIR  
Automated Lab Instruments 1 (UID,UPDT)^LAGEN  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Lab Service 8 LRFLAG  LRGP  LRGV1  LRVR  LRVRA  LRVRAR  LRVRPOC  LRVRW  
Automated Lab Instruments 1 LAKDIFF3  

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

External References

Name Field # of Occurrence
YN^DICN T1+3
^DIR LRVR1+25
UID^LAGEN VER+21
UPDT^LAGEN VER+22
P15^LROE1 V2+8
$$NLT^LRVER1 TEST+14, EX2+24
$$RNLT^LRVER1 EX2+8
$$LRTM60^LRVR LD+16
^LRVR2 LD+20
ZAPALL^LRVR3 LD+5
DUZ^LRX VER+13
$$FMTE^XLFDT LRVR1+15, LRVR1+17, V2+6
$$NOW^XLFDT V2+11

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
Routine Call
  • DIR
  • Line Location:
    • LRVR1+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TEST1+3, EX2+13, EX2+18, EX2+19, EX2+23, SEQDISP+16, SEQDISP+17
^LAB(62 - [#62] LD+18
^LAB(69.9 - [#69.9] V2+1
^LAH( LRVR1+5, LRVR1+7, LRVR1+16, T2+5, T3+4, VER+16, VER+19*, VER+20*, VER+23*, VER+24
LD+3, LD+9, WAIT1+1, SEQDISP+8, SEQDISP+14, SEQDISP+15, SEQDISP+21, SEQDISP+24, SEQDISP+25
^LAH("LA7 AMENDED RESULTS" VER+6
^LR - [#63] V2+27, LD+10, LD+12, LD+14*
^LRO(68 - [#68] LRVR1+11, LRVR1+14, VER+3, V2+3, V2+4, V2+11, V2+13, V2+14, V2+16, V2+18
V2+22, V2+25, TEST+5, TEST+13, EX2+21
^LRO(68.2 - [#68.2] T1+2
^LRO(69 - [#69] V2+2, V2+20
^TMP("LR" VER+2!, VER+12, TEST+3, TEST+5, TEST+15*, TEST1+4!, EX2+6, EX2+7*, EX2+9*

Label References

Name Line Occurrences
EX2 TEST1+10
LRVR1 WAIT1+1, WAIT1+2
QUIT T1+2, T1+3
SEQDISP LRVR1+27
T1 T1T1+3
T2 T1+1, T2
T3 LRVR1+29, T2+2, T3+1, T3+4
TEST VER+11
V2 VER+14
VER LRVR1+29, T1+3, T1+4
WAIT1 WAIT1+1

Naked Globals

Name Field # of Occurrence
^( V2+18, TEST+3!, TEST+5, EX2+6*, EX2+18
^(0 V2+2, V2+18, LD+18, TEST+5, TEST1+3
^(3 V2+11*
^(4 EX2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % T1+3*
%DT V2+5~
%DT("B" V2+6*
>> DILOCKTM VER+16
DIR LRVR1+21~
DIR("A" LRVR1+24*
DIR("B" LRVR1+24*
DIR(0 LRVR1+22*, LRVR1+23*
DIROUT LRVR1+21~
DIRUT LRVR1+21~
DTIME T1T2T3+1
DTOUT LRVR1+21~
DUOUT LRVR1+21~
DUZ VER+13
DUZ(2 LRVR1+34
I LRVR1+21~, LRVR1+23*, V2+17*, V2+18*, LD+11~, LD+13*, TEST1+7*, TEST1+8, TEST1+9
>> J EX2+17*, EX2+18*, EX2+19
LR60 SEQDISP+4~, SEQDISP+16*, SEQDISP+17
LR60(0 SEQDISP+17*, SEQDISP+18
LRA1 V2+5~, V2+7*, V2+9
LRA2 V2+5~, V2+7*, V2+9
LRA3 V2+5~, V2+7*, V2+9
>> LRAA LRVR1+9, LRVR1+11, LRVR1+14, VER+3, VER+20, V2+3, V2+4, V2+7, V2+9*, V2+11
V2+13, V2+14, V2+16, V2+18, V2+22, V2+25, TEST+5, TEST+13, EX2+21
>> LRAD LRVR1+11, LRVR1+14, VER+3, VER+20, V2+3, V2+4, V2+7, V2+9*, V2+11, V2+13
V2+14, V2+16, V2+18, V2+25, TEST+5, TEST+13, EX2+21
>> LRAL V2+18*, V2+19
>> LRALERT V2+16*, V2+19*
>> LRAN LRVR1+5, LRVR1+11, LRVR1+14, VER+3, VER+20, VER+23, V2+3, V2+4, V2+7, V2+9*
V2+11, V2+13, V2+14, V2+16, V2+18, V2+25, TEST+5, TEST+13, EX2+21, WAIT1+1
LRBETST LRVR1+3~
LRBETST( TEST1+3*
LRBEY LRVR1+3~
LRBEY( EX2+11*
>> LRCDT V2+3*, V2+6, V2+10, V2+14*, V2+15, LD+16
>> LRCFL EX2+13*
>> LRCW V2+29*
>> LRDFN V2+27, LD+10, LD+12, LD+14
LRDL LD+21!
>> LRDUZ(2 LRVR1+34
>> LREAL V2+16*
>> LRGVP LD+9
LRI LRVR1+3~, LRVR1+4*, LRVR1+5*, LRVR1+7, LRVR1+13, LRVR1+14, LRVR1+16, T2+5*, TEST+1~, TEST+2*
TEST+3*, TEST+4*, TEST+5*, TEST1+2~, TEST1+3*, SEQDISP+4~, SEQDISP+23*, SEQDISP+25*, SEQDISP+26
>> LRIDT V2+25*, V2+26, V2+27, LD+10, LD+12, LD+14
LRISQN SEQDISP~, SEQDISP+6, SEQDISP+8, SEQDISP+14, SEQDISP+15, SEQDISP+21, SEQDISP+24, SEQDISP+25
LRJ SEQDISP+4~, SEQDISP+23*, SEQDISP+27*, SEQDISP+28
LRLL LRVR1+5, LRVR1+7, LRVR1+16, LRVR1+27, T1+2, T2+5, T3+4, VER+6, VER+7, VER+16
VER+19, VER+20, VER+21, VER+22, VER+23, VER+24, LD+3, LD+5, LD+9, WAIT1+1
, SEQDISP~, SEQDISP+8, SEQDISP+14, SEQDISP+15, SEQDISP+21, SEQDISP+24, SEQDISP+25
>> LRLLOC V2+1*, V2+2*
LRM TEST1+6!
LRM( EX2+10*
>> LRMETH LD+9*, LD+13*, LD+14
LRN LRVR1+3~, LRVR1+4*, LRVR1+12, LRVR1+13*, LRVR1+20, LRVR1+29, T2+2*, T2+4*, T2+5*, T3
T3+1, T3+3
LRNM VER+2!
>> LRNT TEST+4*, TEST+12*, TEST+14, TEST+15, TEST1+3, EX2+22*, EX2+23, EX2+24
>> LRNX TEST1+5*
>> LRODT V2+2, V2+20
>> LRORDR TEST1+4
>> LROUTINE V2+1*, V2+16
LRPRGSQ LRVR1+3~, T2+3!, T3+2!, LD+6!, LD+21!
LRPRGSQ( LRVR1+13*, LRVR1+23, T2+5*, V2!
LRROOT VER+1~, VER+6*, VER+7
>> LRSAMP V2+20*, LD+18
LRSB EX2+4*, EX2+5, EX2+6, EX2+7, EX2+9, EX2+10, EX2+11, SEQDISP+4~, SEQDISP+13*, SEQDISP+14*
, SEQDISP+15, SEQDISP+16
>> LRSN V2+2, V2+20
>> LRSQ LRVR1+13*, T1+3*, T2+5*, T3+3*, T3+4, VER+14, VER+19*, VER+20, VER+21, VER+22
VER+23, V2LD+3, LD+5, LD+9
>> LRSS V2+22*, V2+23, V2+27, LD*, LD+10, LD+12, LD+14
>> LRSTATUS V2+7*
>> LRSUB EX2+2*, EX2+3, EX2+4
LRTEST VER+2!, TEST1+11!
LRTEST( TEST+12*, TEST+14*, TEST+15, TEST1+3*, TEST1+7, TEST1+8, TEST1+9!, EX2+23*, EX2+24*
>> LRTM60 LD+16*
>> LRTRAY T1+1*, T2+2
>> LRTRCP T2+2*, T2+5
>> LRUID VER+3*, VER+6, VER+7, VER+21
>> LRVTS( EX2+5
LRX LRVR1+6~, LRVR1+7*, LRVR1+9, LRVR1+11, LRVR1+15, LRVR1+17, TEST+1~, TEST+12*, TEST+13*, TEST+14
, SEQDISP+4~, SEQDISP+15*, SEQDISP+18, SEQDISP+25*, SEQDISP+26, SEQDISP+27
LRY SEQDISP+4~, SEQDISP+23*, SEQDISP+24*, SEQDISP+25
U V2+1, V2+2, V2+3, V2+11, V2+13, V2+14, V2+16, V2+18, V2+20, V2+22
V2+25, LD+9, LD+10, LD+12, LD+14, LD+18, TEST+5, TEST+14, TEST1+3, EX2+2
EX2+10, EX2+13, EX2+21, EX2+23, EX2+24, WAIT1+1
X LRVR1+21~, T1*, T1+1, T2*, T2+1, T2+2, T3+1*, T3+2, T3+3, VER+13*
LD+11~, LD+12*, LD+13, TEST+5*, TEST+12, TEST+13, TEST+15, TEST1+8*, EX2+2, EX2+7
EX2+8, EX2+10, EX2+11, EX2+13, EX2+18, EX2+19, WAIT1*, WAIT1+1
>> XP TEST1+8*, EX2+6, EX2+8*, EX2+9, EX2+10, EX2+24
Y LRVR1+21~, LRVR1+26, LRVR1+27, EX2+19*, EX2+21, EX2+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All