Routine: LRVER4

Information

LRVER4 ;DALOI/CJS/DALOI/FHS - LAB ROUTINE DATA VERIFICATION ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <LRVER4.m>

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Lab Service	11	PRAC^LR7OMERG (EN,STD)^LRCAPV ^LREXEC PG^LRGVP $$CALCAGE^LRRPU $$TMPSB^LRVER1 RONLT^LRVER3 XREF^LRVER3A DISPFLG^LRVER4 (,V25)^LRVER5 DCOM^LRVERA
VA Fileman	5	$$GET1^DID (,UPDATE)^DIE $$EXTERNAL^DILFD GETS^DIQ ^DIR
IHS Changes To Lab	3	UPDTCOML^BLRAAORU GETCCDTA^BLRCCPED ($$QUALCHEK,QUALCHEK)^BLRQUALU
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	4	LRVER3 LRVER4 LRVER5 LRVR4

Entry Points

Name	Comments	DBIA/ICR reference
IHSCHECK	; EP
IHSRLOW(LRNG,IHSRNG)	; EP - Reset low
IHSLOGIC	; EP
WT	; EP
COM	;from LRVER5
V21	;
V20	;
RQ
COM1	;
ND	;
LRCFL	;
PG
SUBS	;
RANGECHK	; Check result against reference ranges and set flag	ICR #5577 Status: Withdrawn Usage: Private
RANGE	;
AFTRAAOQ	; EP - Put any comments AFTER the Ask-At-Order Questions
V	; EP
V35	;
V36	;
V37
EDIT	;
VOL	;
DISPFLG	; Display critical flags
IHSHIGH(LRNG,IHSRNG)	; EP - Reset High
LOOP	;

External References

Name	Field # of Occurrence
UPDTCOML^BLRAAORU	LOOP+3
GETCCDTA^BLRCCPED	COM+4
$$QUALCHEK^BLRQUALU	RANGECHK+2
QUALCHEK^BLRQUALU	RANGECHK+2
$$GET1^DID	V20+14, V20+24, V21+10, V21+16
^DIE	COM+8
UPDATE^DIE	AFTRAAOQ+18
$$EXTERNAL^DILFD	V20+15, V20+25, V21+11, V21+17
GETS^DIQ	LOOP+15
^DIR	V36+6, AFTRAAOQ+7
PRAC^LR7OMERG	LOOP+25
EN^LRCAPV	V36+13
STD^LRCAPV	V36+13
^LREXEC	LRCFL+1
PG^LRGVP	PG+2
$$CALCAGE^LRRPU	LOOP+13
$$TMPSB^LRVER1	V20+39
RONLT^LRVER3	V20+42
XREF^LRVER3A	COM1+2
DISPFLG^LRVER4	V20+33, RANGE+13, V21+25
^LRVER5	EDIT+2
V25^LRVER5	V20+6, V21+6
DCOM^LRVERA	V20+2, V35+2
^XBFMK	AFTRAAOQ+4
$$FMTE^XLFDT	LOOP+13
$$UP^XLFSTR	ND+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PNM," SSN: ",SSN," " Line Location: LOOP+6
Function Call: WRITE	Prompt: !!,PNM," HRCN: ",HRCN," " Line Location: LOOP+7
Function Call: WRITE	Prompt: !,"Pat Info: ",$P($G(^LR(LRDFN,.091)),U) Line Location: LOOP+10
Function Call: WRITE	Prompt: ?34," Sex: " Line Location: LOOP+11
Function Call: WRITE	Prompt: $S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX) Condition for execution: $L($G(SEX)) Line Location: LOOP+11
Function Call: WRITE	Prompt: ?48," Age: ",$$CALCAGE^LRRPU(DOB,LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D") Line Location: LOOP+12
Function Call: WRITE	Prompt: ?48," Age: ",$$CALCAGE^LRRPU(+$G(VADM(3)),LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D") Line Location: LOOP+13
Function Call: WRITE	Prompt: !,"Provider: " Line Location: LOOP+16
Function Call: WRITE	Prompt: LRPRAC Line Location: LOOP+18
Function Call: WRITE	Prompt: LRPRAC(LRPRAC,200,LRPRAC_",",.01,"E"),?40," Voice pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.137,"E") Line Location: LOOP+20
Function Call: WRITE	Prompt: !," Phone: ",LRPRAC(LRPRAC,200,LRPRAC_",",.132,"E"),?38," Digital pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.138,"E") Line Location: LOOP+21
Function Call: WRITE	Prompt: !?14,$P(^(0),"^") Line Location: LOOP+28
Function Call: WRITE	Prompt: ! Line Location: LOOP+29
Function Call: WRITE	Prompt: !,"VOLUME: ",$P(^(0),U,7) Line Location: LOOP+32
Function Call: WRITE	Prompt: !,"ACCESSION:",?30,$P(Z2,U,6),?44," ",LRACC Line Location: LOOP+35
Function Call: WRITE	Prompt: !,?30,LRDAT(2) Line Location: LOOP+36
Function Call: WRITE	Prompt: ?44," ",LRDAT Line Location: LOOP+36
Function Call: WRITE	Prompt: !?15 Line Location: LOOP+39
Function Call: WRITE	Prompt: @LRVIDO Condition for execution: $E(IOST,1,2)="C-" Line Location: LOOP+39
Function Call: WRITE	Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U) Line Location: LOOP+40
Function Call: WRITE	Prompt: !!?7,$C(7),"This is not a verifiable test/accession ",! Line Location: LOOP+44
Function Call: WRITE	Prompt: !?10," Workload is not activated." Line Location: V36+14
Function Call: WRITE	Prompt: !,$P(^LAB(60,+LRTS,0),U) Line Location: V20+10
Function Call: WRITE	Prompt: ?44," ",@LRFP," ",LRFLG,?56," ",$P($P(LRSB(LRSB),U,5),"!",7) Line Location: V20+27
Function Call: WRITE	Prompt: " " Line Location: V20+32
Function Call: WRITE	Prompt: " " Line Location: RANGE+4
Function Call: WRITE	Prompt: $C(7),@LRVIDO Line Location: DISPFLG+2
Function Call: WRITE	Prompt: "CRITICAL ",$S($E(LRFLG,1)="L":"LOW",$E(LRFLG,1)="H":"HIGH",1:""),"!!" Line Location: DISPFLG+3
Function Call: WRITE	Prompt: @LRVIDOF,$C(7),$C(7) Line Location: DISPFLG+4
Function Call: WRITE	Prompt: !,"You're not authorized to edit verified data." Line Location: ND+4
Function Call: WRITE	Prompt: !,"If you need to change something, enter your initials: " Line Location: ND+17
Function Call: READ	Timeout: TEXT="^" Variable: TEXT#1 S Line Location: ND+19
Function Call: WRITE	Prompt: $C(8),"*" Line Location: ND+19
Function Call: READ	Timeout: TEXT="^" Variable: TEXT#1 S Line Location: ND+20
Function Call: WRITE	Prompt: $C(8),"*" Line Location: ND+20
Function Call: WRITE	Prompt: ! Line Location: ND+26
Function Call: READ	Timeout: DTIME Variable: Y Line Location: WT+2
Function Call: WRITE	Prompt: ! Line Location: AFTRAAOQ+2
Function Call: WRITE	Prompt: !,"VOLUME: ",$P(^LR(LRDFN,LRSS,LRIDT,0),U,7),"//" Line Location: VOL+1
Function Call: WRITE	Prompt: @IOF Line Location: PG+1
Function Call: WRITE	Prompt: !,$P(^LAB(60,LRTS,0),U) Line Location: V21+7
Function Call: WRITE	Prompt: ?44," ",@LRFP," ",LRFLG,?56," ",$P(LRNG,U,7) Line Location: V21+19
Function Call: WRITE	Prompt: " " Line Location: V21+24
Routine Call	DIE Line Location: AFTRAAOQ+18
Routine Call	DIE Line Location: COM+8
Routine Call	DIR Line Location: V36+6 AFTRAAOQ+7

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+10, V21+5, V21+7
^LAB(62.05 - [#62.05]	LOOP+40
^LR - [#63]	LOOP+10, LOOP+31, V+3, V20+5, V20+12, ND+28, COM+3, COM+9, COM+10!, COM+11 , AFTRAAOQ+16, VOL+1, COM1+1, COM1+4, V21+8
^LRO(68 - [#68]	LOOP+8, LOOP+14, V+6, V36+13, V36+16, COM1+3*
^TMP("LR"	SUBS+1, COM1+3
^VA(200 - [#200]	LOOP+28

Label References

Name	Line Occurrences
AFTRAAOQ	COM+3
COM	V36+11, VOL+3
COM1	COM+8
EDIT	V+3, V+5, V36+17
IHSCHECK	RANGECHK+4
IHSHIGH	IHSLOGIC+6, IHSLOGIC+8, IHSLOGIC+10, IHSLOGIC+12
IHSLOGIC	RANGECHK+6, RANGECHK+7
IHSRLOW	IHSLOGIC+5, IHSLOGIC+7, IHSLOGIC+9, IHSLOGIC+11
LOOP	V36+12, EDIT+2, EDIT+3
LRCFL	V35+1, EDIT+2
ND	V+5
PG	V20+8
RANGECHK	RANGE+12
SUBS	V20+3
V20	V+2, V+5, V20+4, V20+5, V20+49
V21	V20+2
V35	V20+3
V36	V36+11
V37	V+5, V36+7
VOL	VOL+2
WT	V20+49, LRCFL+2, V21+26

Name	Field # of Occurrence
^(	V20+13, SUBS+1, ND+28, V21+9
^(0	LOOP+8, LOOP+28, LOOP+32, VOL+2, COM1+4
^(2	V+6, V36+16*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDON	IHSHIGH+1~, IHSHIGH+2, IHSHIGH+4, IHSHIGH+5
ANSWER	ND+15~, ND+18, ND+20, ND+21, ND+22
CHEK	IHSCHECK+1~, IHSCHECK+5, IHSCHECK+6, IHSCHECK+7, IHSCHECK+8
COMMENTS	AFTRAAOQ+1~, AFTRAAOQ+12
COMMENTS(	AFTRAAOQ+10*, AFTRAAOQ+15, AFTRAAOQ+17
>> DA	COM+7*
>> DA(1	COM+7*
>> DIE	COM+7*
DIR	V36+3!, ND+1!
DIR("A"	V36+5, AFTRAAOQ+6
DIR(0	V36+4, AFTRAAOQ+5
>> DIRUT	V36+7
DR	COM+6!, COM+7*
DTIME	WT+2, VOL+1
>> DTOUT	V20+8
>> DUOUT	V20+8
DUZ	V20+45, V20+47
DUZ(2	V20+45, V20+47
ERRS	AFTRAAOQ+1~
FDA	AFTRAAOQ+1~
FDA(	AFTRAAOQ+17*
>> HRCN	LOOP+7
I	V20+37~, V20+40*
IENS	AFTRAAOQ+1~
IENS(1	AFTRAAOQ+16*
IHSLRNG2	IHSLOGIC+1~, IHSLOGIC+3*, IHSLOGIC+5, IHSLOGIC+6, IHSLOGIC+16
IHSLRNG3	IHSLOGIC+1~, IHSLOGIC+3*, IHSLOGIC+7, IHSLOGIC+8, IHSLOGIC+17
IHSLRNG4	IHSLOGIC+1~, IHSLOGIC+3*, IHSLOGIC+9, IHSLOGIC+10, IHSLOGIC+14
IHSLRNG5	IHSLOGIC+1~, IHSLOGIC+3*, IHSLOGIC+11, IHSLOGIC+12, IHSLOGIC+15
IHSRNG	IHSRLOW~, IHSRLOW+5, IHSHIGH~, IHSHIGH+5
IOF	PG+1
IOSL	PG
IOST	LOOP+39, LOOP+41, DISPFLG+2, DISPFLG+4, PG+1
LINE	AFTRAAOQ+1~, AFTRAAOQ+3, AFTRAAOQ+8, AFTRAAOQ+10, AFTRAAOQ+14, AFTRAAOQ+15, AFTRAAOQ+17
>> LRAA	LOOP+8, LOOP+14, LOOP+25, V+6, V36+13, V36+16
>> LRACC	LOOP+34*, LOOP+35
>> LRAD	LOOP+8, LOOP+14, LOOP+25, V+6, V36+16
>> LRALERT	LOOP+38, LOOP+40
LRAMEND	LRVER4+3~
>> LRAN	LOOP+8, LOOP+14, LOOP+25
>> LRCDT	LOOP+13
>> LRCFL	V35+1, LRCFL+1
>> LRCHG	V20+2, EDIT+2, ND+26*
>> LRDAT	LOOP+36
>> LRDAT(2	LOOP+36
>> LRDEL	V20+31, V21+23
>> LRDFN	LOOP+3, LOOP+10, LOOP+31, V+3, V20+5, V20+12, ND+28, COM+3, COM+4, COM+7 , COM+9, COM+10, COM+11, AFTRAAOQ+16, AFTRAAOQ+17, VOL+1, COM1+1, COM1+3, COM1+4, V21+8
>> LRDL	V20+22, V21+9, V21+14*
>> LRDPF	LOOP+8
>> LRDUZ	V20+45, V20+47
>> LRDUZ(2	V20+45, V20+47
>> LREDIT	V+5, V+6, V36+9, V36+17, V20+23, ND+5, ND+25, V21+15
LREND	V36+13, V21+1~, V21+3, V21+26
>> LREXEC	LRCFL+1*
LRFIND	RANGE+1~, RANGE+5*
>> LRFLG	V20+18, V20+23, V20+27, V20+33, V20+38, RANGE+10, RANGE+13, RANGECHK+11, RANGECHK+12, RANGECHK+13 , RANGECHK+14, RANGECHK+23, RANGECHK+24, RANGECHK+25, RANGECHK+26, RANGECHK+28, RANGECHK+29, RANGECHK+30, RANGECHK+31, RANGECHK+36 , RANGECHK+37, RANGECHK+38, RANGECHK+39, IHSCHECK+5, IHSCHECK+6, IHSCHECK+7, IHSCHECK+8, IHSLOGIC+14, IHSLOGIC+15, IHSLOGIC+16 , IHSLOGIC+17, DISPFLG+3, V21+15, V21+19, V21+25
>> LRFP	V20+17, V20+27, V21+13, V21+19
>> LRGVP	LOOP+4, V+2, V36+2, V20+8, WT+1, COM+1
LRI	RANGE+1~, RANGE+5*, RANGE+6
>> LRIDT	LOOP+3, LOOP+31, V+3, V20+5, ND+28, COM+3, COM+4, COM+7, COM+9, COM+10 , COM+11, AFTRAAOQ+16, AFTRAAOQ+17, VOL+1, COM1+1, COM1+3, COM1+4
>> LRINI	ND+21*
>> LRLABKY	ND+3
>> LRLCT	LOOP+2, LOOP+7, LOOP+17, LOOP+22, LOOP+28, LOOP+29, LOOP+33, LOOP+37, LOOP+42, V20+49 , LRCFL+2, WT+1, V21+2, V21+26*
>> LRLDT	V20+12, V21+8
LRNC	V36+10!, V36+11*!, COM+8
LRNG	IHSRLOW~, IHSRLOW+3, IHSRLOW+5, IHSHIGH~, IHSHIGH+3, IHSHIGH+5, V21+19
>> LRNG2	RANGECHK+4, RANGECHK+6, RANGECHK+7, RANGECHK+13, RANGECHK+25, RANGECHK+26, RANGECHK+38, IHSCHECK+7, IHSLOGIC+5, IHSLOGIC+6
>> LRNG3	RANGECHK+4, RANGECHK+6, RANGECHK+7, RANGECHK+14, RANGECHK+30, RANGECHK+31, RANGECHK+39, IHSCHECK+8, IHSLOGIC+7, IHSLOGIC+8
>> LRNG4	RANGECHK+4, RANGECHK+6, RANGECHK+7, RANGECHK+11, RANGECHK+23, RANGECHK+24, RANGECHK+36, IHSCHECK+5, IHSLOGIC+9, IHSLOGIC+10
>> LRNG5	RANGECHK+4, RANGECHK+6, RANGECHK+7, RANGECHK+12, RANGECHK+28, RANGECHK+29, RANGECHK+37, IHSCHECK+6, IHSLOGIC+11, IHSLOGIC+12
>> LRNGS	V20+48
>> LRNOVER(	V20+21!
LRNUF	V+3, V+4!, V20+49, V35+2!, V21+26
>> LRNX	LOOP+30, V20+3, SUBS+1
>> LRODT	LOOP+3
>> LRORD(	V20+3, SUBS+1
>> LRORD(0	LOOP+44
LROUT	EDIT+1!, EDIT+2
>> LRPARAM	LOOP+38, V36+13
>> LRPER	V+3, EDIT+2
>> LRPRAC	LOOP+14*, LOOP+15, LOOP+18, LOOP+19, LOOP+20, LOOP+21
>> LRPRAC(	LOOP+18, LOOP+19, LOOP+20, LOOP+21
LRQ	V20+31!, V20+33, RANGE+13, V21+23!, V21+25
LRRFLAG	LRVER4+3~
LRRFLAG(	RANGE+10
LRSA	ND+27!, ND+28
LRSA(	V20+45, V20+46, ND+28
>> LRSB	V20+5, V20+12, V20+13, V20+14, V20+15, V20+19, V20+21, V20+22, V20+23, V20+24 , V20+25, V20+27, V20+35, V20+38, V20+39, V20+41, V20+42, V20+44, V20+45, V20+46 , V20+47, V20+48, RANGE+10, SUBS+1, V21+2, V21+3*, V21+5, V21+8, V21+9, V21+10 , V21+11, V21+14, V21+15, V21+16, V21+17
>> LRSB(	V20+5, V20+19, V20+22, V20+23, V20+27, V20+35, V20+38, V20+39, V20+41, V20+42 , V20+44, V20+45, V20+46, V20+47, V20+48*, V21+3, V21+14, V21+15
>> LRSN	LOOP+3
>> LRSS	LOOP+31, V+3, V20+5, V20+12, COM+9, COM+11, VOL+1, COM1+1, COM1+4, V21+8
>> LRTEC	V+6, V36+15
>> LRTS	V20+4, V20+10, SUBS+1, V21+5, V21+7
>> LRUSI	V+6, ND+25
>> LRVF	V+3, V+5, ND+2
>> LRVIDO	LOOP+39, DISPFLG+2
>> LRVIDOF	LOOP+41, DISPFLG+4
>> LRVRM	LOOP+30, EDIT+2
>> LRWRD	LOOP+5*, LOOP+8
>> LRWRDS	LOOP+5
LRX	V20+20~, V20+22, V20+25, V20+26, V20+28, V20+37~, V20+39, V20+40, RANGECHK+20~, RANGECHK+21* , RANGECHK+23, RANGECHK+24, RANGECHK+25, RANGECHK+26, RANGECHK+28, RANGECHK+29, RANGECHK+30, RANGECHK+31, COM1+1~, COM1+3* , V21+4~, V21+14*, V21+17, V21+18, V21+20
LRY	V20+37~, V20+39, V20+40, V20+41
NUMDEC	IHSRLOW+1~, IHSRLOW+3, IHSRLOW+4, IHSHIGH+1~, IHSHIGH+3, IHSHIGH+4
>> PNM	LOOP+7
PR	LOOP+24~, LOOP+27, LOOP+28
PRAC	LOOP+24~, LOOP+25
PRAC(	LOOP+28
PRAC(0	LOOP+26
RESULT	IHSCHECK+1~, IHSCHECK+3*, IHSCHECK+5, IHSCHECK+6, IHSCHECK+7, IHSCHECK+8
>> SEX	LOOP+11
STEP	ND+15~, ND+20*
SUBTRACT	IHSRLOW+1~, IHSRLOW+2, IHSRLOW+4, IHSRLOW+5
>> T	LOOP+30*
TEXT	ND+15~, ND+20*
U	LOOP+8, LOOP+10, LOOP+14, LOOP+31, LOOP+32, LOOP+34, LOOP+35, LOOP+38, LOOP+40, V+6 , V36+13, V36+16, V20+10, V20+13, V20+22, V20+23, V20+27, V20+35, V20+36, V20+38 , V20+39, V20+41, V20+42, V20+44, V20+45, V20+46, V20+47, V20+48, ND+3, VOL+1 , VOL+2, COM1+1, COM1+4, V21+7, V21+9, V21+14, V21+15, V21+19
>> VADM(3	LOOP+13
X	V+5, V36+7, V36+8, V36+9, V36+11, V36+12, V36+15, V36+16, V20+13, V20+15 , V20+16, V20+17, V20+18, V20+22, V20+25, V20+26, V20+28, V20+29, V20+35, V20+36 , V20+38, RANGE+2, RANGE+3, RANGE+5, RANGE+6, RQ, RANGECHK+4, RANGECHK+10, RANGECHK+11, RANGECHK+12 , RANGECHK+13, RANGECHK+14, RANGECHK+19, RANGECHK+21, RANGECHK+22, RANGECHK+27, RANGECHK+35, RANGECHK+36, RANGECHK+37, RANGECHK+38 , RANGECHK+39, IHSCHECK+3, IHSLOGIC+14, IHSLOGIC+15, IHSLOGIC+16, IHSLOGIC+17, ND+1!, ND+16!, ND+22, ND+25! , ND+26, AFTRAAOQ+8, AFTRAAOQ+10, VOL+1, VOL+2, V21+9, V21+11, V21+12, V21+13, V21+14 , V21+17, V21+18, V21+20*, V21+21
>> X1	V20+11, V20+13, V20+15, V20+16, V21+7, V21+9, V21+11, V21+12
Y	V36+8, V20+30, V20+49, RANGE+2, RQ, WT+2, V21+1~, V21+22, V21+26
>> Z1	LOOP+34
>> Z2	LOOP+35

Customize PDF page

Package: Lab Service

Routine: LRVER4

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items