Routine: LRAPS2

Package	Total	Call Graph
Lab Service	4	^LRAPT3 ^LRAPU D^LRAUAW D^LRU
VA Fileman	2	^DIWP ^DIWW

Package	Total	Caller Graph
Lab Service	2	LRAPS LRAPS3

Entry Points

External References

Name	Field # of Occurrence
^DIWP	F
^DIWW	F+1
^LRAPT3	LRAPS2+10
^LRAPU	LRAPS2+3
D^LRAUAW	ZZ+1
D^LRU	ZZ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Report not verified." Line Location: LRAPS2+4
Function Call: WRITE	Prompt: !,LRAU(3) Line Location: LRAPS2+5
Function Call: WRITE	Prompt: !,LRAU(4) Line Location: LRAPS2+6
Function Call: WRITE	Prompt: !,$P(^LAB(61,+^LR(LRDFN,"AY",O,0),0),"^") Line Location: LRAPS2+11
Function Call: WRITE	Prompt: !?5,$P(^LAB(61.4,+^LR(LRDFN,"AY",O,1,LRB,0),0),"^") Line Location: D+0
Function Call: WRITE	Prompt: !?5,$P(^LAB(61.3,+^LR(LRDFN,"AY",O,3,LRB,0),0),"^") Line Location: D+2
Function Call: WRITE	Prompt: !?5,$P(^LAB(61.5,+^LR(LRDFN,"AY",O,4,LRB,0),0),"^") Line Location: D+4
Function Call: WRITE	Prompt: !?5,$P(^LAB(61.1,+^LR(LRDFN,"AY",O,2,M,0),0),"^") Line Location: D+6
Function Call: WRITE	Prompt: !?7,$P(^LAB(61.2,+^LR(LRDFN,"AY",O,2,M,1,E,0),0),"^") Line Location: E+0
Function Call: WRITE	Prompt: !!,"Organ/tissue:",?33,"SNOMED CODING" Line Location: HD+0
Function Call: READ	Prompt: "'^' TO STOP: " Formatting: ! Timeout: DTIME Variable: X Line Location: M+0
Function Call: WRITE	Prompt: $C(7) Line Location: M+0
Function Call: WRITE	Prompt: !!?20,"No organ weights entered.",! Line Location: WT+0
Function Call: WRITE	Prompt: !!,"Rt--Lung--Lt Liver Spleen R--Kidney--Lt Brain Body Wt(lb) Ht(in)" Line Location: WT+1
Function Call: WRITE	Prompt: !,$J($P(X,"^",3),4),?8,$J($P(X,"^",4),4),?14,$J($P(X,"^",5),5),?21,$J($P(X,"^",6),5),?28,$J($P(X,"^",7),4),?38,$J($P(X,"^",8),4),?45,$J($P(X,"^",10),4),?55,$P(X,"^",2),?68,$P(X,"^") Line Location: WT+2
Function Call: WRITE	Prompt: !! Line Location: WT+3
Function Call: WRITE	Prompt: "Heart(gm)" Condition for execution: $D(B) Line Location: WT+3
Function Call: WRITE	Prompt: ?12,"TV(cm) PV(cm) MV(cm) AV(cm) RV(cm) LV(cm)" Line Location: WT+3
Function Call: WRITE	Prompt: ! Line Location: WT+4
Function Call: WRITE	Prompt: $J(B(9),5) Condition for execution: $D(B(9)) Line Location: WT+4
Function Call: WRITE	Prompt: ?12,$J($P(X,"^"),4),?20,$J($P(X,"^",2),4),?28,$J($P(X,"^",3),4),?36,$J($P(X,"^",4),4),?44,$J($P(X,"^",5),4),?52,$J($P(X,"^",6),4) Line Location: WT+4
Function Call: WRITE	Prompt: !!,"Cavities(ml): Rt--Pleural--Lt Pericardial Peritoneal",!?14,$J($P(B(2),"^",2),4),?25,$J($P(B(2),"^"),4),?33,$J($P(B(2),"^",3),4),?45,$J($P(B(2),"^",4),4) Line Location: WT+5
Function Call: WRITE	Prompt: !,$P(^DD(63,X,0),"^"),": ",$P(B(1),"^",B) Line Location: WT+6
Function Call: WRITE	Prompt: !,$P(^DD(63,X,0),"^"),": ",$P(Y,"^",B) Line Location: WT+7
Function Call: WRITE	Prompt: @IOF,"Acc #",?10,"Date/time Died",?32,"Age",?40,"AUTOPSY",?52,"Date/time of Autopsy" Line Location: ZZ+0
Function Call: WRITE	Prompt: ! Line Location: ZZ+2
Function Call: WRITE	Prompt: $S(X(1)=7:"Resident:",1:" Senior:"),Y Condition for execution: Y]"" Line Location: ZZ+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(63	WT+6, WT+7
^LAB(61 - [#61]	LRAPS2+11
^LAB(61.1 - [#61.1]	D+6
^LAB(61.2 - [#61.2]	E
^LAB(61.3 - [#61.3]	D+2
^LAB(61.4 - [#61.4]	D
^LAB(61.5 - [#61.5]	D+4
^LR - [#63]	LRAPS2+4, LRAPS2+5, LRAPS2+6, LRAPS2+7, LRAPS2+11, F, D, D+2, D+4, D+6 , E, WT, WT+1, WT+3, WT+7, ZZ+1
^LRO(69.2 - [#69.2]	LRAPS2+3
^TMP($J	EX!
^VA(200 - [#200]	ZZ+2

Name	Field # of Occurrence
^("AV"	WT+3
^("AW"	WT+1
^("AWI"	LRAPS2+7, WT+7
^("AY"	LRAPS2+7
^(0	LRAPS2+3, ZZ+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A("M"	LRAPS2+5!, LRAPS2+6!, LRAPS2+8!, LRAPS2+9!, LRAPS2+10!, LRAPS2+11, LRAPS2+12!, LRAPS2+13!, F, F+1 , D, D+1, D+2, D+3, D+4, D+5, D+6, M*, M+1
B	WT!, WT+2, WT+3, WT+6, WT+7
B(1	WT+1*, WT+6
B(2	WT+3*, WT+4, WT+5
B(9	WT+1*, WT+4
>> C	D+6*
>> DA	ZZ+1*
>> DIWF	EX*
>> DIWL	EX*
>> DIWR	EX*
DTIME	LRAPS2+4, M
>> E	E*
>> F	E*
IOF	ZZ
IOSL	LRAPS2+11, F, D, D+2, D+4, D+6
IOST	LRAPS2+4, M
>> LR	F*
>> LR("M"	LRAPS2+3*
>> LR(63	ZZ+1
>> LRAU(3	LRAPS2+3*, LRAPS2+5
>> LRAU(4	LRAPS2+3*, LRAPS2+6
>> LRB	D, D+2, D+4*
>> LRDFN	LRAPS2+4, LRAPS2+5, LRAPS2+6, LRAPS2+7, LRAPS2+11, F, D, D+2, D+4, D+6 , E, WT, WT+1, WT+3, WT+7, ZZ+1
>> LRLLOC	ZZ+1*
>> LRP	ZZ+1
>> LRSS	LRAPS2+3*
>> LRV	LRAPS2+5, LRAPS2+6, F
>> LRZ	F*, F+1
>> M	D+6*, E
>> O	LRAPS2+11*, D, D+2, D+4, D+6, E
U	LRAPS2+4
>> X	LRAPS2+3, LRAPS2+4, F, M, WT+1, WT+2, WT+3, WT+4, WT+6, WT+7 , ZZ+1*, ZZ+2
>> X(1	ZZ+2*
>> Y	LRAPS2+3, WT+7, ZZ+1, ZZ+2*

Customize PDF page

Package: Lab Service

Routine: LRAPS2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
D	LRAPS2+11
E	D+6
EX	F
F	LRAPS2+5, LRAPS2+6
HD	LRAPS2+11
M	LRAPS2+8, LRAPS2+9, LRAPS2+10, LRAPS2+11, F, D, D+2, D+4, D+6, M
WT	LRAPS2+9
ZZ	LRAPS2+4, M+1

Name	Comments	DBIA/ICR reference
E
D
F
M
WT
EX
ZZ
HD