Routine: LRWU3

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC YN^DICN
Lab Service	1	$$DTF^LRAFUNC1

Package

Total

Call Graph

VA Fileman

^%DT C^%DTC YN^DICN

Lab Service

$$DTF^LRAFUNC1

Package	Total	Caller Graph
Lab Service	29	LRACSUM LRARC1A LRARCR1A LRCAPR1A LRDCOM LRDIST LRDIST4 LRGEN LRGP1 LRGVP LRLIST LRLISTE LRLSTWRK LRLSTWRL LRMIHDR LRMIPC LRRD LRRP2 LRRP3 LRRS12 LRRSP LRSORC LRSORD LRTOCOST LRTT5 LRVR LRWRKINC LRWRKLST LRWRKS
IHS Changes To Lab	3	BLR2SORD BLRLRRD BLRLRRP2
Automated Lab Instruments	1	LA7SMU1
Phoenix	1	BZXMIHDR

Package

Total

Caller Graph

Lab Service

LRACSUM  LRARC1A  LRARCR1A  LRCAPR1A  LRDCOM  LRDIST  LRDIST4  LRGEN
LRGP1  LRGVP  LRLIST  LRLISTE  LRLSTWRK  LRLSTWRL  LRMIHDR  LRMIPC
LRRD  LRRP2  LRRP3  LRRS12  LRRSP  LRSORC  LRSORD  LRTOCOST
LRTT5  LRVR  LRWRKINC  LRWRKLST  LRWRKS

IHS Changes To Lab

BLR2SORD BLRLRRD BLRLRRP2

Automated Lab Instruments

LA7SMU1

Phoenix

BZXMIHDR

Name	Field # of Occurrence
^%DT	A1, A1+1, A2, A2+2, STAR+3, STAR+4, ADATE+2
C^%DTC	A1+4
YN^DICN	STAR+1
$$DTF^LRAFUNC1	A1+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: A1+0
Function Call: WRITE	Prompt: !,"Date to START with: TODAY//" Line Location: A1+0
Function Call: WRITE	Prompt: !,"Enter the most recent date you want." Line Location: A1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: A2+0
Function Call: WRITE	Prompt: !,"Date to END with: ",$S($D(LREDT):LREDT,1:"LAST"),"//" Line Location: A2+0
Function Call: WRITE	Prompt: !,"Enter the oldest date you want.",! Line Location: A2+0
Function Call: WRITE	Prompt: " (LAST)" Line Location: A2+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: W1+0
Function Call: WRITE	Prompt: !,"First Accession number: 1//" Line Location: W1+0
Function Call: WRITE	Prompt: !,"Enter the first Accession number to use" Line Location: W1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: W2+0
Function Call: WRITE	Prompt: !,"Last Accession number: LAST//" Line Location: W2+0
Function Call: WRITE	Prompt: !,"Enter the Last Accession to use." Line Location: W2+0
Function Call: WRITE	Prompt: !,"The last Accession number MUST be greater or equal to",!," the first Accession number" Line Location: W2+1
Function Call: WRITE	Prompt: !,"Do you wish to list by date (rather than by accession number)" Line Location: STAR+1
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o." Line Location: STAR+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADATE+1
Function Call: WRITE	Prompt: !,"Enter the date of the accession to be used. If the accession is done",!," on a yearly basis, enter the year, such as ",$E(DT,2,3),! Line Location: ADHELP+0

Name	Line Occurrences (* Changed, ! Killed)
^LRO(68 - [#68]	ADATE+3

Name	Line Occurrences
A1	A1, A1+1
A2	A2, A2+2
A3	A1+1, A2+1
ADATE	ADATE+2, ADHELP+1
ADHELP	ADATE+2
LRAN	W2+1
S3	STAR+3
W1	W1
W2	W2
W3	W1, W2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STAR+1, STAR+2, ADATE+3
%DT	A1, A1+1, A2, A2+2, A3!, STAR+3, STAR+4, S3!, ADATE+2*, ADATE+4!
%DT("A"	STAR+3, STAR+4
DT	STAR+5, ADHELP
DTIME	LRWU3+3*, A1, A2, W1, W2, ADATE+1
>> DTOUT	ADATE+1*
>> I	STAR+1*
>> LAST	STAR+4, STAR+5
>> LRAA	ADATE+3
>> LRAD	STAR+5, ADATE+4
>> LREDT	A1+2, A1+4, A2, A2+1, A2+2, A2+3
>> LREND	LRWU3+3, A1, A1+1, A2, A2+1, LRAN+2, W1, W2, STAR+1, STAR+2 , ADATE+1*
>> LRFAN	LRAN+1, W1+1, W2+1
>> LRLAN	LRAN+1, W2+1
>> LRSDT	LRWU3+3, A1+1, A1+4, A2+3, A3
LRSTAR	STAR+1!, STAR+3*, STAR+5
>> LRWDTL	STAR+5*
U	LRWU3+3*, A1+1, A2+1, W1, W2, ADATE+1, ADATE+3
>> X	A1, A1+1, A1+4, A2, A2+1, A2+2, A2+3, W1, W1+1, W2* , W2+1, ADATE+1*, ADATE+2
X1	A1+3~, A1+4*
X2	A1+3~, A1+4*
>> Y	A1+1, A2+2, A2+3, STAR+3, STAR+4, ADATE+1, ADATE+2, ADATE+3, ADATE+4

Customize PDF page

Package: Lab Service

Routine: LRWU3

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 34

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LRAN	;get first and last LRAN
STAR	;set LRSTAR if list by date instead of accession number
S3
A1
ADHELP
A3
A2
W3
W2
W1
ADATE	;Get an accession date