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

Package: Lab Service

Routine: LRBLPC


Information

LRBLPC ;AVAMC/REG - TRANSFUSIONS/HEM RESULTS ;2/18/93 09:42 ;

Source Information

Source file <LRBLPC.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 4 (,SET)^LRBLPC1  ^LRDPA  (B,D,F,L,M,S,V,WAIT)^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: 2

Package Total Caller Graph
Lab Service 2 LRBLPC1  LRBLPCH  

Entry Points

Name Comments DBIA/ICR reference
QUE
A
WRT
W
P
S
T
H
G
END
OUT

External References

Name Field # of Occurrence
^LRBLPC1 W+2
SET^LRBLPC1 LRBLPC+11, LRBLPC+12
^LRDPA LRBLPC+10
B^LRU LRBLPC+11
D^LRU W
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU LRBLPC+3, END
WAIT^LRU QUE
^LRUTL LRBLPC+5
BEG^LRUTL LRBLPC+12
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?14,"Print transfusions & hematology data for a patient"
  • Line Location: LRBLPC+3
Function Call: WRITE
  • Prompt: $C(7),!,"BLOOD or PERIPHERAL BLOOD must be an entry in TOPOGRAPHY file (#61)",!
  • Line Location: LRBLPC+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have tests to print entered in the",!,"'Tests for inclusion in transfusion report option' in",!,"Blood bank supervisor menu",!
  • Line Location: LRBLPC+6
Function Call: WRITE
  • Prompt: !,"Choice: ",LRA
  • Line Location: LRBLPC+10
Function Call: WRITE
  • Prompt: !,T
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?15,$E($P(^LAB(66,+Q,0),"^"),1,25),$S($P(Q,"^",6):"("_$P(Q,"^",6)_")",1:"")
  • Condition for execution: Q
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !?32
  • Condition for execution: $X>(IOM-9)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: ?32+(8*X(1))
  • Line Location: P+3
Function Call: WRITE
  • Prompt: $J(^(B),5)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,"TRANSFUSION/HEMATOLOGY RESULTS",!,W(2),?31,W(10),?45,"DOB: ",W(4),!,"Location:",?12,W(5),!,"Mo/Da/Yr TIME",?15,"Blood component"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?32
  • Condition for execution: $X>(IOM-8)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?32+(8*X(1)),$P(LRT(X),"^",7)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: $C(7),!!?10,"Cannot use this option until your last report is completed.",!,"If the report was queued and never printed it must be removed from the"
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !,"list of queued reports (see your LIM). Also have your blood bank supervisor",!,"delete your patient list for transfusion & hematology data."
  • Line Location: OUT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] S
^LAB(61 - [#61] LRBLPC+4, S+1
^LAB(66 - [#66] P+1
^LR - [#63] A, A+1
^LRO(69.2 - [#69.2] LRBLPC+5, LRBLPC+7, LRBLPC+8, LRBLPC+9!*, LRBLPC+10*, QUE+1, QUE+2!, WRT
^TMP($J QUE!, A*, A+1*, W+1, P+1, P+2, P+3

Label References

Name Line Occurrences
A QUE+1
END LRBLPC+4, LRBLPC+5, LRBLPC+6, LRBLPC+11, LRBLPC+12, QUE+2, OUT+1
G LRBLPC+10
H W, P
OUT LRBLPC+8
P W+1
S LRBLPC+5
T W+1
W WRT
WRT QUE+2

Naked Globals

Name Field # of Occurrence
^( LRBLPC+5, LRBLPC+7, LRBLPC+10*, A*, A+1*, W+1, P+1, P+3, S, G+1
^(0 LRBLPC+7*, LRBLPC+10*, S
^(1 S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLPC+5*, A*, A+1*, WRT*, W+1*, P+1, P+2, P+3, S+1
>> B LRBLPC+5*, LRBLPC+6, A+1*, P+3*
>> DFN W*, W+2, G+1
DIC LRBLPC+10!
>> DPF G
DT LRBLPC+9
DUZ LRBLPC+7, LRBLPC+8, LRBLPC+9, LRBLPC+10, QUE+1, QUE+2, WRT
IO QUE
IOF QUE+2
IOM P+3, H+2
IOSL P
IOST QUE, QUE+2, H
>> LR("%" H+3
>> LR("F" W*, H
>> LR("Q" WRT, W, W+1, P, H
>> LRA LRBLPC+10*, LRBLPC+11
>> LRAA LRBLPC+5, LRBLPC+7, LRBLPC+8, LRBLPC+9, LRBLPC+10, QUE+1, QUE+2, WRT
>> LRDFN LRBLPC+10, QUE+1*, A, A+1, WRT*, W+1, P+1, P+2, P+3
LRDPAF LRBLPC+5!
>> LRDPF G*
>> LRLDT LRBLPC+12*, A, A+1
>> LRPF G*, G+1
>> LRS LRBLPC+4*, LRBLPC+5
>> LRS( A+1, S+1*
>> LRSDT LRBLPC+12*, A, A+1
>> LRT( A+1, P+3, S+1*, H+2
>> LRT(0 LRBLPC+6*
>> LRV( A+1, S+1*
>> N WRT*
>> POP LRBLPC+12
>> Q P+1*
>> T W+1*, P+1, T*
U G+1
>> W LRBLPC+5*, WRT*, W, S, S+1
>> W(10 W*, H+1
>> W(2 W*, H+1
>> W(4 W*, H+1
>> W(5 W*, H+1
>> X LRBLPC+5*, LRBLPC+7*, LRBLPC+10*, A*, A+1*, S*, S+1, H+2*
>> X(1 P+3*, S*, S+1, H+2*
>> Y LRBLPC+5*, LRBLPC+11, W*, S, S+1, G+1*
>> Y(0 LRBLPC+10, G+1*
>> Z A+1*, S*, S+1
>> ZTRTN LRBLPC+12*
>> ZTSK LRBLPC+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All