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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRVR0

Package: Lab Service

Routine: LRVR0


Information

LRVR0 ;DALOI/STAFF - LEDI MI/AP Data Verification ;01/18/17 09:31

Source Information

Source file <LRVR0.m>

Call Graph

Call Graph Total: 31

Package Total Call Graph
Lab Service 21 ^LRCAPV2  (ASKXQA,AUDRTN,EC3,PROV)^LRMIEDZ2  EC^LRMIEDZ4  DQ^LRMIPSZ1  VT^LRMIUT1  P15^LROE1  UPDATE^LRPXRM  EDIT^LRRPLU  
ROLLUPPL^LRRPLUA  $$GETLOCK^LRUTIL  SETRL^LRVERA  ($$LRTM60,STOP)^LRVR  ZAPALL^LRVR3  (NEXT,WLN)^LRVRA  ^LRVRAP4  ^LRVRKIL  
$$LEDIERR^LRVRMI0  EN^LRVRMI1  EN^LRVRMI4  ADATE^LRWU  (DUZ,PT)^LRX  
VA FileMan 4 ^DIC  (,FILE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  $$KSP^XUPARAM  
Automated Lab Instruments 2 $$OK2SEND^LA7SRR  MIAP^LA7VMSG  
Toolkit 1 $$GET^XPAR  

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 9 LRAPR  LRAPR1  LRAPRES  LRMIEDZ2  LRMISTF1  LRMIVER1  LRVR  LRVRAP4  
LRVRMI0  

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

External References

Name Field # of Occurrence
^DIC ACCSET+67
^DIE ACCEPT+45
FILE^DIE SETACC+7
$$GET1^DIQ ISQN+21
^DIR ACC+15, ACCSET+38, ACCEPT+26, PURG+6, ISQN+33
$$OK2SEND^LA7SRR LEDI+11
MIAP^LA7VMSG LEDI+22
^LRCAPV2 CLEAN+3
ASKXQA^LRMIEDZ2 ACCEPT+67
AUDRTN^LRMIEDZ2 ACCEPT+52
EC3^LRMIEDZ2 ACCEPT+73
PROV^LRMIEDZ2 ACCSET+35
EC^LRMIEDZ4 ACCEPT+34
DQ^LRMIPSZ1 ACCEPT+5
VT^LRMIUT1 ACCEPT+46
P15^LROE1 ACCSET+50
UPDATE^LRPXRM ACCEPT+64
EDIT^LRRPLU ACCEPT+58
ROLLUPPL^LRRPLUA ACCEPT+55
$$GETLOCK^LRUTIL ACCSET+42, ACCSET+44
SETRL^LRVERA ACCEPT+61
$$LRTM60^LRVR ACC+25
STOP^LRVR ACC+16, ACCMSG+2
ZAPALL^LRVR3 ZAP+3
NEXT^LRVRA UID+8, UID+27
WLN^LRVRA UID+8
^LRVRAP4 UID+17, ACC+27
^LRVRKIL CLEAN+10
$$LEDIERR^LRVRMI0 PROC+1
EN^LRVRMI1 PROC+6
EN^LRVRMI4 ACCEPT+37
ADATE^LRWU ACC+1
DUZ^LRX UID+7
PT^LRX ACCSET+28
$$FMTE^XLFDT ISQN+13, ISQN+15
$$NOW^XLFDT SETACC+5
$$CJ^XLFSTR LEDI+21, LEDINO+1
$$GET^XPAR ACCSET+35, ACCEPT+12
$$KSP^XUPARAM EN+10

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+58
Function Call: WRITE
  • Prompt: !
  • Line Location: PURG+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Sending report to LEDI collecting site",IOM)
  • Line Location: LEDI+21
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
Routine Call
  • DIC
  • Line Location:
    • ACCSET+67
Routine Call
  • DIE
  • Line Location:
    • ACCEPT+45
Routine Call
  • DIE
  • Line Location:
    • SETACC+7
Routine Call
  • DIR
  • Line Location:
    • ACC+15
    • ACCSET+38
    • ACCEPT+26
    • PURG+6
    • ISQN+33

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] EN+12, ACCSET+73
^LAH( ACC+8, ACC+10, ACC+11, ACCSET+3, ACCSET+76, ISQN+3, ISQN+5, ISQN+16, ISQN+19
^LAM("E" ISQN+20
^LR - [#63] PROC+4, ACCSET+27, UNLOCK+3
^LRO(68 - [#68] EN+4, ACCSET+9, ACCSET+15, ACCSET+19, ACCSET+20, ACCSET+22, ACCSET+26, ACCSET+48, ACCSET+59, ACCSET+60
, UNLOCK+2, LEDI+3, LEDI+5, LEDI+8, LEDI+9, LEDI+10, LEDI+16, LEDI+17, ISQN+9, ISQN+12
, ISQN+14
^LRO(68.2 - [#68.2] EN+13
^LRO(69 - [#69] ACCSET+53
^TMP("LRMI" CLEAN+5!, ACCEPT+77!
^TMP("LRPL" ACCEPT+55

Label References

Name Line Occurrences
ACC EN+14
ACCEPT UID+18, ACC+28
ACCMSG ACC+8, ACC+10, ACC+11, ACC+17
ACCSET UID+15, ACC+24
CLEAN EN+16, UID+28, ACC+35
ISQN UID+12, ACC+21
LEDI ACCEPT+76
LEDINO LEDI+11
NOLOCK ACCSET+43, ACCSET+45
PROC UID+18, ACC+28
PURG ACCEPT+29
SETACC LEDI+18
UID EN+15
UNLOCK UID+27, ACC+33
ZAP ACCSET+6, ACCSET+14, ACCSET+17, ACCEPT+76, PURG+8

Naked Globals

Name Field # of Occurrence
^( ACCSET+19, ACCSET+26
^(0 EN+12, ACCSET+21, ACCSET+27
^(1 ACCSET+73
^(3 ACCSET+20, ACCSET+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE CLEAN+6!
AGE(2 UID+22, ACCSET+32
C5 UID+6!
DA ACCSET+1~, ACCSET+64!, ACCSET+66*, ACCEPT+41~, ACCEPT+43*
DA(1 ACCSET+66*, ACCEPT+43*
DA(2 ACCSET+66*
DFN CLEAN+6!, ACCSET+27*
DIC UID+6!, ACC+7!, ACCSET+1~, ACCSET+64!, ACCSET+65*
DIC("A" ACCSET+65*
DIC("S" ACCSET+65*
DIC(0 ACCSET+65*
DIE ACCEPT+41~, ACCEPT+43*
DIR UID+1~, UID+6!, ACC+7!, ACCSET+1~, ACCEPT+8~, PURG+2~, ISQN+28~
DIR("?" ACC+12*, ACCEPT+14*, ACCEPT+15*, ACCEPT+16*, ACCEPT+17*, ACCEPT+18*, ACCEPT+23*, ACCEPT+24*, PURG+4*, PURG+5*
DIR("A" ACC+12*, ACCEPT+11*, ACCEPT+22*, PURG+3*, ISQN+31*
DIR("B" ACC+14*, ACCEPT+12*, ACCEPT+13*, ACCEPT+22*, PURG+3*, ISQN+32*
DIR("S" ACC+13*
DIR(0 ACC+12*, ACCSET+37*, ACCEPT+10*, ACCEPT+21*, PURG+3*, ISQN+29*, ISQN+30*, ISQN+31*
DIROUT ACCEPT+8~, PURG+2~, ISQN+28~
DIRUT UID+1~, UID+6!, CLEAN+6!, ACC+16, ACCSET+1~, ACCSET+39, ACCEPT+8~, ACCEPT+28, PURG+2~, PURG+7
, ISQN+28~, ISQN+34
DR ACCEPT+41~, ACCEPT+44*
DTOUT UID+1~, UID+6!, ACCSET+1~, ISQN+28~
DUOUT UID+1~, UID+6!, ACCSET+1~, ACCEPT+8~, PURG+2~, ISQN+28~
DUZ UID+7, SETACC+4
DUZ(2 ACCEPT+61
EAMODE EN+1~, EN+11*
I CLEAN+6!, ISQN+30*
IEN LEDI+2~, LEDI+15*, LEDI+16*, LEDI+17
IOF UID+5, UID+21, ACC+6, ACC+31
IOM LEDI+21, LEDINO+1
>> ISQN UID+25*, ACC+32*, ZAP+2, ISQN+25*, ISQN+35*
LA7X EN+1~
LR64 ISQN+17~, ISQN+20*, ISQN+21
LRAA EN+4, ACCSET+8*, ACCSET+9, ACCSET+12, ACCSET+15, ACCSET+19, ACCSET+20, ACCSET+22, ACCSET+26, ACCSET+48
, ACCSET+49~, ACCSET+59, ACCSET+60, ACCSET+66, UNLOCK+2, SETACC+3, LEDI+3, LEDI+5, LEDI+8, LEDI+9
, LEDI+10, LEDI+16, LEDI+17, LEDI+22, ISQN+7, ISQN+9, ISQN+12, ISQN+14
LRAB UID+6!
LRACC UID+23, CLEAN+6!, ACCSET+20*, ACCSET+33
LRAD ACC+2, ACCSET+10*, ACCSET+12, ACCSET+15, ACCSET+19, ACCSET+20, ACCSET+22, ACCSET+26, ACCSET+48, ACCSET+49~
, ACCSET+59, ACCSET+60, ACCSET+66, UNLOCK+2, SETACC+3, LEDI+3, LEDI+5, LEDI+8, LEDI+10, LEDI+16
, LEDI+17, LEDI+22, ISQN+9, ISQN+12, ISQN+14
LRAN ACC+3*, ACC+8*, ACC+9, ACC+10, ACC+14, ACC+17*, ACCSET+10*, ACCSET+12, ACCSET+15, ACCSET+19
, ACCSET+20, ACCSET+22, ACCSET+26, ACCSET+48, ACCSET+49~, ACCSET+59, ACCSET+60, ACCSET+66, UNLOCK+2, SETACC+3
, LEDI+3, LEDI+5, LEDI+8, LEDI+10, LEDI+16, LEDI+17, LEDI+22, ISQN+3, ISQN+9, ISQN+12
, ISQN+14
LRANOK ACCEPT+41~, ACCEPT+42*, ACCEPT+50~, ACCEPT+51*
LRANYAA EN+1~, EN+13*
LRAO EN+1~
LRBATCH ACCEPT+1~, ACCEPT+4*
LRBG0 EN+1~, PROC+4*
LRCAPO ACCEPT+41~, ACCEPT+50~
>> LRCAPOK ACCEPT+42*, ACCEPT+51*
LRCDEF SETACC+6, LEDI+13~*
LRCDEFX LEDI+2~, LEDI+13*
LRCDT CLEAN+6!, ACC+25, ACCSET+20*, ACCSET+51
LRCEN UID+23, CLEAN+7!, ACCSET+19*, ACCSET+33
LRCFL EN+1~, EN+11*
LRCMNT EN+1~
LRCNT ACCSET+1~, ACCSET+58*, ACCSET+60*, ACCSET+63
>> LRDBUG ACC+4
LRDEL UID+6!
LRDFN CLEAN+7!, PROC+4, ACCSET+19*, ACCSET+27, UNLOCK+3, ACCEPT+43, ACCEPT+55, ACCEPT+58, ACCEPT+61, ACCEPT+64
, LEDI+22
LRDINST EN+1~, EN+10*
LRDL UID+6!
LRDPF CLEAN+7!, ACCSET+27*
LREDITTYPE ACCEPT+1~, ACCEPT+4*, ACCEPT+27*, ACCEPT+33, ACCEPT+40, ACCEPT+44, ACCEPT+49
LREND EN+1~, UID+3, ACC+4, ACCEPT+2*
LRERR ACCSET+2!, ACCSET+41!, ACCSET+43*, ACCSET+45*, NOLOCK+1, SETACC+1~, SETACC+2*, LEDI+2~
LRFDA SETACC+1~
LRFDA(1 SETACC+4*, SETACC+5*, SETACC+6*
LRFIFO EN+1~, PROC+4*, ACCEPT+70*
LRFILE SETACC+1~, SETACC+2*, SETACC+4, SETACC+5, SETACC+6
LRFLAG EN+1~
LRFP UID+6!
LRI ACCSET+1~, ACCSET+25*, ACCSET+26*, ACCSET+58*, ACCSET+59*, ACCSET+60, ACCEPT+35, ISQN+1~, ISQN+2*, ISQN+3*
, ISQN+5, ISQN+11, ISQN+12, ISQN+16, ISQN+19
LRIDT PROC+4, ACCSET+22*, UNLOCK+3, ACCEPT+43, ACCEPT+55, ACCEPT+58, ACCEPT+61, ACCEPT+64, LEDI+2~, LEDI+10*
, LEDI+22
LRIENS SETACC+1~, SETACC+3*, SETACC+4, SETACC+5, SETACC+6
LRINTYPE EN+1~, ACCSET+76*, ACCEPT+9, ACCEPT+40, ACCEPT+49, ACCEPT+70
LRISQN UID+25*, CLEAN+7!, ACC+10*, ACC+11, ACC+32*, PROC+1, ACCSET+3, ACCSET+5, ACCSET+13, ACCSET+76
, ZAP+2, ISQN+25*, ISQN+35*
LRLAHD ACCSET+1~, ACCSET+3*, ACCSET+4, ACCSET+8, ACCSET+10
LRLDT UID+6!
LRLEDI EN+1~, EN+11*, ACCEPT+41~, ACCEPT+50~
>> LRLL EN+13, ACC+8, ACC+10, ACC+11, PROC+1, ACCSET+3, ACCSET+5, ACCSET+13, ACCSET+76, ACCEPT+12
, ZAP+3, ISQN+3, ISQN+5, ISQN+16, ISQN+19
LRLLT EN+1~
LRLOCK CLEAN+7!, ACCSET+3*, ACCSET+47*, UNLOCK+1
LRMIDEF EN+1~, ACCSET+73*
LRMIOTH EN+1~, ACCSET+73*
LRMODE ACCEPT+1~, ACCEPT+4*
LRMULTSQ UID+4~, UID+13*, ACC+5~, ACC+22*, ISQN+25, ISQN+32
LRNG UID+6!
LRNLT ISQN+17~, ISQN+19*, ISQN+20, ISQN+22
LRNLTN ISQN+17~, ISQN+21*, ISQN+22
LRNM UID+6!
LRNODE ACCSET+1~, ACCSET+26*
LRNOP EN+2~, UID+6!, UID+8, UID+10, UID+14, UID+16, UID+19, UID+20*, CLEAN+7!, ACC+2*
, ACC+7!, ACC+16*, ACC+19, ACC+23, ACC+26, ACC+29, ACC+30*, ACCMSG+2*, ACCSET+3*, ACCSET+6*
, ACCSET+9*, ACCSET+14*, ACCSET+17*, ACCSET+39*, ACCSET+51*, ACCSET+53, ACCSET+55*, ACCSET+68*, ACCSET+71, NOLOCK+2*
, ACCEPT+28*, ACCEPT+30*, PURG+7*, ISQN+24*, ISQN+34*
LRNPTP ACCEPT+1~
LRODT CLEAN+7!, ACCSET+21*, ACCSET+53, LEDI+8*, LEDI+22
LRONESPC EN+2~
LRONETST EN+2~
LRORDT LEDI+2~
LRORU3 ACCSET+22*, ACCSET+23, LEDI+2~, LEDI+5*, LEDI+6
LROU3 CLEAN+7!
LRPG EN+2~
LRPIECE ISQN+17~, ISQN+19*
LRPROF EN+13, CLEAN+7!
LRPTP EN+2~, ACCSET+58*, ACCSET+60*, ACCSET+66*, ACCSET+69*
LRPUID CLEAN+7!
LRSAME EN+2~
LRSB EN+2~
LRSEQCNT UID+11~, UID+13, UID+20, ACC+20~, ACC+22, ACC+30, ISQN+2*, ISQN+10, ISQN+11*, ISQN+24
, ISQN+25, ISQN+32
LRSET UID+6!
LRSN CLEAN+8!, ACCSET+21*, ACCSET+53
LRSQ ISQN+1~, ISQN+11*, ISQN+25, ISQN+32
LRSQ( ISQN+11*, ISQN+30
LRSS EN+2~, EN+4*, EN+5, EN+8, UID+17, UID+18, ACC+27, ACC+28, ACCSET+9, UNLOCK+3
, ACCEPT+55, ACCEPT+61, LEDI+2~, LEDI+9*, LEDI+13, LEDI+22
>> LRSSC PROC+4*
LRSTATUS CLEAN+8!, ACCSET+50*
LRTEC UID+7*, CLEAN+8!
LRTEST UID+6!
LRTM60 EN+2~, ACC+25*
LRTS ACCSET+23*, ACCSET+26*, ACCEPT+35*, SETACC+3, LEDI+14~, LEDI+16, LEDI+17*, LEDI+18, LEDI+22
LRTS( ACCEPT+35
LRTSDEF LEDI+2~, LEDI+17*
LRTX EN+2~
LRUID EN+2~, EN+15*, UID+23, ERR1+1, ACCSET+23*, ACCSET+33
LRUNDO ACCEPT+41~, ACCEPT+42*, ACCEPT+50~, ACCEPT+51*
LRUSI UID+7, CLEAN+8!
LRVBY EN+14, EN+15, CLEAN+8!, ACCSET+31
LRVER UID+6!
LRVT EN+2~, EN+8*
LRWRDVEW EN+2~, EN+11*
LRX EN+2~, EN+12*, ISQN+4~, ISQN+5*, ISQN+7, ISQN+9, ISQN+13, ISQN+15
PNM UID+22, CLEAN+8!, ACCSET+32
REC ZAP+1~, ZAP+2*, ZAP+3
SSN UID+22, CLEAN+8!, ACCSET+32
T UID+6!
U EN+4, EN+12, PROC+4, ACCSET+8, ACCSET+9, ACCSET+10, ACCSET+20, ACCSET+21, ACCSET+22, ACCSET+23
, ACCSET+26, ACCSET+27, ACCSET+53, ACCSET+73, LEDI+6, LEDI+8, LEDI+9, LEDI+10, LEDI+17
X EN+2~, UID+1~, UID+6!, UID+7*, CLEAN+8!, ACCSET+42*, ACCSET+43, ACCSET+44*, ACCSET+45
Y EN+2~, UID+1~, UID+6!, CLEAN+8!, ACC+7!, ACC+9*, ACC+13, ACC+17, ACCSET+68, ACCSET+69
, ACCEPT+27, ACCEPT+29, ACCEPT+30, PURG+8, ISQN+34, ISQN+35
Z UID+6!
ZTDESC CLEAN+9!
ZTDTH CLEAN+9!
ZTIO CLEAN+9!
ZTRTN CLEAN+9!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All