Routine: LRUPT

Package	Total	Call Graph
Lab Service	4	^LRDPA $$STATUS^LREVENT (D,YN)^LRU $$Y2K^LRX
Kernel	1	^%ZIS
VA Fileman	1	^DIC

Package	Total	Caller Graph
Lab Service	1	LRUPT

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LRUPT+9
^DIC	ASK+1
^LRDPA	GETP
$$STATUS^LREVENT	REF+2
D^LRU	AUTO+1
YN^LRU	GETP+1
$$Y2K^LRX	FIX+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Is this the patient " Line Location: GETP+1
Function Call: WRITE	Prompt: " TESTS ORDERED" Line Location: SHOW+0
Function Call: WRITE	Prompt: " TESTS ORDERED" Line Location: SHOW+2
Function Call: WRITE	Prompt: !?5,"* No ",LRAA(1)," entries *",!! Line Location: SHOW+7
Function Call: WRITE	Prompt: " ",$E(Z(11),1,10) Line Location: A+1
Function Call: WRITE	Prompt: !!,LRDATE,?18,Z(12),?37,$E(Z(5),1,12) Line Location: DATA+0
Function Call: WRITE	Prompt: ! Line Location: LIST+1
Function Call: WRITE	Prompt: ?13,"UID: "_LRUID Line Location: LIST+3
Function Call: READ	Prompt: "MORE TESTS ? NO// " Formatting: ! Timeout: DTIME Variable: A("A") Line Location: MORE+0
Function Call: WRITE	Prompt: $C(7),!,"Answer YES or NO" Line Location: MORE+0
Function Call: WRITE	Prompt: LRDATE,?18,Z(12) Line Location: MORE+1
Function Call: WRITE	Prompt: @IOF,LRP," HRCN: ",HRCN Line Location: MORE+3
Function Call: WRITE	Prompt: LRDATE,?18,Z(12) Line Location: MORE+3
Function Call: WRITE	Prompt: !,"Spec Date/time",?18,"Acc #" Line Location: HDR+0
Function Call: WRITE	Prompt: ?59,"Tests" Line Location: HDR+0
Function Call: WRITE	Prompt: ?37,"PHYSICIAN",?51,"SPECIMEN(S)" Condition for execution: "CYEMSP"[LRSS Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: $C(7),!,"No autopsy !!!" Line Location: AUTO+0
Function Call: WRITE	Prompt: !,"Autopsy date/time",?19,"Autopsy #" Line Location: AUTO+2
Function Call: WRITE	Prompt: !,$S(Y[1700:"???",1:Y),?23,$S($D(Z(6)):Z(6),1:"??") Line Location: AUTO+3
Function Call: WRITE	Prompt: ! Condition for execution: B>1 Line Location: REF+4
Function Call: WRITE	Prompt: ?35,"Shipping Manifest: "_LRMAN Line Location: REF+4
Function Call: WRITE	Prompt: !,?(79-$L(LRX)),LRX Line Location: REF+5
Function Call: WRITE	Prompt: ! Line Location: REF+5
Routine Call	DIC Line Location: ASK+1
Routine Call	%ZIS Line Location: LRUPT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LIST
^LAB(61 - [#61]	S+2
^LAB(62 - [#62]	FIX+24
^LR - [#63]	GETP, SHOW+5, SHOW+6, AUTO, AUTO+1, AP
^LRO(68 - [#68]	FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+3, DAY, LIST+3
^VA(200 - [#200]	FIX+6

Label References

Name	Line Occurrences
@(	A+1
A	FIX+5
ASK	ASK+2
AUTO	SHOW+4
DATA	FIX+9, A
END	ASK+1
GETP	GETP+1
HDR	SHOW+6, MORE+3
LIST	DAY
MORE	FIX+4, DAY, MORE
REF	LIST+4
REST	ASK+2
S	SHOW+6
SHOW	GETP+1
YRCHK	FIX+13, FIX+19

Naked Globals

Name	Field # of Occurrence
^(	DAY, AP+2
^(0	SHOW+6, S+2
^(3	FIX+15, FIX+20, FIX+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETP+1*, END!
A	SHOW+6*, SHOW+7, END!
A("A"	GETP, SHOW+6, FIX+4, DAY, MORE
B	DAY, LIST+1, LIST+2, LIST+3, AP*, AP+1, REF+4, REF+5, END!
>> C	AP*, AP+2
DFN	END!
DIC	ASK+1*!, GETP!, END!
DIC("B"	ASK*
DIC(0	ASK+1*
DOB	END!
DTIME	MORE
FND	FIX+3, FIX+14, FIX+17, END+2!
HCRN	END+4!
>> HRCN	SHOW+2, MORE+3
I	END!
IOF	SHOW+2, MORE+3
>> IOP	LRUPT+9*
K	END!
LRAA	LRUPT+8, ASK+1!, REST, FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+3, DAY , LIST+3
LRAA(1	LRUPT+8, ASK+1, REST, SHOW+2, SHOW+5, SHOW+7
LRADM	END!
LRADX	END!
LRAWRD	END!
>> LRDATE	FIX+2*, FIX+8, DATA, MORE+3
LRDFN	GETP, SHOW+5, SHOW+6, FIX+15, FIX+20, FIX+21, AUTO, AUTO+1, AP, END+1!
LRDPAF	LRUPT+9*, END!
LRDPF	END+1!
LREND	END+1!
LREVNT	REF+1~, REF+2*, REF+3, REF+4, REF+5
LREXP	END+1!
LRFNAM	END+1!
LRLLOC	END!
LRMAN	REF+1~, REF+2, REF+4
LRMD	END+1!
LRP	SHOW+2, MORE+3, END!
LRPF	END+1!
LRPFN	END+1!
LRS	END+1!
LRSS	LRUPT+8, ASK+1!, REST, SHOW+2, SHOW+4, SHOW+5, SHOW+6, S+1, S+4, S+5 , FIX+1, FIX+5, FIX+7, FIX+9, FIX+21, FIX+22, A+1, HDR, HDR+1, AP
LRSVC	END+1!
LRTEST	END+2!
LRUID	LIST+3*, REF+2, END+2!
LRX	REF+1~, REF+5*
N	SHOW+6*, AP, END+2!
P	END+1!
PNM	END+1!
POP	END+1!
QFLG	FIX+3, FIX+9, FIX+10, FIX+13, FIX+17, FIX+19, FIX+20, YRCHK+3, DATA+1, END+2!
SEX	END+2!
SSN	END!
T	GETP!
T(	DAY*, LIST, REF+2
U	REST, S, S+1, S+2, FIX+24, LIST, LIST+2, MORE, AUTO+1, AP+2
X	DAY*, LIST, REF+2, END+2!
X(0	LIST*, LIST+2
X1	YRCHK+1, YRCHK+2, END+2!
X2	YRCHK+1*, YRCHK+2, END+2!
Y	ASK+1, REST, S, S+3, FIX+1, FIX+2, AUTO+1*, AUTO+3, END+2!
Y(0	REST
Z	ASK+1!, END!
Z(0	LRUPT+8*, ASK, ASK+1, ASK+2!
Z(1	LRUPT+8*, ASK+1
Z(11	S+1, FIX+22, FIX+23, FIX+24*, A+1
Z(12	S, S+4, S+5, FIX+8, DATA, MORE+3
Z(15	YRCHK+2*, YRCHK+3, YRCHK+4
Z(2	LRUPT+8*, ASK+1
Z(3	REST*, S+3, FIX+1
Z(4	S*, FIX+6
Z(5	S+1, S+2, FIX+6*, FIX+8, FIX+24, DATA
Z(6	S, FIX, FIX+4, FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+3, DAY , LIST+3, AUTO+1*, AUTO+3
Z(7	SHOW+6, S, S+1, S+3, S+5, FIX+1, FIX+15, FIX+20, FIX+21, AUTO+1
Z(8	REST*, FIX
Z(9	FIX+1, FIX+4, FIX+7, FIX+10, FIX+15, FIX+20, FIX+21, YRCHK+1, YRCHK+4, DAY , LIST+3

Customize PDF page

Package: Lab Service

Routine: LRUPT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
AP
END
HDR
SHOW	;W @IOF,!,LRAA(1),?20,LRP," ID: ",SSN I "AUCYEMSP"'[LRSS W " TESTS ORDERED"
AUTO
FIX
LIST
REST
GETP
S
REF	; if referred test, get referral status
ASK
DATA
DAY
YRCHK	;Increment year and look for accession
MORE