Routine: LRRP1NWC

Package	Total	Call Graph
Lab Service	3	^LRAIPRIV EN1^LRMIPC (DD,DOC,EQUALS)^LRX
IHS Changes To Lab	2	^BLRALAU ($$ADDON,ESIGINFO)^BLRUTIL
Kernel	2	($$FMTE,$$NOW)^XLFDT ($$NAME,$$PADD,NAME,PADD)^XUAF4
VA Fileman	2	EN^DDIOL $$EXTERNAL^DILFD

Entry Points

External References

Name	Field # of Occurrence
^BLRALAU	TEST+9
$$ADDON^BLRUTIL	TEST+9
ESIGINFO^BLRUTIL	TEST+15
EN^DDIOL	ORU+3, ORU+5, ORU+6, ORU+7
$$EXTERNAL^DILFD	ORU+5, ORU+7
^LRAIPRIV	HDR+9
EN1^LRMIPC	TEST+2
DD^LRX	TEST+22
DOC^LRX	TEST+11
EQUALS^LRX	TEST+29
$$FMTE^XLFDT	HDR+21
$$NOW^XLFDT	HDR+21
$$NAME^XUAF4	HDR+16
$$PADD^XUAF4	HDR+17
NAME^XUAF4	HDR+15
PADD^XUAF4	HDR+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?7,"Provider: ",LRDOC Line Location: TEST+12
Function Call: WRITE	Prompt: !,?7,"Specimen: ",$P(^LAB(61,LRSPEC,0),U) Line Location: TEST+19
Function Call: WRITE	Prompt: !!,?30,"Specimen Collection Date: ",Y Line Location: TEST+22
Function Call: WRITE	Prompt: !?5,"Test name",?30,"Result units",?51,"Ref. range",?66,"Site Code" Line Location: TEST+23
Function Call: WRITE	Prompt: !,"Comment: " Line Location: TEST+26
Function Call: WRITE	Prompt: ^(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+3
Function Call: WRITE	Prompt: ?27,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",LRFFLG Line Location: DATA+4
Function Call: WRITE	Prompt: ?38," ",$P(X,U,7),?51,$J(LRLO,4),$S($L(LRHI):" - "_$J(LRHI,4),1:"") Line Location: DATA+12
Function Call: WRITE	Prompt: ?63,$S(LRTHER:"(Ther. range)",1:"") Line Location: DATA+13
Function Call: WRITE	Prompt: ?68,"[",LRPLS,"]" Line Location: DATA+14
Function Call: WRITE	Prompt: !?7,"Eval: ",^(LRINTP) Line Location: DATA+16
Function Call: WRITE	Prompt: !?20,">> CONTINUATION OF ",$P(LR0,U,6)," <<",! Line Location: CONT+0
Function Call: WRITE	Prompt: ! Line Location: FOOT+1
Function Call: WRITE	Prompt: !,PNM,?40," ",SSN," ",$$FMTE^XLFDT($$NOW^XLFDT,"5FMPZ"),! Line Location: FOOT+3
Function Call: WRITE	Prompt: !,"WORK COPY - DO NOT FILE ",PNM,?40," ",HRCN," ",LRDT0,! Line Location: FOOT+5
Function Call: WRITE	Prompt: !," ",PNM,?40," ",HRCN," ",LRDT0,! Line Location: FOOT+6
Function Call: WRITE	Prompt: !," ",PNM,?40," ",HRCN," ",LRDT0,! Line Location: FOOT+8
Function Call: WRITE	Prompt: !,PNM,?25," ",HRCN," ",LRDT0,?59," PRESS '^' TO STOP " Line Location: FOOT+10
Function Call: READ	Timeout: DTIME Variable: X Line Location: FOOT+12
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: ! Line Location: HDR+20
Function Call: WRITE	Prompt: !,PNM,?45,"Report date: ",$$FMTE^XLFDT($$NOW^XLFDT,"5FMPZ") Line Location: HDR+21
Function Call: WRITE	Prompt: !?5,"HRCN: ",HRCN," SEX: ",SEX," AGE: ",AGE," LOC: ",LROC Line Location: HDR+24

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
63.04	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	DATA+5
^LAB(61 - [#61]	TEST+19
^LR - [#63]	ORDER+6, ORU+2
^TMP("LR"	PRINT+1, PRINT+2!, ORDER+2, TEST, TEST+24, TEST+26, TEST+28, DATA+16

Label References

Name	Line Occurrences
@(	TEST+3
CONT	TEST+27, DATA+15, DATA+16
DATA	TEST+24
FOOT	TEST+2, CHECK, CONT
HDR	CHECK, CONT
ORDER	PRINT+1
ORU	TEST+21
TEST	ORDER+7

Naked Globals

Name	Field # of Occurrence
^(	ORDER+6, TEST+1, TEST+24, TEST+26, DATA+16
^(0	DATA+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service

Routine: LRRP1NWC

Information

Source Information

Call Graph

Call Graph Total: 9

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

Name	Comments	DBIA/ICR reference
FOOT	;from LRRP, LRRP2, LRRP3
CONT
HDR	;Add Printed at, page #, change age to dob 7/2002 cka
ORU	; Display remote ordering info if available
CHECK
TEST
PRINT
DATA
ORDER