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

Package: Lab Service

Routine: LRBLDR1


Information

LRBLDR1 ;AVAMC/REG - DONOR EXAM,COLLECTION ;2/11/94 07:50 ;

Source Information

Source file <LRBLDR1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIWP  ^DIWW  
Lab Service 2 H^LRBLDR  (D,WAIT,YN)^LRU  

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 LRBLDR  

Entry Points

Name Comments DBIA/ICR reference
S ;from LRBLDR
D ;from LRBLDR
K
H
A

External References

Name Field # of Occurrence
^DIC A
^DIWP LRBLDR1+4
^DIWW LRBLDR1+5
H^LRBLDR H
D^LRU LRBLDR1+3
WAIT^LRU A
YN^LRU D+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!!!!!,"Donor is in the file as permanently deferred as of ",Y,".",!,"If you have any questions, please see the physician in charge."
  • Line Location: LRBLDR1+3
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: LRBLDR1+5
Function Call: WRITE
  • Prompt: !!,"EXAM:",!!,"General appearance:",!!,"Venipuncture site:"
  • Line Location: LRBLDR1+6
Function Call: WRITE
  • Prompt: !!,"Weight (lb):",?30,"Temp:",?45,"Pulse:",?60,"BP:",!!,"Hb:",?20,"Hct:"
  • Line Location: LRBLDR1+7
Function Call: WRITE
  • Prompt: !!,"OK to collect unit (Yes or No):"
  • Line Location: LRBLDR1+8
Function Call: WRITE
  • Prompt: !!,"If not OK to collect reason(s):"
  • Line Location: LRBLDR1+9
Function Call: WRITE
  • Prompt: !!,"Patient credit:",!!,"Examiner:",?40,"Phlebotomist:"
  • Line Location: LRBLDR1+10
Function Call: WRITE
  • Prompt: !!,"UNIT NUMBER:",?40,"Bag lot #:"
  • Line Location: LRBLDR1+11
Function Call: WRITE
  • Prompt: !!,"Time collection started:",?40,"Time completed:"
  • Line Location: LRBLDR1+12
Function Call: WRITE
  • Prompt: !!,"Donor reaction(s) ? :"
  • Line Location: LRBLDR1+13
Function Call: WRITE
  • Prompt: !!,"Date/time processed:",!!,"Collected primary unit (gm):",?40,"Empty primary unit container (gm):",!!,"Vol collected (ml):"
  • Line Location: LRBLDR1+14
Function Call: WRITE
  • Prompt: @IOF,?20,"List of donors for registration forms",!
  • Line Location: S+1
Function Call: WRITE
  • Prompt: $P(^LRE(Y,0),"^")
  • Line Location: S+2
Function Call: WRITE
  • Prompt: !!,"OK, LIST DELETED !",!!
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !
  • Line Location: A+2
Routine Call
  • DIC
  • Line Location:
    • A

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(65.4 - [#65.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRE - [#65.5] LRBLDR1+4, S+2, A+1
^LRE("AB" A+1
^LRO(69.2 - [#69.2] S+2, D+2!*, K!, A, A+1*, A+2

Label References

Name Line Occurrences
H LRBLDR1+4, LRBLDR1+6, LRBLDR1+7, LRBLDR1+8, LRBLDR1+9, LRBLDR1+10, LRBLDR1+11, LRBLDR1+12, LRBLDR1+13, LRBLDR1+14
K S+2

Naked Globals

Name Field # of Occurrence
^( LRBLDR1+4
^(0 A+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D+1*
>> A LRBLDR1+4*, A*, A+1
>> B A+1*, A+2
DIC A*!
DIC("A" A*
DIC("S" A*
DIC(0 A*
>> DIWF LRBLDR1+4*
>> DIWL LRBLDR1+4*
>> DIWR LRBLDR1+4*
>> G LRBLDR1+3
>> G(16 LRBLDR1+3
IOF S+1
IOM LRBLDR1+4
IOSL LRBLDR1+4, H
>> J S+2*
>> LR("%" LRBLDR1+5
>> LR("Q" LRBLDR1+4, LRBLDR1+5, LRBLDR1+6, LRBLDR1+7, LRBLDR1+8, LRBLDR1+9, LRBLDR1+10, LRBLDR1+11, LRBLDR1+12, LRBLDR1+13
, LRBLDR1+14
>> LRAA S+2, D+2, K, A, A+1, A+2
LRQ S+2*, K!
>> LRX LRBLDR1+4*
>> LRZ LRBLDR1+4*, LRBLDR1+5
>> W LRBLDR1+4
>> X LRBLDR1+4*, S+2*, K, A+1*, A+2*
>> Y LRBLDR1+3*, S+2*, K, A, A+1*, A+2*
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