Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls