Routine: LRMIPSZ

Information

LRMIPSZ ;DALIO/STAFF - MICRO PRINT/SINGLE SPECIMEN REPORT ;08/26/10 14:16

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Lab Service	7	^LRDPA EN^LRMIPSZ1 EN^LRPARAM D^LRU IO^LRWU ENA^LRWU4 PT^LRX
VA FileMan	3	^DIC YN^DICN ^DIR

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	LRMIPSZ

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
END	;
CHOOSE	; Choose the method of selecting the report to print.
DQ	;dequeued
ACC	; Lookup by accession number/UID
ACC1	;
PAT	;
PAST	;
WAIT	;
PAST1	;
SELECT	;

External References

Name	Field # of Occurrence
^DIC	PAT+8
YN^DICN	ACC1+6
^DIR	CHOOSE+5
^LRDPA	PAT+2
EN^LRMIPSZ1	DQ+2
EN^LRPARAM	BEGIN+3
D^LRU	PAST1+3
IO^LRWU	CHOOSE+8
ENA^LRWU4	ACC+2
PT^LRX	ACC1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?23,"MICROBIOLOGY SINGLE SPECIMEN REPORT" Line Location: BEGIN+4
Function Call: WRITE	Prompt: !?20,PNM,?40,SSN Line Location: ACC1+5
Function Call: WRITE	Prompt: !,?20,"OK" Line Location: ACC1+6
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: ACC1+6
Function Call: WRITE	Prompt: ! Line Location: PAST+1
Function Call: WRITE	Prompt: !,"Nothing accessioned" Line Location: PAST+3
Function Call: READ	Formatting: ! Prompt: "PRESS '^' TO STOP " Variable: X Timeout: DTIME Line Location: WAIT+1
Function Call: WRITE	Prompt: !?13,LRCNT Line Location: PAST1+2
Function Call: WRITE	Prompt: ?20,Y," " Line Location: PAST1+3
Function Call: READ	Formatting: !! Prompt: "Select #: " Variable: X Timeout: DTIME Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"Doesn't exist." Line Location: SELECT+2
Routine Call	DIC Line Location: PAT+8
Routine Call	DIR Line Location: CHOOSE+5

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
@(	CHOOSE+8
ACC1	ACC+4
CHOOSE	BEGIN+6
PAST	PAT+4
PAST1	PAST+2
SELECT	PAST+4
WAIT	PAST+2

Naked Globals

Name	Field # of Occurrence
^(0	ACC1+3, PAST1+2
^(3	ACC1+1
^(99	PAST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+2!, ACC1+6*, ACC1+7
>> %ZIS	CHOOSE+8*
AGE	END+2!
DFN	END+2!, ACC1+3*
DIC	END+2!, CHOOSE+8!, PAT+7*
DIC(0	PAT+7*
DIR	CHOOSE+1~
DIR("A"	CHOOSE+3*
DIR("B"	CHOOSE+4*
DIR(0	CHOOSE+2*
DIROUT	CHOOSE+1~
DIRUT	CHOOSE+1~, CHOOSE+6
DOB	END+2!
DTIME	WAIT+1, SELECT+2
DTOUT	CHOOSE+1~
DUOUT	CHOOSE+1~
I	END+2!
IO	DQ+1
J	END+2!
K	END+2!
LRAA	END+3!, ACC1+1, PAT+10*
LRACC	BEGIN+1~, BEGIN+2, END+3!, ACC1+2, PAT+6*, PAT+7
LRAD	END+3!, ACC1+1, PAT+6*
LRAN	END+3!, CHOOSE+8!, ACC+3, ACC1+1, PAT+6, PAST+1!, PAST1+1, PAST1+4
LRAN(	PAST1+1*, SELECT+2, SELECT+3
LRANOK	END+3!, CHOOSE+8, ACC+4, ACC1+7, PAT+1, PAT+3, PAT+5, PAT+9
LRCMNT	END+3!, ACC1+2, PAST+5
LRCNT	END+3!, PAST+2*, PAST+3, PAST+4, PAST1+1, PAST1+2
LRDFN	END+3!, ACC1+1*, ACC1+2, ACC1+3, PAT+3, PAT+6, PAST+2, PAST+5, PAST1+1
LRDPF	END+3!, ACC1+3*
LREND	BEGIN+5, END+3!, CHOOSE+8, ACC+3, ACC1+7, PAT+3, PAT+5, PAT+9
LREP	END+3!, CHOOSE+7*, CHOOSE+8
LRIDT	END+3!, ACC1+1, ACC1+2, PAT+6, PAST+2, PAST+4, PAST+5, PAST1+1, SELECT+3
LRLIDT	END+3!, PAST+4, PAST1+1*
LRLLT	END+3!, ACC1+2, PAT+5, PAST+3!, PAST+5, SELECT+1!
LRNL	BEGIN+5*, END+3!
LRONESPC	END+3!, DQ+2*!
LRONETST	END+3!, DQ+2*!
LRPG	BEGIN+5, END+3!, ACC+4
LRPRAC	END+3!
LRRB	END+3!
LRSB	END+3!
LRSMP	END+3!, PAST1+2*, PAST1+4
LRSTOP	END+3!, PAST+2, WAIT+1, SELECT+1*
LRUID	END+3!
PNM	END+2!, ACC1+5
SSN	END+2!, ACC1+5
U	ACC1+1, ACC1+2, ACC1+3, PAT+6, PAST+4, PAST1+1, PAST1+2, PAST1+4, SELECT+2, SELECT+3
X	END+2!, CHOOSE+1~, PAT+7, PAST+4, WAIT+1, SELECT+2*, SELECT+3
Y	END+2!, CHOOSE+1~, CHOOSE+7, PAT+9, PAT+10, PAST1+2*, PAST1+3
>> ZTQUEUED	DQ+1
>> ZTREQ	DQ+1*
>> ZTRTN	CHOOSE+8*

Customize PDF page

Package: Lab Service