Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LAKUR1

Package: Automated Lab Instruments

Routine: LAKUR1


Information

LAKUR1 ; IHS/DIR/FJE - URINALYSIS Part 2 9/19/87 18:36 ;

Source Information

Source file <LAKUR1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 RW^LRDIED  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LAKUR  

Entry Points

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

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All