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

Package: Lab Service

Routine: LRLSTWRL


Information

LRLSTWRL ;SLC/CJS/DALISC/DRH - BRIEF ACCESSION LIST PART 2 ;2/6/91 07:41 ;

Source Information

Source file <LRLSTWRL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 3 ^LRWLHEAD  STAR^LRWU3  (DD,PT)^LRX  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRLIST  LRLISTE  LRLSTWRK  

Entry Points

Name Comments DBIA/ICR reference
EN ;from LRLSTWRK
CONTROL ;
INIT ;
LOOP1 ;
L1 ;
LOOP2 ;
HEAD1 ;
LOOP3 ;
L24 ;
L26 ;
LOOP4 ;
L27 ;
LRSTOP ;
L15
L30
END ;from LRLSTWRK
LRAA ;from LRLSTWRK
CHKDAT ;from LRLIST

External References

Name Field # of Occurrence
^%ZISC L15, END+6
^DIC LRAA+1
^DIR LRSTOP+5
^LRWLHEAD HEAD1+1
STAR^LRWU3 LRAA+1
DD^LRX LOOP2+6, LOOP2+8, L26+11
PT^LRX L26+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !,?20,"SHORT ",$P(^LRO(68,LRAA(LRAA),0),U,1)," ACCESSION"
  • Line Location: LOOP2+2
Function Call: WRITE
  • Prompt: !,"FROM DATE: "
  • Line Location: LOOP2+4
Function Call: WRITE
  • Prompt: Y,!,"TO DATE: "
  • Line Location: LOOP2+7
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: LOOP2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L26+14
Function Call: WRITE
  • Prompt: $P(LRACC," ",1)," ",$P(LRACC," ",3),?11," ",$E(LRLLOC,1,4),?18," ",$E(SSN,$L(SSN)-3,$L(SSN)),?23," ",$E(PNM,1,15)
  • Line Location: L26+16
Function Call: WRITE
  • Prompt: !
  • Line Location: L26+17
Function Call: WRITE
  • Prompt: ?11,"ORD:",LRCEN
  • Condition for execution: LRCEN
  • Line Location: L26+17
Function Call: WRITE
  • Prompt: ?20," ",LRCDT
  • Line Location: L26+17
Function Call: WRITE
  • Prompt: ?40
  • Line Location: L26+18
Function Call: WRITE
  • Prompt: "ORD:",LRCEN
  • Condition for execution: LRCEN
  • Line Location: L26+18
Function Call: WRITE
  • Prompt: " ",LRCDT
  • Line Location: L26+18
Function Call: WRITE
  • Prompt: !,?11,"UID: ",LRUID
  • Line Location: L26+19
Function Call: WRITE
  • Prompt: ?($S(LR(4)>1:7,1:5)*(LRTEST-LRPTO)+35+LR(3))
  • Line Location: LOOP4+3
Function Call: WRITE
  • Prompt: $P(^(LRTEST),U,3)
  • Line Location: LOOP4+4
Function Call: WRITE
  • Prompt: ?($S(LR(4)>1:7,1:5)*(LRNTPP+1)+34+LR(3))
  • Line Location: LOOP4+5
Function Call: WRITE
  • Prompt: " ",LRSPEC
  • Line Location: LOOP4+6
Function Call: WRITE
  • Prompt: " NC"
  • Line Location: LOOP4+8
Function Call: WRITE
  • Prompt: !,"ACC #"
  • Line Location: L27+3
Function Call: WRITE
  • Prompt: !,"Need more columns on the display than are available, Either use a wider",!,"device or try fewer accessions (fewer tests may be encountered, resulting in",!,"a narrower display)."
  • Line Location: L15+1
Function Call: WRITE
  • Prompt: !,$P("Key:^done = mult test comp.^ pen = mult test incomp.^spen = stat mult incomp.^number = result^.... = incomplete^S... = STAT incomp.^ | = not ordered",U,I)
  • Line Location: L30+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Accession area selected has a YEARLY Accession date, you didn't choose that."
  • Line Location: CHKDAT+1
Function Call: WRITE
  • Prompt: !,"Accession area selected has a DAILY Accession date, you didn't choose that."
  • Line Location: CHKDAT+2
Function Call: WRITE
  • Prompt: !,"Accession area selected has a MONTHLY Accession date, you didn't choose that."
  • Line Location: CHKDAT+3
Routine Call
  • DIC
  • Line Location:
    • LRAA+1
Routine Call
  • DIR
  • Line Location:
    • LRSTOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] L26+10
^LR - [#63] L26+2
^LRO(68 - [#68] LOOP2+2, L15, CHKDAT+1
^TMP("LR" END+2!
^TMP($J LOOP3+2, L24+2, L24+4, L26+3, LOOP4+4

Label References

Name Line Occurrences
CHKDAT LRAA+1
END CONTROL+5
HEAD1 LOOP2+9
INIT CONTROL+3
L1 LOOP1+1
L24 LOOP3+2
L26 L24+5
L27 HEAD1+3, LOOP4+7
L30 L27+2
LOOP1 CONTROL+4
LOOP2 L1+5
LOOP3 LOOP2+10
LOOP4 L26+20
LRSTOP L1+3, LOOP4+7

Naked Globals

Name Field # of Occurrence
^( L26+3, LOOP4+4, L15
^(0 L26+2, L26+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+3!
%H END+3!
A END+4!
AGE END+4!
B END+3!
C1 L30+1*, END+3!
>> CNT INIT+1*, L1+3, LRSTOP+1*
DFN L26+2*, END+4!
DIC END+4!, LRAA+2!
DIC("A" LRAA+1*
DIR LRSTOP+3!
DIR(0 LRSTOP+4*
>> DIRUT LRSTOP+6
DOB END+4!
>> DUOUT LRSTOP+6
I L26+14*, L27+2*, L30, L30+1, END+4!
IO L1+2
IO(0 L15
IOF CONTROL+2, L1+3, LOOP4+7, END+1
IOSL LOOP4+7
IOST CONTROL+2, LRSTOP+2, END+1
J L30+1*, END+4!, LRAA+1*, LRAA+2!
K END+4!
LAST LOOP2+3, LOOP2+8, END+3!
LR END+2!, LRAA+1, CHKDAT+1*
LR("TIME" INIT+2*, L1+4, LOOP4+7
LR(1 LOOP2+1, LRAA+1*, LRAA+2, CHKDAT+1*, CHKDAT+2*, CHKDAT+3*
LR(3 L26+17, LOOP4+3, LOOP4+5, L30+1
LR(4 L26+14, LOOP4+3, LOOP4+5, L30+1
LRAA LOOP2+1*, LOOP2+2, L15, END+2!, LRAA+1!
LRAA( LOOP2+2, L15, LRAA+1*
LRACC L24+1*, L24+2*, L24+4, L26+3, L26+16, LOOP4+4, END+2!
LRAD L1+4, LOOP4+7, L15, END+2!, CHKDAT+1, CHKDAT+2, CHKDAT+3
LRAN LOOP3+1*, LOOP3+2*, L24+2, L24+4, L26+3, LOOP4+4, L15, END+2!
LRCDT L26+11*, L26+12*, L26+17, L26+18, END+2!
LRCEN L26+6*, L26+17, L26+18, END+2!
LRDFN L24+3*, L24+4*, L26+2, L26+3, LOOP4+4, END+4!
LRDPF L26+2*, LOOP4+8, END+4!
LREDT END+3!
>> LREND CONTROL+1*, L1+1, L1+3, LOOP2+1, LOOP3+2, L24+3, L24+5, L26+1, L26+15, LOOP4+7
, L27+1, LRSTOP+6*, LRAA+2*
LRENT END+2!
LREX END+2!
LREXPD END+2!
LRFAN END+2!
LRIDT END+2!
LRLAN END+4!
LRLINE END+3!
LRLLOC L26+4*, L26+16, END+2!
LRNTP LOOP1+1, END+2!
LRNTPP LOOP1+1, LOOP4+1, LOOP4+5, L30+1, END+2!
LROK CONTROL+1*, END+5!
LRORD END+3!
LRPGC LOOP1+1*, LOOP3+2, L24+2, L24+4, L26+3, LOOP4+4, END+2!
LRPGM END+2!
LRPTO LOOP1+1*, LOOP4+1, LOOP4+3, L30+1, END+2!
LRSDT END+2!
LRSN END+2!
LRSPEC L26+10*, LOOP4+6, END+2!
LRSS END+2!
LRSS( LRAA+1*
LRSTAR LOOP2+3, LOOP2+5, END+2!, LRAA+1!
LRTEST L26+3*, LOOP4+1*, LOOP4+3, LOOP4+4, END+2!
LRTEST( L30+1
LRTS END+2!
LRTSTS END+3!
LRUID L26+9*, L26+19, END+3!
LRURG L26+5*, END+2!
LRWDTL END+3!
LRWRD END+2!
LRXX END+5!
LRY END+2!
OK END+5!
PNM L26+16, END+4!
POP END+3!
S2 END+4!
S3 END+4!
S4 END+4!
SEX END+4!
SSN L26+16, END+4!
T END+2!, CHKDAT+1*, CHKDAT+2, CHKDAT+3
T(2 L26+7*, L26+11, L26+12
T(5 L26+8*, LOOP4+8
T1 END+3!
T2 LRAA+2!
T4 END+5!
T5 END+4!
U LOOP2+2, L26+2, L26+4, L26+5, L26+6, L26+7, L26+8, L26+9, L26+10, LOOP4+4
, L30, LRAA+1, LRAA+2, CHKDAT+1
W2 LRAA+1!, LRAA+2!
W2( LRAA+1*
X L26+3*, L26+4, L26+5, L26+6, L26+7, L26+8, L26+9, L26+10, END+4!, LRAA+2
Y LOOP2+5*, LOOP2+7, LOOP2+8*, L26+11*, END+4!, LRAA+1, CHKDAT+1*, CHKDAT+2*, CHKDAT+3*
Z END+4!
ZTSK END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All