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

Package: Lab Service

Routine: LRBLJDP


Information

LRBLJDP ;AVAMC/REG - PRINT UNIT DISPOSITION ;10/11/95 07:47 ;

Source Information

Source file <LRBLJDP.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 3 B^LRBLU  (DT,F,L,M,S,V)^LRU  (,BEG,END)^LRUTL  

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 LRBLIDU  

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
T
W
A
S
HDR
H
H1
H2
SEL
END

External References

Name Field # of Occurrence
B^LRBLU ASK+1
DT^LRU T, W+1
F^LRU HDR+1
L^LRU QUE
M^LRU HDR
S^LRU QUE
V^LRU END
^LRUTL LRBLJDP+3
BEG^LRUTL ASK+2
END^LRUTL QUE+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select DISPOSITION: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,LRC(1)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,$P(^LAB(66,LRL,0),"^"),?41,$J(LRM(LRL),5)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: ?30,$P(LRE,"^",2)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?30,$E($P(^LRD(65,LRI,4),"^",5),1,30)
  • Condition for execution: LRD="S"!(LRD="R")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?61,$J($P(LRE,"^",7),2),$S(R="POS":"+",R="NEG":"-",1:"")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?65,Y
  • Condition for execution: LRD'="S"&(LRD'="R")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?69,$P(LRE,"^",13)
  • Condition for execution: LRD="S"!(LRD="R")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?3,LRF
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,"BLOOD BANK ",LRAA(4)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"UNIT DISPOSITION: ",LRD(1)," (from ",LRSTR," to ",LRLST,")"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"UNIT ID",?15,"DISP DATE",?30,$S(LRD="MO":"MODIFY TO",LRD="S"!(LRD="R"):"SHIPPED TO",1:"SOURCE")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: ?65,"DATE RECEIVED"
  • Condition for execution: LRD'="MO" ?58,"ABO/Rh" W:LRD'="S"&(LRD'="R")&(LRD'="MO")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?67,"UNIT ID"
  • Condition for execution: LRD="MO"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?69,"INVOICE"
  • Condition for execution: LRD="S"!(LRD="R")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"COMPONENT: ",LRC(1),!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRA,?15,LRY," (Continued from pg ",LRQ-1,")",!
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!,"Select from:"
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !?3,X,?6,"for",?10,LR(X)
  • Line Location: SEL+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 LRBLJDP+3
^LAB(66 - [#66] QUE+2, QUE+3, A
^LRD(65 - [#65] QUE+1, T, W, W+2, W+3, S!, S+1
^TMP($J QUE!, QUE+2, T, S+1*

Label References

Name Line Occurrences
A W+2
ASK ASK
END LRBLJDP+3, ASK, ASK+1, ASK+2, QUE+4
H QUE, QUE+2, H1
H1 W, H2
H2 W+2, W+3
HDR QUE+3, H
S QUE+1
SEL ASK
T QUE+2
W T

Naked Globals

Name Field # of Occurrence
^( T, W+2, W+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+1*, SEL*
DTIME ASK
DUZ(2 S+1
IO QUE
IOSL QUE+2, QUE+3, W, W+2, W+3
IOST HDR
LR LRBLJDP+3!
LR( LRBLJDP+3*, ASK, ASK+1, SEL
LR("%" H+1
LR("F" QUE*, HDR
LR("Q" QUE+2, QUE+3, T, W, W+2, W+3, HDR, H, H1, H2
LR("T" LRBLJDP+4!
>> LRA T*, W, H2
>> LRAA(4 HDR+1
>> LRB T*
>> LRC QUE+2*, T
>> LRC(1 QUE+2*, H1
>> LRD ASK+1*, QUE+3, W, W+1, W+2, S+1, H, H+1
>> LRD(1 ASK+1*, HDR+2
>> LRE T*, W, W+1
>> LRF W+2*, W+3*, A
>> LRG W+2*, A
>> LRI QUE+1*, T*, W, W+2, W+3, S, S+1
>> LRL QUE+3*, W+2*, W+3*
>> LRLDT ASK+1*, QUE+1
>> LRLST HDR+2
>> LRM W+2*, A
>> LRM( QUE+3, A*
>> LRO QUE+1*, T*, S, S+1
>> LRQ H2
>> LRSDT ASK+1*, QUE+1
>> LRSTR HDR+2
>> LRY T*, W, H2
>> POP ASK+2
>> R W+1*
U LRBLJDP+3, ASK
>> X LRBLJDP+3*, ASK*, ASK+1, SEL*
>> Y LRBLJDP+3*, ASK+1, T*, W+1*, S+1*
>> Z LRBLJDP+3*
>> ZTRTN ASK+2*
>> ZTSK ASK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All