Routine: LRVRPOCU

Package	Total	Call Graph
Kernel	3	($$FMADD,$$HADD,$$HTE)^XLFDT DUZ^XUP DIVSET^XUSRB2
Lab Service	3	EXPLODE^LRGP2 $$NEW1^LROR6 EN^LRPARAM
Automated Lab Instruments	2	ACK^LA7POC XQA^LA7UXQA
Scheduling	2	$$SDAPI^SDAMA301 GETPRV^SDOE
VA FileMan	2	$$FIND1^DIC $$GET1^DIQ
Registration	1	KVAR^VADPT

Package	Total	Caller Graph
Lab Service	1	LRVRPOC

Name	Comments	DBIA/ICR reference
INIT	; Initialize user
WKLD(LRP)	; Setup LRCDEF* variables for workload ; Call with LRP = ien of WKLD suffix in file #64.2
SPALERT	; Send Processing Alert Message
CLEAN	;Clean-up point
VASD	; Check for clinic appointment at same time as specimen ; else for clinic appointment before specimen date/time on same date.
FINDAPPT	; Find an appointment for the collection date/time
CHKAPPT	; Check for an appointment that matches the ordering location ; to find the provider on the encounter when no provider sent.
OENC(LRENC)	; Lookup provider on encounter ; Use primary provider if possible otherwise use first provider listed.
SENDACK	; Send HL7 ACKnowledgment message
GETDFN(LAPID)	; Find patient in PATIENT (#2) file based on patient id ; Call with LAPID = patient id to lookup

Name	Field # of Occurrence
$$FIND1^DIC	INIT+19, GETDFN+7
$$GET1^DIQ	INIT+12, INIT+13, INIT+46, INIT+48, INIT+74, INIT+76, INIT+81, INIT+85, INIT+93, INIT+98 , SPALERT+6, FINDAPPT+4, FINDAPPT+10
ACK^LA7POC	SENDACK+7
XQA^LA7UXQA	SPALERT+7
EXPLODE^LRGP2	INIT+61
$$NEW1^LROR6	INIT+101
EN^LRPARAM	INIT+25
$$SDAPI^SDAMA301	VASD+22
GETPRV^SDOE	OENC+4
KVAR^VADPT	INIT+18, CLEAN+1
$$FMADD^XLFDT	VASD+17
$$HADD^XLFDT	INIT+6
$$HTE^XLFDT	INIT+7, SPALERT+3
DUZ^XUP	INIT+23
DIVSET^XUSRB2	INIT+96

FileNo	Call Tags
^DPT - [#2]	FIND1^DIC
^VA(200 - [#200]	FIND1^DIC
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^LAB(61 - [#61]	GET1^DIQ
^LAHM(62.48 - [#62.48]	GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
^LRO(68.2 - [#68.2]	GET1^DIQ
^LAB(69.9 - [#69.9]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	INIT+70
^LAB(64.2 - [#64.2]	WKLD+2
^LAB(69.9 - [#69.9]	INIT+5
^LAHM(62.48 - [#62.48]	SPALERT+5
^LAM - [#64]	INIT+72
^LRO(68 - [#68]	INIT+41, INIT+44, INIT+50, INIT+90
^LRO(68.2 - [#68.2]	INIT+32, INIT+34, INIT+39, INIT+53, INIT+68, INIT+69
^TMP("LR"	INIT+60!, INIT+62
^TMP($J	VASD+27!, FINDAPPT+1, FINDAPPT+2, CHKAPPT+2, CHKAPPT+3

Name	Line Occurrences
CHKAPPT	VASD+25
FINDAPPT	VASD+24
OENC	VASD+30
WKLD	INIT+54

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	CLEAN+2!
COMB	INIT+80*, CLEAN+2!
CONTROL	CLEAN+2!
DFN	CLEAN+2!, VASD+19, FINDAPPT+1, FINDAPPT+2, CHKAPPT+2, CHKAPPT+3, GETDFN+7*, GETDFN+9
>> DIQUIET	INIT+16*
DOB	CLEAN+2!
DTS	CLEAN+2!
DUZ("AG"	GETDFN+6
DUZ(2	INIT+94
H8	CLEAN+2!
I	INIT+2~, INIT+67, INIT+68, INIT+69
I5	CLEAN+2!
LA	SENDACK+2~, SENDACK+7
LA(	SENDACK+3*
LA("ACK"	SENDACK+4*
LA("MSG"	SENDACK+5, SENDACK+6
>> LA76248	SENDACK+3
>> LA76249	SENDACK+3
LAMSG	INIT+7, INIT+13, INIT+16, INIT+22, INIT+26, INIT+37, INIT+43, INIT+44, INIT+48, INIT+57 , INIT+64, INIT+87, INIT+93, INIT+98, SPALERT+2~, SPALERT+6*, SPALERT+7
LAPID	GETDFN~, GETDFN+7
LR0070	INIT+2~, INIT+69, INIT+74, INIT+77
LR60	INIT+2~, INIT+70*, INIT+77
LR61	INIT+2~, INIT+70*, INIT+73, INIT+74, INIT+76, INIT+77
LR62	INIT+2~, INIT+69, INIT+75, INIT+76*, INIT+77
LR64	INIT+2~, INIT+70*, INIT+71, INIT+72
>> LRAA	INIT+40*, INIT+44, INIT+50
LRACC	CLEAN+3!
LRACD	CLEAN+3!
LRAD	CLEAN+3!
>> LRALERT	INIT+83*
LRAN	CLEAN+3!
LRAOD	CLEAN+3!
LRASSN	INIT+80*, CLEAN+4!
LRBLBP	CLEAN+10!
LRCAPLOC	CLEAN+4!
LRCDEF	INIT+55, WKLD+3*, CLEAN+4!
LRCDEF0	WKLD+2*, WKLD+3, CLEAN+4!
LRCDEF0(1	WKLD+2*
LRCDEF0X	CLEAN+4!
LRCDT	CLEAN+4!, VASD+15, VASD+16, VASD+17, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8
LRCLIEN	VASD+13~, FINDAPPT+3, FINDAPPT+4, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, FINDAPPT+10, CHKAPPT+4, CHKAPPT+5
>> LRCNT	INIT+16*
LRCODEN	CLEAN+4!
LRCOM	CLEAN+4!
LRCOUNT	VASD+13~, VASD+22*, VASD+23, VASD+27
>> LRDAA	INIT+40*, INIT+41, INIT+46, INIT+48, INIT+90, INIT+93
LRDATA	CLEAN+5!
LRDATE	VASD+13~, VASD+14, FINDAPPT+1, FINDAPPT+2, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+2*, CHKAPPT+3
>> LRDFWKLD	INIT+53*, INIT+54
>> LRDIV	INIT+90*, INIT+91, INIT+94, INIT+96, INIT+98
>> LRDPF	INIT+80*
LRDUZ	INIT+17!
>> LREAL	INIT+80*
LRENC	VASD+13~, VASD+14, VASD+30, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+2, CHKAPPT+5, OENC~ , OENC+4
>> LREND	INIT+8, INIT+14, INIT+16, INIT+21, INIT+26, INIT+36, INIT+42, INIT+44, INIT+47, INIT+56* , INIT+63, INIT+86, INIT+92, INIT+94, INIT+98
LRERR	INIT+17!, INIT+79!, INIT+80*, CLEAN+5!, OENC+3~, SENDACK+4, SENDACK+6
LREXACT	VASD+13~, VASD+14, FINDAPPT+1, FINDAPPT+5
LRI	OENC+3~, OENC+6, OENC+7, OENC+8, OENC+9*
LRIDT	CLEAN+10!
LRIEN	INIT+17!, INIT+79!
LRIN	CLEAN+10!
LRIX	CLEAN+10!
>> LRLABKY	INIT+28*
>> LRLBLBP	INIT+80*
>> LRLD	INIT+51*
>> LRLL	INIT+12, INIT+13, INIT+32, INIT+34, INIT+39, INIT+53, INIT+68, INIT+69, INIT+85
>> LRLL(0	INIT+26, INIT+37, INIT+43, INIT+44, INIT+57, INIT+64, INIT+87
>> LRLWC	INIT+31*
LRM	CLEAN+10!
>> LRNATURE	INIT+101*
LRNLT	INIT+2~, INIT+72*, INIT+77, CLEAN+10!
LRNOCODE	CLEAN+5!
>> LRNOECHO	INIT+16*
LRNOW	CLEAN+10!
LRNT	CLEAN+10!
LRNX	CLEAN+10!
LRODT	CLEAN+10!
LRODTIM	CLEAN+11!
LROLDIV	CLEAN+5!, FINDAPPT+4, FINDAPPT+10*
LROLLOC	CLEAN+11!, VASD+24, VASD+25, VASD+30, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+5
LRORD	CLEAN+11!
LRORDNLT	INIT+17!
LRORDNLT(	INIT+77*
>> LRORDR	INIT+31*
LRORU3	CLEAN+11!
LROT	CLEAN+11!
>> LROUTINE	INIT+81, INIT+82, INIT+83
LRP	WKLD~, WKLD+2, VASD+13~, VASD+22
LRP("FLDS"	VASD+20*
LRP("SORT"	VASD+21*
LRP(1	VASD+16, VASD+17
LRP(3	VASD+18*
LRP(4	VASD+19*
>> LRPARAM	INIT+27*
LRPRAC	CLEAN+6!, VASD+25, VASD+30, OENC+7, OENC+8, OENC+9
>> LRPROF	INIT+34*, INIT+35, INIT+39, INIT+68, INIT+69
>> LRPROF(0	INIT+39*, INIT+40
LRPRVLST	OENC+3~, OENC+5
LRPRVLST(	OENC+7, OENC+8, OENC+9
LRPRVLST(0	OENC+9
>> LRQUIET	INIT+16*
LRRB	CLEAN+6!
LRSB	CLEAN+7!
LRSN	CLEAN+7!
LRSQ	CLEAN+7!
LRSSCX	CLEAN+7!
LRSSN	CLEAN+7!
LRST	CLEAN+7!
>> LRSTORE	INIT+16*
>> LRSTORE(	SPALERT+4, SPALERT+6
LRSUB	CLEAN+7!
LRSUM	CLEAN+7!
LRSXN	CLEAN+7!, CLEAN+8!
LRT	CLEAN+8!
LRTIME	SPALERT+2~, SPALERT+3*, SPALERT+6
LRTN	CLEAN+8!
LRTREA	CLEAN+8!
LRTS	CLEAN+8!
LRTSORU	CLEAN+8!
LRTST	CLEAN+8!
LRTT	CLEAN+8!
>> LRTYPE	INIT+32*
LRUID	CLEAN+8!, SENDACK+5
LRUNQ	CLEAN+9!
>> LRVBY	INIT+103*
LRWRD	CLEAN+9!
LRX	INIT+2~, INIT+19, INIT+20, INIT+23, INIT+50, INIT+51, SPALERT+2~, SPALERT+3, SPALERT+4, SPALERT+5 , SPALERT+6, SPALERT+7, VASD+13~, VASD+15, VASD+16, FINDAPPT+2, FINDAPPT+3, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7 , FINDAPPT+8, CHKAPPT+3*, CHKAPPT+4, CHKAPPT+5
LRY	INIT+2~, INIT+69, INIT+70, INIT+75, INIT+77, INIT+95, INIT+96, INIT+97, VASD+13~, VASD+14* , FINDAPPT+6, FINDAPPT+7, FINDAPPT+8*
OCXAP	CLEAN+11!
PNM	CLEAN+9!
S5	CLEAN+9!
SEGID	CLEAN+9!
SEX	CLEAN+9!
SSN	CLEAN+9!
T1	CLEAN+12!
U	INIT+27, INIT+32, INIT+40, INIT+44, INIT+51
VA	CLEAN+12!
>> VA200	INIT+80*
VADMVT	CLEAN+12!
>> VAERR	INIT+80*
VAINDT	CLEAN+12!
VAL	CLEAN+12!
XP	CLEAN+12!
Z	CLEAN+12!
>> ZTREQ	INIT+6*

Customize PDF page

Package: Lab Service

Routine: LRVRPOCU

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: