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

Package: Lab Service

Routine: LRBLJU


Information

LRBLJU ; IHS/DIR/AAB - FIND UNITS NO DISPOSITION 10/6/95 10:10 ;

Source Information

Source file <LRBLJU.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 3 ^LRBLJU1  (L,S,V)^LRU  (,BEG,END)^LRUTL  
VA Fileman 2 ^%DT  ^DIC  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLRUA  LRBLRUN  

Entry Points

Name Comments DBIA/ICR reference
ALL
AB
END
I
L
DEV
EN1
S
R
QUE
T
EN
ASK
SET
OUT

External References

Name Field # of Occurrence
^%DT LRBLJU+3
^%ZIS LRBLJU+4
^DIC ASK+1
^LRBLJU1 OUT
L^LRU QUE
S^LRU QUE
V^LRU END
^LRUTL SET
BEG^LRUTL DEV
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,$S($D(A)#2:A,1:""),!!
  • Line Location: LRBLJU+4
Function Call: READ
  • Prompt: "Select: (A)ll blood components or (S)pecific component: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: S
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter A to list all components or S for a specific component",!
  • Line Location: ASK+0
Function Call: READ
  • Prompt: "Select: (A)ll units or (S)pecific ABO/Rh: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !!,"Select A for all units or S for specific T & Rh",!
  • Line Location: T+0
Function Call: READ
  • Prompt: "ABO GROUP: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter A, O, B, or AB",!
  • Line Location: AB+0
Function Call: READ
  • Prompt: "Rh TYPE: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter P or N",!
  • Line Location: R+0
Routine Call
  • DIC
  • Line Location:
    • ASK+1
Routine Call
  • %ZIS
  • Line Location:
    • LRBLJU+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRD(65 - [#65] L, I+1, S!, S+1, S+2, ALL
^TMP($J QUE!, OUT!, S+4*

Label References

Name Line Occurrences
AB AB
ALL QUE+1
ASK ASK
DEV T
END ASK, ASK+1, T, AB, R, DEV, OUT, EN, EN1
I L
L ALL
LRBLJU EN, EN1
OUT ALL+1
R R
S I+1
SET EN, EN1
T ASK, T

Naked Globals

Name Field # of Occurrence
^( S+2
^(4 S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT LRBLJU+3*
>> A LRBLJU+4
>> C ASK+1*, L, I+1, S, S+4, ALL*
>> C(1 ASK+1*
DIC ASK+1*!
DIC("A" ASK+1*
DIC("S" ASK+1*
DIC(0 ASK+1*
DT LRBLJU+3
DTIME ASK, T, AB, R
DUZ(2 S+1
>> E L*, I, I+1, S
>> E(1 LRBLJU+3*, L, EN1*
>> I I+1*, S, S+1, S+2, S+4
IO QUE
IOF OUT
>> IOP LRBLJU+4*
IOST OUT
>> LRB S+2*, S+3, S+4
>> LRLLOC S+2*, S+4
>> LROPT LRBLJU+3*, I, EN*, EN1*
>> N LRBLJU+3*, I
>> POP DEV
>> R R*, S+3
>> R(1 S+2*, S+3, S+4
>> S ASK*, QUE+1, L+1
>> T AB*, S+3
U ASK, ASK+1, T, AB, R
>> W S+1*, S+2, S+4
>> X LRBLJU+3*, ASK+1, T*, AB*, R*, SET*
>> Y LRBLJU+3, ASK+1, EN, EN1
>> Y(0 ASK+1
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All