Routine: LRVRPOCU

Package	Total	Call Graph
Kernel	3	$$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
IHS Laboratory Point of Care	1	BLRPOC2
Lab Service	1	LRVRPOC

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

Name	Field # of Occurrence
$$FIND1^DIC	INIT+6
$$GET1^DIQ	INIT+33, INIT+35, INIT+61, INIT+63, INIT+68, INIT+72, INIT+80, INIT+85, SPALERT+6, FINDAPPT+4
ACK^LA7POC	SENDACK+7
XQA^LA7UXQA	SPALERT+7
EXPLODE^LRGP2	INIT+48
$$NEW1^LROR6	INIT+88
EN^LRPARAM	INIT+12
$$SDAPI^SDAMA301	VASD+16
GETPRV^SDOE	OENC+4
KVAR^VADPT	INIT+5, CLEAN+1
$$HTE^XLFDT	SPALERT+3
DUZ^XUP	INIT+10
DIVSET^XUSRB2	INIT+83

FileNo	Call Tags
^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+57
^LAB(64.2 - [#64.2]	WKLD+2
^LAHM(62.48 - [#62.48]	SPALERT+5
^LAM - [#64]	INIT+59
^LRO(68 - [#68]	INIT+28, INIT+31, INIT+37, INIT+77
^LRO(68.2 - [#68.2]	INIT+19, INIT+21, INIT+26, INIT+40, INIT+55, INIT+56
^TMP("LR"	INIT+47!, INIT+49
^TMP($J	VASD+21!, FINDAPPT+1, FINDAPPT+2, CHKAPPT+2, CHKAPPT+3

Name	Line Occurrences
CHKAPPT	VASD+19
FINDAPPT	VASD+18
OENC	VASD+24
WKLD	INIT+41

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	CLEAN+2!
COMB	INIT+67*, CLEAN+2!
CONTROL	CLEAN+2!
DFN	CLEAN+2!, VASD+13, FINDAPPT+1, FINDAPPT+2, CHKAPPT+2, CHKAPPT+3
>> DIQUIET	INIT+3*
DOB	CLEAN+2!
DTS	CLEAN+2!
DUZ(2	INIT+81
H8	CLEAN+2!
I	INIT+2~, INIT+54, INIT+55, INIT+56
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+3, INIT+9, INIT+13, INIT+24, INIT+30, INIT+31, INIT+35, INIT+44, INIT+51, INIT+74 , INIT+80, INIT+85, SPALERT+2~, SPALERT+6*, SPALERT+7
LR0070	INIT+2~, INIT+56, INIT+61, INIT+64
LR60	INIT+2~, INIT+57*, INIT+64
LR61	INIT+2~, INIT+57*, INIT+60, INIT+61, INIT+63, INIT+64
LR62	INIT+2~, INIT+56, INIT+62, INIT+63*, INIT+64
LR64	INIT+2~, INIT+57*, INIT+58, INIT+59
>> LRAA	INIT+27*, INIT+31, INIT+37
LRACC	CLEAN+3!
LRACD	CLEAN+3!
LRAD	CLEAN+3!
>> LRALERT	INIT+70*
LRAN	CLEAN+3!
LRAOD	CLEAN+3!
LRASSN	INIT+67*, CLEAN+4!
LRBLBP	CLEAN+10!
LRCAPLOC	CLEAN+4!
LRCDEF	INIT+42, WKLD+3*, CLEAN+4!
LRCDEF0	WKLD+2*, WKLD+3, CLEAN+4!
LRCDEF0(1	WKLD+2*
LRCDEF0X	CLEAN+4!
LRCDT	CLEAN+4!, VASD+11, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8
LRCLIEN	VASD+9~, FINDAPPT+3, FINDAPPT+4, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+4, CHKAPPT+5
>> LRCNT	INIT+3*
LRCODEN	CLEAN+4!
LRCOM	CLEAN+4!
LRCOUNT	VASD+9~, VASD+16*, VASD+17, VASD+21
>> LRDAA	INIT+27*, INIT+28, INIT+33, INIT+35, INIT+77, INIT+80
LRDATA	CLEAN+5!
LRDATE	VASD+9~, VASD+10, FINDAPPT+1, FINDAPPT+2, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+2*, CHKAPPT+3
>> LRDFWKLD	INIT+40*, INIT+41
>> LRDIV	INIT+77*, INIT+78, INIT+81, INIT+83, INIT+85
>> LRDPF	INIT+67*
LRDUZ	INIT+4!
>> LREAL	INIT+67*
LRENC	VASD+9~, VASD+10, VASD+24, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+2, CHKAPPT+5, OENC~ , OENC+4
>> LREND	INIT+3, INIT+8, INIT+13, INIT+23, INIT+29, INIT+31, INIT+34, INIT+43, INIT+50, INIT+73* , INIT+79, INIT+81, INIT+85
LRERR	INIT+4!, INIT+66!, INIT+67*, CLEAN+5!, OENC+3~, SENDACK+4, SENDACK+6
LREXACT	VASD+9~, VASD+10, FINDAPPT+1, FINDAPPT+5
LRI	OENC+3~, OENC+6, OENC+7, OENC+8, OENC+9*
LRIDT	CLEAN+10!
LRIEN	INIT+4!, INIT+66!
LRIN	CLEAN+10!
LRIX	CLEAN+10!
>> LRLABKY	INIT+15*
>> LRLBLBP	INIT+67*
>> LRLD	INIT+38*
>> LRLL	INIT+19, INIT+21, INIT+26, INIT+40, INIT+55, INIT+56, INIT+72
>> LRLL(0	INIT+13, INIT+24, INIT+30, INIT+31, INIT+44, INIT+51, INIT+74
>> LRLWC	INIT+18*
LRM	CLEAN+10!
>> LRNATURE	INIT+88*
LRNLT	INIT+2~, INIT+59*, INIT+64, CLEAN+10!
LRNOCODE	CLEAN+5!
>> LRNOECHO	INIT+3*
LRNOW	CLEAN+10!
LRNT	CLEAN+10!
LRNX	CLEAN+10!
LRODT	CLEAN+10!
LRODTIM	CLEAN+11!
LROLDIV	CLEAN+5!, FINDAPPT+4
LROLLOC	CLEAN+11!, VASD+18, VASD+19, VASD+24, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+5
LRORD	CLEAN+11!
LRORDNLT	INIT+4!
LRORDNLT(	INIT+64*
>> LRORDR	INIT+18*
LRORU3	CLEAN+11!
LROT	CLEAN+11!
>> LROUTINE	INIT+68, INIT+69, INIT+70
LRP	WKLD~, WKLD+2, VASD+9~, VASD+16
LRP("FLDS"	VASD+14*
LRP("SORT"	VASD+15*
LRP(1	VASD+11*
LRP(3	VASD+12*
LRP(4	VASD+13*
>> LRPARAM	INIT+14*
LRPRAC	CLEAN+6!, VASD+19, VASD+24, OENC+7, OENC+8, OENC+9
>> LRPROF	INIT+21*, INIT+22, INIT+26, INIT+55, INIT+56
>> LRPROF(0	INIT+26*, INIT+27
LRPRVLST	OENC+3~, OENC+5
LRPRVLST(	OENC+7, OENC+8, OENC+9
LRPRVLST(0	OENC+9
>> LRQUIET	INIT+3*
LRRB	CLEAN+6!
LRSB	CLEAN+7!
LRSN	CLEAN+7!
LRSQ	CLEAN+7!
LRSSCX	CLEAN+7!
LRSSN	CLEAN+7!
LRST	CLEAN+7!
>> LRSTORE	INIT+3*
>> 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+19*
LRUID	CLEAN+8!, SENDACK+5
LRUNQ	CLEAN+9!
>> LRVBY	INIT+90*
LRWRD	CLEAN+9!
LRX	INIT+2~, INIT+6, INIT+7, INIT+10, INIT+37, INIT+38, SPALERT+2~, SPALERT+3, SPALERT+4, SPALERT+5 , SPALERT+6, SPALERT+7, VASD+9~, FINDAPPT+2, FINDAPPT+3, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+3 , CHKAPPT+4, CHKAPPT+5
LRY	INIT+2~, INIT+56, INIT+57, INIT+62, INIT+64, INIT+82, INIT+83, INIT+84, VASD+9~, VASD+10* , 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+14, INIT+19, INIT+27, INIT+31, INIT+38
VA	CLEAN+12!
>> VA200	INIT+67*
VADMVT	CLEAN+12!
>> VAERR	INIT+67*
VAINDT	CLEAN+12!
VAL	CLEAN+12!
XP	CLEAN+12!
Z	CLEAN+12!

Customize PDF page

Package: Lab Service

Routine: LRVRPOCU

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: