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

Package: Lab Service

Routine: LRBLDT


Information

LRBLDT ;AVAMC/REG/CYM - DONOR UNIT TESTING ;7/5/96 08:35 ;

Source Information

Source file <LRBLDT.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
SHOW
DNR
REST
S ;from LRBLDT input template only supervisor can edit data after release of components
ASK
R
D
ALL
CKRL
MSG
END
SC
W

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select test(s) by number: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter one or more of the above numbers",!,"For 2 or more selections separate each with a ',' (ex. 12,13,15)",!,"Enter 'ALL' for all tests."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: $C(7),!,"None of the listed tests selected, try again "
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRF(A)
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!,"Enter TEST COMMENT(s) "
  • Line Location: SHOW+2
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),"Someone else is editing this record."
  • Line Location: DNR+4
Function Call: WRITE
  • Prompt: !!,"UNIT#:",LRQ(1)," ABO:",W(5)," Rh:",W(6)," 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+7
Function Call: WRITE
  • Prompt: $C(7),!!,LR("TXT",2,0)
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: Q
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: Q
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: D
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRA(A)
  • Line Location: W+0

FileMan Files Accessed Via FileMan Db Call

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