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

Package: Lab Service

Routine: LRBLAA


Information

LRBLAA ; IHS/DIR/AAB - XM:TX BY TREATING SPECIALTY REPORT 9/11/95 14:02 ;

Source Information

Source file <LRBLAA.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 4 ^LRBLAA1  CK^LRBLPUS  (B,DT,F,L,M,S,SSN,V,YN)^LRU  (BEG,END)^LRUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLAA  LRBLAA1  

Entry Points

Name Comments DBIA/ICR reference
A
C
SET
END
H3 ;D H2 Q:LR("Q") W !,LRP,?32,SSN,?45,"(Cont'd from pg ",LRQ-1,")" Q
H2
H
H1
M
P
B
QUE
W ;I LRF S X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D SSN^LRU W !,LRP,?32,SSN
V
U

External References

Name Field # of Occurrence
^LRBLAA1 QUE+2
CK^LRBLPUS LRBLAA+3
B^LRU LRBLAA+5
DT^LRU W+2
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU W+1
V^LRU END
YN^LRU LRBLAA+6
BEG^LRUTL LRBLAA+7
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Crossmatch:Transfusion Report by Treating Specialty and Physician",!
  • Line Location: LRBLAA+4
Function Call: WRITE
  • Prompt: !!,"Print only summary of crossmatches and transfusions "
  • Line Location: LRBLAA+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLAA+7
Function Call: WRITE
  • Prompt: !!,"ALL TREATING SPECIALTIES",?32,"Total Xm'd:",?43,$J(LRL,4),?52,"Tx'd:",?55,$J(LRM,4),?65,"C/T: "
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $S(LRM:$J(LRL/LRM,5,3),1:"NA")
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!!,A,?32,"Units Xm'd:",?43,$J(LRJ,4),?52,"Tx'd:",?55,$J(LRT,4),?65,"C/T: "
  • Line Location: M+1
Function Call: WRITE
  • Prompt: $S(LRT:$J(LRJ/LRT,5,3),1:"NA")
  • Line Location: M+1
Function Call: WRITE
  • Prompt: !!,B,?32,"Units Xm'd:",?43,$J(LRK,4),?52,"Tx'd:",?55,$J(LRD,4),?65,"C/T: "
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $S(LRD:$J(LRK/LRD,5,3),1:"NA")
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ;I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRP,?32,SSN
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRP,?32,HRCN
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LRY,?19,$P(LRE,"^",4),?20,$P(LRE,"^",3),?35,$P(LRE,"^",2),?38,X
  • Condition for execution: LRF
  • Line Location: V+0
Function Call: WRITE
  • Prompt: ?60,$E($P($G(^DIC(4,+$P($G(^LRD(65,G,0)),U,16),0)),U),1,19)
  • Line Location: V+0
Function Call: WRITE
  • Prompt: !,LRO(68)," CROSSMATCH:TRANSFUSIONS (from: ",LRSTR," to ",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?20,"TREATING SPECIALTY: ",A
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?29,"PHYSICIAN: ",B
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,LRP,?32,SSN,?45,"(Cont'd from pg ",LRQ-1,")"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,LRP,?32,HRCN,?45,"(Cont'd from pg ",LRQ-1,")"
  • Line Location: H3+1
Function Call: WRITE
  • Prompt: !,"This report includes the following administrative categories:",!,"WHOLE BLOOD, RBC, FROZEN RBC, DEGLYC RBC, LEUCODEPLETED RBC, and WASHED RBC."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"The following abbreviations are used to indicate crossmatch results:",!,"C=COMPATIBLE",!,"CD=COMPATIBLE, DON'T TRANSFUSE",!,"CF=COMPATIBLE, FURTHER STUDY NEEDED",!,"I=INCOMPATIBLE, UNSAFE TO TRANSFUSE"
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,"IG=INCOMPATIBLE, GIVE WITH BLOOD BANK DIRECTOR APPROVAL",!,"CD, CF, and I are not included in crossmatch-transfusion calculations.",!,LR("%")
  • Line Location: B+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] W+1
^DIC(4 - [#4] V
^LAB(66 - [#66] SET
^LAB(69.9 - [#69.9] QUE
^LR - [#63] W+1
^LRD(65 - [#65] C, V, SET
^TMP($J QUE!, C+1, M, M+1*, P, P+1*, W+2, U, SET+1*

Label References

Name Line Occurrences
A QUE+2, B
B QUE
C QUE+1
END LRBLAA+3, LRBLAA+5, LRBLAA+6, LRBLAA+7, QUE+3
H QUE, QUE+2, C+1, M+1, H1
H1 M, H2
H2 P, H3+1
H3 U
M C+1
P M
SET C
U W+2
V U
W P

Naked Globals

Name Field # of Occurrence
^( U
^(8 SET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLAA+6*
>> A C*, C+1*, M, M+1, P, P+1, W+2, U, H1
>> A(1 C+1*
>> B C*, M*, P, P+1, W+2, U, SET, H2
>> B(1 M*
>> C SET*
>> DFN W+1*
DUZ(2 QUE
>> F W+2*, U
>> G U*, V
>> HRCN W+1, H3+1
>> I C*, SET, SET+1
IO QUE
IOF QUE+3
IOSL M, M+1, P, U
IOST QUE+3, H
>> LR("%" H+4, B+1
>> LR("F" QUE*, H
>> LR("M" QUE*, V
>> LR("Q" QUE+1, QUE+2, C+1, M, M+1, P, P+1, W+2, U, H
, H1, H2, H3+1
>> LRD M*, P+1, V+1*
>> LRDFN P*, W+1, W+2, U
>> LRDPF W+1*
>> LRE U*, V
>> LRF LRBLAA+6*, QUE, QUE+1, QUE+2, C+1, M, M+1, P, P+1, W+1
, U, V
>> LRJ C+1*, M+1, V+1*
>> LRK M*, P+1, V+1*
>> LRL QUE*, QUE+1, V+1*
>> LRLDT LRBLAA+5*, C
>> LRLST H+1
>> LRM QUE*, QUE+1, V+1*
>> LRO(68 H+1
>> LRP W+1*, H3+1
>> LRQ H3+1
>> LRQ(2 QUE*, QUE+2*, H+3
>> LRSDT LRBLAA+5*, C
>> LRSTR H+1
>> LRT C+1*, M+1, V+1*
>> LRY W+2*, V
>> M SET*, SET+1
>> P C*, SET, SET+1
>> POP LRBLAA+7
>> SSN W+1*
>> T SET*, SET+1
U QUE, V
>> V SET*, SET+1
>> X W+1*, U*, V, V+1, SET*, SET+1
>> Y LRBLAA+3, LRBLAA+5, W+1*, W+2*, U*, V+1, SET*, SET+1
>> Z SET*, SET+1
>> ZTRTN LRBLAA+7*
>> ZTSK LRBLAA+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All