Routine: LRMIVER1

Information

LRMIVER1 ;DALOI/STAFF - MICRO CHART COPY APPROVAL CONT. ;12/19/12 10:41

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Lab Service	10	^LRLTR INFO^LRMINEW EN^LRMIPSZ1 LRAN^LRMIUT VT^LRMIUT1 UPDATE^LRPXRM SETRL^LRVERA LEDI^LRVR0 IO^LRWU PT^LRX
VA FileMan	2	^DIC YN^DICN

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	LRMIVER

Entry Points

Name	Comments	DBIA/ICR reference
APPROVE
DQ	;
SORT
S1
PRINT
P1
P2
P3
ACCEPT
LRAD
STUFF	;

Name	Field # of Occurrence
^DIC	P3+1
YN^DICN	APPROVE+3, ACCEPT+2
^LRLTR	PRINT
INFO^LRMINEW	APPROVE+1
EN^LRMIPSZ1	P3+1
LRAN^LRMIUT	ACCEPT
VT^LRMIUT1	STUFF+6
UPDATE^LRPXRM	STUFF+2
SETRL^LRVERA	STUFF+17
LEDI^LRVR0	STUFF+20
IO^LRWU	APPROVE+5
PT^LRX	STUFF+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data." Line Location: APPROVE+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: APPROVE+1
Function Call: WRITE	Prompt: !!,"Do you wish to review the data as the (W)ards will see it, as the (L)ab",!,"will see it, or (N)ot review the data? N// " Line Location: APPROVE+1
Function Call: WRITE	Prompt: !,"Do you want to queue the data to print and approve it later" Line Location: APPROVE+3
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: APPROVE+3
Function Call: WRITE	Prompt: !!,"Indicate those you wish to exclude from verification." Line Location: ACCEPT+0
Function Call: WRITE	Prompt: !,"Ready to approve" Line Location: ACCEPT+2
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: ACCEPT+2
Function Call: WRITE	Prompt: ! Line Location: ACCEPT+3
Function Call: WRITE	Prompt: "." Line Location: STUFF+11
Routine Call	DIC Line Location: P3+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	S1+1, P3+1, STUFF+5, STUFF+7*, STUFF+12
^LRO(68 - [#68]	APPROVE, DQ+4, SORT, S1, ACCEPT+1!, ACCEPT+4, LRAD, STUFF+1, STUFF+3, STUFF+4 , STUFF+9, STUFF+11*, STUFF+13!
^TMP($J	DQ+4!, S1+1, S1+2, PRINT, P1, P2, P3

Label References

Name	Line Occurrences
ACCEPT	APPROVE+2
LRAD	ACCEPT+4
P1	PRINT
P2	P1
P3	P2
PRINT	DQ+5
S1	SORT
SORT	DQ+4
STUFF	LRAD

Naked Globals

Name	Field # of Occurrence
^(	S1, STUFF+1, STUFF+9, STUFF+12
^(0	S1+1, STUFF+4, STUFF+5, STUFF+7
^(99	P3+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	APPROVE+3, APPROVE+4, ACCEPT+2, ACCEPT+3
>> %ZIS	APPROVE+4*
>> %ZIS("B"	APPROVE+4*
>> DFN	STUFF+5*
>> DIC	P3*
>> DIC(0	P3*
DT	STUFF+6
DTIME	APPROVE+1
DUZ	STUFF+7
DUZ(2	STUFF+17
>> I	APPROVE+1, APPROVE+3, DQ+4*
>> II	STUFF+8, STUFF+9, STUFF+12*, STUFF+13, STUFF+14
IO	DQ+3
IOF	PRINT
>> IOP	APPROVE+4*
IOST	PRINT
>> LRAA	APPROVE, DQ+4, SORT, S1, P3, P3+1*, ACCEPT+1, ACCEPT+4, LRAD, STUFF+1 , STUFF+3, STUFF+4, STUFF+9, STUFF+11, STUFF+13
>> LRACC	P3*, P3+1
LRAD	DQ+4, SORT, S1, S1+2, P3, ACCEPT+1, ACCEPT+4, ACCEPT+5!, LRAD, STUFF+1 , STUFF+3, STUFF+4, STUFF+9, STUFF+11, STUFF+13
LRAN	SORT, S1, P3+1, ACCEPT+1, ACCEPT+5!, LRAD, STUFF+1, STUFF+3, STUFF+4, STUFF+9 , STUFF+11, STUFF+13
LRAN(	ACCEPT+1
>> LRCDT	STUFF+5*
>> LRCMNT	P3+1*
>> LRDFN	S1, S1+1, S1+2, P1, P2, P3, P3+1, STUFF+1*, STUFF+2, STUFF+5 , STUFF+7, STUFF+12, STUFF+17
>> LRDPF	STUFF+5*
>> LREND	DQ+4*, PRINT, P1, P2, P3+1
>> LRIDT	S1, S1+1, S1+2, P2, P3, P3+1, STUFF+1*, STUFF+2, STUFF+5, STUFF+7 , STUFF+12, STUFF+17
>> LRLCNT	PRINT*
>> LRLLOC	STUFF+4*
>> LRLLT	P3*
>> LRLTR	PRINT*
LRMLTRPT	DQ+1~, DQ+2*
>> LRNT	STUFF+7, STUFF+11
>> LRODT	STUFF+4*
>> LRONESPC	DQ+5*
>> LRONETST	DQ+5*
>> LRPG	P3+1*
>> LRSB	DQ+4, STUFF+14
>> LRSET	STUFF+8, STUFF+9, STUFF+11
>> LRSN	STUFF+4*
>> LRSS	STUFF+16*, STUFF+17
LRTK	ACCEPT+5!
>> LRTS	STUFF+9*
>> LRVLOC	S1+1, S1+2, PRINT, P1, P2, P3
>> LRWLSAVE	P3*, P3+1
LRWRDVEW	APPROVE+3*, ACCEPT+5!
U	APPROVE+1, APPROVE+2, S1, S1+1, P3, STUFF+1, STUFF+4, STUFF+5, STUFF+7, STUFF+9 , STUFF+11, STUFF+12
>> X	APPROVE+1, APPROVE+2, APPROVE+3, P3
>> Y	P3+1, STUFF+6*
Z	ACCEPT+5!
>> ZTQUEUED	DQ+3
>> ZTREQ	DQ+3*
>> ZTRTN	APPROVE+4*

Customize PDF page

Package: Lab Service