Routine: LRVRW

Information

LRVRW ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION BY WORKLIST ;06/24/10 16:53

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Lab Service	6	STD^LRCAPV ^LRCAPV2 ^LRGVK INIT^LRVR VER^LRVR1 PT^LRX
Automated Lab Instruments	1	(UID,UPDT)^LAGEN

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: 2

Package	Total	Caller Graph
Lab Service	2	LRVRW LRVRW2

Entry Points

Name	Comments	DBIA/ICR reference
1
L10	;
YN
WLN	;
WLN2	;
END	;
NEXT
NX2
LIST
STOP	;
ISEQ	;
FIND	;
T3
QUIT	;

External References

Name	Field # of Occurrence
UID^LAGEN	ISEQ+4
UPDT^LAGEN	ISEQ+5
STD^LRCAPV	QUIT+2
^LRCAPV2	QUIT+4
^LRGVK	QUIT+4
INIT^LRVR	1
VER^LRVR1	L10+12
PT^LRX	L10+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ACCESSION MISSING" Line Location: L10+5
Function Call: WRITE	Prompt: !!,"Can't use. Entry has data from accession # ",$P(^(0),U,5),!,"Suggest you Clear instrument/worklist data." Line Location: L10+7
Function Call: WRITE	Prompt: !?5," Error in Patient Lookup",! Line Location: L10+10
Function Call: WRITE	Prompt: !,PNM,?40,SSN Line Location: L10+11
Function Call: READ	Variable: X Timeout: DTIME Line Location: YN+0
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: YN+0
Function Call: READ	Variable: X3 Timeout: DTIME Line Location: WLN+2
Function Call: WRITE	Prompt: !!!,"SEQUENCE #: ",LRCUP,"//" Line Location: WLN+2
Function Call: WRITE	Prompt: !,"ENTER A VALID SEQUENCE NUMBER" Line Location: WLN+3
Function Call: WRITE	Prompt: !,"SEQUENCE NUMBER DOESN'T EXIST" Line Location: WLN+4
Function Call: READ	Variable: X2 Timeout: DTIME Line Location: WLN2+1
Function Call: WRITE	Prompt: !!!,"TRAY: ",LRTRAY,"//" Line Location: WLN2+1
Function Call: READ	Variable: X3 Timeout: DTIME Line Location: WLN2+2
Function Call: WRITE	Prompt: " CUP: ",LRCUP,"//" Line Location: WLN2+2
Function Call: WRITE	Prompt: !,"ENTER A VALID TRAY, CUP FROM THE LOAD/WORK LIST" Line Location: WLN2+3
Function Call: WRITE	Prompt: !,"TRAY, CUP DOESN'T EXIST" Line Location: WLN2+4
Function Call: WRITE	Prompt: !,"LAST IN LIST" Line Location: NX2+1
Function Call: WRITE	Prompt: " the following tests: " Line Location: LIST+0
Function Call: WRITE	Prompt: !,?10,$P(LRTST(I),"^",1) Line Location: LIST+0
Function Call: WRITE	Prompt: !,?5,I Line Location: FIND+3
Function Call: WRITE	Prompt: !,"No data for that tray & cup" Line Location: T3+0
Function Call: READ	Formatting: ! Prompt: "Choose sequence number: " Variable: X Timeout: DTIME Line Location: T3+1
Function Call: WRITE	Prompt: !,"Enter a number" Line Location: T3+1
Function Call: WRITE	Prompt: !,"No data there" Line Location: T3+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAH(	L10+7, ISEQ+1, ISEQ+2, ISEQ+3, ISEQ+6, ISEQ+7, ISEQ+8, FIND+3, FIND+5, T3+3
^LR - [#63]	L10+9
^LRO(68 - [#68]	L10+5, L10+8, END+1, ISEQ+4, QUIT+2
^LRO(68.2 - [#68.2]	L10+4, WLN+4, WLN2+4, NX2, ISEQ+9*, FIND+5
^XTMP("LRCAP"	QUIT+1!

Label References

Name	Line Occurrences
END	L10+3, L10+12
FIND	L10+6
ISEQ	L10+6
L10	L10+5, L10+7, L10+10, L10+13
NEXT	1+4, L10+7, L10+10, L10+12
NX2	NX2
QUIT	1+2, END+2
T3	T3+1
WLN	L10+2, WLN+3, WLN+4
WLN2	WLN+1, WLN2+3, WLN2+4
YN	YN

Naked Globals

Name	Field # of Occurrence
^(	L10+8
^(0	L10+7, L10+9
^(2	END+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C5	L10+1!
>> DFN	L10+9*
DIC	L10+1!
DTIME	YN, WLN+2, WLN2+1, WLN2+2, T3+1
DUZ	QUIT+1
>> I	LIST, FIND+2, FIND+3, FIND+4, FIND+5*
>> LRAA	L10+4*, L10+5, L10+8, END+1, ISEQ+3, ISEQ+4, QUIT+2
LRAB	L10+1!
>> LRAD	L10+4*, L10+5, L10+8, END+1, ISEQ+3, ISEQ+4
>> LRAN	L10+4*, L10+5, L10+7, L10+8, END+1, ISEQ+3, ISEQ+4, ISEQ+7
LRBETST	1+1~
LRBEY	1+1~
>> LRCSQ	QUIT+1
>> LRCUP	1+3, L10+4, WLN+2, WLN+5, WLN2+2, WLN2+5, NEXT, NX2+1, NX2+2*, ISEQ+3 , ISEQ+6, ISEQ+9, FIND+2, FIND+5
LRDEL	L10+1!
>> LRDFN	L10+9*
>> LRDPF	L10+9*
>> LREND	1+2, L10+3, L10+10, L10+12, WLN+2, WLN2+1, WLN2+2, END+1, STOP+1
LRFP	L10+1!
LRLDT	L10+1!
>> LRLL	L10+4, L10+7, WLN+4, WLN2+4, NX2, ISEQ+1, ISEQ+2, ISEQ+3, ISEQ+4, ISEQ+5 , ISEQ+6, ISEQ+7, ISEQ+8, ISEQ+9, FIND+3, FIND+5, T3+3
LRNG	L10+1!
LRNM	L10+1!
>> LRODT	L10+9*
LRORU3	L10+8*, QUIT+3!
>> LRPARAM	QUIT+2
LRPRGSQ	L10+6, FIND+1!, T3+2!
LRPRGSQ(	FIND+3, FIND+5, T3+3!
LRSET	L10+1!
>> LRSN	L10+9*
>> LRSQ	L10+7, ISEQ+2, ISEQ+3, ISEQ+4, ISEQ+5, ISEQ+6, ISEQ+7, ISEQ+9, FIND+3, FIND+5* , T3+3*
LRTEST	L10+1!
>> LRTRAY	1+3, L10+4, WLN+2, WLN+4, WLN2+1, WLN2+5, NEXT, NX2+1, NX2+2*, ISEQ+3 , ISEQ+6, ISEQ+9, FIND+2, FIND+5
>> LRTRCP	FIND+2*, FIND+3
>> LRTST(	LIST
>> LRTYPE	WLN+1
LRVER	L10+1!
>> N	FIND+2, FIND+3, FIND+5*, T3, T3+1, T3+3
>> PNM	L10+11
>> SSN	L10+11
T	L10+1!
U	L10+4, L10+7, L10+9, WLN+2, WLN2+1, WLN2+2, END+1, NX2+1, ISEQ+3, QUIT+2
>> X	L10+4, L10+8, L10+9, YN, T3, T3+1*, T3+2, T3+3
>> X2	WLN2+1, WLN2+3, WLN2+4, WLN2+5, NEXT, NX2*, NX2+1, NX2+2
>> X3	WLN+2, WLN+3, WLN+4, WLN+5, WLN2+2, WLN2+3, WLN2+4, WLN2+5, NEXT, NX2 , NX2+1, NX2+2
Y	L10+1!
Z	L10+1!

Customize PDF page

Package: Lab Service