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 ; 9/27/19 3:32pm

Source Information

Source file <LRWU.m>

Call Graph

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

Package Total Caller Graph
Lab Service 61 LR140P  LRAC1  LRAC2  LRAC2A  LRACC  LRACF  LRACKL  LRACM  
LRACM3  LRAPBK  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  LRRP  LRRP2  LRRP3  LRRS  
LRRS12  LRRSP  LRSLOW  LRSTUF1  LRVER  LRVR  LRVR0  LRWLST11  
LRWLST13  LRWRKINC  LRWRKLST  LRWRKS  LRWU4  
Automated Lab Instruments 4 LAKDIFF  LAMIAUT0  LAMIAUT7  LAMIVTL0  

Entry Points

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

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+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+2
Function Call: READ
  • Formatting: !
  • Prompt: "Select HOSPITAL LOCATION NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOCA+2
Function Call: WRITE
  • Prompt: !,"Enter a location of 1 to 20 characters."
  • Line Location: LOCHELP+0
Function Call: WRITE
  • Prompt: !,"Only one minor header allowed if vertical."
  • Line Location: TODIT+4
Function Call: WRITE
  • Prompt: !,"No other minor headers may be defined after a vertical format minor header",!,"is defined."
  • Line Location: TODIT+8
Routine Call
  • DIC
  • Line Location:
    • ASK+2
    • LOCA+3
    • DPT+1
Routine Call
  • DIR
  • Line Location:
    • COLTY+5
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(64.5 - [#64.5] TODIT+3, TODIT+6, TODIT+7
^LAB(69.9 - [#69.9] INACT+2, COLTY+4
^LR - [#63] LOC+7, ASK+4*, ASK+6*, 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, LOC+7
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, LOC+7, 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*
>> DA TODIT+4, TODIT+7
>> DA(1 TODIT+3, TODIT+6, TODIT+7
>> 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+3*
>> DIR("B" COLTY+3*
>> DIR(0 COLTY+3*, COLTY+4*
>> DIRUT COLTY+5
DT INACT+1
DTIME ASK, DATE+2, LOCA+2
DTOUT DATE+1!, DATE+2*, COLTY+5
DUOUT DATE+1!, DATE+2*
DUZ(2 COLTY+4
>> I1 A+1*
IO("Q" IO+1!, IOX+1!
>> LRAA ADATE+2
>> LRAD ADATE+3*
>> LRCAPLOC LOC+2*, LOC+5*, ASK+3*, ASK+6
>> LRDFN LOC+7, ASK+4, ASK+6, INACT+3
>> LRDPF LOC+4*, LOC+6
>> LREND LOC+5*, QUIT*, DATE+1*, DATE+2*, ADATE+3*, IOX*, COLTY+3*, COLTY+5*
LRIA INACT!*, INACT+1, INACT+4!, QUIT!
LRIEN TODIT+1~, TODIT+3*, TODIT+4, TODIT+6*, TODIT+7
>> LRLABKY INACT+2
>> LRLLOC LOC+2*, LOC+6*, LOC+7*, LOC+8*, ASK, ASK+2, ASK+3*, ASK+4, ASK+5*, INACT+3*
, LOCA+2*, LOCA+3*, DPT+1, DPT+3*
>> LRLWC COLTY+1*, COLTY+2, COLTY+3, COLTY+5*
>> 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+4
, TODIT+7
X ASK*, ASK+2*, INACT+3, DATE+2*, DATE+3*, LOCA+2*, LOCA+4, DPT+1*, DPT+2*, DPT+3
, A+1, COLTY+5, TODIT+2, TODIT+3, TODIT+4!, TODIT+5, TODIT+6, TODIT+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+5
>> 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