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

Package: Lab Service

Routine: LRBLJT


Information

LRBLJT ;AVAMC/REG - BB ITEMIZED TRANSACTIONS ;2/18/93 09:32 ;

Source Information

Source file <LRBLJT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  ^DIC  ^DIE  
Lab Service 2 (B,D,F,L,M,S,V)^LRU  (BEG,END)^LRUTL  
Kernel 1 ^%ZIS  

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 LRBLRIT  

Entry Points

Name Comments DBIA/ICR reference
QUE
OUT
SET
WRT
C
DATE
L
U
FIN
H
H1
H2
H3
EDC
N
END

External References

Name Field # of Occurrence
^%DT LRBLJT+3
^%ZIS LRBLJT+4
^DIC N
^DIE N
B^LRU LRBLJT+5
D^LRU LRBLJT+3, DATE, FIN+1
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
BEG^LRUTL LRBLJT+7
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?18,"BLOOD PRODUCTS: ITEMIZED TRANSACTIONS LIST"
  • Line Location: LRBLJT+4
Function Call: WRITE
  • Prompt: !!,?69,"--------",!,"Total unit count (all components): ",Z,?50,"Total",?60,"cost",?69,$J(Z(1),8,2)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,A,?5,"= ",$S($D(^LAB(66,LRC(A),0)):$P(^(0),"^"),1:"???")
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"Supplier: ",S,!
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: !!,C(1)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: ?7,R(1)
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !?69,"--------",!?50,C(1),?60,"cost",?69,$J(Z(3),8,2)
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E
  • Line Location: L+0
Function Call: WRITE
  • Prompt: ?21,L
  • Line Location: L+0
Function Call: WRITE
  • Prompt: ?37,L(1),?51,$P(W,"^",2),?53,$E($P(W,"^",3),1)
  • Line Location: FIN+0
Function Call: WRITE
  • Prompt: ?55,Y,?71,$J(Z(6),6)
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: ?78,V
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: !,"BLOOD BANK INVOICES (from ",LRSTR," to ",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"COMPONENT",?12,"DATE",?21,"INVOICE#",?30,"COUNT",?37,"UNIT NO",?51,"TYPE",?58,"EXP DATE",?71,"AMOUNT",?78,"D",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!,"Supplier: ",S,!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,C(1)
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: ?10,R(1)
  • Line Location: H3+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDC+0
Routine Call
  • DIC
  • Line Location:
    • N
Routine Call
  • DIE
  • Line Location:
    • N
Routine Call
  • %ZIS
  • Line Location:
    • LRBLJT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(66 - [#66] QUE+3, C
^LRD(65 - [#65] QUE+1, SET+1
^TMP($J QUE!, OUT!, SET+1*, WRT, C, DATE, L, U

Label References

Name Line Occurrences
C WRT
DATE C
EDC LRBLJT+5, EDC
END LRBLJT+3, LRBLJT+5, LRBLJT+7, OUT
FIN U
H QUE+3, WRT, H1
H1 C, H2
H2 DATE, H3
H3 L, FIN
L DATE
N N
OUT QUE+2, QUE+3
SET QUE+1
U L
WRT QUE+2

Naked Globals

Name Field # of Occurrence
^( U
^(0 QUE+1, QUE+3, C
^(4 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT LRBLJT+3*
>> A QUE+3*, C*
>> A(1 QUE+3*, WRT*
>> B QUE+1*, DATE*
>> C C*, DATE, L, U
>> C(1 C*, DATE+1, H2
DA N*!
DIC N*!
DIC("A" N*
DIC(0 N*
DIE N*!
DQ N!
DR N*!
DTIME EDC
>> E L*
>> F U*, FIN
IO QUE
IOF LRBLJT+4
>> IOP LRBLJT+4*
IOSL QUE+3, WRT, C, DATE, L, FIN
IOST H
>> L L*, U
>> L(1 U*, FIN
>> LR("%" H+1, H+2
>> LR("F" WRT*, H
>> LR("Q" QUE+2, QUE+3, WRT, C, DATE, DATE+1, L, U, FIN, H
, H1, H2, H3
>> LRA QUE+1*, SET+1
>> LRB QUE+3*, H+1
>> LRC( QUE+3, C*
>> LRH(0 LRBLJT+3*
>> LRI SET*, SET+1
>> LRLDT LRBLJT+6*, QUE+1
>> LRLST H+1
>> LRSDT LRBLJT+6*, QUE+1*
>> LRSTR H+1
>> N SET*, SET+1
>> POP LRBLJT+7
>> R SET*, SET+1, DATE*, L, U
>> R(1 DATE*, H3
>> S WRT*, C, DATE, L, U, H1
U EDC, N
>> V FIN+1*
>> W QUE+1*, SET, SET+1, U*, FIN, FIN+1
>> X LRBLJT+3*, EDC*, N
>> Y LRBLJT+3, LRBLJT+5, DATE*, FIN+1*, N
>> Z QUE*, QUE+2, SET+1*
>> Z(1 QUE+2, WRT*, FIN+1*
>> Z(3 DATE*, DATE+1, FIN+1*
>> Z(5 DATE*, FIN*
>> Z(6 FIN*, FIN+1
>> ZTRTN LRBLJT+7*
>> ZTSK LRBLJT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All