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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LAKUR

Package: Automated Lab Instruments

Routine: LAKUR


Information

LAKUR ; IHS/DIR/FJE - KEYBOARD URINE COUNTER 8/16/90 10:39 ;

Source Information

Source file <LAKUR.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Automated Lab Instruments 4 SET^LAB  ^LABERR  ^LAKUR1  (,RMK)^LASET  
Kernel 1 ^%ZIS  
Lab Service 1 PT^LRX  
VA Fileman 1 YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
PR ;W !!,"Patine name: ",PNM," SSN: ",SSN," Acc: ",LRACC
QUIT
END
INT
OUT
IN
NEXT
WRITE
LW
TRAP
WLN
INT2
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
LA1
LA2
LA3

External References

Name Field # of Occurrence
^%ZIS LA1+3
YN^DICN PR+2
SET^LAB TRAP
^LABERR TRAP
^LAKUR1 LA2+1
^LASET LA1+2
RMK^LASET LA3+2
PT^LRX WLN+2

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: "//"
  • Timeout: DTIME
  • Variable: X
  • 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," HRCN: ",HRCN," Acc: ",LRACC
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,"Is this the correct patient:"
  • Line Location: PR+2
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
Routine Call
  • %ZIS
  • Line Location:
    • LA1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] LA1+3
^DD(63.04 INT2
^LA( IN, IN+1*
^LA("LOCK" LA1+2!
^LAB( OUT
^LAB("Q" OUT+1
^LAB(60 - [#60] INT2
^LAB(62.4 - [#62.4] LA1
^LAB(69.9 - [#69.9] LA1+2
^LAH( LA3+1*
^LR - [#63] WLN+2
^LRO(68 - [#68] WLN, WLN+1, NEXT
^TMP("LA" INT, INT+1*, INT2*
^TMP($J INT2+2*, QUIT+2!

Label References

Name Line Occurrences
@( TRAP
END WLN
IN IN
INT LA1+4
INT2 INT
LA2 LA2+1, LA3, LA3+3
LW WLN
NEXT LA2, WLN
PR PR+2
QUIT LA1, LA1+2, LA2
WLN LA2, WLN, PR+2, LW
WRITE LA3+3

Naked Globals

Name Field # of Occurrence
^( WLN+1, INT, INT2, IN, IN+1
^("DD" INT2*
^("LA" QUIT+2!
^("O" OUT*
^("Q" OUT+1*
^(0 WLN+1, WLN+2, INT
^(3 WLN+1
^(4 INT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PR+2*, QUIT!
>> %ZIS LA1+3*
A LA2*, QUIT!
ACK QUIT!
ASK QUIT!
BASE QUIT!
C QUIT!
CENUM QUIT!
CHK QUIT!
CNT IN*, IN+1, OUT*, QUIT!
CODE QUIT!
CONT QUIT!
CUP SAVE+1*, QUIT!
DA INT2*, QUIT!
DATYP QUIT!
DD INT2*, QUIT!
DFN WLN+2*, QUIT!
DONE QUIT!
DPF QUIT!
DT LA1+4
DTIME LA1+3*, WLN
DX QUIT!
DY QUIT!
ECHOALL QUIT!
ER QUIT!
FLAG LA2+1*, QUIT!
HDR QUIT!
HOME QUIT!
HRCN PR+1, QUIT+2!
HRD QUIT!
I LA3+1*, INT*, INT2, INT2+2, QUIT!
I1 INT2*, INT2+1, QUIT!
I3 INT*, INT2+2, QUIT!
I4 INT*, INT2+1, INT2+2, QUIT!
ID SAVE+1*, QUIT!
IDE SAVE+1*, QUIT!
IDENT QUIT!
IDT QUIT!
IN IN+1*, QUIT!
>> IOP LA1+3*
IOST(0 LA1+3
ISQN LA3, LA3+1, QUIT!
J INT*, INT2+1, INT2+2, QUIT!
K QUIT!
KEY INT!, QUIT!
KEY( INT2+1, INT2+2*
L QUIT!
LACT QUIT!
LAGEN LA3, QUIT!
LALCT QUIT!
LANM LA1*, QUIT!, TRAP
>> LAOVER LA1+4*
LINE QUIT!
LINK QUIT+1!
LOG QUIT+1!
LRAA LA1+4*, WLN, WLN+1, NEXT, QUIT+1!
LRACC WLN+1*, PR+1, QUIT+1!
LRAD LA1+4*, WLN, WLN+1, NEXT, QUIT+1!
LRAN LA1+4*, LA2, SAVE+1, WLN*, WLN+1, PR+2*, NEXT*, END*, QUIT+1!
LRDAT WLN+1*, QUIT+1!
LRDFN WLN+1*, WLN+2, QUIT+1!
LRDPF WLN+2*, QUIT+1!
LRDY QUIT+1!
LRIO QUIT+1!
LRODT WLN+1*, QUIT+1!
LROVER QUIT+1!
LRPGM QUIT+1!
LRSET QUIT+1!
LRSN WLN+1*, QUIT+1!
LRSUBS QUIT+1!
LRTIME QUIT+1!
LRTOP LA1+2*, QUIT+1!
LRTST QUIT+1!
LWL LA3+1, QUIT+1!
M QUIT+1!
METH QUIT+1!
NAK QUIT+1!
NC QUIT+1!
NOW QUIT+1!
OUT OUT, QUIT+1!
PNM PR+1, QUIT+1!
Q OUT+1*, QUIT+1!
RMK LA2*, LA3+2, QUIT+1!
RT QUIT+1!
SS LA1+3*, QUIT+1!
SSN QUIT+2!
STORE QUIT+2!
T QUIT+2!, TRAP*
T1 QUIT+2!
T2 QUIT+2!
TC QUIT+2!
TEMP QUIT+2!
TOTAL QUIT+2!
TOUT LA2*, IN*, IN+1*, QUIT+2!
TP QUIT+2!
TQ OUT, OUT+1, QUIT+2!
TRAP QUIT+2!
TRAY SAVE+1*, QUIT+2!
TRY QUIT+2!
TSK LA1*, LA1+2, LA3+1, IN, IN+1, OUT, QUIT+2!, TRAP
TV LA2!, QUIT+2!
TV( LA3+1
TY QUIT+2!
TYPE QUIT+2!
U LA1*, LA1+2, LA1+3, WLN+1, WLN+2, INT2
V QUIT+2!
WDT QUIT+2!
WL LA1+4, QUIT+2!
X WLN*, INT*, INT2, QUIT+2!
XY LA1+3*, QUIT+2!
Y LA2!, QUIT+2!
YY QUIT+2!
Z LA3+1*, WRITE, QUIT+2!
>> ZTQUEUED LA1
>> ZTREQ LA1*
ZTSK QUIT+2!

Marked Items

Name Field # of Occurrence
$T( LA1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All