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 ;AVAMC/REG - BB PT INFO ;2/18/93 09:42 ;

Source Information

Source file <LRBLPD.m>

Call Graph

Call Graph

Call Graph Total: 5

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

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 LRBLQDR  

Entry Points

Name Comments DBIA/ICR reference
QUE
LOOP
SET
ASK
N
O
END
H

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: LRBLPD+3
Function Call: WRITE
  • Prompt: !,"List all blood components "
  • Line Location: LRBLPD+6
Function Call: WRITE
  • Prompt: !,"List only total number of units for each component "
  • Line Location: LRBLPD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,"Total ",$S($D(LRF(A)):LRF(A),1:"?"),": ",LRT
  • Condition for execution: LRT
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: " on record for specified period.",!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: ?21,$P(^LAB(61.3,A,0),"^")
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !?13,$J(B,2),?18,$P(LRG(B),"^",2)
  • Line Location: ASK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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: !,"Components Transfused"
  • Condition for execution: LRJ
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+2

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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