Routine: LRAPED

Information

LRAPED ;DALOI/STAFF,PMK - ANATOMIC PATH EDIT LOG-IN ;17 Sep 2013 7:31 AM

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Lab Service	6	(,GETDEF)^LRAP (C,C1)^LRAPSWK D^LRAUAW (CK,D,FRE,V,XR,YN)^LRU K^LRUDEL ^LRUP
VA FileMan	6	^%DT EN^DDIOL ^DIC $$GET1^DID ^DIE $$GET1^DIQ
Imaging	1	EDIT^MAGT7MA

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRAPED

Entry Points

Name	Comments	DBIA/ICR reference
G	;
EDIT	;
I	;Non-autopsy sections (SP,CY,EM)
DIE	;
SET	; Setup fields for SP, CY and EM subscripts to edit.
SET1	; Setup autopsy fields to edit.
SET2(FILE,FIELD,PREFIX)	; Build field name with specified prefix. ; Call with FILE = file or subfile number ; FIELD = field number of WP field ; PREFIX = prefix for subject header
A	;Autopsy
AU	;
CK	;
CK1	;
K	;
HELP	;
ASK
INACT
ASKQ
ASKOUT
END	;
UIDEX	;LR5.2428 Propagate location/type to file 68 & 69 associated fields
UIDEXQ

External References

Name	Field # of Occurrence
^%DT	LRAPED+19
EN^DDIOL	A+4
^DIC	ASK+3
$$GET1^DID	SET2+6
^DIE	DIE+13, DIE+19, AU+3, UIDEX+8, UIDEX+13
$$GET1^DIQ	A+1, A+2
^LRAP	LRAPED+12
GETDEF^LRAP	I+1
C^LRAPSWK	I+11
C1^LRAPSWK	DIE+22
D^LRAUAW	SET1+5
CK^LRU	DIE+2
D^LRU	LRAPED+21, I+8, A+7
FRE^LRU	DIE+23
V^LRU	END+1
XR^LRU	LRAPED+13
YN^LRU	LRAPED+16, EDIT+6, A+5
K^LRUDEL	K+1
^LRUP	EDIT+5
EDIT^MAGT7MA	G+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"EDIT ",LRO(68)," (",LRABV,") Log-In/Clinical Hx for ",LRH(0)," " Line Location: LRAPED+15
Function Call: WRITE	Prompt: !!,"Enter ",LRO(68)," Accession #: " Line Location: G+1
Function Call: WRITE	Prompt: $C(7)," Not in file" Line Location: EDIT+3
Function Call: WRITE	Prompt: !,LRP," ID: ",SSN," OK " Line Location: EDIT+5
Function Call: WRITE	Prompt: $C(7),!,"Entry in x-ref but not in file ! X-ref deleted." Line Location: I+4
Function Call: WRITE	Prompt: !,"Specimen date: ",Y Line Location: I+8
Function Call: WRITE	Prompt: $C(7),!!,"Report released or completed. Cannot edit Log-in data." Line Location: I+10
Function Call: WRITE	Prompt: ! Line Location: DIE+2
Function Call: WRITE	Prompt: !!,"Edit Weights & Measurements " Line Location: A+5
Function Call: WRITE	Prompt: !!,"Date Died: ",Y Line Location: A+8
Function Call: WRITE	Prompt: $C(7),"? Must have date died entered in ",LR(63,.02)," File." Line Location: A+10
Function Call: WRITE	Prompt: ! Line Location: AU+3
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
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: " Must enter defined location" Line Location: ASK+0
Function Call: WRITE	Prompt: " Enter 2 - 30 alpha-numeric name" Line Location: ASK+1
Function Call: WRITE	Prompt: " You must select a standard location." Line Location: ASK+5
Function Call: WRITE	Prompt: $C(7)," Location is inactive, Not allowed." Line Location: INACT+1
Function Call: WRITE	Prompt: !," VALID LOCATION REQUIRED TO CONTINUE, EXITING SELECTED ACCESSION" Line Location: ASKOUT+0
Routine Call	DIC Line Location: ASK+3
Routine Call	DIE Line Location: DIE+13 DIE+19 AU+3 UIDEX+8 UIDEX+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	EDIT+2, EDIT+4!, EDIT+5, I+2, I+3, I+5!, I+6, I+9, DIE+4, DIE+9 , DIE+22, A+6, A+12, CK+1, UIDEX+3
^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, UIDEX+4, UIDEX+5, UIDEX+6, UIDEX+10
^LRO(69 - [#69]	UIDEX+11
^LRO(69.2 - [#69.2]	K+10, K+11, K+12, K+13, K+14, K+16*, K+17
^SC - [#44]	INACT

Label References

Name	Line Occurrences
@(	LRAPED+14, EDIT+7
ASK	DIE+10, ASK, ASK+1, ASK+3, ASK+5, INACT+1
ASKOUT	ASK, ASK+4
ASKQ	ASKOUT
AU	AU+4
CK	DIE+21
CK1	AU+5
DIE	DIE+20
EDIT	G+5
END	LRAPED+14, LRAPED+16, LRAPED+17, G+2
G	G+3, G+9
HELP	DIE+20, AU+4
K	CK+1
SET	DIE+19
SET1	A+7
UIDEX	DIE+15
UIDEXQ	UIDEX+3, UIDEX+4, UIDEX+5, UIDEX+6

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LRAPED+16, LRAPED+17, EDIT+6, SET1+4, A+5*, ASKQ!
%DT	LRAPED+18*, LRAPED+19!
%DT("A"	LRAPED+18*
%DT(0	LRAPED+18*
>> A	K+9*, K+10, K+11, K+12, K+13, K+14, K+16, K+17
DA	I+7, DIE+12, DIE+18, SET1+2, A+6, UIDEX+7, UIDEX+8!, UIDEX+12*, UIDEXQ!
DA(1	I+7, DIE+12, DIE+18, UIDEX+12
DIC	ASK+2!, ASK+3*!, ASKQ!
DIC("S"	ASK+2*
DIC(0	ASK+3*
DIE	I+7, DIE+12, DIE+18, SET1+2, A+6, UIDEX+7, UIDEX+8!, UIDEX+12*, UIDEXQ!
>> DIROUT	ASK+4
DIRUT	END+1!
DR	DIE+13!, SET+7, SET+8, SET+9, SET1+2, SET1+3, SET1+4, UIDEX+7, UIDEX+8!, UIDEX+12* , UIDEXQ!
DR(2	SET+12, SET+13, SET+16, SET+17, SET+20, SET+21
DT	INACT+1
DTIME	G+1, ASK
DTOUT	ASK+4, END+1!
DUOUT	ASK+4, END+1!
DUZ(2	K+4
END	G+5!, DIE+10, ASKOUT*
FIELD	SET2~, SET2+6
FILE	SET2~, SET2+6
LABEL	SET2+5~, SET2+6, SET2+7, SET2+9
>> LR("CK"	DIE+3!
>> LR(63	SET1+6, A+10
>> 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+15, EDIT+2, EDIT+4, I+2, I+5
LRACC	EDIT+1~, DIE+4, DIE+6, A+12, AU+2
>> LRAD	LRAPED+21*, LRAPED+22, 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+2, EDIT+4, I+2, I+5, CK1+1, CK1+2, CK1+5 , CK1+7, CK1+8, CK1+9, K+1, K+3, K+4, K+6, K+10
>> LRB	I+7, SET1+6, A+9, CK1+2, CK1+9
>> LRC	LRAPED+22*, EDIT+2, EDIT+4, I+2, I+5
>> LRCAPA	LRAPED+14, I+11, DIE+22
LRCOMP	LRAPED+11~, A+2*, A+3
>> LRD	CK1+6*, CK1+7
>> LRDFN	EDIT+2*, EDIT+3, EDIT+4, EDIT+5, I+2, I+3, I+5, I+6, I+7, I+9 , DIE+4, DIE+9, DIE+12, DIE+18, DIE+22, SET1+2, A+1, A+2, A+6, A+12 , CK+1, UIDEX+3
LRDIWESUB	EDIT+1~, DIE+6, AU+2
>> LRE	SET+6, ASK+6
>> LRF	SET+6*
LRFILE	EDIT+1~
>> LRH(0	LRAPED+15, LRAPED+21*
>> LRI	I+2, I+3, I+5, I+6, I+7, I+9, DIE+4, DIE+9, DIE+12, DIE+18 , DIE+22, SET1+6, CK+1, CK1+2, UIDEX+3
LRIA	INACT!*, INACT+1, ASKQ!
>> LRJ	SET+6, SET1+2
LRLLOC	DIE+9, CK1+3, ASK, ASK+3, ASK+6, ASK+7*, UIDEXQ!
LRLOCTYP	ASK+6*, UIDEXQ!
>> LRMD	CK1+3
LRMSG	LRAPED+11~
>> LRO(68	LRAPED+15, G+1
LROLLOC	ASK+3, ASK+6, UIDEXQ!
>> LRP	EDIT+5
LRRA	INACT!*, INACT+1, ASKQ!
>> LRRC	I+6, A+6, CK1+3, CK1+8, K+3
LRREL	LRAPED+11~, A+1*, A+3
>> LRSS	LRAPED+14, EDIT+7, I+3, I+6, I+7, I+9, DIE+4, DIE+9, DIE+12, DIE+18 , DIE+22, SET+11, SET+15, SET+19, CK+1, UIDEX+3
>> LRSVC	CK1+3
LRTMP	LRAPED+11~, CK1+3, CK1+4, CK1+5, K+6, K+7, K+15, K+16
LRUID	UIDEX+3*, UIDEX+4, UIDEX+5, UIDEX+6, UIDEX+8!
>> LRXREF	EDIT+2, EDIT+4, I+2, I+5
PREFIX	SET2~, SET2+7
>> SSN	EDIT+5
U	G+2, A+6, CK1+3, CK1+4, CK1+6, CK1+9, ASK, ASK+6, INACT, UIDEX+3 , UIDEX+10
>> X	LRAPED+14, EDIT+5, I+6, I+7, CK1+1, CK1+3, CK1+4, CK1+6, CK1+9, K+5* , K+6, K+14, K+15, ASK, ASK+1, ASK+3*
>> X(1	K+11*, K+15
X1	UIDEX+2~, UIDEX+4, UIDEX+5, UIDEX+6, UIDEX+10
X2	UIDEX+2~, UIDEX+5, UIDEX+6, UIDEX+10
X3	UIDEX+2~, UIDEX+6, UIDEX+7, UIDEX+10
X4	UIDEX+2~, UIDEX+10*, UIDEX+11, UIDEX+12
X5	UIDEX+2~, UIDEX+10*, UIDEX+11, UIDEX+12
>> Y	LRAPED+12, LRAPED+17, LRAPED+20, LRAPED+21, I+7, I+8, DIE+20, SET1+6*, A+8, AU+4 , ASK+5, ASK+6, INACT
>> Y(0	ASK+6

Marked Items

Name	Field # of Occurrence
$T(EDIT^MAGT7MA	G+7

Customize PDF page

Package: Lab Service