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

Package: Lab Service

Routine: LRKUR1


Information

LRKUR1 ;SLC/RWF - URINALYSIS Part 2 ; 9/19/87 18:36 ; [ 10/14/90 9:00 PM ]

Source Information

Source file <LRKUR1.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
Lab Service 1 LRKUR  

Entry Points

Name Comments DBIA/ICR reference
SET
HD3
HELP
HD1
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: LRKUR1+2
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,*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: *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: *7," ??"
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !?2,^UTILITY("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+0
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
^UTILITY("LA" LRKUR1+2, RESULT, DELETE+1, EVAL+1, STORE, INIT+2
^UTILITY($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 LRKUR1+3, HELP2+2, EVAL, COM2, INIT+3
HD2 LRKUR1+3, HELP2+2, COM2, INIT+3
HD4 LRKUR1+3, COM2
HELP HD3
HUH SET+1
INIT LRKUR1+2, PAGE, DONE+2
RESULT LRKUR1+2
SET DELETE+1
STORE L+1

Naked Globals

Name Field # of Occurrence
^( LRKUR1+2, HELP+1, EVAL+1, STORE, HD4+1, INIT+1, INIT+2
^(3 HELP2
^(4 LRKUR1+2, 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
>> I HELP+1*, SET+1*, EVAL+1*, STORE*, HD2+1*, HD4+1*, INIT+1*, INIT+2*, INIT+3
>> I1 HELP+1*
>> I3 LRKUR1+2*
>> I4 LRKUR1+2*
IOF HD1
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 LRKUR1+2*, INIT*, INIT+2
>> N2 INIT*, INIT+2
>> PNM HD1
>> 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 LRKUR1+2*, L+2!, RESULT, DELETE, DELETE+1, HELP+1, PAGE*, STOP*, EVAL+1*, STORE*
, HD2, INIT, INIT+1, INIT+2
TY LRKUR1+2!, L+2!
TY( RESULT, DELETE!, DELETE+1*, HELP+1, EVAL+1, STORE
TYPE LRKUR1+2*, 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