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

Package: Lab Service

Routine: LRBLJUT


Information

LRBLJUT ;AVAMC/REG - BB INVENTORY FINAL DISPOSITION ;3/9/94 14:02 ;

Source Information

Source file <LRBLJUT.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (B,D,L,S,SSN,V)^LRU  (,BEG,END)^LRUTL  
VA FileMan 2 ^%DT  ^DIC  

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 LRBLJUT  

Entry Points

Name Comments DBIA/ICR reference
QUE
A
SET
H
END

External References

Name Field # of Occurrence
^%DT H
^DIC LRBLJUT+5
B^LRU LRBLJUT+6
D^LRU H
L^LRU QUE
S^LRU QUE
SSN^LRU QUE+3
V^LRU END
^LRUTL LRBLJUT+3
BEG^LRUTL LRBLJUT+7
END^LRUTL QUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Units of RED BLOOD CELLS transfused for a treating specialty"
  • Line Location: LRBLJUT+4
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS: ",LRC,?31,"TOTAL UNITS: ",LRY,!,"AVERAGE UNITS/PATIENT: ",$S(LRC:$J(LRY/LRC,5,2),1:"")
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,LRP,?31,SSN,?50,$J(LRX,4)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: @IOF,!,Y,?23,"BLOOD BANK ",LRQ(1),?(IOM-10),"Pg:",LRQ
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,"Treating ",$S(LRT[",":"Specialties",1:"Specialty"),": ",LRT,!,"Units RBC transfused from ",LRSTR," to ",LRLST,!,"Patient",?31,"SSN",?50,"# Units",!,LR("%")
  • Line Location: H+1
Routine Call
  • DIC
  • Line Location:
    • LRBLJUT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] QUE+2
^LAB(66 - [#66] QUE+1
^LR - [#63] QUE+2, QUE+3
^LRD(65 - [#65] QUE+1, SET
^TMP($J QUE!, QUE+2*, QUE+3, A, SET

Label References

Name Line Occurrences
A QUE+3
END LRBLJUT+3, LRBLJUT+5, LRBLJUT+6, LRBLJUT+7, QUE+4
H QUE, A
SET QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE+3, SET*
^(0 QUE+1
^(6 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H*
>> B QUE+1*
DIC LRBLJUT+5*!
DIC(0 LRBLJUT+5*
IO QUE
IOF H
IOM H
IOSL A
>> LR("%" H+1
>> LRA QUE+3*
>> LRC QUE+2*, QUE+4
>> LRDFN QUE+3*, A
>> LRDPF QUE+3*
>> LRI QUE+1*, SET
>> LRLDT LRBLJUT+6*, QUE+1
>> LRLST H+1
>> LRP QUE*, QUE+3*, A
>> LRQ H*
>> LRQ(1 H
>> LRSDT LRBLJUT+6*, QUE+1*
>> LRSTR H+1
>> LRT LRBLJUT+5*, QUE+1, H+1
>> LRX A*
>> LRY QUE*, QUE+4, A*
>> POP LRBLJUT+7
>> SSN QUE+3*, A
U LRBLJUT+5, QUE+3
>> X LRBLJUT+3*, QUE+1*, QUE+2*, SET*, H*
>> Y LRBLJUT+3, LRBLJUT+5, LRBLJUT+6, QUE+2*, H
>> Z QUE+2*
>> ZTRTN LRBLJUT+7*
>> ZTSK LRBLJUT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All