Routine: LRRP1

Package	Total	Call Graph
Lab Service	7	^LRAIPRIV $$DATE^LRDAGE $$EN^LRLRRVF EN1^LRMIPC SITELIST^LRRP2 $$TSTRES^LRRPU DOC^LRX
IHS Changes To Lab	5	^BLRALAU (CONDSPEC,LRREFS)^BLRLRRP1 $$ADDON^BLRUTIL LABHDR^BLRUTIL2 ARRIVETM^BLRUTIL8
Kernel	3	($$FMTE,$$NOW)^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR ($$NAME,$$PADD)^XUAF4
VA Fileman	2	EN^DDIOL $$GET1^DIQ
IHS Patient	1	$$DOB^AUPNPAT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Lab Service	5	LRRMM LRRP LRRP1VA LRRP2 LRRP3
IHS Changes To Lab	1	BLRLRRP2

Entry Points

Name	Comments	DBIA/ICR reference
FOOT	;EP - Begin IHS/OIT/MKK - LR5.21027 - IHS Modified FOOT Code
CONT	; EP - Begin IHS/OIT/MKK - LR5.21027 -- IHS Modified CONT code ; Q:($Y+5)<IOSL
HDR	; EP - Begin IHS/OIT/MKK - LR5.21027 - IHS Modified HDR Code
LASTPAGE	; EP - Last Page
ORU	; Display remote ordering info if available
MUMPEVAL(EVAL)	; EP
CHECK
TEST	; EP -- IHS/OIT/MKK - LR5.21027 - IHS Modified TEST Code
MUMPRNGE(RANGE)	; EP -- MUMPS Code in Reference Range -- Evaluate and store
BOTTOMPG	; EP - IHS/OIT/MKK - LR5.21027
PRINT
DATA	; EP - Begin IHS/OIT/MKK - LR5.21027 - IHS Modified DATA code
ORDER
COLHEADS	; EP - IHS/OIT/MKK - LR5.21027 ; W !!,"Test name" ; W ?19,"Result units"

External References

Name	Field # of Occurrence
$$DOB^AUPNPAT	HDR+23
^BLRALAU	TEST+14
CONDSPEC^BLRLRRP1	TEST+28
LRREFS^BLRLRRP1	DATA+29
$$ADDON^BLRUTIL	TEST+14
LABHDR^BLRUTIL2	HDR+19
ARRIVETM^BLRUTIL8	TEST+23
EN^DDIOL	ORU+8, ORU+12, ORU+13, ORU+14
$$GET1^DIQ	FOOT+6, FOOT+24, HDR+39, ORU+12, ORU+14
^LRAIPRIV	HDR+7
$$DATE^LRDAGE	HDR+25
$$EN^LRLRRVF	DATA+7, MUMPRNGE+20
EN1^LRMIPC	TEST+6
SITELIST^LRRP2	FOOT+16, LASTPAGE+6
$$TSTRES^LRRPU	DATA+5
DOC^LRX	TEST+16
$$FMTE^XLFDT	TEST+26, HDR+20, HDR+34, HDR+42
$$NOW^XLFDT	HDR+20
$$CJ^XLFSTR	CONT+9, HDR+6
$$TRIM^XLFSTR	MUMPRNGE+9, MUMPRNGE+12
$$UP^XLFSTR	HDR+25
$$GET^XPAR	HDR+41
$$NAME^XUAF4	FOOT+12
$$PADD^XUAF4	FOOT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Provider: ",LRDOC Line Location: TEST+20
Function Call: WRITE	Prompt: !,?5,"Specimen:",$E($P(^LAB(61,LRSPEC,0),U),1,23) Line Location: TEST+24
Function Call: WRITE	Prompt: !,?5,"Specimen:",$E($P($G(^LAB(61,LRSPEC,0)),U),1,23) Line Location: TEST+25
Function Call: WRITE	Prompt: ?42,"Spec Collect Date/Time:",$$FMTE^XLFDT(LRCDT,"2MZ") Line Location: TEST+26
Function Call: WRITE	Prompt: !,"Comment: " Line Location: TEST+37
Function Call: WRITE	Prompt: ^TMP("LR",$J,"TP",LRAAO,LRCDT,"C",LRCMNT) Line Location: TEST+39
Function Call: WRITE	Prompt: !!,"Test name" Line Location: COLHEADS+1
Function Call: WRITE	Prompt: ?19,"Result units" Line Location: COLHEADS+2
Function Call: WRITE	Prompt: !,?25,"Res",! Line Location: COLHEADS+3
Function Call: WRITE	Prompt: "Test name" Line Location: COLHEADS+4
Function Call: WRITE	Prompt: ?18,"Result" Line Location: COLHEADS+5
Function Call: WRITE	Prompt: ?25,"Flg" Line Location: COLHEADS+6
Function Call: WRITE	Prompt: ?29,"units" Line Location: COLHEADS+7
Function Call: WRITE	Prompt: ?43,"Ref. range" Line Location: COLHEADS+8
Function Call: WRITE	Prompt: ?60,"Site" Line Location: COLHEADS+9
Function Call: WRITE	Prompt: ?66,"Result Dt/Time" Line Location: COLHEADS+10
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","=") Line Location: BOTTOMPG+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STR,IOM) Line Location: BOTTOMPG+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STR,IOM) Line Location: BOTTOMPG+10
Function Call: WRITE	Prompt: !,"KEY: A=Abnormal L=Abnormal Low H=Abnormal High *=Critical TR=Therapeutic",! Line Location: BOTTOMPG+15
Function Call: WRITE	Prompt: !,$S($L($P(LRDATA,U,2))>15:$P(LRDATA,U,3),1:$P(LRDATA,U,2)) Line Location: DATA+16
Function Call: WRITE	Prompt: ?16,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",$P(LR63DATA,"^",2) Line Location: DATA+18
Function Call: WRITE	Prompt: ?16,@$S(LRPC="":"$J(X,LRCW)",1:LRPC) Line Location: DATA+19
Function Call: WRITE	Prompt: ?26,$P(LR63DATA,"^",2) Line Location: DATA+20
Function Call: WRITE	Prompt: ?26,$S($P(LR63DATA,"^",2)="N":"",1:$P(LR63DATA,"^",2)) Line Location: DATA+21
Function Call: WRITE	Prompt: ?29,$P(LR63DATA,"^",5) Line Location: DATA+22
Function Call: WRITE	Prompt: ?43,$E(LRREFS,1,15) Line Location: DATA+24
Function Call: WRITE	Prompt: ?55,$S(LRTHER:"(TR)",1:"") Line Location: DATA+25
Function Call: WRITE	Prompt: ?59,$J("["_LRPLS_"]",6) Line Location: DATA+27
Function Call: WRITE	Prompt: ?66,$$GETCOMPD^BLRUTIL4 Line Location: DATA+28
Function Call: WRITE	Prompt: !?7,"Eval: ",^(LRINTP) Line Location: DATA+35
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(">> CONTINUATION OF "_$P(LR0,U,6)_" <<",IOM) Line Location: CONT+9
Function Call: WRITE	Prompt: ! Line Location: FOOT+13
Function Call: WRITE	Prompt: ! Line Location: FOOT+15
Function Call: WRITE	Prompt: ! Line Location: FOOT+19
Function Call: WRITE	Prompt: ! Line Location: FOOT+20
Function Call: WRITE	Prompt: !,"INTERIM REPORT DO NOT FILE",?30,$E(PNM,1,23)," HRCN:",HRCN,?70,LRDT0,! Line Location: FOOT+25
Function Call: WRITE	Prompt: PNM," HRCN:",HRCN,?70,LRDT0,! Line Location: FOOT+26
Function Call: WRITE	Prompt: !,$E(PNM,1,23),?28,HRCN,?40,LRDT0 Line Location: FOOT+28
Function Call: WRITE	Prompt: !,PNM,?30," HRCN:",HRCN,?46,LRDT0 Line Location: FOOT+29
Function Call: READ	Prompt: "PRESS '^' TO STOP " Formatting: ?60 Timeout: DTIME Variable: X Line Location: FOOT+30
Function Call: WRITE	Prompt: !!!!,$$CJ^XLFSTR("CLINICAL LABORATORY REPORT",IOM),! Line Location: HDR+5
Function Call: WRITE	Prompt: !!!!,$$CJ^XLFSTR("CLINICAL LABORATORY REPORT",80),! Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: "Printed at: ",?65,"page ",LRPG Line Location: HDR+8
Function Call: WRITE	Prompt: "Printed at: ",?65,"page ",LRPG,! Line Location: HDR+9
Function Call: WRITE	Prompt: "Printed at: ",?TAB,PAGESTR,! Line Location: HDR+16
Function Call: WRITE	Prompt: !,PNM,?45,"Date/Time Printed: ",$$FMTE^XLFDT($$NOW^XLFDT,"2MZ") Line Location: HDR+20
Function Call: WRITE	Prompt: !?5,"HRCN:",HRCN Line Location: HDR+28
Function Call: WRITE	Prompt: ?25,"SEX:",SEX Line Location: HDR+29
Function Call: WRITE	Prompt: ?35,"DOB:",$S(DOB>0:$$FMTE^XLFDT(DOB),1:" ") Line Location: HDR+30
Function Call: WRITE	Prompt: ?20,"SEX:",SEX Line Location: HDR+33
Function Call: WRITE	Prompt: ?27,"DOB:",$S(DOB>0:$$FMTE^XLFDT(DOB),1:" ") Line Location: HDR+34
Function Call: WRITE	Prompt: ! Line Location: LASTPAGE+4
Function Call: WRITE	Prompt: !! Line Location: LASTPAGE+5
Function Call: WRITE	Prompt: !!,PNM,?30," HRCN:",HRCN,?54,LRDT0 Line Location: LASTPAGE+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
63.04	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	TEST+25
^LR - [#63]	ORDER+6, HDR+23, ORU+7
^SC - [#44]	HDR+46
^TMP("LR"	PRINT+1, PRINT+2!, ORDER+2, ORDER+5, TEST+1, TEST+2, TEST+33, TEST+36, TEST+38, TEST+39 , TEST+41, DATA+33, DATA+35

Label References

Name	Line Occurrences
$$MUMPEVAL	MUMPRNGE+17, MUMPRNGE+18
@(	TEST+11
BOTTOMPG	TEST+43, CONT+4
COLHEADS	TEST+30, CONT+10
CONT	TEST+40, DATA+31, DATA+35
DATA	TEST+33
FOOT	TEST+5, CHECK, CONT+5
HDR	CHECK, CONT+8
MUMPRNGE	DATA+23
ORDER	PRINT+1
ORU	TEST+18
TEST	ORDER+7

Naked Globals

Name	Field # of Occurrence
^(	ORDER+6, TEST+3, TEST+33, DATA+35
^("ORU"	ORU+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	TEST+8!
AGE	HDR+22~, HDR+25, HDR+26, HDR+41
CNT	LASTPAGE+1~, LASTPAGE+2, LASTPAGE+3, LASTPAGE+4
>> DFN	HDR+39
>> DOB	PRINT, HDR+23, HDR+24, HDR+25, HDR+34
DOD	HDR+37~, HDR+39*, HDR+41, HDR+42
DONOTF	FOOT+23~, FOOT+24*, FOOT+25, FOOT+26
DTIME	FOOT+30
DUZ("AG"	HDR+7
DUZ(2	TEST+14, FOOT+6, FOOT+24
EVAL	MUMPEVAL~, MUMPEVAL+5, MUMPEVAL+6*, MUMPEVAL+10, MUMPEVAL+12
HIGH	MUMPRNGE+1~, MUMPRNGE+12, MUMPRNGE+13, MUMPRNGE+15, MUMPRNGE+18
HNOW	LASTPAGE+1~
>> HRCN	FOOT+25, FOOT+26, FOOT+29, HDR+28, LASTPAGE+7
I	FOOT+15, FOOT+19, FOOT+20, LASTPAGE+1~, LASTPAGE+2, LASTPAGE+4*
IENS	ORU+1~, ORU+7*, ORU+12, ORU+14
IOF	HDR+1
IOM	BOTTOMPG+2~, BOTTOMPG+3*, BOTTOMPG+5, CONT+9, FOOT+12, HDR+15
IOSL	CHECK, CONT+2, FOOT+14, FOOT+15, FOOT+19, FOOT+20, LASTPAGE+4
IOST	FOOT+22, HDR+1, HDR+6, LASTPAGE+4
LOCDESC	HDR+44~, HDR+46*, HDR+51, HDR+52
LOCIEN	HDR+44~, HDR+45*, HDR+46
LOW	MUMPRNGE+1~, MUMPRNGE+9, MUMPRNGE+10, MUMPRNGE+15, MUMPRNGE+17
>> LR0	TEST+3*, TEST+11, TEST+16, CONT+9, HDR+45
LR63DATA	DATA+1~, DATA+5*, DATA+7, DATA+17, DATA+20, DATA+22
>> LRAAO	PRINT+1*, ORDER+2, ORDER+5, TEST+1, TEST+2, TEST+3, TEST+33, TEST+36, TEST+38, TEST+39 , TEST+41, DATA+33, DATA+35
LRCAN	ORDER~, ORDER+3, ORDER+6, TEST+11
>> LRCDT	ORDER+1, ORDER+2, ORDER+5, TEST+1, TEST+3, TEST+26, TEST+33, TEST+36, TEST+38, TEST+39 , TEST+41, DATA+33, DATA+35
>> LRCMNT	TEST+37, TEST+38, TEST+39, TEST+41
>> LRDATA	TEST+33*, DATA+3, DATA+4, DATA+5, DATA+16
>> LRDFN	ORDER+6, TEST+23, DATA+5, HDR+23, ORU+7
>> LRDOC	TEST+20
>> LRDPF	HDR+39
>> LRDT0	FOOT+25, FOOT+26, FOOT+29, LASTPAGE+7
>> LREDT	FOOT+2
>> LREND	TEST+9*, FOOT+2
>> LRFOOT	TEST+5, TEST+7, BOTTOMPG+18
LRH	TEST+5*, TEST+8!
>> LRHF	TEST+7, TEST+11, HDR+2
>> LRHI	DATA+7*
>> LRIDT	ORDER+5, ORDER+6, TEST+1, TEST+23, DATA+5, FOOT+2, ORU+7
>> LRINTP	DATA+34, DATA+35
LRIRAP	FOOT+4~, FOOT+6*, FOOT+7, FOOT+19, FOOT+20
>> LRJ0	HDR+1
>> LRJ02	HDR+1, HDR+2*
>> LRLO	DATA+7*
>> LROC	HDR+51
>> LRPC	DATA+3*, DATA+19
>> LRPG	HDR+3, HDR+4, HDR+14
>> LRPLS	DATA+7*, DATA+14
>> LRPLS(	DATA+14*, FOOT+10, LASTPAGE+2
>> LRPO	TEST+32, TEST+33, DATA+33, DATA+35
>> LRREFS	DATA+7, DATA+10, DATA+11*, DATA+23
>> LRSPEC	TEST+16*, TEST+25
>> LRSS	ORDER+4, TEST+2*, TEST+4, TEST+23, DATA+5, ORU+7
>> LRSTOP	PRINT+1, ORDER+7, TEST+5, TEST+9, TEST+11, TEST+33, TEST+34, TEST+38, TEST+40, TEST+42 , DATA+31, DATA+33, DATA+35, CHECK, CONT+6, FOOT+1, FOOT+30
>> LRSUB	DATA+3*
>> LRTC	TEST+3*, CHECK
>> LRTHER	DATA+7*
>> LRTSTS	DATA+3*, DATA+5
LRX	ORU+1~, ORU+7*, ORU+8, ORU+11, ORU+13, ORU+14
LRZERO	ORU+6~, ORU+7*, ORU+8
NUMSITES	FOOT+8~, FOOT+9, FOOT+11, FOOT+12*, FOOT+14, FOOT+15
PAGESTR	HDR+13~, HDR+14*, HDR+15, HDR+16
>> PNM	FOOT+25, FOOT+26, FOOT+29, HDR+20, LASTPAGE+7
RANGE	MUMPRNGE~, MUMPRNGE+9, MUMPRNGE+12, MUMPRNGE+15, MUMPRNGE+20
RV1	MUMPRNGE+1~, MUMPRNGE+17*, MUMPRNGE+20
RV2	MUMPRNGE+1~, MUMPRNGE+18*, MUMPRNGE+20
>> SEX	PRINT*, HDR+33
STR	BOTTOMPG+1~, MUMPEVAL+1~, MUMPEVAL+12*, MUMPEVAL+13
TAB	HDR+13~, HDR+15*, HDR+16
U	TEST+2, TEST+3, TEST+11, TEST+13, TEST+16, TEST+25, DATA+3, DATA+4, DATA+5, DATA+16 , CONT+9, ORU+8
WOT	MUMPEVAL+1~, MUMPEVAL+16*, MUMPEVAL+18
WOTERR	FOOT+4~
WOTSITE	FOOT+8~, FOOT+9, FOOT+10, FOOT+12
>> X	TEST+16, DATA+4, DATA+17, FOOT+30
>> XQY0	TEST+13
Z	TEST+8!

Customize PDF page

Package: Lab Service

Routine: LRRP1

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: