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

Package: Lab Service

Routine: LRBLJRB


Information

LRBLJRB ;AVAMC/REG - UNIT ISSUE BOOK ;2/18/93 09:30 ;

Source Information

Source file <LRBLJRB.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
X
T
W
HDR
H1
D
SUM
A
G
H
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"UNIT issue book"
  • Line Location: LRBLJRB+3
Function Call: WRITE
  • Prompt: !!,"Delete issue book entries over 31 days "
  • Line Location: LRBLJRB+4
Function Call: WRITE
  • Prompt: !!?15,"1. Print issue book entries by date",!?15,"2. Print issue book entries by patient"
  • Line Location: LRBLJRB+5
Function Call: READ
  • Formatting: !
  • Prompt: "Select 1 or 2: "
  • Variable: LRA
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," Enter a '1' or '2'.",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: H(10)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: H(10)
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,T,?12,$P(W,"^"),?28,M,?33,$P(G,"^",2),?37,V,?41,$E($P(G,"^",5),1,9),?51,$E($P(G,"^",6),1,19),?71,$E(L,1,8)
  • Line Location: X+2
Function Call: WRITE
  • Prompt: !,"TRANSFUSION SERVICE Unit issue book"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Mo/Da TIME",?12,"Unit ID",?27,"Prod",?32,"Insp",?37,"By",?41,"Issued to",?51,"Patient",?71,"Location"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: ?81,"Patient SSN"
  • Condition for execution: IOM>80
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?53,"SSN"
  • Condition for execution: IOM<81
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Deletion completed.",!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,"-----------------------------------------",!,"Totals",?36,$J(T,5)
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !?8,L,?20,$J(L(L),5)
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: " (",$P(^LAB(66,X,0),"^"),")"
  • Condition for execution: X
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: ?(IOM-15),$J(X*100/Y,4,1),"% returned"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,"Unit counts by location from ",LRSTR," to ",LRLST,!,LR("%")
  • Line Location: H+0
Info |  Source |  Entry Points |  Interaction Calls