Routine: LAKUR

Package	Total	Call Graph
Automated Lab Instruments	4	SET^LAB ^LABERR ^LAKUR1 (,RMK)^LASET
Kernel	1	^%ZIS
Lab Service	1	PT^LRX
VA Fileman	1	YN^DICN

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LA1+3
YN^DICN	PR+2
SET^LAB	TRAP
^LABERR	TRAP
^LAKUR1	LA2+1
^LASET	LA1+2
RMK^LASET	LA3+2
PT^LRX	WLN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"AUTO INSTRUMENT FILE NOT SETUP RIGHT" Line Location: LA1+0
Function Call: WRITE	Prompt: !!?20,"KEYBOARD URINALYSIS ENTRY",!! Line Location: LA1+1
Function Call: READ	Prompt: "//" Timeout: DTIME Variable: X Line Location: WLN+0
Function Call: WRITE	Prompt: !,"Accession NUMBER: ",LRAN Line Location: WLN+0
Function Call: WRITE	Prompt: !,"NOT ON FILE" Line Location: WLN+0
Function Call: WRITE	Prompt: !!,"Patine name: ",PNM," HRCN: ",HRCN," Acc: ",LRACC Line Location: PR+1
Function Call: WRITE	Prompt: !,"Is this the correct patient:" Line Location: PR+2
Function Call: WRITE	Prompt: !,"Enter an accession number to enter URINALYSIS results on." Line Location: LW+0
Function Call: WRITE	Prompt: $C(7),!!,">> The same KEY (",I4,") is set for more than one TEST (",I1," screen ",$S(J=0:"main",J=1:"cast",1:"crystal"),")<<",!!,$C(7) Line Location: INT2+1
Function Call: WRITE	Prompt: !,Z Line Location: WRITE+0
Routine Call	%ZIS Line Location: LA1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	LA1+3
^DD(63.04	INT2
^LA(	IN, IN+1*
^LA("LOCK"	LA1+2!
^LAB(	OUT
^LAB("Q"	OUT+1
^LAB(60 - [#60]	INT2
^LAB(62.4 - [#62.4]	LA1
^LAB(69.9 - [#69.9]	LA1+2
^LAH(	LA3+1*
^LR - [#63]	WLN+2
^LRO(68 - [#68]	WLN, WLN+1, NEXT
^TMP("LA"	INT, INT+1, INT2
^TMP($J	INT2+2*, QUIT+2!

Label References

Name	Line Occurrences
@(	TRAP
END	WLN
IN	IN
INT	LA1+4
INT2	INT
LA2	LA2+1, LA3, LA3+3
LW	WLN
NEXT	LA2, WLN
PR	PR+2
QUIT	LA1, LA1+2, LA2
WLN	LA2, WLN, PR+2, LW
WRITE	LA3+3

Naked Globals

Name	Field # of Occurrence
^(	WLN+1, INT, INT2, IN, IN+1
^("DD"	INT2*
^("LA"	QUIT+2!
^("O"	OUT*
^("Q"	OUT+1*
^(0	WLN+1, WLN+2, INT
^(3	WLN+1
^(4	INT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PR+2*, QUIT!
>> %ZIS	LA1+3*
A	LA2*, QUIT!
ACK	QUIT!
ASK	QUIT!
BASE	QUIT!
C	QUIT!
CENUM	QUIT!
CHK	QUIT!
CNT	IN, IN+1, OUT, QUIT!
CODE	QUIT!
CONT	QUIT!
CUP	SAVE+1*, QUIT!
DA	INT2*, QUIT!
DATYP	QUIT!
DD	INT2*, QUIT!
DFN	WLN+2*, QUIT!
DONE	QUIT!
DPF	QUIT!
DT	LA1+4
DTIME	LA1+3*, WLN
DX	QUIT!
DY	QUIT!
ECHOALL	QUIT!
ER	QUIT!
FLAG	LA2+1*, QUIT!
HDR	QUIT!
HOME	QUIT!
HRCN	PR+1, QUIT+2!
HRD	QUIT!
I	LA3+1, INT, INT2, INT2+2, QUIT!
I1	INT2*, INT2+1, QUIT!
I3	INT*, INT2+2, QUIT!
I4	INT*, INT2+1, INT2+2, QUIT!
ID	SAVE+1*, QUIT!
IDE	SAVE+1*, QUIT!
IDENT	QUIT!
IDT	QUIT!
IN	IN+1*, QUIT!
>> IOP	LA1+3*
IOST(0	LA1+3
ISQN	LA3, LA3+1, QUIT!
J	INT*, INT2+1, INT2+2, QUIT!
K	QUIT!
KEY	INT!, QUIT!
KEY(	INT2+1, INT2+2*
L	QUIT!
LACT	QUIT!
LAGEN	LA3, QUIT!
LALCT	QUIT!
LANM	LA1*, QUIT!, TRAP
>> LAOVER	LA1+4*
LINE	QUIT!
LINK	QUIT+1!
LOG	QUIT+1!
LRAA	LA1+4*, WLN, WLN+1, NEXT, QUIT+1!
LRACC	WLN+1*, PR+1, QUIT+1!
LRAD	LA1+4*, WLN, WLN+1, NEXT, QUIT+1!
LRAN	LA1+4, LA2, SAVE+1, WLN, WLN+1, PR+2, NEXT, END*, QUIT+1!
LRDAT	WLN+1*, QUIT+1!
LRDFN	WLN+1*, WLN+2, QUIT+1!
LRDPF	WLN+2*, QUIT+1!
LRDY	QUIT+1!
LRIO	QUIT+1!
LRODT	WLN+1*, QUIT+1!
LROVER	QUIT+1!
LRPGM	QUIT+1!
LRSET	QUIT+1!
LRSN	WLN+1*, QUIT+1!
LRSUBS	QUIT+1!
LRTIME	QUIT+1!
LRTOP	LA1+2*, QUIT+1!
LRTST	QUIT+1!
LWL	LA3+1, QUIT+1!
M	QUIT+1!
METH	QUIT+1!
NAK	QUIT+1!
NC	QUIT+1!
NOW	QUIT+1!
OUT	OUT, QUIT+1!
PNM	PR+1, QUIT+1!
Q	OUT+1*, QUIT+1!
RMK	LA2*, LA3+2, QUIT+1!
RT	QUIT+1!
SS	LA1+3*, QUIT+1!
SSN	QUIT+2!
STORE	QUIT+2!
T	QUIT+2!, TRAP*
T1	QUIT+2!
T2	QUIT+2!
TC	QUIT+2!
TEMP	QUIT+2!
TOTAL	QUIT+2!
TOUT	LA2, IN, IN+1*, QUIT+2!
TP	QUIT+2!
TQ	OUT, OUT+1, QUIT+2!
TRAP	QUIT+2!
TRAY	SAVE+1*, QUIT+2!
TRY	QUIT+2!
TSK	LA1*, LA1+2, LA3+1, IN, IN+1, OUT, QUIT+2!, TRAP
TV	LA2!, QUIT+2!
TV(	LA3+1
TY	QUIT+2!
TYPE	QUIT+2!
U	LA1*, LA1+2, LA1+3, WLN+1, WLN+2, INT2
V	QUIT+2!
WDT	QUIT+2!
WL	LA1+4, QUIT+2!
X	WLN, INT, INT2, QUIT+2!
XY	LA1+3*, QUIT+2!
Y	LA2!, QUIT+2!
YY	QUIT+2!
Z	LA3+1*, WRITE, QUIT+2!
>> ZTQUEUED	LA1
>> ZTREQ	LA1*
ZTSK	QUIT+2!

Marked Items

Customize PDF page

Package: Automated Lab Instruments

Routine: LAKUR

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
PR	;W !!,"Patine name: ",PNM," SSN: ",SSN," Acc: ",LRACC
QUIT
END
INT
OUT
IN
NEXT
WRITE
LW
TRAP
WLN
INT2
SAVE	;G LOST:'$D(Y(2)) F I=0:0 S I=$O(TC(I)) Q:I<1 X TC(I,2) S:$D(V) @TC(I,1)=V
LA1
LA2
LA3