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

Package: Lab Service

Routine: LRBLDUC


Information

LRBLDUC ;AVAMC/REG/CYM - DONOR ABO/RH RECHECK ;7/5/96 22:39 ;

Source Information

Source file <LRBLDUC.m>

Entry Points

Name Comments DBIA/ICR reference
DNR
REST
S ;from LRBLDUC input template only supervisor can edit data after release of components
ASK
CKRL
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter TEST COMMENT(s) "
  • Line Location: LRBLDUC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DNR+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Complete DONOR ID must be entered (ex. If ID=H12345 then H123 unacceptable)."
  • Line Location: DNR+1
Function Call: WRITE
  • Prompt: $C(7)," ",X," does not exist. Try again"
  • Line Location: DNR+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, someone else is editing this record"
  • Line Location: DNR+4
Function Call: WRITE
  • Prompt: !!,"UNIT#:",LRQ(1)," Donation date:",Y
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: $C(7),!?35,"Must have UNIT # to proceed."
  • Line Location: REST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !,"One or more components were released. You may not edit existing test results."
  • Line Location: REST+6
Function Call: WRITE
  • Prompt: $C(7),!,"ABO/Rh testing not completed."
  • Line Location: S+2

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