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

Package: Lab Service

Routine: LRBLPD


Information

LRBLPD ; IHS/DIR/FJE - BB PT INFO 2/18/93 09:42 ;

Source Information

Source file <LRBLPD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 (B,D,F,L,M,S,SSN,V,YN)^LRU  (,EN,R)^LRUL  (,BEG,END)^LRUTL  
VA Fileman 2 ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLQDR  

Entry Points

Name Comments DBIA/ICR reference
SET
END
H
O
N
QUE
ASK
LOOP ;K ^TMP($J) S LRQ=0,SSN=$P(^LRO(69.2,LRAA,7,DUZ,1,LRDFN,0),"^",10),X=^LR(LRDFN,0),LRPABO=$P(X,"^",5),LRPRH=$P(X,"^",6),LRDPF=$P(X,U,2) D H S LR("F")=1

External References

Name Field # of Occurrence
^DIWP LOOP+5
^DIWW LOOP+6
B^LRU LRBLPD+9
D^LRU N
F^LRU H+2
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU LOOP+1
V^LRU END
YN^LRU LRBLPD+7, LRBLPD+8
^LRUL LRBLPD+5
EN^LRUL QUE+3
R^LRUL LRBLPD+5, LRBLPD+10
^LRUTL LRBLPD+4
BEG^LRUTL LRBLPD+10
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: LRBLPD+4
Function Call: WRITE
  • Prompt: !,"List all blood components "
  • Line Location: LRBLPD+7
Function Call: WRITE
  • Prompt: !,"List only total number of units for each component "
  • Line Location: LRBLPD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"Total ",$S($D(LRF(A)):LRF(A),1:"?"),": ",LRT
  • Condition for execution: LRT
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: " on record for specified period.",!
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: ?21,$P(^LAB(61.3,A,0),"^")
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !?13,$J(B,2),?18,$P(LRG(B),"^",2)
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Select a NUMBER from 1 to ",A
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: ?18,$P(LRG(X),"^",2)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,$P(X,"^",4),?18,$E($P(M,"^"),1,30)
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?45,"(",X(7),"/",X(10),")"
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?54,$P(X,"^",6)_" "_$P(X,"^",7),?60,Y
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !?6,^(E,0)
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !,"TRANSFUSION SERVICE/BLOOD BANK REPORT from ",LRSTR," to ",LRLST,!,"PATIENT: ",LRP," ",SSN," ",$J(LRPABO,2)," ",LRPRH
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"TRANSFUSION SERVICE/BLOOD BANK REPORT from ",LRSTR," to ",LRLST,!,"PATIENT: ",LRP," ",HRCN," ",$J(LRPABO,2)," ",LRPRH
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Components Transfused"
  • Condition for execution: LRJ
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(66 LRBLPD+6
^LAB(61.3 - [#61.3] LOOP+6
^LAB(66 - [#66] SET, O
^LR - [#63] LOOP+1, LOOP+2, LOOP+5, LOOP+6, SET, O+3
^LRO(69.2 - [#69.2] LRBLPD+5, QUE+2, LOOP+1
^TMP($J LOOP+1!, LOOP+3, LOOP+5!, SET+1*, N

Label References

Name Line Occurrences
ASK LRBLPD+7, ASK+1
END LRBLPD+4, LRBLPD+5, LRBLPD+7, LRBLPD+8, LRBLPD+9, LRBLPD+10, QUE+3
H LOOP+1, LOOP+3, LOOP+5, LOOP+6, N, O+3
LOOP QUE+2
N LOOP+3
O N
SET LOOP+2

Naked Globals

Name Field # of Occurrence
^( LOOP+5, N, O+3
^(0 SET, O

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLPD+7*, LRBLPD+8*
>> A LRBLPD+6*, LOOP+3*, LOOP+5*, LOOP+6*, ASK*, ASK+1, N
>> B LRBLPD+6*, LOOP+2*, LOOP+3*, LOOP+4, LOOP+5*, LOOP+6*, SET+1, ASK*
>> C LRBLPD+6*, LOOP+6*, N*
>> DFN LOOP+1*
DIC LRBLPD+10!
DIE LRBLPD+10!
>> DIWF QUE+1*
>> DIWL QUE+1*
>> DIWR QUE+1*
DR LRBLPD+10!
DTIME ASK+1
DUZ LRBLPD+5, QUE+2, LOOP+1
>> E O+3*
>> F O+3*
>> HRCN H+2
IO QUE
IOM QUE+1
IOSL LOOP+3, LOOP+5, LOOP+6, N, O+3
IOST H
>> LR("%" H+3
>> LR("F" LOOP+1*, H
>> LR("Q" QUE+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, N, O+3, H
>> LRAA LRBLPD+5, QUE+2, LOOP+1
>> LRC( QUE+1*, LOOP+6
>> LRC(1 QUE+1*
>> LRDFN QUE+2*, LOOP+1, LOOP+2, LOOP+5, LOOP+6, SET, O+3
>> LRDPF LOOP+1*
>> LRE LRBLPD+7*, LOOP+4, SET
>> LRF LRBLPD+7, LOOP+4, SET, ASK*, ASK+2*
>> LRF( LRBLPD+6*, LOOP+3, LOOP+4
>> LRF(1 LRBLPD+6*
>> LRG( LRBLPD+6*, ASK, ASK+2
>> LRG(1 LRBLPD+6*
>> LRI LOOP+2*, SET, SET+1, N*, O+3
>> LRJ LRBLPD+8*, O+1, H+3
>> LRLDT LRBLPD+9*, LOOP+2
>> LRLST H+2
>> LRP QUE+2*, H+2
>> LRP(1 QUE+2*
>> LRPABO LOOP+1*, H+2
>> LRPRH LOOP+1*, H+2
>> LRQ LRBLPD+5*, LOOP+1*
>> LRSDT LRBLPD+9*, LOOP+2
>> LRSS LRBLPD+4
>> LRSTR H+2
>> LRT LOOP+3*, O*
>> LRX LOOP+5*
>> M O*, O+1
>> POP LRBLPD+10
>> SSN LOOP+1*
U LRBLPD+6, LOOP+1, ASK+1, N, O
>> X LRBLPD+4*, LRBLPD+6*, LOOP+1*, LOOP+5*, SET*, SET+1, ASK+1*, ASK+2, N*, O
, O+1, O+2
>> X(1 O*
>> X(10 O*, O+1
>> X(7 O*, O+1
>> Y LRBLPD+4, LRBLPD+9, SET*, N*, O+2
>> Z SET*, SET+1
>> ZTRTN LRBLPD+10*
>> ZTSK LRBLPD+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All