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

Package: Lab Service

Routine: LRBLJTS2


Information

LRBLJTS2 ;AVAMC/REG - TRANSFUSION STATISTICS ;9/14/89 08:54 ;

Source Information

Source file <LRBLJTS2.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 H^LRBLJTS1  

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 LRBLJTS1  

Entry Points

Name Comments DBIA/ICR reference
B
C
A
T
L
H
H1
H2
H3
H4

External References

Name Field # of Occurrence
H^LRBLJTS1 H, H2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Total cost of all components: ",$J(LRT,9,2)
  • Line Location: LRBLJTS2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLJTS2+7
Function Call: WRITE
  • Prompt: LR("%")
  • Condition for execution: A(3)
  • Line Location: LRBLJTS2+7
Function Call: WRITE
  • Prompt: !,A(2),?20,$J($P(A(1),"^",2),5),?50,$J($P(A(1),"^"),8,2)
  • Line Location: LRBLJTS2+7
Function Call: WRITE
  • Prompt: !,LR("%"),!,"Totals",?20,$J(S(1),5),?30,$J(S(2),5),?40,$J(S(3),5),?50,$J(S(4),8,2),?60,$J(S(5),8,2),?70,$J(S(6),8,2)
  • Line Location: LRBLJTS2+8
Function Call: WRITE
  • Prompt: !!?3,T,?30,$J($P(T(1),"^",2),5),?60,$J($P(T(1),"^"),8,2)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !?6,P,?40,$J($P(P(1),"^",2),5),?70,$J($P(P(1),"^"),8,2)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,T,?31,$J(Z(1),6),?43,$J(Z(1)/Z*100,4,1),?55,$J(K(1),9,2)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !?31,"------",?55,"---------",!?31,$J(Z,6),?55,$J(K,9,2),!,LR("%")
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,"Treating specialty",?31,"# units",?40,"% total units",?58,"Cost",!,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,C(1),":",!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Administrative",?20,"Component",?30,"Specialty",?40,"Physician",?50,"Component",?60,"Specialty",?70,"Physician",!,"Category",?23,"Units",?33,"Units",?43,"Units",?53,"Cost",?63,"Cost",?73,"Cost",!,LR("%")
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !,A(2)," (continued from ",LRQ-1,")"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !?6,T
  • Line Location: H4+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J LRBLJTS2+3, LRBLJTS2+5, LRBLJTS2+7, B, C+1, A, A+1*, T, T+1*, L
, L+1

Label References

Name Line Occurrences
A LRBLJTS2+5
B LRBLJTS2+7
C B
H LRBLJTS2+3, H1
H1 LRBLJTS2+3, L+1
H2 LRBLJTS2+4, LRBLJTS2+7, H3
H3 B, H4
H4 C+1
L LRBLJTS2+3
T A

Naked Globals

Name Field # of Occurrence
^( LRBLJTS2+3, LRBLJTS2+7, B, C+1, T, L+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLJTS2+3*, LRBLJTS2+5*, LRBLJTS2+6*, LRBLJTS2+7*, B, C+1, A, A+1, T, T+1
>> A(1 LRBLJTS2+7*, B, A*, A+1, T+1*
>> A(2 LRBLJTS2+7*, A*, A+1, T+1*, H3
>> A(3 LRBLJTS2+7*, H2+1*
>> B L+1*
>> C LRBLJTS2+3*, L, L+1
>> C(1 LRBLJTS2+3*, H1
IOSL LRBLJTS2+7, B, C+1, L+1, H1
>> K L*, L+2
>> K(1 L+1*
>> LR("%" LRBLJTS2+7, LRBLJTS2+8, L+2, H, H2+1
>> LR("Q" LRBLJTS2+3, LRBLJTS2+4, LRBLJTS2+7, B, C+1, L+1, L+2, H, H1, H2
, H3, H4
>> LRF( LRBLJTS2+7
>> LRQ H3
>> LRT LRBLJTS2+3*, LRBLJTS2+4, L+2*
>> P C*, C+1*, T*
>> P(1 C+1*
>> S( LRBLJTS2+6*
>> S(1 LRBLJTS2+8, B*
>> S(2 LRBLJTS2+8, C*
>> S(3 LRBLJTS2+8, C+1*
>> S(4 LRBLJTS2+8, B*
>> S(5 LRBLJTS2+8, C*
>> S(6 LRBLJTS2+8, C+1*
>> T B*, C+1, A*, T, T+1, L*, L+1*, H4
>> T(1 B*, C, T*, T+1
>> T(2 T*, T+1
>> X T*, L*, L+1*, H1*
>> X(1 T*
>> X(2 T*
>> Z L*, L+1, L+2
>> Z(1 L+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All