Routine: LRWU

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

Package

Total

Call Graph

VA Fileman

^%DT ^DIC YN^DICN ^DIR

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

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

Package

Total

Caller Graph

Lab Service

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

LAKDIFF LAMIAUT0 LAMIAUT7 LAMIVTL0

IHS Changes To Lab

BLRLROS BLRLRRD BLRLRRP2 BLRWU4

Phoenix

BZXMIHDR

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

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

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

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

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!

Customize PDF page

Package: Lab Service

Routine: LRWU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 67

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: