Routine: LRAPDA

Information

LRAPDA ;DALOI/REG/WTY/KLL/CKA - ANATOMIC PATH DATA ENTRY; 17-Oct-2014 09:22 ; MKK

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
Lab Service	15	(OE1,OERR)^LR7OB63D ^LRAPDSR S^LRAPR MAIN^LRAPRES1 (C,C1)^LRAPSWK PROVIDR^LRAPUTL BDR^LRAUDA ($$ES,CLEAN,CPT,ES)^LRCAPES DPA1^LRDPA LABKEY^LRPARAM UPDATE^LRPXRM (AU,EN)^LRSPGD (CK,FRE,V,YN)^LRU ^LRUP I^LRUPS
VA Fileman	5	^%DT EN^DDIOL ^DIE $$GET1^DIQ ^DIR
IHS Changes To Lab	1	$$PATCH^BLRUTIL4

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Lab Service	8	LRAPD LRAPM LRAPQACD LRAPR LRAPUTL LRAPX LRAUDA LRSPDA

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;Reset DR string if altered by prior accession/patient
QUEUES	;Update Queues
AUE	;Autopsy Data Entry
NM	;
EDIT	;Call to ^DIE
DIE	;Edit
AK	; EP - from LRAPD1
REST	;
CPTCOD	;CPT Coding
AURESET	;Reset DR to orig value in LRAUDA
WKLD	;Capture Workload
R
AU
W
PNAME	;Patient Name Lookup
SEL
EP	; EP
END

External References

Name	Field # of Occurrence
^%DT	AK+6
$$PATCH^BLRUTIL4	DIE+9, EDIT+16, AUE+7, AURESET+22, CPTCOD+4
EN^DDIOL	QUEUES+8, QUEUES+17, AURESET+11, AU+5, R+5
^DIE	EDIT+12, AURESET+15
$$GET1^DIQ	DIE+4, DIE+5, AUE+4
^DIR	DIE+24, DIE+28, AUE+21, AUE+25, CPTCOD+9
OE1^LR7OB63D	W+7, W+8
OERR^LR7OB63D	W+7, W+8
^LRAPDSR	EDIT+17, AURESET+20
S^LRAPR	WKLD+1
MAIN^LRAPRES1	EDIT+14, AURESET+19
C^LRAPSWK	EDIT+2
C1^LRAPSWK	WKLD+2, WKLD+3
PROVIDR^LRAPUTL	CPTCOD+14
BDR^LRAUDA	AURESET+2
$$ES^LRCAPES	DIE+9, AUE+7
CLEAN^LRCAPES	END+1
CPT^LRCAPES	CPTCOD+16
ES^LRCAPES	DIE+9, AUE+7
DPA1^LRDPA	PNAME+6
LABKEY^LRPARAM	PNAME+5
UPDATE^LRPXRM	EDIT+16, AURESET+22
AU^LRSPGD	AU+9
EN^LRSPGD	QUEUES+21
CK^LRU	EDIT+4
FRE^LRU	EDIT+18
V^LRU	END+2
YN^LRU	SEL+3, AK+4, NM+3
^LRUP	REST+6
I^LRUPS	PNAME+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,LRO(68)," (",LRABV,")",! Line Location: EP+1
Function Call: WRITE	Prompt: !!,"Data entry for ",LRH(0)," " Line Location: AK+3
Function Call: WRITE	Prompt: D Line Location: W+7
Function Call: WRITE	Prompt: " for ",LRH(0) Line Location: REST+2
Function Call: WRITE	Prompt: !,LRP," ID: ",SSN Line Location: REST+7
Function Call: WRITE	Prompt: !,LRP," ID: ",HRCN Line Location: REST+8
Function Call: WRITE	Prompt: "CPT " Line Location: DIE+19
Function Call: WRITE	Prompt: "and " Condition for execution: LRSOP="B" Line Location: DIE+19
Function Call: WRITE	Prompt: ! Line Location: DIE+24
Function Call: WRITE	Prompt: ! Line Location: DIE+28
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: ! Line Location: AUE+1
Function Call: WRITE	Prompt: "CPT " Line Location: AUE+16
Function Call: WRITE	Prompt: "and " Condition for execution: LRSOP="B" Line Location: AUE+16
Function Call: WRITE	Prompt: ! Line Location: AUE+21
Function Call: WRITE	Prompt: ! Line Location: AUE+25
Function Call: WRITE	Prompt: ! Line Location: CPTCOD+9
Routine Call	DIE Line Location: EDIT+12 AURESET+15
Routine Call	DIR Line Location: DIE+24 DIE+28 AUE+21 AUE+25 CPTCOD+9

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]	REST+6, REST+10, REST+13, REST+15, REST+16, REST+22, REST+23, REST+25, REST+26, EDIT+1 , EDIT+5, QUEUES+1, AURESET+8, AURESET+16, AURESET+23
^LRO(68 - [#68]	AK+7, REST+3, REST+5, REST+9
^LRO(69.2 - [#69.2]	EP+3, QUEUES+3, QUEUES+4, QUEUES+9, QUEUES+10, QUEUES+11, QUEUES+12, QUEUES+13, QUEUES+18, QUEUES+19 , QUEUES+20, AU, AU+1, AU+6, AU+7, AU+8, R, R+1, R+6, R+7 , R+8
^VA(200 - [#200]	QUEUES+2

Label References

Name	Line Occurrences
@(	RESET+2, RESET+3, AURESET+1
AU	AURESET+24
AUE	DIE+1
CPTCOD	EDIT+19, AURESET+26
END	SEL+1, AK+4, AK+5, W+2
PNAME	W+7
R	AURESET+25
REST	W+7, W+8
W	W+3, W+7, W+8

Naked Globals

Name	Field # of Occurrence
^(0	EP+3, REST+6, QUEUES+2, QUEUES+10, QUEUES+19, AU+7, R+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SEL+1, SEL+3, AK+4, AK+5, NM+3*
%DT	AK+6*!
%DT("A"	AK+6*
%DT(0	AK+6*
CORRECT	AK+1~
>> DA	EDIT+3, AURESET+14
>> DA(1	EDIT+3*
>> DFN	PNAME+4*, PNAME+7
DIC	PNAME+3!
DIC(0	PNAME+4*
>> DIE	EDIT+3, AURESET+14
DIR	DIE+23!, DIE+27!, AUE+20!, AUE+24!, CPTCOD+8!
DIR("A"	DIE+23, DIE+27, AUE+20, AUE+24, CPTCOD+8*
DIR("B"	DIE+23, DIE+27, AUE+20, AUE+24, CPTCOD+8*
DIR(0	DIE+23, DIE+27, AUE+20, AUE+24, CPTCOD+8*
>> DR	W+8, RESET+4, RESET+5, RESET+7, AURESET+3, AURESET+4
>> DR(1	W+8
DTIME	W+1
DUZ	CPTCOD+13
>> HRCN	REST+8
>> LR("CK"	W!, EDIT+4
>> LR("TR"	QUEUES+2*
>> LR(1	SEL!, SEL+1*
>> LR(2	SEL+1
>> LR(6	QUEUES+3
>> LR(7	QUEUES+12
>> LRA	EDIT+1, EDIT+13, AURESET+16, AURESET+17, AURESET+18
>> LRAA	EP+3, AK+7, REST+3, REST+5, REST+9, QUEUES+3, QUEUES+4, QUEUES+9, QUEUES+10, QUEUES+11 , QUEUES+12, QUEUES+13, QUEUES+18, QUEUES+19, QUEUES+20, AU, AU+1, AU+6, AU+7, AU+8 , R, R+1, R+6, R+7, R+8, CPTCOD+16
>> LRAA(1	REST+28
>> LRABV	EP+1
>> LRAC	EDIT+13, EDIT+14, AURESET+18, AURESET+19
>> LRAD	AK+5*, AK+7, REST+3, REST+5, REST+9, REST+12, CPTCOD+16
LRAN	W+1, W+2, W+3, W+7, REST+3, REST+4, REST+5, REST+9, REST+12, QUEUES+3 , QUEUES+9, QUEUES+10, QUEUES+12, QUEUES+18, QUEUES+19, AU, AU+6, AU+7, R, R+6 , R+7, PNAME+2, PNAME+3!, PNAME+7, CPTCOD+16
>> LRCAPA	EDIT+2, WKLD+1, WKLD+2, WKLD+3
LRCPT	DIE+2~, DIE+3, DIE+29, DIE+30, DIE+31, RESET+5, AUE+2~, AUE+3, AUE+26, AUE+27 , AUE+28, AURESET+4, CPTCOD+6, CPTCOD+10*, CPTCOD+11
>> LRD	RESET+2, RESET+3
>> LRD(1	EP+2*, REST+21, WKLD+2, QUEUES+12
>> LRDFN	REST+5*, REST+6, REST+10, REST+13, REST+15, REST+16, REST+22, REST+23, REST+25, REST+26 , DIE+3, EDIT+1, EDIT+3, EDIT+5, EDIT+14, EDIT+16, QUEUES+1, QUEUES+9, QUEUES+18, AUE+4 , AURESET+8, AURESET+14, AURESET+16, AURESET+19, AURESET+22, AURESET+23, AU+6, R+6
>> LRDPF	PNAME+4*
LREL	DIE+2~, DIE+3, DIE+6, DIE+10, DIE+12, AUE+2~, AUE+3, AUE+4, AUE+9, AUE+13 , CPTCOD+6, CPTCOD+7
LRELSD	EDIT+11~, EDIT+14, AURESET+13~, AURESET+19
LRESCPT	DIE+2~, DIE+3, DIE+9, DIE+15, DIE+19, DIE+26, AUE+2~, AUE+7*, AUE+10, AUE+16 , AUE+23
>> LRH(0	AK+3, AK+5*, AK+8, W+4, REST+2, REST+4, QUEUES+9, QUEUES+18
>> LRI	REST+9, REST+10, REST+13, REST+15, REST+16, REST+22, REST+23, DIE+3, EDIT+1, EDIT+3 , EDIT+5, EDIT+14, EDIT+16, QUEUES+1, QUEUES+9, QUEUES+18, AURESET+17, AURESET+19
LRIENS	DIE+2~, DIE+3*, DIE+4, DIE+5
>> LRLABKY	PNAME+5
>> LRLLOC	REST+5*
>> LRO(68	EP+1, AK+8, W+4, REST+4, REST+12
>> LRP	REST+8, EDIT+14, AURESET+19
LRPFLG	PNAME+1~, PNAME+2*
LRPRO	CPTCOD+1~, CPTCOD+13*, CPTCOD+16
LRQUIT	DIE+2~, DIE+3, DIE+12, DIE+17, DIE+30, DIE+31, AUE+2~, AUE+3, AUE+9, AUE+12 , AUE+13, AUE+27, AUE+28, CPTCOD+15
>> LRRC	EDIT+1*
LRRDT1	DIE+2~, DIE+4*, DIE+6, RESET+7
LRRDT2	DIE+2~, DIE+5*, DIE+6
>> LRSF	DIE+4, DIE+5, EDIT+14, AURESET+19
LRSFLG	AK+2*, RESET+3, RESET+7, EDIT+17, AURESET+12, AURESET+20, END!
LRSNO	DIE+2~, DIE+3, DIE+25, DIE+31, RESET+4, RESET+5, AUE+2~, AUE+3, AUE+22, AUE+28 , AURESET+3, AURESET+4
>> LRSOP	EP+2*, REST+24, DIE+10, DIE+12, DIE+15, DIE+19, DIE+20, DIE+22, DIE+30, DIE+31 , RESET+2, RESET+7, EDIT+5, EDIT+19, WKLD+1, WKLD+3, QUEUES+3, QUEUES+21, AUE+9, AUE+10 , AUE+13, AUE+16, AUE+17, AUE+19, AUE+27, AUE+28, AURESET+1, AURESET+2, AURESET+24, AURESET+25 , AURESET+26
>> LRSS	REST+10, REST+13, REST+15, REST+16, REST+21, REST+22, REST+23, REST+24, DIE+1, EDIT+1 , EDIT+2, EDIT+5, EDIT+14, EDIT+16, WKLD+1, WKLD+2, WKLD+3, QUEUES+1, QUEUES+3, QUEUES+12 , AURESET+19
LRX	REST+1~, REST+20, REST+22, REST+25, REST+27, PNAME+4
LRX1	REST+1~, REST+20, REST+23, REST+26*, REST+27
LRXSTOP	REST+1~, REST+20, REST+31, REST+32
MSG	QUEUES+8!, QUEUES+17!, AURESET+9, AURESET+10, AURESET+11!, AU+5!, R+5!
MSG(1	QUEUES+5, QUEUES+6, QUEUES+14, QUEUES+15, AU+2, AU+3, R+2, R+3
MSG(2	QUEUES+7, QUEUES+16, AU+4, R+4
U	W+2, EDIT+13, AURESET+17, AURESET+18
VA	PNAME+3!
VADM	PNAME+3!
VAIN	PNAME+3!
X	W!, REST+5, REST+6, REST+15, REST+16, QUEUES+1, QUEUES+2, QUEUES+10, QUEUES+19, NM+1 , NM+2!, NM+3!, AU+7, R+7, PNAME+2*
Y	AK+5, W!, DIE+25, DIE+29, EDIT+17, AUE+22, AUE+26, CPTCOD+10
Y(	NM+1, NM+3, NM+4*
>> Z	NM+1, NM+3, NM+4

Marked Items

Name	Field # of Occurrence
$T(CLEAN^LRCAPES	END+1
$T(ES^LRCAPES	DIE+9, AUE+7

Customize PDF page

Package: Lab Service

Routine: LRAPDA

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items