Routine: LRRP1VA

Package	Total	Call Graph
Lab Service	6	^LRAIPRIV $$EN^LRLRRVF EN1^LRMIPC ORU^LRRP1 $$TSTRES^LRRPU (DOC,EQUALS)^LRX
Kernel	2	($$FMTE,$$HTE)^XLFDT ($$NAME,$$PADD)^XUAF4

Entry Points

Name	Comments	DBIA/ICR reference
TEST	; EP -- Original VA Code -- IHS/OIT/MKK LR5.21027
CONT	; EP -- Original VA Code -- IHS/OIT/MKK LR5.21027
DATA	; EP-- Original VA Code -- IHS/OIT/MKK LR5.21027
HDR	; Add Printed at, page #, change age to dob 7/2002 cka -- Original VA Code -- IHS/OIT/MKK LR5.21027
FOOT	;from LRRP, LRRP2, LRRP3 -- Original VA Code -- IHS/OIT/MKK LR5.21027

External References

Name	Field # of Occurrence
^LRAIPRIV	HDR+9
$$EN^LRLRRVF	DATA+6
EN1^LRMIPC	TEST+6
ORU^LRRP1	TEST+16
$$TSTRES^LRRPU	DATA+5
DOC^LRX	TEST+12
EQUALS^LRX	TEST+29
$$FMTE^XLFDT	TEST+17, HDR+15
$$HTE^XLFDT	FOOT+2, FOOT+3, HDR+14
$$NAME^XUAF4	HDR+11
$$PADD^XUAF4	HDR+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?7,"Provider: ",LRDOC Line Location: TEST+14
Function Call: WRITE	Prompt: !,?7,"Specimen: ",$P(^LAB(61,LRSPEC,0),U) Line Location: TEST+15
Function Call: WRITE	Prompt: !!,?30,"Specimen Collection Date: ",$$FMTE^XLFDT(LRCDT,"M") Line Location: TEST+17
Function Call: WRITE	Prompt: !?5,"Test name",?30,"Result units",?51,"Ref. range",?66,"Site Code" Line Location: TEST+18
Function Call: WRITE	Prompt: !,"Comment: " Line Location: TEST+24
Function Call: WRITE	Prompt: ^TMP("LR",$J,"TP",LRAAO,LRCDT,"C",LRCMNT) Line Location: TEST+26
Function Call: WRITE	Prompt: !?7,"KEY: ""L""=Abnormal low, ""H""=Abnormal high, ""*""=Critical value" Line Location: TEST+30
Function Call: WRITE	Prompt: !?5,$S($L($P(LRDATA,U,2))>20:$P(LRDATA,U,3),1:$P(LRDATA,U,2)) Line Location: DATA+9
Function Call: WRITE	Prompt: ?27,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",$P(LR63DATA,"^",2) Line Location: DATA+11
Function Call: WRITE	Prompt: ! Line Location: DATA+12
Function Call: WRITE	Prompt: ?40,$P(LR63DATA,U,5) Line Location: DATA+13
Function Call: WRITE	Prompt: ! Line Location: DATA+14
Function Call: WRITE	Prompt: ?51,LRREFS Line Location: DATA+15
Function Call: WRITE	Prompt: ! Line Location: DATA+18
Function Call: WRITE	Prompt: ?68,"[",LRPLS,"]" Line Location: DATA+19
Function Call: WRITE	Prompt: !?7,"Eval: ",^(LRINTP) Line Location: DATA+24
Function Call: WRITE	Prompt: !?20,">> CONTINUATION OF ",$P(LR0,U,6)," <<",! Line Location: CONT+1
Function Call: WRITE	Prompt: ! Line Location: FOOT+1
Function Call: WRITE	Prompt: !,PNM,?40," ",SSN," ",$$HTE^XLFDT($H,"M"),! Line Location: FOOT+2
Function Call: WRITE	Prompt: !,PNM,?25," ",SSN," ",$$HTE^XLFDT($H,"MP"),?59," PRESS '^' TO STOP " Line Location: FOOT+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: FOOT+4
Function Call: WRITE	Prompt: ! Line Location: HDR+9
Function Call: WRITE	Prompt: "Printed at: ",?65,"page ",LRPG Line Location: HDR+10
Function Call: WRITE	Prompt: !,$$NAME^XUAF4(DUZ(2))," (",DUZ(2),")" Line Location: HDR+11
Function Call: WRITE	Prompt: !,$P(X,U)," ",$P(X,U,2),", ",$P(X,U,3)," ",$P(X,U,4) Line Location: HDR+13
Function Call: WRITE	Prompt: !!,PNM,?44,"Report date: ",$$HTE^XLFDT($H,"M") Line Location: HDR+14
Function Call: WRITE	Prompt: !?5,"SSN: ",SSN," SEX: ",SEX," DOB: ",$$FMTE^XLFDT(DOB)," LOC: ",LROC Line Location: HDR+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	TEST+15
^TMP("LR"	TEST+1, TEST+2, TEST+20, TEST+23, TEST+25, TEST+26, TEST+28, DATA+22, DATA+24

Label References

Name	Line Occurrences
@(	TEST+11
CONT	TEST+27, DATA+20, DATA+24
DATA	TEST+20
FOOT	TEST+5, CONT+1
HDR	CONT+1

Naked Globals

Name	Field # of Occurrence
^(	TEST+3, TEST+20, DATA+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	TEST+8!
>> DOB	HDR+15
DTIME	FOOT+4
DUZ("AG"	HDR+9
DUZ(2	HDR+11, HDR+12
>> I	FOOT+1*
IOF	HDR+1
IOSL	CONT+1, FOOT+1
IOST	FOOT+2, HDR+1, HDR+5
>> LR0	TEST+3*, TEST+11, TEST+12, CONT+1
LR63DATA	DATA+1~, DATA+5*, DATA+6, DATA+10, DATA+11, DATA+13
>> LRAAO	TEST+1, TEST+2, TEST+3, TEST+20, TEST+23, TEST+25, TEST+26, TEST+28, DATA+22, DATA+24
>> LRCAN	TEST+11
>> LRCDT	TEST+1, TEST+3, TEST+17, TEST+20, TEST+23, TEST+25, TEST+26, TEST+28, DATA+22, DATA+24
>> LRCMNT	TEST+24, TEST+25, TEST+26, TEST+28
>> LRDATA	TEST+20*, DATA+3, DATA+4, DATA+5, DATA+9
>> LRDFN	DATA+5
>> LRDOC	TEST+14
>> LREND	TEST+9*
>> LRFOOT	TEST+5, TEST+7, TEST+31
LRH	TEST+5*, TEST+8!
>> LRHF	TEST+7, TEST+11, HDR+2
>> LRHI	DATA+6*
>> LRIDT	TEST+1*, DATA+5
>> LRINTP	DATA+23, DATA+24
>> LRJ0	HDR+1
>> LRJ02	HDR+1, HDR+2*
>> LRLO	DATA+6*
>> LROC	HDR+15
>> LRPC	DATA+3*, DATA+11
>> LRPG	HDR+3, HDR+4, HDR+10
>> LRPLS	DATA+6*, DATA+7, DATA+17, DATA+19
>> LRPLS(	DATA+7*
>> LRPO	TEST+19, TEST+20, DATA+22, DATA+24
LRREFS	DATA+6*, DATA+15!
>> LRSPEC	TEST+12*, TEST+15
>> LRSS	TEST+2*, TEST+4, DATA+5
>> LRSTOP	TEST+5, TEST+9, TEST+11, TEST+20, TEST+21, TEST+25, TEST+27, TEST+29, DATA+20, DATA+22 , DATA+24, CONT+1, FOOT+1, FOOT+4
>> LRSUB	DATA+3*
>> LRTC	TEST+3*
>> LRTHER	DATA+6*
>> LRTSTS	DATA+3*, DATA+5
>> PNM	FOOT+2, FOOT+3, HDR+14
>> SEX	HDR+15
>> SSN	FOOT+2, FOOT+3, HDR+15
U	TEST+2, TEST+3, TEST+11, TEST+12, TEST+15, DATA+3, DATA+4, DATA+5, DATA+9, DATA+13 , CONT+1, HDR+13
>> X	TEST+12, DATA+4, DATA+10, FOOT+4, HDR+7, HDR+8, HDR+12, HDR+13
Z	TEST+8!

Customize PDF page

Package: Lab Service

Routine: LRRP1VA

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: