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

Package: Lab Service

Routine: LRUPACA


Information

LRUPACA ;AVAMC/REG - LAB ACC COUNTS BY LOC ;2/18/93 13:09 ;

Source Information

Source file <LRUPACA.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (B,D,F,L,M,S,V,WAIT)^LRU  (BEG,END)^LRUTL  
VA FileMan 1 ^DIC  

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 2 LR COUNT ACC TESTS  LRBLRTC  
Interim Management Support 1 ECTW LR COUNT ACC TESTS  

Entry Points

Name Comments DBIA/ICR reference
DEV
QUE
OUT
T
B
ACY
ACY1
AC1
ACD
H
H1
H2
H3
END

External References

Name Field # of Occurrence
^DIC LRUPACA+10
B^LRU LRUPACA+12
D^LRU QUE+1, H+1, H+2
F^LRU H+3
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
WAIT^LRU QUE
BEG^LRUTL DEV
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRAA(1)," ACCESSION COUNTS"
  • Line Location: LRUPACA+12
Function Call: WRITE
  • Prompt: !,S,?30,$J(^TMP($J,"B",S),5)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?41,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T),?70,$J(T(1),9)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !?30,S,?55,$J(Z,9)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?70,$J(V,9)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS (",LRSTR,"-",LRLST,")",!,"INCLUSIVE DATES/TIMES WITH DATA: ",LRINCA
  • Line Location: H+3
Function Call: WRITE
  • Prompt: " TO ",LRINCB
  • Condition for execution: LRINCB]""
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Location",?26,"# Accessions",?69,"Test count",!,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,S
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Test",?35,"Location",?55,"Test count",?70,"Cum count",!,LR("%")
  • Line Location: H3+0
Routine Call
  • DIC
  • Line Location:
    • LRUPACA+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] QUE+4, T
^LAB(62.3 - [#62.3] AC1
^LR - [#63] AC1
^LRO(68 - [#68] LRUPACA+15, LRUPACA+16, ACY, ACY1, ACY1+3, AC1, AC1+2, ACD
^TMP($J QUE!, QUE+1, QUE+2, QUE+4, T, B, ACY*, ACY1+4*, AC1+1, AC1+2
, ACD*, ACD+1*

Label References

Name Line Occurrences
@( QUE
AC1 ACY1+3, ACD
ACY1 ACY
B QUE+4
END LRUPACA+10, LRUPACA+12, DEV, OUT
H H1, H2, H3
H1 QUE+2, T
H3 QUE+3, QUE+4, B
OUT QUE+3
T QUE+2

Naked Globals

Name Field # of Occurrence
^( QUE+2, AC1+1*, AC1+2*
^("E" QUE+1
^("S" QUE+1
^(0 QUE+4, T, AC1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+2*, B*
>> B ACY1*, ACY1+1, ACY1+2, ACY1+3
DIC LRUPACA+10*!
DIC("S" LRUPACA+10*
DIC(0 LRUPACA+10*
>> I ACY*, ACY1, ACY1+3, AC1, AC1+2, ACD*
IO QUE
IOSL QUE+2, QUE+4, T, B
IOST QUE, H
>> LR("%" H1, H3
>> LR("F" QUE+2*, H
>> LR("Q" QUE+2, QUE+3, QUE+4, T, B, H, H1, H2, H3
>> LRAA LRUPACA+10*, LRUPACA+15, LRUPACA+16, ACY, ACY1, ACY1+3, AC1, AC1+2, ACD
>> LRAA(1 LRUPACA+10*, LRUPACA+12, H+3
>> LRAN ACY1+3*, AC1, AC1+2, ACD*
>> LRB QUE+1*, ACY*
>> LRE QUE+1*, ACY1*, ACY1+3*, ACY1+4, ACD*, ACD+1
LRINCA LRUPACA+7~, LRUPACA+8*, ACY1+1*, H+1*, H+3
LRINCB LRUPACA+7~, LRUPACA+8*, ACY1+2*, H+2*, H+3
>> LRLDT LRUPACA+13*, LRUPACA+16, ACY1
>> LRLLOC AC1*, AC1+1, AC1+2
>> LRLST H+3
>> LRSA ACY*, ACY1
>> LRSDT LRUPACA+15, ACY
>> LRSS LRUPACA+10*
>> LRSTR H+3
>> POP DEV
>> Q(2 QUE+2*, QUE+3
>> S QUE+2*, T, B*, H2
T LRUPACA+11!, QUE+4*, T*, B, AC1+2*
T(1 T*
T(2 LRUPACA+11*, QUE+3, T*
T(3 LRUPACA+15*, QUE, ACY*, ACD*
T(4 LRUPACA+16*, ACY, ACD
U LRUPACA+10, LRUPACA+15, LRUPACA+16, AC1
>> V B*
>> X AC1*
>> Y LRUPACA+10, LRUPACA+12, QUE+1*, H+1*, H+2*
>> Y(0 LRUPACA+10
>> Z B*
>> Z(4 LRUPACA+11*
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All