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

Package: Lab Service

Routine: LRBLPTR


Information

LRBLPTR ;AVAMC/REG - TRANSFUSION DATA REPORT ;2/18/93 09:47 ;

Source Information

Source file <LRBLPTR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 4 ^LRBLPTR1  B^LRBLU  (D,F,L,M,S,SSN,V,YN)^LRU  (BEG,END)^LRUTL  
VA FileMan 1 C^%DTC  

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 LRBLITR  

Entry Points

Name Comments DBIA/ICR reference
QUE
OUT
W
W1
P
SET
PT
B
A
H
H1
H2
L
D
END

External References

Name Field # of Occurrence
C^%DTC W+2
^LRBLPTR1 OUT
B^LRBLU LRBLPTR+4
D^LRU B
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU PT
V^LRU END
YN^LRU LRBLPTR+5
BEG^LRUTL LRBLPTR+6
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?30,"Transfusion data report"
  • Line Location: LRBLPTR+3
Function Call: WRITE
  • Prompt: !!,"Also print transfusions with hematology results "
  • Line Location: LRBLPTR+5
Function Call: WRITE
  • Prompt: !?2,$P(X,"^",2),?8,"=",$P(X,"^")
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: D:$Y>(IOSL-6)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$P(W,"^"),?14,C(1),?19,$P(W,"^",8),?24,$P(W,"^",9),?29,$P(W,"^",2),?44,$P(W,"^",4),?47,$P(W,"^",5),?53,$P(W,"^",6),?62,$P(W,"^",3),?77,$P(W,"^",7)
  • Line Location: P+0
Function Call: WRITE
  • Prompt: D:$Y>(IOSL-6)
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !?2,W(1)
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,Y,?21,LRR
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,B(1)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION DATA REPORT FROM ",LRSTR," TO ",LRLST
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Unit ID",?14,"Comp",?20,"(#)",?24,"(ml)",?29,"Relocated",?44,"CK",?47,"By",?53,"Location",?62,"Transfused",?77,"RXN"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRK,?21,LRR
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION REACTIONS WITHOUT UNIT IDENTIFIED"
  • Line Location: L+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] PT
^LAB(65.4 - [#65.4] P+1, B
^LAB(66 - [#66] QUE+4, W+1
^LR - [#63] W, PT, B, A
^LRD(65 - [#65] QUE+1, P+2, SET!, SET+1
^TMP("LRBL" QUE!, W+2*
^TMP($J QUE!, QUE+2, QUE+3, W+1, W1, SET+3*, PT*
^VA(200 - [#200] SET+2

Label References

Name Line Occurrences
A B
B W
D SET+2
END LRBLPTR+3, LRBLPTR+4, LRBLPTR+5, LRBLPTR+6, OUT
H QUE, QUE+4, W, H1
H1 P, P+2, B, H2
H2 A
L B, H2
OUT QUE+4
P W1
PT QUE+2
SET QUE+1
W QUE+3
W1 W+1

Naked Globals

Name Field # of Occurrence
^( QUE+3, W1, P+2, SET+1, B, A
^(0 QUE+1, P+1, SET+2
^(4 QUE+1
^(6 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLPTR+5*
>> A QUE+4*, B*, A
>> B A*
>> B(1 A*
>> C QUE+1*, W+1*, W1, SET+3, B*
>> C(1 W+1*, P
IO QUE
IOSL QUE+4, W, P, P+2, B, A
IOST H
>> J SET+2*, SET+3
>> L SET+2*, SET+3
>> LR( B*
>> LR("%" QUE+4, H+3
>> LR("F" QUE*, H
>> LR("Q" QUE+3, QUE+4, OUT, W, W+1, W1, P, P+2, B, A
, H, H1, H2
>> LRC( QUE+4, W+1*
>> LRD QUE+1*, W+1*, W1, W1+1, SET, SET+2, SET+3
>> LRDPF PT*
>> LRE W*, W+1*, W+2*, W1+1*
>> LRF W*, W+2, W1+1*
>> LRG LRBLPTR+4*, LRBLPTR+5*, OUT, W+2, W1+1
>> LRI QUE+1*, W1*, P+2, SET, SET+1, SET+3
>> LRJ W+1*
>> LRK B*, H2
>> LRLDT LRBLPTR+4*, QUE+1
>> LRLST H+1
>> LRP QUE+3*, W, W+2, PT*, H1
>> LRR B*, H2
>> LRSDT LRBLPTR+4*, QUE+1
>> LRSTR H+1
>> P QUE+2*, QUE+3*, W, W+1, W+2, W1, PT, B, A
>> POP LRBLPTR+6
>> SSN QUE+3*, W, PT*, H1
U PT, B
>> W W1*, P, P+1, P+2*
>> W(0 QUE+1*, SET+3
>> W(1 P+2*
>> W(3 SET+1*, SET+2
>> W(4 QUE+1*, SET, SET+3
>> W(6 QUE+1*, SET+3
>> X QUE+4*, W+2, SET+3*, PT*
>> X1 W+2*
>> X2 W+2*
>> Y LRBLPTR+4, SET+2*, SET+3, PT*, B*, D*
>> Y(1 SET+2*, SET+3
>> Y(2 SET+2*, SET+3
>> ZTRTN LRBLPTR+6*
>> ZTSK LRBLPTR+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All