Routine: LRVR0

Package	Total	Call Graph
Lab Service	22	LOOK^LRCAPV1 ^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

Package	Total	Caller Graph
Lab Service	9	LRAPR LRAPR1 LRAPRES LRMIEDZ2 LRMISTF1 LRMIVER1 LRVR LRVRAP4 LRVRMI0

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

Name	Field # of Occurrence
^DIC	ACCSET+67
^DIE	ACCEPT+69
FILE^DIE	SETACC+7
$$GET1^DIQ	ISQN+21
^DIR	ACC+15, ACCSET+38, ACCEPT+36, PURG+6, ISQN+33
$$OK2SEND^LA7SRR	LEDI+11
MIAP^LA7VMSG	LEDI+27
LOOK^LRCAPV1	ACCEPT+103
^LRCAPV2	CLEAN+3
ASKXQA^LRMIEDZ2	ACCEPT+91
AUDRTN^LRMIEDZ2	ACCEPT+76
EC3^LRMIEDZ2	ACCEPT+97
PROV^LRMIEDZ2	ACCSET+35
EC^LRMIEDZ4	ACCEPT+58
DQ^LRMIPSZ1	ACCEPT+7
VT^LRMIUT1	ACCEPT+70
P15^LROE1	ACCSET+50
UPDATE^LRPXRM	ACCEPT+88
EDIT^LRRPLU	ACCEPT+82
ROLLUPPL^LRRPLUA	ACCEPT+79
$$GETLOCK^LRUTIL	ACCSET+42, ACCSET+44
SETRL^LRVERA	ACCEPT+85
$$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+61
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+26, LEDINO+1
$$GET^XPAR	ACCSET+35, ACCEPT+22
$$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+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
Routine Call	DIC Line Location: ACCSET+67
Routine Call	DIE Line Location: ACCEPT+69
Routine Call	DIE Line Location: SETACC+7
Routine Call	DIR Line Location: ACC+15 ACCSET+38 ACCEPT+36 PURG+6 ISQN+33

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls
^LAM - [#64]	GET1^DIQ
^LRO(68 - [#68]	Classic Fileman Calls

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, ACCEPT+54
^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+110!
^TMP("LRPL"	ACCEPT+79

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+109
LEDINO	LEDI+11
NOLOCK	ACCSET+43, ACCSET+45
PROC	UID+18, ACC+28
PURG	ACCEPT+16, ACCEPT+39
UID	EN+15
UNLOCK	UID+27, ACC+33
ZAP	ACCSET+6, ACCSET+14, ACCSET+17, ACCEPT+109, PURG+8

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+65~, ACCEPT+67
DA(1	ACCSET+66, ACCEPT+67
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+65~, ACCEPT+67*
DIR	UID+1~, UID+6!, ACC+7!, ACCSET+1~, ACCEPT+18~, PURG+2~, ISQN+28~
DIR("?"	ACC+12, ACCEPT+24, ACCEPT+25, ACCEPT+26, ACCEPT+27, ACCEPT+28, ACCEPT+33, ACCEPT+34, PURG+4, PURG+5
DIR("A"	ACC+12, ACCEPT+21, ACCEPT+32, PURG+3, ISQN+31*
DIR("B"	ACC+14, ACCEPT+22, ACCEPT+23, ACCEPT+32, PURG+3, ISQN+32
DIR("S"	ACC+13*
DIR(0	ACC+12, ACCSET+37, ACCEPT+20, ACCEPT+31, PURG+3, ISQN+29, ISQN+30, ISQN+31
DIROUT	ACCEPT+18~, PURG+2~, ISQN+28~
DIRUT	UID+1~, UID+6!, CLEAN+6!, ACC+16, ACCSET+1~, ACCSET+39, ACCEPT+18~, ACCEPT+38, PURG+2~, PURG+7 , ISQN+28~, ISQN+34
DR	ACCEPT+65~, ACCEPT+68*
DTOUT	UID+1~, UID+6!, ACCSET+1~, ISQN+28~
DUOUT	UID+1~, UID+6!, ACCSET+1~, ACCEPT+18~, PURG+2~, ISQN+28~
DUZ	UID+7, SETACC+4
DUZ(2	ACCEPT+85
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+26, 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+27, 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+27, 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+27, ISQN+3, ISQN+9, ISQN+12 , ISQN+14
LRANOK	ACCEPT+65~, ACCEPT+66, ACCEPT+74~, ACCEPT+75
LRANYAA	EN+1~, EN+13*
LRAO	EN+1~
LRBATCH	ACCEPT+1~, ACCEPT+4*
LRBG0	EN+1~, PROC+4*
LRCAPO	ACCEPT+65~, ACCEPT+74~
>> LRCAPOK	ACCEPT+66, ACCEPT+75
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+54, ACCEPT+67, ACCEPT+79, ACCEPT+82, ACCEPT+85 , ACCEPT+88, LEDI+27
LRDINST	EN+1~, EN+10*
LRDL	UID+6!
LRDPF	CLEAN+7!, ACCSET+27*
LREDITTYPE	ACCEPT+1~, ACCEPT+4, ACCEPT+37, ACCEPT+57, ACCEPT+64, ACCEPT+68, ACCEPT+73
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+94
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+59, ISQN+1~, ISQN+2, ISQN+3 , ISQN+5, ISQN+11, ISQN+12, ISQN+16, ISQN+19
LRIDT	PROC+4, ACCSET+22, UNLOCK+3, ACCEPT+54, ACCEPT+67, ACCEPT+79, ACCEPT+82, ACCEPT+85, ACCEPT+88, LEDI+2~ , LEDI+10, LEDI+27
LRIENS	SETACC+1~, SETACC+3*, SETACC+4, SETACC+5, SETACC+6
LRINTYPE	EN+1~, ACCSET+76*, ACCEPT+19, ACCEPT+52, ACCEPT+64, ACCEPT+73, ACCEPT+94, ACCEPT+102
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+65~, ACCEPT+74~
>> LRLL	EN+13, ACC+8, ACC+10, ACC+11, PROC+1, ACCSET+3, ACCSET+5, ACCSET+13, ACCSET+76, ACCEPT+22 , ZAP+3, ISQN+3, ISQN+5, ISQN+16, ISQN+19
LRLLT	EN+1~
LRLOCK	CLEAN+7!, ACCSET+3, ACCSET+47, UNLOCK+1
LRM63ORG	ACCEPT+51~, ACCEPT+106!
LRM63ORG(	ACCEPT+54*
LRM63SQ	ACCEPT+51~, ACCEPT+53*, ACCEPT+54
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+38, ACCEPT+40, PURG+7, ISQN+24, ISQN+34*
LRNPTP	ACCEPT+1~
LRODT	CLEAN+7!, ACCSET+21, ACCSET+53, LEDI+8, LEDI+27
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+79, ACCEPT+85, LEDI+2~, LEDI+9, LEDI+13, LEDI+27
>> 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+59, SETACC+3, LEDI+14~, LEDI+16, LEDI+17, LEDI+27
LRTS(	ACCEPT+59
LRTSDEF	LEDI+2~, LEDI+17*
LRTX	EN+2~
LRUID	EN+2~, EN+15, UID+23, ERR1+1, ACCSET+23, ACCSET+33
LRUNDO	ACCEPT+65~, ACCEPT+66, ACCEPT+74~, ACCEPT+75
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
LRXPROB	ACCEPT+6~*, ACCEPT+8
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+37, ACCEPT+39, ACCEPT+40, PURG+8, ISQN+34, ISQN+35
Z	UID+6!
ZTDESC	CLEAN+9!
ZTDTH	CLEAN+9!
ZTIO	CLEAN+9!
ZTRTN	CLEAN+9!

Customize PDF page

Package: Lab Service

Routine: LRVR0

Information

Source Information

Call Graph

Call Graph Total: 32

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: