Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(65.4 - [#65.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call