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 |  Local Variables |  All
Print Page as PDF
Routine: LRWU3

Package: Lab Service

Routine: LRWU3


Information

LRWU3 ;SLC/RWF - COLLECT STARTING AND ENDING DATES FOR REPORTS ; 7/23/87 14:17 ;

Source Information

Source file <LRWU3.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 34

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  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All