Routine: LRUPS

Package	Total	Call Graph
Lab Service	2	DPA^LRDPA (D,YN)^LRU

Package	Total	Caller Graph
Lab Service	6	LRAPAUSR LRAPDA LRAPMOD LRAURPT LRSPRPT LRSPT

Entry Points

Name	Comments	DBIA/ICR reference
ACC
EN
OK
I
SP
L
EN1	;from LRAPMOD, LRSPRPT, LRSPT
CY
WT
AU
GETP
GOT

External References

Name	Field # of Occurrence
DPA^LRDPA	GETP, EN1+1
D^LRU	EN+12, L, AU+9
YN^LRU	WT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETP+0
Function Call: WRITE	Prompt: $C(7),!!,"No data for ",PNM Line Location: EN+0
Function Call: WRITE	Prompt: !!,"Count #",?10,"Accession #",?29,"Date",?45,"Site/specimen" Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Specimen(s)",?30,"Count #",?40,"Accession #",?55,"Date Obtained" Line Location: EN+3
Function Call: WRITE	Prompt: !!,"No specimens entered for "_LRH(0) Line Location: EN+13
Function Call: READ	Timeout: DTIME Variable: X Line Location: ACC+0
Function Call: WRITE	Prompt: !?11,"Choose Count #(1-",C,"): " Line Location: ACC+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter numbers only",!! Line Location: ACC+1
Function Call: WRITE	Prompt: " Doesn't exist for ",PNM Line Location: OK+0
Function Call: WRITE	Prompt: !!," Accession #: ",LRAC Line Location: L+0
Function Call: WRITE	Prompt: !,"More accessions " Line Location: WT+0
Function Call: WRITE	Prompt: " not verified" Line Location: SP+0
Function Call: WRITE	Prompt: !?2,"(",$J(C,2),")",?10,LRAC,?25,Y Line Location: CY+0
Function Call: WRITE	Prompt: ?45,$S($D(^LAB(61,LRST,0)):$E($P(^(0),U),1,34),1:"") Condition for execution: LRST Line Location: CY+0
Function Call: WRITE	Prompt: $C(7),!!,"No autopsy entry for ",LRP,!! Line Location: AU+1
Function Call: WRITE	Prompt: $C(7),!!,"No autopsy accession" Line Location: AU+3
Function Call: WRITE	Prompt: $C(7),!!,"No autopsy # for ",LRP Line Location: AU+8
Function Call: WRITE	Prompt: !,"Autopsy performed: ",Y," Acc # ",LRAC Line Location: AU+9
Function Call: WRITE	Prompt: ! Line Location: EN1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	CY
^LR - [#63]	EN, EN+5, EN+6, EN+14, GOT, SP+1, AU

Label References

Name	Line Occurrences
@(	EN+12
ACC	ACC+1, OK
AU	I+2
GETP	EN, EN+13
I	EN1+2
L	EN+14
WT	EN+7

Naked Globals

Name	Field # of Occurrence
^(	SP+1
^(0	SP+1, CY

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WT*
>> A	SP+1*
>> C	EN+4, EN+7, EN+10, EN+11, EN+13, EN+14, ACC, WT, SP, CY
>> DFN	GETP*, GETP+1, EN1+1
DIC	GETP!, EN1+1!
DIC(0	GETP, EN1+1
DTIME	ACC
>> E	EN+1, EN+5, EN+7, WT
>> LRABV	EN+1*, EN+7, AU+3
>> LRAC	EN+6, EN+7, EN+8, EN+10, L, SP, CY, AU+2*, AU+3, AU+4 , AU+7, AU+9
>> LRAD	EN+9, AU+5
LRAN	GETP!, GETP+1, EN+10, EN+11, ACC, L, AU+1, AU+3, AU+6, AU+7 , AU+8, EN1+1!
LRAN(	EN+11*, OK, GOT
LRAN(1	EN+14
LRAY	I~, EN+8, EN+9, AU+4, AU+5
>> LRDFN	EN, EN+5, EN+6, EN+14, GOT, SP+1, AU
>> LRDPF	GETP, EN1+1
>> LRH(0	EN+13, AU+6
>> LRI	EN+1, EN+5, EN+6, EN+11, EN+14, GOT, SP+1
>> LRLIDT	EN+1, EN+11
>> LRND	AU*, AU+1, AU+2, AU+9
>> LRP	AU+1, AU+8
LRPFLG	I+1~*, EN+9, AU+5
>> LRSS	I+2, EN, EN+2, EN+5, EN+6, EN+12, EN+14, GOT, SP+1
>> LRST	EN+12, SP+1, CY
>> LRTK	EN+14, GOT
>> LRWW	L*
>> LRX	GETP, EN1+1
>> PNM	EN, OK
U	EN, EN+6, EN+11, EN+12, ACC, L, CY, AU+2
>> X	GETP, EN+6, EN+12, ACC*, ACC+1, OK, GOT, SP
>> Y	EN+12, L, SP, CY, AU+9*
>> Y(0	EN+14, GOT, L

Customize PDF page

Package: Lab Service

Routine: LRUPS

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: