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
Toolkit	1	$$GET^XPAR

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)	;
REPLAB(LROLLOC)	;Check parameter for reporting facility
DATA(LRLL,LAIEN)	;Extract results into LROT(

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	EN+25
FILE^DIE	DATA+93
$$GET1^DIQ	EN+32, FNLRDFN+6, DPT+3, DPT+40, DPT+41, DPT+69, DPT+80, REPLAB+3, REPLAB+5, DATA+29 , DATA+84
$$CREATE^LA7LOG	LOOK+5, LOOK+9, LOOK+13, LOOK+19, FNLRDFN+4, DPT+7, DPT+12, DPT+20, DPT+25, DPT+48 , DPT+60, DPT+76, DATA+7, DATA+30, DATA+34, DATA+37, DATA+38, DATA+39, DATA+48, DATA+59 , DATA+61, DATA+62, DATA+80, DATA+101
XQA^LA7UXQA	EN+20
E2^LRDPA	NEWPT+4
END^LRDPA	DPT+4
^LRORDST	DATA+73
ORDER^LROW2	DATA+73
$$TMPSB^LRVER1	DATA+105
V25^LRVER5	DATA+109
TEST^LRVR1	DATA+98
A3^LRVR3	DATA+121
ZAPALL^LRVR3	EN+33
LRSBCOM^LRVR4	DATA+121
$$GETDFN^LRVRPOCU	LOOK+3
CLEAN^LRVRPOCU	NEXT+1
INIT^LRVRPOCU	EN+18
SENDACK^LRVRPOCU	LOOK+6, LOOK+10, LOOK+14, LOOK+20, FNLRDFN+5, DPT+8, DPT+13, DPT+21, DPT+26, DPT+49 , DPT+61, DPT+77, DATA+8, DATA+43, DATA+49, DATA+63, DATA+81, DATA+117, DATA+126
SPALERT^LRVRPOCU	END+4
VASD^LRVRPOCU	DPT+44
WKLD^LRVRPOCU	DATA+53
^LRWLST	DATA+78
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+66, DATA+96
$$GET^XPAR	EN+17, REPLAB+7
$$NNT^XUAF4	DPT+71, DPT+73, DPT+75
$$PRNT^XUAF4	DPT+73
KILL^XUSCLEAN	END+4
$$PROVIDER^XUSER	DPT+24
DIVSET^XUSRB2	DATA+27

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DG(40.8 - [#40.8]	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+42
^LAH(	EN+24, EN+27, EN+29, LOOK+8, LOOK+11, LOOK+17, DPT+5, DPT+10, DPT+18, DPT+35 , DATA+5, DATA+9, DATA+56, DATA+57, DATA+58, DATA+88
^LAH("Z"	EN+7, END+2
^LR - [#63]	DATA+115*
^LR("A"	NEWPT+2
^LR(0	NEWPT+3, NEWPT+5
^LRO(68.2 - [#68.2]	EN+10, EN+11, DATA+4, DATA+44
^TMP("LR"	END+5!, DATA+37, DATA+62, DATA+101, DATA+103, DATA+108
^XUSEC("PROVIDER"	DPT+55

Name	Line Occurrences
$$FNLRDFN	LOOK+15
$$NEWPT	FNLRDFN+8
$$REPLAB	DATA+14
DATA	LOOK+22
DPT	FNLRDFN+14
END	EN+8, EN+10, EN+21, EN+34
LOOK	EN+33
NEXT	EN+33

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

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+68~, DPT+69*, DPT+70, DPT+71
DT	LOOK+2
DUZ(2	DATA+24, DATA+114
ERR	FNLRDFN+2!
FDA	DATA+90~
FDA(1	DATA+91, DATA+92
>> I	DATA+33, DATA+106, DATA+111*
LA76248	EN+2~, EN+31, EN+32, DATA+84, DATA+123
LA76249	EN+2~, EN+29*, EN+32
LA7DIE	DATA+90~
LA7X	DATA+25~, DATA+29*
LADFN	EN+2~, LOOK+7*, LOOK+15
LAIEN	EN+2~, EN+23, EN+24, EN+25, EN+27, EN+29, EN+33, LOOK+8, LOOK+11, LOOK+17 , LOOK+22, DPT+5, DPT+10, DPT+18, DPT+35, DATA~, DATA+3, DATA+5, DATA+9, DATA+56 , DATA+57, DATA+58, DATA+88
LAMSG	EN+2~, EN+20
LASSN	EN+2~, EN+27*, LOOK+3
LR642	DATA+2!, DATA+3, DATA+41, DATA+52*, DATA+53
>> LRAA	DATA+79
>> LRALERT	DATA+96*
>> LRCDT	LOOK+11*, LOOK+12, FNLRDFN+12, FNLRDFN+13, DPT+52
LRCNT	DATA+2!, DATA+3, DATA+40
LRCOM	DATA+65!
LRCUP	DATA+2!
>> LRDAA	DATA+3, DATA+42, DATA+44*
LRDATA	DATA+2!, DATA+3, DATA+56, DATA+57, DATA+58, DATA+59, DATA+60, DATA+97
LRDATA(	DATA+58*, DATA+59
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+91, DATA+92, DATA+115
>> LRDFWKLD	DATA+52
LRDIV	EN+16~, DATA+22
LRDPF	FNLRDFN+2!, NEWPT+1*
>> LRDUZ(2	DATA+22*, DATA+24, DATA+27, DATA+29, DATA+114
LREND	EN+2~, EN+19, LOOK+2, LOOK+16, FNLRDFN+4, FNLRDFN+11, FNLRDFN+15, NEWPT+6
LRERR	EN+2~, EN+26!, 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+60, DPT+67 , DPT+76, DATA+2!, DATA+3, DATA+7, DATA+24, DATA+30, DATA+33, DATA+34, DATA+37, DATA+38 , DATA+39, DATA+43, DATA+48, DATA+56, DATA+59, DATA+61, DATA+62, DATA+63, DATA+80, DATA+100 , DATA+101*, DATA+117
>> LRIDT	DATA+91, DATA+92, DATA+115
LRLL	EN+4*, EN+7, EN+10, EN+11, EN+24, EN+27, EN+29, EN+33, 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+44, DATA+56, DATA+57, DATA+58, DATA+88
LRLL(0	EN+11, EN+25, DATA+4, DATA+85
>> LRLLOC	DPT+80, DPT+81
LRLOCDIV	DATA+13~, DATA+14*, DATA+22
>> LRMETH	DATA+83, DATA+84, DATA+85*
>> LRNGS	DATA+110
>> LRNOLABL	DATA+69*
LRNOW	DATA+2!, DATA+96*, DATA+113
>> LRNT	DATA+66*
>> LRODT	LOOK+2*
>> LROLDIV	DPT+36, DPT+41, DPT+67, DPT+70, DPT+74, DPT+75, DATA+22, DATA+42
LROLLOC	DPT+36, DPT+39, DPT+40, DPT+41, DPT+44, DPT+47, DPT+69, DPT+80, DPT+81, REPLAB~ , REPLAB+3, DATA+14
>> LRORDNLT(	DATA+34, DATA+35
>> LRORDTIM	DATA+66*
LROSPEC	DATA+2!, DATA+5*, DATA+6, DATA+34, DATA+35
LROT	DATA+2!
LROT(	DATA+40*
LROT(0	DATA+47
>> LROUTINE	DATA+96
>> LRPRAC	DPT+17, DPT+24, DPT+29, DPT+30, DPT+31, DPT+44, DPT+52, DPT+55, DPT+59
>> LRPROF	DATA+44
LRSAMP	DATA+2!, DATA+3, DATA+36, DATA+39, DATA+40, DATA+71~, DATA+77~
LRSB	DATA+2!, DATA+97, DATA+99, DATA+100*, DATA+101, DATA+103, DATA+105, DATA+107, DATA+108, DATA+110 , DATA+112, DATA+113, DATA+114, DATA+115
LRSB(	DATA+100, DATA+105, DATA+107, DATA+110, DATA+112, DATA+113, DATA+114, DATA+115
LRSB(0	DATA+120
LRSPEC	DATA+2!, DATA+3, DATA+36, DATA+38, DATA+40, DATA+71~, DATA+77~
LRSPECX	DATA+2!
LRSQ	DATA+2!, DATA+3*
>> LRSSN	LOOK+17*, LOOK+18
>> LRSTORE	DATA+122*
>> LRSTORE(	DATA+123*
LRSYSDIV	EN+16~, EN+17*, DATA+22
>> LRTJ	LOOK+21*
LRTRAY	DATA+2!
LRTS	DATA+2!, DATA+103, DATA+108
>> LRTST	DATA+36, DATA+37, DATA+40, DATA+42, DATA+60, DATA+61, DATA+62
>> LRUSI	DATA+96*
>> LRVF	DATA+96*
>> LRVTS(	DATA+60
LRX	DPT+1~, DPT+5, DPT+6, DPT+10, DPT+11, DPT+16~, DPT+18, DPT+19, DPT+23, DPT+24 , DPT+68~, DPT+75, DATA+2!, DATA+9, DATA+33, DATA+105, DATA+106, DATA+110*, DATA+111
LRXDIV	REPLAB+2~, REPLAB+3, REPLAB+4, REPLAB+5, REPLAB+6, REPLAB+7*, REPLAB+8
LRY	DPT+16~, DATA+2!, DATA+25~, DATA+26, DATA+27, DATA+28, DATA+33, DATA+34, DATA+35, DATA+105* , DATA+106, DATA+107, DATA+110, DATA+111*, DATA+112
LRZ	DATA+2!, DATA+35*, DATA+36, DATA+41
OK	DPT+68~, DPT+71, DPT+72, DPT+74
PNM	FNLRDFN+2!, FNLRDFN+7*
>> SSN(2	LOOK+18
U	EN+29, DATA+42, DATA+57, DATA+85, DATA+105, DATA+107, DATA+110, DATA+111, DATA+112, DATA+113 , DATA+114
>> 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+71, DPT+72, DPT+73, DPT+74 , DATA+88*, DATA+89, DATA+91, DATA+92
Y	DPT+1~, DPT+16~, DPT+73*, DPT+74
ZTQUEUED	END+6, DATA+71~, DATA+72*
>> ZTREQ	END+6*
>> ZTSTOP	EN+25*

Customize PDF page

Package: Lab Service

Routine: LRVRPOC

Information

Source Information

Call Graph

Call Graph Total: 25

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: