Routine: LRVR4

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Lab Service	9	PRAC^LR7OMERG (EN,STD)^LRCAPV ^LREXEC $$CALCAGE^LRRPU $$TMPSB^LRVER1 RONLT^LRVER3 (DISPFLG,RANGE,SUBS,WT)^LRVER4 DCOM^LRVERA (,V25)^LRVR5
VA Fileman	5	$$GET1^DID (,UPDATE)^DIE $$EXTERNAL^DILFD GETS^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR

Package	Total	Caller Graph
Lab Service	9	LRDIDLE0 LREGFR LREGFR2 LRGV2 LRVER3 LRVER5 LRVR3 LRVR5 LRVRPOC
IHS Laboratory Point of Care	1	BLRPOC2

Package

Total

Caller Graph

Lab Service

LRDIDLE0 LREGFR LREGFR2 LRGV2 LRVER3 LRVER5 LRVR3 LRVR5
LRVRPOC

IHS Laboratory Point of Care

BLRPOC2

Entry Points

Name	Comments	DBIA/ICR reference
WT
V20
V36	;
V25	;
V37
EDIT	;
LRSBCOM1	; Store instrument comments in file #63 ; Check for duplicate comments in ^LAH and ^LR globals
LRSBCOM	;Display/store comments from the instrument
RQ
CKPLNR	; Check performing lab normal ranges and set abnormal flag ; based on HL7 messages/interface.
RANGE	; ; If results from another system, use flags returned with results ; and set LRNG,LRNGS with normals from message. ; Check for LRDUZ(2) set for performing lab or performing lab set (piece 9) in LRSB(LRSB) array.
V3	;
LRCFL	;
SUBS
PLNR	; Performing lab normal ranges, use instead of current local ranges ; Retrieve from results when "NPC" node = 2 or greater ; and set LRNG and LRNGS with normals from HL7 message/interface.
FILECOM(LRDFN,LRIDT,LRCMT)	; File comment in field #99 ; Call with LRDFN = ien of patient in file #63 ; LRIDT = ien of specimen date/time ; LRCMT = comment to store
NR
COM	;from LRVR5
LOOP	; EP
V35	;

External References

Name	Field # of Occurrence
$$GET1^DID	V20+8, V20+17
^DIE	COM+4
UPDATE^DIE	FILECOM+7
$$EXTERNAL^DILFD	V20+9, V20+18
GETS^DIQ	LOOP+11
^DIR	V3+12
PRAC^LR7OMERG	LOOP+21
EN^LRCAPV	V3+19
STD^LRCAPV	V3+19
^LREXEC	LRCFL+1
$$CALCAGE^LRRPU	LOOP+9
$$TMPSB^LRVER1	NR+7
RONLT^LRVER3	NR+10
DISPFLG^LRVER4	CKPLNR+3
RANGE^LRVER4	RANGE+7
SUBS^LRVER4	SUBS
WT^LRVER4	WT
DCOM^LRVERA	V3+1, COM+2
^LRVR5	EDIT+1
V25^LRVR5	V20+3
$$FMTE^XLFDT	LOOP+9
$$UP^XLFSTR	LRSBCOM1+12, LRSBCOM1+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PNM," SSN: ",SSN," " Line Location: LOOP+2
Function Call: WRITE	Prompt: !!,PNM," HRCN: ",HRCN," " Line Location: LOOP+3
Function Call: WRITE	Prompt: !,"Pat Info: ",$P($G(^LR(LRDFN,.091)),U) Line Location: LOOP+5
Function Call: WRITE	Prompt: ?34," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX) Line Location: LOOP+6
Function Call: WRITE	Prompt: ?34," Sex: " Line Location: LOOP+7
Function Call: WRITE	Prompt: $S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX) Condition for execution: $L($G(SEX)) Line Location: LOOP+7
Function Call: WRITE	Prompt: ?48," Age: ",$$CALCAGE^LRRPU(DOB,LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D") Line Location: LOOP+8
Function Call: WRITE	Prompt: ?48," Age: ",$$CALCAGE^LRRPU(+$G(VADM(3)),LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D") Line Location: LOOP+9
Function Call: WRITE	Prompt: !,"Provider: " Line Location: LOOP+12
Function Call: WRITE	Prompt: LRPRAC Line Location: LOOP+14
Function Call: WRITE	Prompt: LRPRAC(LRPRAC,200,LRPRAC_",",.01,"E"),?40," Voice pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.137,"E") Line Location: LOOP+16
Function Call: WRITE	Prompt: !," Phone: ",LRPRAC(LRPRAC,200,LRPRAC_",",.132,"E"),?38," Digital pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.138,"E") Line Location: LOOP+17
Function Call: WRITE	Prompt: !?14,$P(^(0),"^") Line Location: LOOP+24
Function Call: WRITE	Prompt: ! Line Location: LOOP+26
Function Call: WRITE	Prompt: !,"VOLUME: ",$P(Z1,U,7) Line Location: LOOP+27
Function Call: WRITE	Prompt: !,"ACCESSION:",?30,$P(Z2,U,6),?44," ",LRACC Line Location: LOOP+29
Function Call: WRITE	Prompt: !,LRPANEL,?30,LRDAT(2),?44," ",LRDAT Line Location: LOOP+30
Function Call: WRITE	Prompt: !?15 Line Location: LOOP+33
Function Call: WRITE	Prompt: @LRVIDO Condition for execution: $E(IOST,1,2)="C-" Line Location: LOOP+33
Function Call: WRITE	Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U) Line Location: LOOP+34
Function Call: WRITE	Prompt: !?10,"Workload is not activated. " Line Location: V3+20
Function Call: WRITE	Prompt: !,$P(^LAB(60,+LRTS,0),U) Line Location: V20+4
Function Call: WRITE	Prompt: ?44," ",@LRFP," " Line Location: V20+20
Function Call: WRITE	Prompt: LRFLG,?56," ",$P(LRNG,U,7) Line Location: V20+25
Function Call: WRITE	Prompt: ! Line Location: LRSBCOM+9
Function Call: WRITE	Prompt: !,"Inst Comments: "_LRSBCOM Line Location: LRSBCOM1+20
Routine Call	DIE Line Location: FILECOM+7
Routine Call	DIE Line Location: COM+4
Routine Call	DIR Line Location: V3+12

FileNo	Call Tags
^VA(200 - [#200]	GETS^DIQ
63.04	EXTERNAL^DILFD, GET1^DID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	V20+4
^LAB(62.05 - [#62.05]	LOOP+34
^LAH(	LRVR4+5, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7
^LR - [#63]	LOOP+5, V25+2, V20+1, V20+6, PLNR+4, LRSBCOM1+13, LRSBCOM1+14
^LRO(68 - [#68]	LOOP+4, LOOP+10, V36+1, V3+19, V3+23
^LRO(68.2 - [#68.2]	LRSBCOM1+11
^VA(200 - [#200]	LOOP+24

Label References

Name	Line Occurrences
CKPLNR	RANGE+4, RANGE+5
COM	V3+16
EDIT	LOOP+38, LOOP+40, V3+24
FILECOM	LRSBCOM1+18
LOOP	LRVR4+7, V3+16, V3+18, EDIT+3
LRCFL	V35+1, EDIT+3
LRSBCOM	LOOP+38, V3+1
LRSBCOM1	LRSBCOM+6
PLNR	RANGE+4, RANGE+5
RANGE	V20+28
RQ	RANGE+4, RANGE+5, RANGE+7
SUBS	V20
V20	LOOP+37, LOOP+40, V20, V20+1, V20+2, V20+30
V25	V20+1
V35	V20
V37	V3+13
WT	V20+30, LRCFL+2, LRSBCOM+10, LRSBCOM1+21

Name	Field # of Occurrence
^(	V20+1, V20+7
^(0	LOOP+4, LOOP+24
^(2	V36+1, V3+23*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LRVR4+6!
DA	COM+3!, COM+4*
DA(1	COM+4*
DIE	COM+3!, COM+4*
DIR	V3+4!
DIR("A"	V3+8, V3+11
DIR(0	V3+7, V3+10
>> DIRUT	V3+13
DR	COM+3!, COM+4*
DUZ	NR+5
DUZ(2	V3+6, RANGE+4, RANGE+5, NR+6
>> HRCN	LOOP+3
I	NR+1~, NR+8, NR+12, PLNR+3~, PLNR+7*, PLNR+9, PLNR+10
IOST	LOOP+33, LOOP+35
>> LRAA	LOOP+4, LOOP+10, LOOP+21, V36+1, V3+19, V3+23
>> LRACC	LOOP+28*, LOOP+29
>> LRAD	LOOP+4, LOOP+10, LOOP+21, V36+1, V3+23
>> LRALERT	LOOP+32, LOOP+34
>> LRAN	LOOP+4, LOOP+10, LOOP+21
>> LRCDT	LOOP+9, LOOP+26
>> LRCFL	V35+1, LRCFL+1
LRCMT	FILECOM~, FILECOM+6
>> LRDAT	LOOP+30
>> LRDAT(2	LOOP+30
>> LRDEL	V20+27
LRDFN	LOOP+5, V25+2, V20+1, V20+6, PLNR+4, COM+4, LRSBCOM1+13, LRSBCOM1+14, LRSBCOM1+18, FILECOM~ , FILECOM+6
>> LRDL	V20+7, V20+16
>> LRDPF	LOOP+4
LRDUP	LRSBCOM1+2~, LRSBCOM1+10, LRSBCOM1+13, LRSBCOM1+16, LRSBCOM1+17
>> LRDUZ	NR+5
>> LRDUZ(2	V3+6, RANGE+4, NR+6
>> LREDIT	LOOP+40, V36+1, V3+15, V3+24, V20+26, V20+29, EDIT+2*
>> LREND	V3+19*
LRERR	LRSBCOM1+2~, FILECOM+5~
>> LREXEC	LRCFL+1*
LRFDA	FILECOM+5~
LRFDA(2	FILECOM+6*
>> LRFLG	V20+12, V20+25, V20+29, NR+4, CKPLNR+2, CKPLNR+3
>> LRFP	V20+11, V20+20
>> LRGVP	LOOP+37, COM+1
LRI	LRSBCOM+1~, LRSBCOM+2, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7, LRSBCOM1+2~, LRSBCOM1+12, LRSBCOM1+13, LRSBCOM1+14
LRIDT	V25+2, V20+1, PLNR+4, COM+4, LRSBCOM1+13, LRSBCOM1+14, LRSBCOM1+18, FILECOM~, FILECOM+6
>> LRLABKY	COM+1
>> LRLCT	LOOP+1, LOOP+13, LOOP+18, LOOP+24, LOOP+26, LOOP+27, LOOP+31, LOOP+36, V3+5, V20+30 , LRCFL+2, LRSBCOM+10, LRSBCOM1+21
>> LRLDT	V20+6
>> LRLL	LRVR4+5, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7, LRSBCOM1+11
>> LRM(	V25+1!
>> LRNG	V20+25, V20+29, PLNR+10, PLNR+11
>> LRNGS	NR+11, PLNR+6, PLNR+10, PLNR+11*
LRNOECHO	LRSBCOM1+2~, LRSBCOM1+6*
LRNOEXPD	LRSBCOM1+2~, LRSBCOM1+6*
>> LRNOVER(	V20+15!
LRNUF	LOOP+38, LOOP+39!, V20+30, V35+2!
>> LRNX	LOOP+26, V20
>> LRORD(	V20
>> LROUT	EDIT+1*, EDIT+3
>> LRPANEL	LOOP+30
>> LRPARAM	LOOP+32, V3+19
>> LRPER	LOOP+38, LOOP+40, EDIT+3
>> LRPRAC	LOOP+10*, LOOP+11, LOOP+14, LOOP+15, LOOP+16, LOOP+17
>> LRPRAC(	LOOP+14, LOOP+15, LOOP+16, LOOP+17
>> LRPROF	LRSBCOM1+11
LRQ	V20+22!, V20+27*!, CKPLNR+3
>> LRQUIET	LRSBCOM+8, LRSBCOM1+19
>> LRSB	V25+1, V25+2, V20+1, V20+6, V20+7, V20+8, V20+9, V20+13, V20+15, V20+16 , V20+17, V20+18, RANGE+5, NR, NR+2, NR+3, NR+4, NR+5, NR+6, NR+7 , NR+9, NR+10, NR+11, NR+13, PLNR+5, CKPLNR+2
>> LRSB(	V25+1!, V25+2, V20+13, V20+16, RANGE+5, NR, NR+2, NR+3, NR+4, NR+5* , NR+6, NR+7, NR+9, NR+10, NR+11, NR+13*, PLNR+5, CKPLNR+2
>> LRSB(0	LOOP+38
>> LRSB(1	LOOP+40
LRSBCOM	LRVR4+2, LRVR4+6!, LRSBCOM+1~, LRSBCOM+4*, LRSBCOM+5, LRSBCOM1+12, LRSBCOM1+18, LRSBCOM1+20
LRSBCOM(	LRVR4+5
>> LRSQ	LRVR4+5, LRSBCOM+3, LRSBCOM+4, LRSBCOM+7
>> LRSS	V25+2, V20+1, V20+2, V20+6, PLNR+4
>> LRTEC	V36+1, V3+22
>> LRTS	V20, V20+4
>> LRUSI	V36+1
>> LRVF	V25+1, V20+1
>> LRVIDO	LOOP+33
>> LRVIDOF	LOOP+35
>> LRVRM	LOOP+26, V20+27, EDIT+2*
>> LRWRD	LOOP+4
LRX	LRVR4+3~, LRVR4+4, LRVR4+5, V20+14~, V20+16, V20+18, V20+19, V20+21, NR+1~, NR+7 , NR+8, NR+11, NR+12, LRSBCOM1+2~, LRSBCOM1+14, LRSBCOM1+15*, LRSBCOM1+16
LRY	NR+1~, NR+7, NR+8, NR+9, NR+11, NR+12, NR+13, PLNR+3~, PLNR+5, PLNR+6 , PLNR+9, PLNR+10, PLNR+11, LRSBCOM1+2~, LRSBCOM1+12*, LRSBCOM1+16
>> PNM	LOOP+3
PR	LOOP+20~, LOOP+23, LOOP+24
PRAC	LOOP+20~, LOOP+21
PRAC(	LOOP+24
PRAC(0	LOOP+22
>> SEX	LOOP+7
U	LOOP+4, LOOP+5, LOOP+10, LOOP+27, LOOP+28, LOOP+29, LOOP+32, LOOP+34, V36+1, V3+19 , V3+23, V20+4, V20+7, V20+13, V20+16, V20+25, V20+29, NR+2, NR+3, NR+4 , NR+5, NR+6, NR+7, NR+9, NR+10, NR+11, NR+12, NR+13, LRSBCOM+7, LRSBCOM1+11 , LRSBCOM1+14
>> VADM(3	LOOP+9
>> X	V3+13, V3+14, V3+15, V3+16, V3+18, V3+22, V3+23, V20+7, V20+9, V20+10* , V20+11, V20+12, V20+16, V20+18, V20+19, V20+21, V20+23, V20+24, V20+29, RANGE+4 , RANGE+5, RQ, NR+2, NR+3
>> X1	V20+5, V20+7, V20+9, V20+10
>> Y	V3+14, V20+21, V20+30, RANGE+4, RANGE+5*, RQ
>> Z	LOOP+26*
>> Z1	LOOP+27, LOOP+28
>> Z2	LOOP+29

Customize PDF page

Package: Lab Service

Routine: LRVR4

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: