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

Package: Lab Service

Routine: LRBLDC


Information

LRBLDC ;AVAMC/REG/CYM - DONOR COMPONENT PREP ;7/3/96 11:58 ;

Source Information

Source file <LRBLDC.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?20,"Collection disposition/component preparation",!
  • Line Location: LRBLDC+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select BLOOD DONOR: "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Select BLOOD COMPONENT: "
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

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