Routine: LRAPED

Package	Total	Call Graph
Lab Service	6	^LRAP (C,C1)^LRAPSWK D^LRAUAW (CK,D,V,XR,YN)^LRU K^LRUDEL ^LRUP
VA Fileman	4	^%DT EN^DDIOL ^DIE $$GET1^DIQ

Package	Total	Caller Graph
Lab Service	1	LRAPED

Entry Points

Name	Comments	DBIA/ICR reference
A	;Autopsy
CK	;
SET	;
END	;
HELP	;
G	;
EDIT	;
DIE	;
K	;
I	;Non-autopsy sections (SP,CY,EM)
AU	;
SET1	;
CK1	;

External References

Name	Field # of Occurrence
^%DT	LRAPED+13
EN^DDIOL	A+6
^DIE	DIE+3, AU+1
$$GET1^DIQ	A+1, A+2
^LRAP	LRAPED+6
C^LRAPSWK	I+10
C1^LRAPSWK	DIE+6
D^LRAUAW	SET1+4
CK^LRU	DIE+1
D^LRU	LRAPED+15, I+7, A+9
V^LRU	END+1
XR^LRU	LRAPED+7
YN^LRU	LRAPED+10, EDIT+6, A+7
K^LRUDEL	K+1
^LRUP	EDIT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"EDIT ",LRO(68)," (",LRABV,") Log-In/Clinical Hx for ",LRH(0)," " Line Location: LRAPED+9
Function Call: WRITE	Prompt: !!,"Enter ",LRO(68)," Accession #: " Line Location: G+1
Function Call: WRITE	Prompt: $C(7)," Not in file" Line Location: EDIT+2
Function Call: WRITE	Prompt: !,LRP," ID: ",SSN," OK " Line Location: EDIT+4
Function Call: WRITE	Prompt: !,LRP," ID: ",HRCN," OK " Line Location: EDIT+5
Function Call: WRITE	Prompt: !,"Specimen date: ",Y Line Location: I+7
Function Call: WRITE	Prompt: ! Line Location: DIE+1
Function Call: WRITE	Prompt: !!,"Edit Weights & Measurements " Line Location: A+7
Function Call: WRITE	Prompt: !!,"Date Died: ",Y Line Location: A+10
Function Call: WRITE	Prompt: ! Line Location: AU+1
Function Call: WRITE	Prompt: $C(7),!!,"Please do not exit EDIT with an ""^""." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Press RETURN key repeatedly to complete the edit.",!! Line Location: HELP+2
Routine Call	DIE Line Location: DIE+3 AU+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	EDIT+1, EDIT+3!, EDIT+5, I+1, I+2, I+4!, I+5, I+8, DIE+6, A+8 , CK+1
^LRO(68 - [#68]	CK1+1, CK1+2, CK1+5, CK1+7!, CK1+8, CK1+9, K+1, K+2, K+3!, K+4! , K+5, K+7*, K+8
^LRO(69.2 - [#69.2]	K+10, K+11, K+12, K+13, K+14, K+16*, K+17

Label References

Name	Line Occurrences
@(	LRAPED+8, EDIT+7
AU	AU+2
CK	DIE+5
CK1	AU+3
DIE	DIE+4
EDIT	G+5
END	LRAPED+8, LRAPED+10, LRAPED+11, G+2
G	G+3, G+6
HELP	DIE+4, AU+2
K	CK+1
SET	DIE+3
SET1	A+9

Naked Globals

Name	Field # of Occurrence
^(	K+10!
^(0	I+8, CK1+1
^(3	CK1+2, CK1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRAPED+10, LRAPED+11, EDIT+6, SET1+3, A+7*
%DT	LRAPED+12*, LRAPED+13!
%DT("A"	LRAPED+12*
%DT(0	LRAPED+12*
>> A	K+9*, K+10, K+11, K+12, K+13, K+14, K+16, K+17
>> DA	I+6, SET1+1, A+8*
>> DA(1	I+6*
>> DIE	I+6, SET1+1, A+8*
>> DR	SET+2, SET+3, SET+4, SET1+1, SET1+2, SET1+3
>> DR(2	SET+5, SET+6, SET+7*
DTIME	G+1
DUZ(2	K+4
>> HRCN	EDIT+5
>> LR("CK"	DIE+2!
>> LR(63	SET1+5, A+12
>> LRAA	CK1+1, CK1+2, CK1+5, CK1+7, CK1+8, CK1+9, K+1, K+2, K+3, K+4 , K+5, K+7, K+8, K+10, K+11, K+12, K+13, K+14, K+16, K+17
>> LRABV	LRAPED+9, EDIT+1, EDIT+3, I+1, I+4
>> LRAD	LRAPED+15*, LRAPED+16, CK1+1, CK1+2, CK1+5, CK1+7, CK1+8, CK1+9, K+1, K+3 , K+4, K+5, K+7
>> LRAN	G+1*, G+2, G+3, EDIT+1, EDIT+3, I+1, I+4, CK1+1, CK1+2, CK1+5 , CK1+7, CK1+8, CK1+9, K+1, K+3, K+4, K+6, K+10
>> LRB	I+6, SET1+5, A+11, CK1+2, CK1+9
>> LRC	LRAPED+16*, EDIT+1, EDIT+3, I+1, I+4
>> LRCAPA	LRAPED+8, I+10, DIE+6
LRCOMP	LRAPED+5~, A+2*, A+3
>> LRD	CK1+6*, CK1+7
>> LRDFN	EDIT+1*, EDIT+2, EDIT+3, EDIT+5, I+1, I+2, I+4, I+5, I+6, I+8 , DIE+6, SET1+1, A+1, A+2, A+8, CK+1
>> LRE	SET+1*
>> LRF	SET+1*
>> LRH(0	LRAPED+9, LRAPED+15*
>> LRI	I+1, I+2, I+4, I+5, I+6, I+8, DIE+6, SET1+5, CK+1, CK1+2
>> LRJ	SET+1, SET1+1
>> LRLLOC	CK1+3
>> LRMD	CK1+3
LRMSG	LRAPED+5~, A+4!, A+5*, A+6
>> LRO(68	LRAPED+9, G+1
>> LRP	EDIT+5
>> LRRC	I+5, A+8, CK1+3, CK1+8, K+3
LRREL	LRAPED+5~, A+1*, A+3
>> LRSS	LRAPED+8, EDIT+7, I+2, I+5, I+6, I+8, DIE+6, SET+5, SET+6, SET+7 , CK+1
>> LRSVC	CK1+3
LRTMP	LRAPED+5~, CK1+3, CK1+4, CK1+5, K+6, K+7, K+15, K+16
>> LRXREF	EDIT+1, EDIT+3, I+1, I+4
U	G+2, A+8, CK1+3, CK1+4, CK1+6, CK1+9
>> X	LRAPED+8, EDIT+5, I+5, I+6, CK1+1, CK1+3, CK1+4, CK1+6, CK1+9, K+5* , K+6, K+14*, K+15
>> X(1	K+11*, K+15
>> Y	LRAPED+6, LRAPED+11, LRAPED+14, LRAPED+15, I+6, I+7, DIE+4, SET1+5*, A+10, AU+2

Customize PDF page

Package: Lab Service

Routine: LRAPED

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: