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

Package: Lab Service

Routine: LRBLJT


Information

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

Source Information

Source file <LRBLJT.m>

Entry Points

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

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