Routine: LRVRPOC

Package	Total	Call Graph
Lab Service	11	(E2,END)^LRDPA ^LRORDST ORDER^LROW2 $$TMPSB^LRVER1 V25^LRVER5 TEST^LRVR1 (A3,ZAPALL)^LRVR3 LRSBCOM^LRVR4 ($$GETDFN,CLEAN,INIT,SENDACK,SPALERT,VASD,WKLD)^LRVRPOCU ^LRWLST (DEM,IN5PT)^LRX
Kernel	6	$$S^%ZTLOAD $$NOW^XLFDT ($$NNT,$$PRNT)^XUAF4 KILL^XUSCLEAN $$PROVIDER^XUSER DIVSET^XUSRB2
Automated Lab Instruments	2	$$CREATE^LA7LOG XQA^LA7UXQA
Registration	2	KVAR^VADPT ADM^VADPT2
VA FileMan	2	FILE^DIE $$GET1^DIQ
Scheduling	1	$$OUTPTPR^SDUTL3

Name	Comments	DBIA/ICR reference
EN	; Entry Point Call with LRLL=Load/Worklist IEN
NEXT	; Clean up between entries
END	; Clean up and quit ; Release lock
LOOK	; Check for data
FNLRDFN(DFN)	;Lookup/set LRDFN and define patient variables
NEWPT(DFN)	;Set ^LR( root for patient
DPT(DFN)	;
DATA(LRLL,LAIEN)	;Extract results into LROT(

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	EN+20
FILE^DIE	DATA+82
$$GET1^DIQ	EN+27, FNLRDFN+6, DPT+3, DPT+40, DPT+41, DPT+66, DPT+77, DATA+18, DATA+73
$$CREATE^LA7LOG	LOOK+5, LOOK+9, LOOK+13, LOOK+19, FNLRDFN+4, DPT+7, DPT+12, DPT+20, DPT+25, DPT+48 , DPT+57, DPT+73, DATA+7, DATA+19, DATA+23, DATA+26, DATA+27, DATA+28, DATA+37, DATA+48 , DATA+50, DATA+51, DATA+69, DATA+90
XQA^LA7UXQA	EN+15
E2^LRDPA	NEWPT+4
END^LRDPA	DPT+4
^LRORDST	DATA+62
ORDER^LROW2	DATA+62
$$TMPSB^LRVER1	DATA+94
V25^LRVER5	DATA+98
TEST^LRVR1	DATA+87
A3^LRVR3	DATA+110
ZAPALL^LRVR3	EN+28
LRSBCOM^LRVR4	DATA+110
$$GETDFN^LRVRPOCU	LOOK+3
CLEAN^LRVRPOCU	NEXT+1
INIT^LRVRPOCU	EN+13
SENDACK^LRVRPOCU	LOOK+6, LOOK+10, LOOK+14, LOOK+20, FNLRDFN+5, DPT+8, DPT+13, DPT+21, DPT+26, DPT+49 , DPT+58, DPT+74, DATA+8, DATA+32, DATA+38, DATA+52, DATA+70, DATA+106, DATA+115
SPALERT^LRVRPOCU	END+4
VASD^LRVRPOCU	DPT+44
WKLD^LRVRPOCU	DATA+42
^LRWLST	DATA+67
DEM^LRX	FNLRDFN+10
IN5PT^LRX	FNLRDFN+13
$$OUTPTPR^SDUTL3	DPT+52
KVAR^VADPT	END+4, FNLRDFN+1
ADM^VADPT2	FNLRDFN+12
$$NOW^XLFDT	DATA+55, DATA+85
$$NNT^XUAF4	DPT+68, DPT+70, DPT+72
$$PRNT^XUAF4	DPT+70
KILL^XUSCLEAN	END+4
$$PROVIDER^XUSER	DPT+24
DIVSET^XUSRB2	DATA+16

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^LAHM(62.48 - [#62.48]	GET1^DIQ
^LAHM(62.49 - [#62.49]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	FNLRDFN+3
^LAB(60 - [#60]	DATA+31
^LAH(	EN+19, EN+22, EN+24, LOOK+8, LOOK+11, LOOK+17, DPT+5, DPT+10, DPT+18, DPT+35 , DATA+5, DATA+9, DATA+45, DATA+46, DATA+47, DATA+77
^LAH("Z"	EN+7, END+2
^LR - [#63]	DATA+104*
^LR("A"	NEWPT+2
^LR(0	NEWPT+3, NEWPT+5
^LRO(68.2 - [#68.2]	EN+10, EN+11, DATA+4, DATA+33
^TMP("LR"	END+5!, DATA+26, DATA+51, DATA+90, DATA+92, DATA+97

Name	Line Occurrences
$$FNLRDFN	LOOK+15
$$NEWPT	FNLRDFN+8
DATA	LOOK+22
DPT	FNLRDFN+14
END	EN+8, EN+10, EN+16, EN+29
LOOK	EN+28
NEXT	EN+28

Name	Field # of Occurrence
^("SSN"	LOOK+17
^(0	DATA+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	FNLRDFN+2!
DFN	LOOK+3*, LOOK+4, LOOK+7, FNLRDFN~, FNLRDFN+3, FNLRDFN+6, FNLRDFN+8, FNLRDFN+14, NEWPT~, NEWPT+1 , DPT~, DPT+3, DPT+11, DPT+52
DIC	DPT+1~
DIQUIET	EN+2~
DIV	DPT+65~, DPT+66*, DPT+67, DPT+68
DT	LOOK+2
DUZ(2	DATA+13, DATA+103
ERR	FNLRDFN+2!
FDA	DATA+79~
FDA(1	DATA+80, DATA+81
>> I	DATA+22, DATA+95, DATA+100*
LA76248	EN+2~, EN+26, EN+27, DATA+73, DATA+112
LA76249	EN+2~, EN+24*, EN+27
LA7DIE	DATA+79~
LA7X	DATA+14~, DATA+18*
LADFN	EN+2~, LOOK+7*, LOOK+15
LAIEN	EN+2~, EN+18, EN+19, EN+20, EN+22, EN+24, EN+28, LOOK+8, LOOK+11, LOOK+17 , LOOK+22, DPT+5, DPT+10, DPT+18, DPT+35, DATA~, DATA+3, DATA+5, DATA+9, DATA+45 , DATA+46, DATA+47, DATA+77
LAMSG	EN+2~, EN+15
LASSN	EN+2~, EN+22*, LOOK+3
LR642	DATA+2!, DATA+3, DATA+30, DATA+41*, DATA+42
>> LRAA	DATA+68
>> LRALERT	DATA+85*
>> LRCDT	LOOK+11*, LOOK+12, FNLRDFN+12, FNLRDFN+13, DPT+52
LRCNT	DATA+2!, DATA+3, DATA+29
LRCOM	DATA+54!
LRCUP	DATA+2!
>> LRDAA	DATA+3, DATA+31, DATA+33*
LRDATA	DATA+2!, DATA+3, DATA+45, DATA+46, DATA+47, DATA+48, DATA+49, DATA+86
LRDATA(	DATA+47*, DATA+48
LRDFN	LOOK+1!, LOOK+15, LOOK+16, FNLRDFN+6, FNLRDFN+8, FNLRDFN+9, FNLRDFN+11, FNLRDFN+15, NEWPT+2, NEWPT+6* , NEWPT+7, DPT+2, DPT+3, DPT+4, DPT+6, DATA+80, DATA+81, DATA+104
>> LRDFWKLD	DATA+41
>> LRDIV	DATA+12
LRDPF	FNLRDFN+2!, NEWPT+1*
>> LRDUZ(2	DATA+12*, DATA+13, DATA+16, DATA+18, DATA+103
LREND	EN+2~, EN+14, LOOK+2, LOOK+16, FNLRDFN+4, FNLRDFN+11, FNLRDFN+15, NEWPT+6
LRERR	EN+2~, EN+21!, LOOK+1!, LOOK+2, LOOK+5, LOOK+9, LOOK+13, LOOK+19, FNLRDFN+4, FNLRDFN+15 , DPT+2, DPT+7, DPT+12, DPT+19, DPT+20, DPT+23, DPT+25, DPT+48, DPT+57, DPT+64 , DPT+73, DATA+2!, DATA+3, DATA+7, DATA+13, DATA+19, DATA+22, DATA+23, DATA+26, DATA+27 , DATA+28, DATA+32, DATA+37, DATA+45, DATA+48, DATA+50, DATA+51, DATA+52, DATA+69, DATA+89 , DATA+90*, DATA+106
>> LRIDT	DATA+80, DATA+81, DATA+104
LRLL	EN+4*, EN+7, EN+10, EN+11, EN+19, EN+22, EN+24, EN+28, END+2, LOOK+8 , LOOK+11, LOOK+17, LOOK+22, DPT+5, DPT+10, DPT+18, DPT+35, DATA~, DATA+4, DATA+5 , DATA+9, DATA+33, DATA+45, DATA+46, DATA+47, DATA+77
LRLL(0	EN+11, EN+20, DATA+4, DATA+74
>> LRLLOC	DPT+77, DPT+78
>> LRMETH	DATA+72, DATA+73, DATA+74*
>> LRNGS	DATA+99
>> LRNOLABL	DATA+58*
LRNOW	DATA+2!, DATA+85*, DATA+102
>> LRNT	DATA+55*
>> LRODT	LOOK+2*
>> LROLDIV	DPT+36, DPT+41, DPT+64, DPT+67, DPT+71, DPT+72, DATA+12, DATA+31
>> LROLLOC	DPT+36, DPT+39, DPT+40, DPT+41, DPT+44, DPT+47, DPT+66, DPT+77, DPT+78
>> LRORDNLT(	DATA+23, DATA+24
>> LRORDTIM	DATA+55*
LROSPEC	DATA+2!, DATA+5*, DATA+6, DATA+23, DATA+24
LROT	DATA+2!
LROT(	DATA+29*
LROT(0	DATA+36
>> LROUTINE	DATA+85
>> LRPRAC	DPT+17, DPT+24, DPT+29, DPT+30, DPT+31, DPT+44, DPT+52*, DPT+56
>> LRPROF	DATA+33
LRSAMP	DATA+2!, DATA+3, DATA+25, DATA+28, DATA+29, DATA+60~, DATA+66~
LRSB	DATA+2!, DATA+86, DATA+88, DATA+89*, DATA+90, DATA+92, DATA+94, DATA+96, DATA+97, DATA+99 , DATA+101, DATA+102, DATA+103, DATA+104
LRSB(	DATA+89, DATA+94, DATA+96, DATA+99, DATA+101, DATA+102, DATA+103, DATA+104
LRSB(0	DATA+109
LRSPEC	DATA+2!, DATA+3, DATA+25, DATA+27, DATA+29, DATA+60~, DATA+66~
LRSPECX	DATA+2!
LRSQ	DATA+2!, DATA+3*
>> LRSSN	LOOK+17*, LOOK+18
>> LRSTORE	DATA+111*
>> LRSTORE(	DATA+112*
>> LRTJ	LOOK+21*
LRTRAY	DATA+2!
LRTS	DATA+2!, DATA+92, DATA+97
>> LRTST	DATA+25, DATA+26, DATA+29, DATA+31, DATA+49, DATA+50, DATA+51
>> LRUSI	DATA+85*
>> LRVF	DATA+85*
>> LRVTS(	DATA+49
LRX	DPT+1~, DPT+5, DPT+6, DPT+10, DPT+11, DPT+16~, DPT+18, DPT+19, DPT+23, DPT+24 , DPT+65~, DPT+72, DATA+2!, DATA+9, DATA+22, DATA+94, DATA+95, DATA+99*, DATA+100
LRY	DPT+16~, DATA+2!, DATA+14~, DATA+15, DATA+16, DATA+17, DATA+22, DATA+23, DATA+24, DATA+94* , DATA+95, DATA+96, DATA+99, DATA+100*, DATA+101
LRZ	DATA+2!, DATA+24*, DATA+25, DATA+30
OK	DPT+65~, DPT+68, DPT+69, DPT+71
PNM	FNLRDFN+2!, FNLRDFN+7*
>> SSN(2	LOOK+18
U	EN+24, DATA+31, DATA+46, DATA+74, DATA+94, DATA+96, DATA+99, DATA+100, DATA+101, DATA+102 , DATA+103
>> VADMVT	FNLRDFN+13
>> VAINDT	FNLRDFN+12*
>> VAIP("D"	FNLRDFN+13*
>> VAIP(18	DPT+31
>> VAIP(5	DPT+39, DPT+40
>> VAIP(7	DPT+30
X	FNLRDFN+2!, NEWPT+1, DPT+1~, DPT+16~, DPT+35, DPT+36, DPT+68, DPT+69, DPT+70, DPT+71 , DATA+77*, DATA+78, DATA+80, DATA+81
Y	DPT+1~, DPT+16~, DPT+70*, DPT+71
ZTQUEUED	END+6, DATA+60~, DATA+61*
>> ZTREQ	END+6*
>> ZTSTOP	EN+20*

Customize PDF page

Package: Lab Service

Routine: LRVRPOC

Information

Source Information

Call Graph

Call Graph Total: 24

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: