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 ; IHS/DIR/FJE - TRANSFUSION DATA REPORT 2/18/93 09:47 ;

Source Information

Source file <LRBLPTR.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLITR  

Entry Points

Name Comments DBIA/ICR reference
A
SET
END
W ;D:$Y>(IOSL-6) H Q:LR("Q") S (LRE,LRF)="" W !!,"Patient: ",LRP,?41,"SSN: ",SSN D:$O(^LR(P,1.9,0)) B Q:LR("Q")
PT ;S X=^LR(P,0),Y=$P(X,"^",3),LRDPF=$P(X,U,2),X=^DIC(LRDPF,0,"GL"),Y=@(X_Y_",0)"),LRP=$P(Y,"^"),SSN=$P(Y,"^",9) D SSN^LRU S ^TMP($J,"B",LRP,P)=SSN Q
H2
H
H1 ;D H Q:LR("Q") W !!,"Patient: ",LRP,?41,"SSN: ",SSN Q
L
D
P
B
QUE
W1
OUT

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?30,"Transfusion data report"
  • Line Location: LRBLPTR+4
Function Call: WRITE
  • Prompt: !!,"Also print transfusions with hematology results "
  • Line Location: LRBLPTR+6
Function Call: WRITE
  • Prompt:
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?2,$P(X,"^",2),?8,"=",$P(X,"^")
  • Line Location: QUE+5
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: !!,"Patient: ",LRP,?41,"HRCN: ",HRCN
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,$P(W,"^"),?13,C(1),?18,$P(W,"^",8),?23,$P(W,"^",9),?28,$P(W,"^",2),?43,$P(W,"^",4),?46,$P(W,"^",5),?52,$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",?13,"Comp",?19,"(#)",?23,"(ml)",?28,"Relocated",?43,"CK",?46,"By",?52,"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: !!,"Patient: ",LRP,?41,"HRCN: ",HRCN
  • Line Location: H1+1
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+1
^LAB(65.4 - [#65.4] P+1, B
^LAB(66 - [#66] QUE+5, W+2
^LR - [#63] W+1, PT+1, B, A
^LRD(65 - [#65] QUE+1, P+2, SET!, SET+1
^TMP("LRBL" QUE!, W+3*
^TMP($J QUE!, QUE+2, QUE+4, W+2, W1, SET+3*, PT+1*
^VA(200 - [#200] SET+2

Label References

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

Naked Globals

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