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

Package: Lab Service

Routine: LRWU


Information

LRWU ;SLC/RWF/MILW/J - UTILITY FUNTIONS ; 12/28/88 11:04 ;

Source Information

Source file <LRWU.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  YN^DICN  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 67

Package Total Caller Graph
Lab Service 58 LR140P  LRAC1  LRAC2  LRAC2A  LRACC  LRACF  LRACKL  LRACM  
LRACM3  LRARCHIV  LRDCOM  LRDPA1  LRDRAW  LRFAST  LRFLAG  LRGEN  
LRGP1  LRGVP  LRHY4X  LRHYBC1  LRHYF4  LRLIST  LRLISTE  LRMIBL  
LRMIHDR  LRMINEW2  LRMIPC  LRMIPLOG  LRMIPSZ  LRMIU4  LRMIVER1  LROE1  
LROPT  LRORD  LRORD1  LROS  LROW  LROW5  LRPHSET  LRPHSET1  
LRPHSET2  LRQCLOG  LRRD  LRRP2  LRRP3  LRRS  LRRS12  LRRSP  
LRSLOW  LRSTUF1  LRVER  LRVR  LRWLST11  LRWLST13  LRWRKINC  LRWRKLST  
LRWRKS  LRWU4  
Automated Lab Instruments 4 LAKDIFF  LAMIAUT0  LAMIAUT7  LAMIVTL0  
IHS Changes To Lab 4 BLRLROS  BLRLRRD  BLRLRRP2  BLRWU4  
Phoenix 1 BZXMIHDR  

Entry Points

Name Comments DBIA/ICR reference
A ;
LOC ;get pt. location, called by LRPDA1
ADATE ;
COLTY ;N DIR("A"),DIR(0)
QUIT
IOX
LOCE
DPT ;
DATE ;
LOCA ;
LOCHELP
IO ;outputs ZTRTN
ASK
INACT
Z ;;set up 0th nodes for globals

External References

Name Field # of Occurrence
^%DT DATE+3
^%ZIS IOX
^%ZISC IO+1
^%ZTLOAD IOX+1
^DIC ASK+2, LOCA+3, DPT+1
YN^DICN INACT+3, LOCA+5
^DIR COLTY+8

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"PATIENT LOCATION: ",LRLLOC,$S(LRLLOC]"":"// ",1:"")
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " Enter 2 - 30 alpha-numeric name"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," Location is inactive, Not allowed."
  • Line Location: INACT+1
Function Call: WRITE
  • Prompt: " You must select a standard location."
  • Line Location: INACT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DATE+2
Function Call: READ
  • Prompt: "Select HOSPITAL LOCATION NAME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: LOCA+2
Function Call: WRITE
  • Prompt: !,"Enter a location of 1 to 20 characters."
  • Line Location: LOCHELP+0
Routine Call
  • DIC
  • Line Location:
    • ASK+2
    • LOCA+3
    • DPT+1
Routine Call
  • DIR
  • Line Location:
    • COLTY+8
Routine Call
  • %ZIS
  • Line Location:
    • IOX

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] LOC+4
^DIC(42 - [#42] DPT+2
^LAB(69.9 - [#69.9] INACT+2, COLTY+7
^LR - [#63] ASK+4*, ASK+9*, INACT+3*
^LRO(68 - [#68] ADATE+2
^SC - [#44] INACT, LOCA+3, DPT+2, DPT+3

Label References

Name Line Occurrences
@( IOX+2
ASK LOC+6
DATE DATE+3, ADATE+1
DPT LOC+6
IOX IO+1
LOC ASK, ASK+2, INACT+1, INACT+2, INACT+3
LOCA LOCA+5, LOCHELP
LOCE LOCA+2
LOCHELP LOCA+2, LOCA+4
QUIT ASK

Naked Globals

Name Field # of Occurrence
^( LOC+6, INACT+3*
^("I" INACT
^("OOS" DPT+2
^(0 Z+1*, Z+2*, LOCA+3, DPT+3
^(44 DPT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOC+3~, INACT+3*, INACT+4!, QUIT!, ADATE+2*, LOCA+5*
%DT DATE+3*, DATE+4!, ADATE+1!*
%DT("A" DATE+2, ADATE+1*
%DT("B" DATE+2, DATE+3
>> %ZIS IOX*
>> B Z+3*
>> DFN LOC+6
DIC ASK+1!, ASK+2*!, INACT+4!, QUIT!, LOCA+1!, LOCA+2*, LOCA+3!, LOCE!, DPT+1!*
DIC("S" ASK+1*, LOCA+2*
DIC(0 ASK+2*, LOCA+2*, DPT+1*
>> DIR("A" COLTY+5*
>> DIR("B" COLTY+5*
>> DIR(0 COLTY+5*, COLTY+7*
>> DIRUT COLTY+8
DT INACT+1
DTIME ASK, DATE+2, LOCA+2
DTOUT DATE+1!, DATE+2*, COLTY+8
DUOUT DATE+1!, DATE+2*
DUZ(2 COLTY+7
>> I1 A+1*
IO("Q" IO+1!, IOX+1!
>> LRAA ADATE+2
>> LRAD ADATE+3*
>> LRCAPLOC LOC+2*, LOC+5*, ASK+3*, ASK+9
>> LRDFN ASK+4, ASK+9, INACT+3
>> LRDPF LOC+4*, LOC+6
>> LREND LOC+5*, QUIT*, DATE+1*, DATE+2*, ADATE+3*, IOX*, COLTY+5*, COLTY+8*
LRIA INACT!*, INACT+1, INACT+4!, QUIT!
>> LRLABKY INACT+2
>> LRLLOC LOC+2*, LOC+6*, LOC+10*, ASK, ASK+2, ASK+3*, ASK+4, ASK+7*, INACT+3*, LOCA+2*
, LOCA+3*, DPT+1, DPT+3*
>> LRLWC COLTY+1*, COLTY+2, COLTY+5, COLTY+8*
>> LROLLOC LOC+2*, ASK+2*, ASK+3*, LOCA+3*, DPT+3*
>> LRORDRR LOC+1, COLTY+1
LRRA INACT!*, INACT+1, INACT+4!
LRRE QUIT!
>> LRRSITE("RSITE" LOC+2
>> LRTREA LOC+2*, DPT+3*
LRZ1 Z+1, Z+4!
LRZ3 Z+2, Z+4!
>> LRZB Z+3
LRZI1 Z+2*, Z+4!
LRZI2 Z+2*, Z+4!
LRZO Z+1, Z+2, Z+3, Z+4!
>> POP IOX
U LOC+2, ASK, ASK+3, INACT, ADATE+2, LOCA+2, LOCA+3, DPT+2, DPT+3, COLTY+7
>> X ASK*, ASK+2*, INACT+3, DATE+2*, DATE+3*, LOCA+2*, LOCA+4, DPT+1*, DPT+2*, DPT+3
, A+1, COLTY+8
>> X1 A+1*, A+2*
>> Y ASK+3, INACT, INACT+2, INACT+3, DATE+2*, DATE+3, ADATE+2*, ADATE+3, LOCA+3, LOCA+5
, DPT+1, DPT+2, COLTY+8
>> Y(0 ASK+3
ZTIO IOX+1!
ZTRTN IO+1!, IOX+2
ZTSAVE IO+1!
ZTSAVE("L*" IOX+1*
ZTSK IOX+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All