Routine: LAKUR1

Package	Total	Call Graph
Lab Service	1	RW^LRDIED

Package	Total	Caller Graph
Automated Lab Instruments	1	LAKUR

Entry Points

External References

Name	Field # of Occurrence
RW^LRDIED	COM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LAKUR1+3
Function Call: READ	Timeout: DTIME Variable: TYPE#1 Line Location: L+0
Function Call: WRITE	Prompt: !,?40,*13,"URINE: " Line Location: L+0
Function Call: READ	Prompt: " " Timeout: DTIME Variable: X Line Location: RESULT+0
Function Call: READ	Timeout: 2 Variable: X Line Location: HELP2+0
Function Call: WRITE	Prompt: !,"You can enter '",$P($P(LRSET,";",K),":",1),"' which stands for ",$P($P(LRSET,";",K),":",2) Line Location: HELP2+1
Function Call: READ	Prompt: "Press return to continue " Formatting: ! Timeout: DTIME Variable: X Line Location: HELP2+2
Function Call: READ	Timeout: 2 Variable: X Line Location: HELP+0
Function Call: WRITE	Prompt: *13,$C(7)," INVALID KEY" Line Location: HELP+0
Function Call: WRITE	Prompt: !!!!,?7 Line Location: HELP+1
Function Call: WRITE	Prompt: $J(K,8) Line Location: HELP+1
Function Call: WRITE	Prompt: " ",% Line Location: SET+0
Function Call: WRITE	Prompt: $E(LRSUBS,Y,255) Line Location: SET+1
Function Call: WRITE	Prompt: $C(7) Line Location: HUH+1
Function Call: WRITE	Prompt: !,"YOU CAN ENTER ",$P($P(CODE,";",K),":")," WHICH STANDS FOR ",$P($P(CODE,";",K),":",2) Line Location: HUH+1
Function Call: READ	Prompt: "ARE YOU FINISHED WITH THIS PATIENT (Y/N) Y//" Formatting: ! Timeout: DTIME Variable: X Line Location: DONE+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: DONE+1
Function Call: WRITE	Prompt: !?2,^TMP("LA",$J,I,.1),": ",?12 Line Location: EVAL+1
Function Call: WRITE	Prompt: $J(V,3) Line Location: EVAL+1
Function Call: WRITE	Prompt: @IOF,!!,"Patient name: ",PNM,?45,"HRCN: ",HRCN Line Location: HD1+1
Function Call: WRITE	Prompt: !,?10,"URINALYSIS Screen ",$P("MAIN$CAST's$CRYSTAL's","$",T3+1) Line Location: HD2+0
Function Call: WRITE	Prompt: !,"'?'=DISPLAY, '!'=COMMENTS, '\'=MAIN, '['=CASTS, ']'=CRYSTALS, <RETURN>=EXIT" Line Location: HD2+1
Function Call: WRITE	Prompt: !,"KEY",?7,T1(I),!,"TEST",?7,T2(I),!! Line Location: HD2+1
Function Call: WRITE	Prompt: !,?24,"> Urine Chem profile <",! Line Location: HD4+0
Function Call: WRITE	Prompt: $P(^LAB(60,X,0),U,1),": ",$P(V,U,1)_" "_$P(V,U,2),?(I*25) Line Location: HD4+1
Function Call: WRITE	Prompt: ! Line Location: HD4+1
Function Call: READ	Timeout: DTIME Variable: RMK Line Location: COM+0
Function Call: WRITE	Prompt: !,"Comment: ",RMK,! Line Location: COM+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	HELP2
^LAB(60 - [#60]	RESULT, HD4+1
^LR - [#63]	HD4, HD4+1
^TMP("LA"	LAKUR1+3, RESULT, DELETE+1, EVAL+1, STORE, INIT+2
^TMP($J	HELP+1, EVAL+1, STORE, INIT+1, INIT+2

Name	Field # of Occurrence
^(	LAKUR1+3, HELP+1, EVAL+1, STORE, HD4+1, INIT+1, INIT+2
^(3	HELP2
^(4	LAKUR1+3, INIT+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SET*
A	L+2!
>> C	HD4+1*
CODE	L+2!, HUH+1
CONT	L+2!
DA	L+2!, HELP2
DATYP	L+2!
DD	L+2!, DELETE+1*, HELP2, SET
DONE	L, L+1, L+2!, DONE+2, INIT+3
DTIME	L, RESULT, HELP2+2, DONE, COM
>> DX	L, HELP2, HELP+1*
>> DY	L, HELP2, HELP+1*
>> FLAG	L, CHECK, RESULT, DONE, DONE+2, INIT+3*
>> HRCN	HD1+1
>> I	HELP+1, SET+1, EVAL+1, STORE, HD2+1, HD4+1, INIT+1, INIT+2, INIT+3
>> I1	HELP+1*
>> I3	LAKUR1+3*
>> I4	LAKUR1+3*
IOF	HD1+1
J	L*, L+2!
K	L+2!, HELP2+1, HELP+1, HUH+1*
KEY	L+2!, CHECK+1, INIT!, INIT+1
KEY(	RESULT, INIT+1*
>> LINE	CHECK+1*
>> LRDAT	HD4, HD4+1
>> LRDFN	HD4, HD4+1
>> LRDY	HELP+1, HD2+1*
>> LRSET	HELP2+1, SET*, SET+1
>> LRSUBS	SET+1*
>> N1	LAKUR1+3, INIT, INIT+2
>> N2	INIT*, INIT+2
>> PNM	HD1+1
>> RMK	COM, COM+1
T1	L+2!, HD2+1, INIT!, INIT+2
T1(	HD2+1, INIT, INIT+2
T2	L+2!, HELP+1, INIT!, INIT+3*
T2(	HD2+1, INIT, INIT+2
T3	LAKUR1+3, L+2!, RESULT, DELETE, DELETE+1, HELP+1, PAGE, STOP, EVAL+1, STORE* , HD2, INIT, INIT+1, INIT+2
TY	LAKUR1+3!, L+2!
TY(	RESULT, DELETE!, DELETE+1*, HELP+1, EVAL+1, STORE
TYPE	LAKUR1+3, L, L+2!, CHECK, CHECK+1, RESULT, DELETE, DELETE+1, HELP, PAGE , HD3*
U	CHECK, RESULT, DELETE+1, HELP2, SET, DONE+2, HD4+1
>> V	EVAL+1, STORE, HD4+1*
X	L+2!, RESULT, DELETE, DELETE+1, HELP2, HELP2+2, HELP, HELP+1, SET, SET+1 , HUH!, HUH+1!, DONE, DONE+1, DONE+2, HD4+1, COM+1, INIT+1, INIT+2*
>> XY	L, HELP+1
>> Y	RESULT, DELETE+1, SET+1, EVAL+1, STORE, COM+1, INIT+2

Customize PDF page

Package: Automated Lab Instruments

Routine: LAKUR1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SET
HD3
HELP
HD1	;W @IOF,!!,"Patient name: ",PNM,?45,"SSN: ",SSN Q
STOP
COM2
HUH
L
PAGE
INIT
HD2
HELP2
RESULT
EVAL
HD4
DONE
COM
CHECK
STORE
DELETE

Name	Line Occurrences
@(	CHECK+1
CHECK	L
COM2	COM
DONE	DONE+1
EVAL	STOP
HD1	LAKUR1+4, HELP2+2, EVAL, COM2, INIT+3
HD2	LAKUR1+4, HELP2+2, COM2, INIT+3
HD4	LAKUR1+4, COM2
HELP	HD3
HUH	SET+1
INIT	LAKUR1+3, PAGE, DONE+2
RESULT	LAKUR1+3
SET	DELETE+1
STORE	L+1