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

Package: Lab Service

Routine: LRBLJSH


Information

LRBLJSH ;AVAMC/REG - BB INVENTORY SHIPMENTS ;2/18/93 09:31 ;

Source Information

Source file <LRBLJSH.m>

Entry Points

Name Comments DBIA/ICR reference
I
A
B
C
D
QUE
SET
WRT
ABO
W
H
H1
H2
H3
CK
E
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"SHIPPING INVOICE must be an entry in the LAB LETTER FILE (65.9)."
  • Line Location: LRBLJSH+3
Function Call: WRITE
  • Prompt: @IOF,?18,"INVOICE FOR SHIPMENT OF BLOOD COMPONENTS"
  • Line Location: LRBLJSH+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter SHIPPING INVOICE#: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: $C(7)," Enter invoice # (2-10 characters)"
  • Line Location: I+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter name to appear on invoice: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7)," Must have a name. Enter '^' to quit"
  • Line Location: A+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter address line 1: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: B+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter address line 2: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: C+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter address line 3: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,LR("%"),!,"Total unit count (all components): ",Z
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Component: "
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: C(1)
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: " (",C(20),")"
  • Condition for execution: C(20)]""
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: D:$Y>(IOSL-6)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$J(V,5)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: " Pos/Incomplete Tests"
  • Condition for execution: $P($G(^LRD(65,+$P(W,"^",2),8)),"^",2)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?28,$J(A,2),?32,R,?38,I,?53,Y
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?25,LR(X)
  • Condition for execution: LR(X)]""
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?28,"ABO",?32,"Rh",?38,"UNIT ID",?53,"Expiration date",!,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"Component: ",C(1)
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: " (",C(20),")"
  • Condition for execution: C(20)]""
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,LR("%"),!!!
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,$C(7),"Entry must be less than 31 characters with no control characters."
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: E+0
Info |  Source |  Entry Points |  Interaction Calls