Routine: LRAPS1

Package	Total	Call Graph
Lab Service	2	D^LRU $$Y2K^LRX
VA Fileman	1	$$EXTERNAL^DILFD

Package

Total

Call Graph

Lab Service

D^LRU $$Y2K^LRX

VA Fileman

$$EXTERNAL^DILFD

Package	Total	Caller Graph
Lab Service	2	LRAPS LRAPS3

Package

Total

Caller Graph

Lab Service

LRAPS LRAPS3

Name	Field # of Occurrence
$$EXTERNAL^DILFD	EN+1
D^LRU	L+4
$$Y2K^LRX	EN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"Organ/tissue:",?17,"Date rec'd: ",LRH(3),?43,"Acc #:",N,?64,$E(LR("PATH"),1,12) Line Location: EN+3
Function Call: WRITE	Prompt: !?5,"Report not verified." Line Location: EN+4
Function Call: WRITE	Prompt: !?5,O(6) Line Location: EN+7
Function Call: WRITE	Prompt: " ",W(3)," gm" Condition for execution: W(3) Line Location: EN+7
Function Call: WRITE	Prompt: !?5,$E(^(B,0),1,74) Line Location: EN+8
Function Call: WRITE	Prompt: !?10,$P(^LAB(61.3,B(1),0),"^") Line Location: L+0
Function Call: WRITE	Prompt: !?10,$P(^LAB(61.5,B(1),0),"^") Line Location: L+1
Function Call: WRITE	Prompt: " (",$S(B(2)=0:"Negative",B(2)=1:"Positive",1:"?"),")" Condition for execution: B(2)]"" Line Location: L+1
Function Call: WRITE	Prompt: !?10,$P(^LAB(61.4,B(1),0),"^") Line Location: L+2
Function Call: WRITE	Prompt: !?10,$P(^LAB(61.1,M(1),0),"^") Line Location: L+3
Function Call: WRITE	Prompt: !?5,E(4)," ",E(3)," Date: ",E(2) Line Location: L+4
Function Call: WRITE	Prompt: !?12,$P(^LAB(61.2,E(1),0),"^") Line Location: E+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: HDR1+0
Function Call: WRITE	Prompt: !?30,$S(S="SP":"SURGICAL PATHOLOGY",S="CY":"CYTOPATHOLOGY",S="EM":"ELECTRON MICROSCOPY",1:"") Line Location: HDR1+1
Function Call: WRITE	Prompt: !?3,"Organ/tissue:",?20,"Date rec'd: ",LRH(3),?43,"Acc #:",$J(N,5),?64,$E(LR("PATH"),1,12) Line Location: HDR21+0
Function Call: WRITE	Prompt: !?5,O(6) Line Location: HDR3+0
Function Call: WRITE	Prompt: " ",W(3)," gm" Condition for execution: W(3) Line Location: HDR3+0
Function Call: READ	Prompt: "'^' TO STOP " Formatting: ! Timeout: DTIME Variable: LRA("A") Line Location: M+1
Function Call: WRITE	Prompt: $C(7) Line Location: M+1
Function Call: WRITE	Prompt: @IOF,$E(LRP,1,30),?31,SSN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5) Line Location: M+2
Function Call: WRITE	Prompt: @IOF,$E(LRP,1,30),?31,HRCN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5) Line Location: M+3

FileNo	Call Tags
63.08	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	EN+7
^LAB(61.1 - [#61.1]	L+3
^LAB(61.2 - [#61.2]	E
^LAB(61.3 - [#61.3]	L
^LAB(61.4 - [#61.4]	L+2
^LAB(61.5 - [#61.5]	L+1
^LR - [#63]	S+1, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E , HDR1
^XUSEC("LRLAB"	EN+6

Name	Line Occurrences
E	L+3
EN	S+1
HDR1	S+1, M+3
HDR2	EN+7
HDR21	HDR3
HDR3	L, L+1, L+2, L+3, L+4, E
L	EN+7
M	S+1, EN+2, HDR1, HDR2, HDR3, M+1

Name	Field # of Occurrence
^(	EN+8, L, L+1, L+2, L+3, L+4, E

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> B	EN+8, L, L+1, L+2
>> B(1	L, L+1, L+2*
>> B(2	L+1*
>> DOB	M+3
DTIME	M+1
DUZ	EN+6
>> E	L+4, E
>> E(1	L+4, E
>> E(2	L+4*
>> E(3	L+4*
>> E(4	L+4*
>> H(2	EN, EN+2
>> HRCN	M+3
IOF	M+3
IOSL	S+1, EN+2, EN+7, L, L+1, L+2, L+3, L+4, E, HDR1
>> LR(	L+4
>> LR("%"	HDR1
>> LR("PATH"	EN, EN+1, EN+3, HDR21
>> LRA("A"	LRAPS1+5, S+1, EN+3, EN+7, L, L+1, L+2, L+3, E, HDR1 , HDR2, HDR3, M+1
>> LRDFN	S+1, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E , HDR1
>> LRH(3	EN*, EN+3, HDR21
>> LRI	S+1*, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E
>> LRLLOC	M+3
>> LRP	M+3
>> LRQ(3	EN+8
>> M	L+3*, E
>> M(1	L+3*
>> N	EN, EN+2, EN+3, HDR21
>> N(11	EN*, EN+4
>> O	EN+7*, L, L+1, L+2, L+3, L+4, E
>> O(6	EN+7*, HDR3
>> ORHFS	M
>> S	S+1*, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E , HDR1, HDR1+1
U	EN
>> W(3	EN+7*, HDR3
>> X	EN, EN+7, L+1*
>> Y	L+4*

Customize PDF page

Package: Lab Service

Routine: LRAPS1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: