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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLDC

Package: Lab Service

Routine: LRBLDC


Information

LRBLDC ; IHS/DIR/AAB - DONOR COMPONENT PREP 7/3/96 11:58 ;

Source Information

Source file <LRBLDC.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 8 (BAR,P)^LRBLB  EN^LRBLBU  ^LRBLDC1  (CK,D,FRE,V)^LRU  EN^LRUD  (C,H)^LRUT  ^LRUTL  X^LRUWK  
VA Fileman 4 (C,YMD)^%DTC  ^DIC  MIX^DIC1  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLDCP  LRBLJLG1  

Entry Points

Name Comments DBIA/ICR reference
C
EN ;from LRBLJLG1
END
I
REST
S
KILL
W
X

External References

Name Field # of Occurrence
C^%DTC C+4
YMD^%DTC EN+1
^DIC C+2
MIX^DIC1 I+1
^DIE REST+8, C+6
BAR^LRBLB LRBLDC+5
P^LRBLB C+1
EN^LRBLBU I
^LRBLDC1 I+1
CK^LRU REST+8
D^LRU REST+4, C+4, EN+1
FRE^LRU REST+8
V^LRU LRBLDC+3, END
EN^LRUD W, S
C^LRUT EN+1
H^LRUT EN+1
^LRUTL LRBLDC+3
X^LRUWK LRBLDC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?20,"Collection disposition/component preparation",!
  • Line Location: LRBLDC+3
Function Call: READ
  • Prompt: "Select BLOOD DONOR: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: I+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No collection date for this patient",!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: $C(7),!,"NO UNIT ID ENTERED !"
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: $C(7),!,"Not allowed, data entered via old blood donor records option."
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !!,"Donor: ",LRP," ABO: ",W(5)," Rh: ",W(6),!,"Donation date/time: ",Y,?50,"Unit ID: ",$P(Z,"^",4)
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry no collection indicated",!
  • Line Location: REST+5
Function Call: WRITE
  • Prompt: $C(7),!,"Collection discarded",!
  • Line Location: REST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(66,A,0),"^")
  • Line Location: REST+9
Function Call: READ
  • Prompt: "Select BLOOD COMPONENT: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot select more than one red blood cell product.",!,"Selection ",$P(^LAB(66,DA,0),U)," canceled !",!
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: $C(7),!?4,"Expiration date exceeds allowable limit !",!
  • Line Location: X+0
Routine Call
  • DIE
  • Line Location:
    • REST+8
    • C+6
Routine Call
  • DIC
  • Line Location:
    • C+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRE - [#65.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(66 - [#66] REST+9, C, C+2, KILL
^LRE - [#65.5] REST, REST+1, REST+2, REST+3, REST+4, REST+7, REST+9, REST+10, C, C+2
, C+3, W, KILL, KILL+1!, X

Label References

Name Line Occurrences
C C+1, C+2, C+6
EN C+4
END LRBLDC+3, LRBLDC+4, I
I I, I+1
KILL C+2
REST I+1
W C+1

Naked Globals

Name Field # of Occurrence
^(0 REST+10*, KILL+1*, X*
^(2 REST+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H EN+1*
>> A REST+9*
>> C REST+5*
>> D I+1*
DA I+1!, REST+8*, REST+9!, C+2*, C+3, W*, KILL, KILL+1, X
DA(1 C+2*, W*
DA(2 C+2*, W*
DIC I+1*!, REST+9!, C*, C+2!
DIC(0 I+1*, C+2*
DIE I+1!, REST+8*, REST+9!, C*
DLAYGO C+2*!
DQ I+1!
DR I+1!, REST+8*, REST+9!, C+5*
DTIME I, C+1
DUZ("AG" I+1
IOF LRBLDC+3
>> LR I, C+1
>> LR( REST+7*
>> LR("CK" I+1!, REST+8
>> LR(2 I, C+1
>> LRA C+2*, C+3*
>> LRB REST+9
>> LRB(1 C+2
>> LRB(2 C+4
>> LRB(3 C+4*
>> LRB(4 C+2*
>> LRB(5 C+3*, C+4*, EN+1*
>> LRB(6 C+3*, C+4*, EN+1*
>> LRB(7 C+3*, C+4
>> LRCAPA LRBLDC+4
LRDATA REST+7~*
LRF REST+9!
LRF( REST+9*, W
>> LRI REST*, REST+1, REST+2, REST+4, REST+7, REST+9, REST+10, C, C+2, C+3
, W, KILL, KILL+1, X
>> LRP REST+3*, REST+4
>> LRQ I+1*, REST, REST+1, REST+2, REST+3, REST+4, REST+7, REST+8, REST+9, REST+10
, C, C+2, C+3, W, KILL, KILL+1, X
>> LRZ C*, C+2
>> M C+3*
>> M(5 C+3*
>> O C+3*, W*
U I, REST+1, REST+2, REST+3, REST+7, C+1, C+3, KILL
>> W W*, EN+1
>> W(1 EN+1*
>> W(5 REST+3*, REST+4
>> W(6 REST+3*, REST+4
>> X LRBLDC+3*, LRBLDC+4*, I*, REST+3*, C*, C+1*, C+3*, C+4*, W*, KILL+1*
, X*, EN+1
>> X("NOCODES" LRBLDC+4*
>> X(1 KILL+1*
>> X1 C+4*
>> X2 C+4*
>> Y LRBLDC+3, I+1, REST+4*, C+2, C+4*, X*, EN+1*
>> Z REST+4*, REST+5, REST+6, C+4*, W*, S*, EN+1*
>> Z(0 C+4*, EN+1
>> Z(1 EN+1*
>> Z(2 EN+1*
>> Z(3 EN+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All