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

Package: Lab Service

Routine: LRUPACT


Information

LRUPACT ;AVAMC/REG - LAB ACC COUNTS BY TREATING SPECIALTY ;9/30/93 11:57 ;

Source Information

Source file <LRUPACT.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (B,F,L,M,S,V)^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: 1

Package Total Caller Graph
Lab Service 1 LRUPACT  

Entry Points

Name Comments DBIA/ICR reference
DEV
QUE
OUT
F
T
ACY
AC1
ACD
H
H1
H2
H4
END

External References

Name Field # of Occurrence
^DIC LRUPACT+2
B^LRU LRUPACT+3
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
BEG^LRUTL DEV
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,LRAA(1)," ACCESSION COUNTS BY TREATING SPECIALTY"
  • Line Location: LRUPACT+3
Function Call: WRITE
  • Prompt: !,T(6),?30,$J(^TMP($J,"B",S),5)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(LRT,9)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,N
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !?30,M,?55,$J(Z,9)
  • Line Location: F+0
Function Call: WRITE
  • Prompt: ?70,$J(V,9)
  • Line Location: F+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: F+1
Function Call: WRITE
  • Prompt: !?41,N,?70,$J(T(1),9)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !?70,"---------",!?25,"Sub-total for ",T(6),":",?70,$J(T(5),9),!,LR("%")
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS(",LRSTR,"-",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Specialty",?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,"Specialty",?55,"Test count",?70,"Cum count",!,LR("%")
  • Line Location: H4+0
Routine Call
  • DIC
  • Line Location:
    • LRUPACT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(45.7 - [#45.7] QUE+1
^LAB(60 - [#60] QUE+2, AC1+1
^LRO(68 - [#68] ACY, AC1, AC1+1, ACD
^TMP($J QUE!, QUE+1*, QUE+2*, QUE+4, QUE+6, F, T, AC1, AC1+1

Label References

Name Line Occurrences
@( QUE
AC1 ACY, ACD
END LRUPACT+2, LRUPACT+3, DEV, OUT
F QUE+6
H H1, H2, H4
H1 QUE+3, QUE+4, T, T+1
H4 QUE+5, QUE+6, F
OUT QUE+5, QUE+6
T QUE+4

Naked Globals

Name Field # of Occurrence
^( QUE+4, F, T, AC1*, AC1+1*
^(0 AC1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+1*, QUE+4*, QUE+6*
>> B QUE+1*, F*, T*, ACY*
>> C F*
DIC LRUPACT+2*!
DIC(0 LRUPACT+2*
>> I ACY*, AC1, AC1+1, ACD*
IO QUE
IOF OUT
IOSL QUE+4, QUE+6, F, T, T+1
IOST OUT, H
>> LR("%" F+1, T+1, H1, H4
>> LR("F" QUE+3*, H
>> LR("Q" QUE+4, QUE+5, QUE+6, F, F+1, T, T+1, H, H1, H2
, H4
>> LRAA LRUPACT+2*, ACY, AC1, AC1+1, ACD
>> LRAA(1 LRUPACT+2*, LRUPACT+3, H+1
>> LRAN ACY*, AC1, AC1+1, ACD*
>> LRLDT LRUPACT+4*, ACY
>> LRLST H+1
>> LRSA ACY*
>> LRSDT LRUPACT+4, ACY
>> LRSS LRUPACT+2*, AC1
>> LRSTR H+1
>> LRT QUE*, QUE+5, T*
>> M QUE+3*, QUE+4*, F*
>> N QUE+4*, QUE+6*, T*
>> P(9 AC1*, AC1+1
>> POP DEV
>> Q(2 QUE+3*, QUE+4*, QUE+5
>> S QUE+1*, QUE+4*, QUE+6*, F*, T, H2
>> T QUE+2*, QUE+6*, F, T*, AC1+1*
>> T(1 T*
>> T(3 LRUPACT+4*, QUE, ACY*, ACD*
>> T(4 LRUPACT+4*, ACY, ACD
>> T(5 QUE+4*, T*, T+1
>> T(6 QUE+4*, T+1
U LRUPACT+2, LRUPACT+4, AC1+1
>> V QUE+6*, F*
>> X AC1*
>> Y LRUPACT+2, LRUPACT+3
>> Y(0 LRUPACT+2, LRUPACT+4
>> Z F*
>> 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