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 ; IHS/DIR/FJE - TRANSFUSIONS/HEM RESULTS 2/18/93 09:42 ;

Source Information

Source file <LRBLPC.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPC1  LRBLPCH  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?14,"Print transfusions & hematology data for a patient"
  • Line Location: LRBLPC+4
Function Call: WRITE
  • Prompt: $C(7),!,"BLOOD or PERIPHERAL BLOOD must be an entry in TOPOGRAPHY file (#61)",!
  • Line Location: LRBLPC+5
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+7
Function Call: WRITE
  • Prompt: !,"Choice: ",LRA
  • Line Location: LRBLPC+11
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)
^AUPNPAT - [#9000001] G+2
^LAB(60 - [#60] S
^LAB(61 - [#61] LRBLPC+5, S+1
^LAB(66 - [#66] P+1
^LR - [#63] A, A+1
^LRO(69.2 - [#69.2] LRBLPC+6, LRBLPC+8, LRBLPC+9, LRBLPC+10!*, LRBLPC+11*, 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+5, LRBLPC+6, LRBLPC+7, LRBLPC+12, LRBLPC+13, QUE+2, OUT+1
G LRBLPC+11
H W, P
OUT LRBLPC+9
P W+1
S LRBLPC+6
T W+1
W WRT
WRT QUE+2

Naked Globals

Name Field # of Occurrence
^( LRBLPC+6, LRBLPC+8, LRBLPC+11*, A*, A+1*, W+1, P+1, P+3, S, G+2
^(0 LRBLPC+8*, LRBLPC+11*, S, G+2
^(1 S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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