Routine: LRMIPSZ

Package	Total	Call Graph
Lab Service	7	^LRDPA EN^LRMIPSZ1 (,LRANX)^LRMIU4 ^LRPARAM D^LRU IO^LRWU PT^LRX
VA Fileman	2	^DIC YN^DICN

Package

Total

Call Graph

^LRDPA EN^LRMIPSZ1 (,LRANX)^LRMIU4 ^LRPARAM D^LRU IO^LRWU PT^LRX

^DIC YN^DICN

Package	Total	Caller Graph
Lab Service	1	LRMIPSZ

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?23,"MICROBIOLOGY SINGLE SPECIMEN REPORT" Line Location: BEGIN+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: CHOOSE+0
Function Call: WRITE	Prompt: !,"1 Look-up by Accession number",!,"2 Look-up by name/ssn",!," Choose: 1// " Line Location: CHOOSE+0
Function Call: WRITE	Prompt: !,"Enter the accession number" Line Location: ACC+1
Function Call: WRITE	Prompt: !?20,PNM,?40,SSN Line Location: ACC1+1
Function Call: WRITE	Prompt: !?20,PNM,?40,HRCN,?50,"DOB: ",DOB Line Location: ACC1+2
Function Call: WRITE	Prompt: !,?20,"OK" Line Location: ACC1+3
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: ACC1+3
Function Call: WRITE	Prompt: ! Line Location: PAST+0
Function Call: WRITE	Prompt: !,"Nothing accessioned" Line Location: PAST+2
Function Call: READ	Prompt: "PRESS '^' TO STOP " Formatting: ! Timeout: DTIME Variable: X Line Location: WAIT+0
Function Call: WRITE	Prompt: !?13,LRCNT Line Location: PAST1+0
Function Call: WRITE	Prompt: ?20,Y," " Line Location: PAST1+0
Function Call: WRITE	Prompt: ?41,$P(^LAB(61,LRSMP,0),U),?60,"Acc ",LRAN Condition for execution: LRSMP Line Location: PAST1+0
Function Call: READ	Prompt: "Select #: " Formatting: !! Timeout: DTIME Variable: X Line Location: SELECT+0
Function Call: WRITE	Prompt: !,"Doesn't exist." Line Location: SELECT+0
Routine Call	DIC Line Location: PAT+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	PAST1
^LR - [#63]	ACC1, ACC1+2, PAT+2, PAST+1, PAST+4, PAST1
^LRO(68 - [#68]	ACC1
^TMP("LR"	END+1!

Name	Field # of Occurrence
%	END+1!, ACC1+3*, ACC1+4
>> %ZIS	CHOOSE+2*
AGE	END+1!
DFN	END+1!, ACC1+2*
DIC	END+1!, CHOOSE+2!, PAT+2*
DIC(0	PAT+2*
DOB	END+1!, ACC1+2
DTIME	CHOOSE, ACC+1, WAIT, SELECT
HRCN	END+1!, ACC1+2
I	END+1!
IO	DQ+1
J	END+1!
K	END+1!
LRAA	END+1!, ACC1, PAT+2*
LRACC	END+1!, ACC1, PAT+2
LRAD	END+1!, ACC1, PAT+2*
LRAN	END+1!, CHOOSE+2!, ACC, ACC+1!, ACC1, PAT+2, PAST!, PAST1
LRAN(	PAST1*, SELECT, SELECT+1
LRANOK	END+1!, ACC+1, ACC1+4
LRCMNT	END+1!, ACC1, PAST+4
LRCNT	END+1!, PAST+1*, PAST+2, PAST+3, PAST1
LRDFN	END+1!, ACC1*, ACC1+2, PAT, PAT+2, PAST+1, PAST+4, PAST1
LRDPF	END+1!, ACC1+2*
LREND	BEGIN, END+1!, CHOOSE+2, ACC, ACC+1, ACC1+4, PAT, PAT+1, PAT+2*
LREP	END+1!, CHOOSE+1*, CHOOSE+2
LRIDT	END+1!, ACC1, PAT+2, PAST+1, PAST+3, PAST+4, PAST1, SELECT+1
LRLIDT	END+1!, PAST+3, PAST1*
LRLLT	END+1!, ACC1, PAT+1, PAST+2!, PAST+4, SELECT!
LRNL	BEGIN*, END+1!
LRONESPC	END+1!, DQ+2*!
LRONETST	END+1!, DQ+2*!
LRPG	BEGIN, END+1!, ACC+1
LRSMP	END+1!, PAST1*
LRSTOP	END+1!, PAST+1, WAIT, SELECT*
PNM	END+1!, ACC1+2
SSN	END+1!
U	CHOOSE, CHOOSE+1, ACC+1, ACC1, ACC1+2, PAT+2, PAST+3, PAST1, SELECT, SELECT+1
X	END+1!, CHOOSE, CHOOSE+1, ACC+1, PAT+2, PAST+3, WAIT, SELECT*, SELECT+1
Y	END+1!, PAT+2, PAST1*
>> ZTQUEUED	DQ+1
>> ZTREQ	DQ+1*
>> ZTRTN	CHOOSE+2*

Information

Name	Comments	DBIA/ICR reference
ACC
BEGIN
END	;K ^TMP("LR",$J),%,AGE,DFN,DIC,DOB,I,J,K,LRAA,LRACC,LRAD,LRAN,LRANOK,LRCMNT,LRCNT,LRDFN,LRDPF,LREND,LREP,LRIDT,LRLIDT,LRLLT,LRNL,LRONESPC,LRONETST,LRPG,LRSMP,LRSTOP,PNM,SSN,X,Y
PAST1
PAST
CHOOSE
PAT
WAIT
ACC1
SELECT
DQ	;dequeued