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

Package: Lab Service

Routine: LRBLPIT


Information

LRBLPIT ; IHS/DIR/FJE - PROLONGED TRANSFUSION TIMES 2/18/93 09:45 ;

Source Information

Source file <LRBLPIT.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 3 (B,F,L,M,S,SSN,V)^LRU  H^LRUT  (BEG,END)^LRUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPIT  

Entry Points

Name Comments DBIA/ICR reference
CK
END
D
H2 ;D H1 Q:LR("Q") W !!,"Patient: ",LRP,?41,"SSN: ",SSN Q
H
H1
P
QUE
W ;D:$Y>(IOSL-6) H1 Q:LR("Q") S X=^LR(P,0),LRDPF=$P(X,U,2),Y=$P(X,"^",3),X=^DIC(LRDPF,0,"GL"),Y=@(X_Y_",0)"),LRP=$P(Y,"^"),SSN=$P(Y,"^",9) D SSN^LRU

External References

Name Field # of Occurrence
B^LRU LRBLPIT+5
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU W+1
V^LRU END
H^LRUT CK
BEG^LRUTL LRBLPIT+6
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,"Prolonged transfusion times"
  • Line Location: LRBLPIT+4
Function Call: WRITE
  • Prompt: !!,"Patient: ",LRP,?41,"HRCN: ",HRCN
  • Line Location: W+3
Function Call: WRITE
  • Prompt: D
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,$P(W,"^"),?13,C(1),?44,$P(W,"^",2),?56,$P(W,"^",3),?68,$P(W,"^",5),?74,$J($P(W,"^",4),5)
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",!?9,"PROLONGED TRANSFUSION TIMES FROM ",LRSTR," TO ",LRLST
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Unit ID",?13,"Blood Component",?44,"Relocated",?56,"Transfused",?67,"DspBy",?73,"Minutes"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!!,"LOCATION: ",L
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!,"Patient: ",LRP,?41,"HRCN: ",HRCN
  • Line Location: H2+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
CK QUE+1
D CK+1
END LRBLPIT+4, LRBLPIT+5, LRBLPIT+6, QUE+3
H QUE, QUE+2, H1
H1 W+1, H2+1
H2 P
P W+3
W QUE+2

Naked Globals

Name Field # of Occurrence
^( W+3, CK
^(0 QUE+1, CK+1
^(4 QUE+1
^(6 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H CK
>> A QUE+2*
>> C QUE+1*, W+3*, CK, CK+2
>> C(1 W+3*, P
>> DFN W+1*
>> HRCN W+3, H2+1
IO QUE
IOSL QUE+2, W+1, P
IOST H
>> J CK*, CK+1, CK+2
>> J(0 CK*
>> L QUE+2*, W+3, CK+1*, CK+2, H1
>> LR("%" H+3
>> LR("F" QUE*, H
>> LR("Q" QUE+2, W+1, W+3, P, H, H1, H2+1
>> LRD QUE+1*, CK, CK+1
>> LRDPF W+1*
>> LRI QUE+1*, W+3*, CK, CK+2
>> LRLDT LRBLPIT+5*, QUE+1
>> LRLST H+1
>> LRP W+1*, W+3, H2+1
>> LRSDT LRBLPIT+5*, QUE+1
>> LRSTR H+1
>> M CK*, CK+1
>> P QUE+2*, W+1, W+3
>> POP LRBLPIT+6
>> R CK*
>> SSN W+1*
>> T QUE+1*
U W+1
>> W W+3*, P
>> W(0 QUE+1*, CK+2
>> W(3 CK*, CK+1
>> W(4 QUE+1*, CK+1
>> W(6 QUE+1*, CK+2
>> X W+1*, CK*
>> Y LRBLPIT+5, W+1*, CK*, CK+1*, CK+2, D*
>> Y(1 CK+1*, CK+2
>> Y(2 CK+1*, CK+2
>> Z CK*
>> Z(3 CK
>> ZTRTN LRBLPIT+6*
>> ZTSK LRBLPIT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All