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

Package: Automated Lab Instruments

Routine: LAKUR


Information

LAKUR ;SLC/RWF - KEYBOARD URINE COUNTER ;8/16/90 10:39 ;

Source Information

Source file <LAKUR.m>

Entry Points

Name Comments DBIA/ICR reference
LA1
LA2
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
LA3
WLN
PR
LW
NEXT
END
INT
INT2
IN
OUT
WRITE
QUIT
TRAP

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: "//"
  • Variable: X
  • Timeout: DTIME
  • 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," SSN: ",SSN," Acc: ",LRACC
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !,"Is this the correct patient:"
  • Line Location: PR+1
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
Info |  Source |  Entry Points |  Interaction Calls