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

Package: Lab Service

Routine: LRBLJSH


Information

LRBLJSH ; IHS/DIR/FJE - BB INVENTORY SHIPMENTS 2/18/93 09:31 ;

Source Information

Source file <LRBLJSH.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 2 (B,D,F,L,M,S,V)^LRU  (BEG,END)^LRUTL  
VA Fileman 2 ^DIWP  ^DIWW  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLISH  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS LRBLJSH+5
^DIWP E+1
^DIWW E+2
B^LRU LRBLJSH+6
D^LRU W
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
BEG^LRUTL D+1
END^LRUTL QUE+3

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+4
Function Call: WRITE
  • Prompt: @IOF,?18,"INVOICE FOR SHIPMENT OF BLOOD COMPONENTS"
  • Line Location: LRBLJSH+5
Function Call: READ
  • Prompt: "Enter SHIPPING INVOICE#: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: I+0
Function Call: WRITE
  • Prompt: $C(7)," Enter invoice # (2-10 characters)"
  • Line Location: I+0
Function Call: READ
  • Prompt: "Enter name to appear on invoice: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7)," Must have a name. Enter '^' to quit"
  • Line Location: A+0
Function Call: READ
  • Prompt: "Enter address line 1: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: B+0
Function Call: READ
  • Prompt: "Enter address line 2: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: C+0
Function Call: READ
  • Prompt: "Enter address line 3: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • LRBLJSH+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 I
^LAB(65.9 - [#65.9] LRBLJSH+4, E, E+1
^LAB(66 - [#66] WRT
^LRD(65 - [#65] QUE+1, W
^TMP($J QUE!, QUE+2!, SET*, WRT, ABO, E!

Label References

Name Line Occurrences
A A
ABO WRT
B B
C C
CK A, B, C, D
D D
E QUE+3
END LRBLJSH+4, LRBLJSH+6, I, A, B, C, D, D+1, QUE+3
H QUE+2, H1, H3, E
H1 WRT, H2
H2 W
H3 E+1
I I
SET QUE+1
W ABO
WRT QUE+2

Naked Globals

Name Field # of Occurrence
^( ABO
^(0 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A ABO*, W
>> B QUE+1*, ABO*
>> C WRT*, ABO
>> C(1 WRT*, H2
>> C(20 WRT*, H2
>> DIWF E*
>> DIWL E*
>> DIWR E*
DTIME LRBLJSH+4*, I, A, B, C, D
>> E ABO*
>> F ABO*
>> I ABO*, W
IO QUE
IOF LRBLJSH+5
IOM E
>> IOP LRBLJSH+5*
IOSL QUE+2, WRT, W, E, E+1
IOST H
>> LR A*, H+1
>> LR( H+1
>> LR("%" QUE+2, H1, H3, E
>> LR("F" WRT*, H
>> LR("Q" QUE+2, WRT, ABO, W, H, H1, H2, H3, E, E+1
, E+2
>> LR(1 B*
>> LR(2 C*
>> LR(3 D*
>> LRA QUE+1*, SET, E+1*
>> LRB I*, QUE+1, H+1
>> LRI LRBLJSH+4*, E, E+1
>> LRLDT LRBLJSH+6*, QUE+1
>> LRSDT LRBLJSH+6*, QUE+1*
>> LRZ E+1*, E+2
>> POP D+1
>> R ABO*, W
U I, A, B, C, D, E
>> V WRT*, W*
>> W QUE+1*, SET, ABO*, W
X I*, A*, B*, C*, D*, H+1*, CK!, E*, E+1*
>> Y LRBLJSH+6, W*
>> Z QUE*, QUE+2, W*
>> ZTRTN D+1*
>> ZTSK D+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All