Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LAKUR1

Package: Automated Lab Instruments

Routine: LAKUR1


Information

LAKUR1 ;SLC/RWF - URINALYSIS Part 2 ; 9/19/87 18:36 ;

Source Information

Source file <LAKUR1.m>

Entry Points

Name Comments DBIA/ICR reference
L
CHECK
RESULT
DELETE
HELP2
HELP
SET
HUH
PAGE
STOP
DONE
EVAL
STORE
HD1
HD2
HD3
HD4
COM
COM2
INIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LAKUR1+2
Function Call: READ
  • Variable: TYPE#1
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,?40,*13,"URINE: "
  • Line Location: L+0
Function Call: READ
  • Prompt: " "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RESULT+0
Function Call: READ
  • Variable: X
  • Timeout: 2
  • 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
  • Formatting: !
  • Prompt: "Press return to continue "
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP2+2
Function Call: READ
  • Variable: X
  • Timeout: 2
  • 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
  • Formatting: !
  • Prompt: "ARE YOU FINISHED WITH THIS PATIENT (Y/N) Y//"
  • Variable: X
  • Timeout: DTIME
  • 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,"SSN: ",SSN
  • 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
  • Variable: RMK
  • Timeout: DTIME
  • Line Location: COM+0
Function Call: WRITE
  • Prompt: !,"Comment: ",RMK,!
  • Line Location: COM+0
Info |  Source |  Entry Points |  Interaction Calls