Routine: LRVRPOC

Information

LRVRPOC ;VA/DALOI/JMC - POINT OF CARE VERIFICATION ; 4 May 2004

Call Graph

Call Graph Total: 25

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

Entry Points

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

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	EN+35
$$FIND1^DIC	LOOK+3, DPT+3
FILE^DIE	DATA+82
$$GET1^DIQ	EN+14, EN+15, EN+42, FNLRDFN+6, DPT+8, DPT+45, DPT+46, DPT+71, DPT+82, DATA+18 , DATA+73
$$CREATE^LA7LOG	LOOK+5, LOOK+9, LOOK+13, LOOK+19, FNLRDFN+4, DPT+6, DPT+12, DPT+17, DPT+25, DPT+30 , DPT+53, DPT+62, DPT+78, 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+16, EN+25, EN+30
E2^LRDPA	NEWPT+4
END^LRDPA	DPT+9
^LRORDST	DATA+62
ORDER^LROW2	DATA+62
$$TMPSB^LRVER1	DATA+91
V25^LRVER5	DATA+95
TEST^LRVR1	DATA+87
A3^LRVR3	DATA+106
ZAPALL^LRVR3	EN+43
LRSBCOM^LRVR4	DATA+106
CLEAN^LRVRPOCU	NEXT+1
INIT^LRVRPOCU	EN+28
SENDACK^LRVRPOCU	LOOK+6, LOOK+10, LOOK+14, LOOK+20, FNLRDFN+5, DPT+7, DPT+13, DPT+18, DPT+26, DPT+31 , DPT+54, DPT+63, DPT+79, DATA+8, DATA+32, DATA+38, DATA+52, DATA+70, DATA+102, DATA+111
SPALERT^LRVRPOCU	END+4
VASD^LRVRPOCU	DPT+49
WKLD^LRVRPOCU	DATA+42
^LRWLST	DATA+67
DEM^LRX	FNLRDFN+10
IN5PT^LRX	FNLRDFN+13
$$OUTPTPR^SDUTL3	DPT+57
KVAR^VADPT	END+4, FNLRDFN+1
ADM^VADPT2	FNLRDFN+12
$$HADD^XLFDT	EN+23
$$HTE^XLFDT	EN+24
$$NOW^XLFDT	DATA+55
$$NNT^XUAF4	DPT+73, DPT+75, DPT+77
$$PRNT^XUAF4	DPT+75
KILL^XUSCLEAN	END+4
$$PROVIDER^XUSER	DPT+29
DIVSET^XUSRB2	DATA+16

FileNo	Call Tags
^DPT - [#2]	FIND1^DIC, 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
^LRO(68.2 - [#68.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	FNLRDFN+3
^LAB(60 - [#60]	DATA+31
^LAB(69.9 - [#69.9]	EN+22
^LAH(	EN+34, EN+37, EN+39, LOOK+8, LOOK+11, LOOK+17, DPT+10, DPT+15, DPT+23, DPT+40 , DATA+5, DATA+9, DATA+45, DATA+46, DATA+47, DATA+77
^LAH("Z"	EN+7, END+2
^LR - [#63]	DATA+100*
^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+94

Name	Line Occurrences
$$FNLRDFN	LOOK+15
$$NEWPT	FNLRDFN+8
DATA	LOOK+22
DPT	FNLRDFN+14
END	EN+8, EN+10, EN+17, EN+26, EN+31, EN+44
LOOK	EN+43
NEXT	EN+43

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, NEWPT~, NEWPT+1, DPT+3 , DPT+4, DPT+8, DPT+16, DPT+57
DIC	DPT+1~
DIQUIET	EN+2~
DIV	DPT+70~, DPT+71*, DPT+72, DPT+73
DT	LOOK+2
DUZ(2	DATA+13, DATA+99
ERR	FNLRDFN+2!
FDA	DATA+79~
FDA(1	DATA+80, DATA+81
>> I	DATA+22, DATA+92, DATA+97*
>> LA76248	EN+41, EN+42, DATA+73, DATA+108
>> LA76249	EN+39*, EN+42
LA7DIE	DATA+79~
LA7X	DATA+14~, DATA+18*
>> LADFN	LOOK+7*, LOOK+15
LAIEN	EN+33, EN+34, EN+37, EN+39, EN+43, LOOK+8, LOOK+11, LOOK+17, LOOK+22, DPT+10 , DPT+15, DPT+23, DPT+40, DATA~, DATA+3, DATA+5, DATA+9, DATA+45, DATA+46, DATA+47 , DATA+77
>> LAMSG	EN+15, EN+16, EN+24, EN+25, EN+30
LASSN	EN+37, LOOK+3, DPT+5~, DPT+6
LR642	DATA+2!, DATA+3, DATA+30, DATA+41*, DATA+42
>> LRAA	DATA+68
>> LRALERT	DATA+85*
LRASSN	DPT~, DPT+3, DPT+6
>> LRCDT	LOOK+11*, LOOK+12, FNLRDFN+12, FNLRDFN+13, DPT+57
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+8, DPT+9, DPT+11, DATA+80, DATA+81, DATA+100
>> LRDFWKLD	DATA+41
>> LRDIV	DATA+12
LRDPF	FNLRDFN+2!, NEWPT+1*
>> LRDUZ(2	DATA+12*, DATA+13, DATA+16, DATA+18, DATA+99
>> LREND	EN+29, LOOK+2, LOOK+16, FNLRDFN+4, FNLRDFN+11, FNLRDFN+15, NEWPT+6
LRERR	EN+36!, LOOK+1!, LOOK+2, LOOK+5, LOOK+9, LOOK+13, LOOK+19, FNLRDFN+4, FNLRDFN+15, DPT+2* , DPT+6, DPT+12, DPT+17, DPT+24, DPT+25, DPT+28, DPT+30, DPT+53, DPT+62, DPT+69 , DPT+78, 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+102
>> LRIDT	DATA+80, DATA+81, DATA+100
LRLL	EN+4*, EN+7, EN+10, EN+11, EN+14, EN+15, EN+34, EN+37, EN+39, EN+43 , END+2, LOOK+8, LOOK+11, LOOK+17, LOOK+22, DPT+10, DPT+15, DPT+23, DPT+40, DATA~ , DATA+4, DATA+5, DATA+9, DATA+33, DATA+45, DATA+46, DATA+47, DATA+77
LRLL(0	EN+11, DATA+4, DATA+74
>> LRLLOC	DPT+82, DPT+83
>> LRMETH	DATA+72, DATA+73, DATA+74*
>> LRNGS	DATA+96
>> LRNOLABL	DATA+58*
>> LRNT	DATA+55*
>> LRODT	LOOK+2*
>> LROLDIV	DPT+41, DPT+46, DPT+69, DPT+72, DPT+76, DPT+77, DATA+12, DATA+31
>> LROLLOC	DPT+41, DPT+44, DPT+45, DPT+46, DPT+49, DPT+52, DPT+71, DPT+82, DPT+83
>> 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+22, DPT+29, DPT+34, DPT+35, DPT+36, DPT+49, DPT+57*, DPT+61
>> 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+91, DATA+93, DATA+94, DATA+96, DATA+98 , DATA+99, DATA+100
LRSB(	DATA+89, DATA+91, DATA+93, DATA+96, DATA+98, DATA+99*, DATA+100
LRSB(0	DATA+105
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+107*
>> LRSTORE(	DATA+108*
>> LRTJ	LOOK+21*
LRTRAY	DATA+2!
LRTS	DATA+2!, DATA+94*
>> 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+10, DPT+11, DPT+15, DPT+16, DPT+21~, DPT+23, DPT+24, DPT+28, DPT+29 , DPT+70~, DPT+77, DATA+2!, DATA+9, DATA+22, DATA+91, DATA+92, DATA+96*, DATA+97
LRY	DPT+21~, DATA+2!, DATA+14~, DATA+15, DATA+16, DATA+17, DATA+22, DATA+23, DATA+24, DATA+91* , DATA+92, DATA+93, DATA+96, DATA+97*, DATA+98
LRZ	DATA+2!, DATA+24*, DATA+25, DATA+30
OK	DPT+70~, DPT+73, DPT+74, DPT+76
PNM	FNLRDFN+2!, FNLRDFN+7*
>> SSN(2	LOOK+18, FNLRDFN+14
U	EN+39, DATA+31, DATA+46, DATA+74, DATA+91, DATA+93, DATA+96, DATA+97, DATA+98, DATA+99
>> VADMVT	FNLRDFN+13
>> VAINDT	FNLRDFN+12*
>> VAIP("D"	FNLRDFN+13*
>> VAIP(18	DPT+36
>> VAIP(5	DPT+44, DPT+45
>> VAIP(7	DPT+35
X	FNLRDFN+2!, NEWPT+1, DPT+1~, DPT+21~, DPT+40, DPT+41, DPT+73, DPT+74, DPT+75, DPT+76 , DATA+77*, DATA+78, DATA+80, DATA+81
Y	DPT+1~, DPT+21~, DPT+75*, DPT+76
ZTQUEUED	END+6, DATA+60~, DATA+61*
>> ZTREQ	EN+23, END+6
>> ZTSTOP	EN+35*

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: