Routine: LRMIHDR

Package	Total	Call Graph
Lab Service	3	IO^LRWU ^LRWU3 (ADDPT,DASH,DD,KVAR,OPDPT,PT)^LRX
Kernel	2	^%ZISC ($$FMTE,$$NOW)^XLFDT
VA Fileman	2	^%DT EN^DIQ
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL
Registration	1	KVAR^VADPT

Package

Total

Call Graph

Lab Service

IO^LRWU ^LRWU3 (ADDPT,DASH,DD,KVAR,OPDPT,PT)^LRX

Kernel

^%ZISC ($$FMTE,$$NOW)^XLFDT

VA Fileman

^%DT EN^DIQ

IHS Changes To Lab

$$ISPIMS^BLRUTIL

Registration

KVAR^VADPT

Package	Total	Caller Graph
Lab Service	2	LR HEALTH DEPT LR IHS HEALTH DEPT

Package

Total

Caller Graph

Lab Service

LR HEALTH DEPT LR IHS HEALTH DEPT

Name	Field # of Occurrence
^%DT	DQ+2
^%ZISC	END
$$ISPIMS^BLRUTIL	PAT+2
EN^DIQ	PAT+21
IO^LRWU	BEGIN
^LRWU3	BEGIN
ADDPT^LRX	PAT+9
DASH^LRX	DQ+2, LIST+2
DD^LRX	DQ+2
KVAR^LRX	END+5
OPDPT^LRX	PAT+9
PT^LRX	PAT+4
KVAR^VADPT	PAT+22
$$FMTE^XLFDT	LIST
$$NOW^XLFDT	LIST

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: END+0
Function Call: WRITE	Prompt: !!,?5,"HEALTH DEPARTMENT REPORT (" Line Location: DQ+2
Function Call: WRITE	Prompt: Y," - " Line Location: DQ+2
Function Call: WRITE	Prompt: Y," - " Line Location: DQ+2
Function Call: WRITE	Prompt: Y," - " Line Location: DQ+2
Function Call: WRITE	Prompt: Y," - " Line Location: DQ+2
Function Call: WRITE	Prompt: !!,?5,"Isolated Organism: ",$P(^LAB(61.2,LRBUG,0),U),!,"Printed : "_$$FMTE^XLFDT($$NOW^XLFDT,""),! Line Location: LIST+0
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: ?4," COLLECTION SAMPLE: ",$P(^(0),U) Line Location: SPEC+1
Function Call: WRITE	Prompt: ?40," SPECIMEN: ",$P(^(0),U) Line Location: SPEC+2
Function Call: WRITE	Prompt: !! Line Location: PAT+4
Function Call: WRITE	Prompt: !!,PNM,?25," ID: ",SSN,?44," DOB: ",Y,?60," SEX: ",SEX Line Location: PAT+5
Function Call: WRITE	Prompt: !!,PNM,?25,"HCRN: ",HRCN,?44," DOB: ",DOB,?60," SEX: ",SEX Line Location: PAT+7
Function Call: WRITE	Prompt: !,"Accession Number: ",LRACC,! Line Location: PAT+16
Function Call: WRITE	Prompt: ! Line Location: PAT+19
Function Call: WRITE	Prompt: ! Line Location: WAIT+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+1
Function Call: WRITE	Prompt: !,"Veteran's ethnicity: "_$E(ERT(1),3,999) Line Location: RACE+10
Function Call: WRITE	Prompt: !?30,$E(ERT(I),3,999) Line Location: RACE+11
Function Call: WRITE	Prompt: !,"Veteran's race: "_$E(ERT(1),3,999) Line Location: RACE+22
Function Call: WRITE	Prompt: !?25,$E(ERT(I),3,999) Line Location: RACE+23

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	PAT+4
^DIC(10 - [#10]	PAT+11, PAT+14
^DIC(11 - [#11]	PAT+15
^LAB(61 - [#61]	SPEC+2
^LAB(61.2 - [#61.2]	LIST
^LAB(62 - [#62]	SPEC+1
^LR - [#63]	SPEC, PAT+4
^LR("AD"	DQ+3, DATE, LIST+1

Name	Line Occurrences
@(	PAT+2
DATE	DQ+3
END	DQ+4
LIST	DATE
PAT	LIST+1
RACE	PAT+18
SPEC	LIST+1
WAIT	LIST+1

Name	Field # of Occurrence
^(	LIST+1, SPEC, PAT+12
^(0	SPEC, SPEC+1, SPEC+2, PAT+4, PAT+14, PAT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END+3!, DQ+2*
A	END+3!
AGE	END+3!
D0	END+3!
DA	END+3!, PAT+21*
DFN	END+3!, PAT+4*, PAT+12, PAT+13, PAT+21
DIC	END+3!, PAT+4*, PAT+11, PAT+12, PAT+13
DL	END+3!
DOB	END+3!, PAT+7
DR	END+3!, DATE*
DTIME	WAIT+1
>> DTOUT	PAT+21
>> DUOUT	PAT+21
DX	END+3!
ERT	RACE+2!, RACE+3, RACE+12!, RACE+24!
ERT(	RACE+4, RACE+7, RACE+8, RACE+11, RACE+13, RACE+15, RACE+16, RACE+17, RACE+18, RACE+19 , RACE+23
ERT(1	RACE+9, RACE+10, RACE+20, RACE+21*, RACE+22
HRCN	END+3!, PAT+7
I	END+3!, WAIT, RACE+5, RACE+7, RACE+8, RACE+11, RACE+14, RACE+15, RACE+16, RACE+17 , RACE+19, RACE+23*
IO	DQ
IOF	END, WAIT+1
IOSL	WAIT
IOST	END, DQ+2
LRACC	END+3!, LIST+1*, SPEC, PAT+16
LRBUG	END+3!, DATE*, LIST, LIST+1
LRDFN	END+3!, LIST+1*, SPEC, PAT+4
LRDPF	END+3!, PAT+4*, PAT+9
LRDT	END+3!, DQ+3*, DATE, LIST+1
LREDT	BEGIN*, END+3!, DQ+1, DQ+2, DQ+3
LREND	BEGIN, END+3!, DQ+3, DATE, LIST+1, PAT+21, WAIT+1*
LRHC	END+3!, DQ+2*, LIST+1, LIST+2
LRIDT	END+3!, SPEC*
LRMARST	END+3!, PAT+10, PAT+13, PAT+15*, PAT+19, PAT+20
LROCCU	END+3!, PAT+10, PAT+13, PAT+19, PAT+20
LRPHONE	END+3!, PAT+10, PAT+12, PAT+17
LRRACE	END+3!, PAT+11, PAT+13, PAT+14*, PAT+19, PAT+20
LRSAMP	END+3!, SPEC*, SPEC+1
LRSDT	END+3!, DQ+1*, DQ+2, DQ+3
LRSPEC	END+3!, SPEC*, SPEC+2
LRWRD	END+3!
PNM	END+3!, PAT+7
POP	END+3!
S	END+3!
SEQ	RACE+2!, RACE+3, RACE+4, RACE+7, RACE+8, RACE+11, RACE+12, RACE+13, RACE+15, RACE+16 , RACE+17, RACE+18*, RACE+19, RACE+23, RACE+24!
SEX	END+3!, PAT+7
SSN	END+3!
U	LIST, SPEC, SPEC+1, SPEC+2, PAT+4, PAT+10, PAT+11, PAT+12, PAT+13, PAT+14 , PAT+15, RACE+21
>> VADM(10	PAT+10
>> VADM(11	RACE+4, RACE+5, RACE+7, RACE+8
>> VADM(12	RACE+13, RACE+14, RACE+15, RACE+16, RACE+17, RACE+19
>> VADM(8	RACE+21
>> VAPA(8	PAT+10
>> VAPD(6	PAT+10
X	END+3!, DQ+1, DQ+2, PAT+11, PAT+12, PAT+13, WAIT+1
Y	END+3!, DQ+2
Z0	END+3!
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
>> ZTRTN	BEGIN*

Customize PDF page

Package: Lab Service

Routine: LRMIHDR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: