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

Package: Lab Service

Routine: LRBLPE


Information

LRBLPE ;AVAMC/REG - BB DATA ENTRY BY ACC # ;8/11/97

Source Information

Source file <LRBLPE.m>

Entry Points

Name Comments DBIA/ICR reference
L
REST
TEST
PH
SET
END
OR ;Call to OE/RR 2.5 status update

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Accession Number: "
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7)," Enter numbers only."
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!!
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN," ABO: ",LRABO," Rh: ",LRRH,!,"Specimen: ",S
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: $C(7),!!,$P(^(0),"^")," does not belong in ",LRAA(1)," accession area !",!,"Test deleted",!!
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Cannot continue without execute code for ",$P(LRT(LRT),U)
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY!"
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: !?40,"Antigen(s) present",?60,"| Antigen(s) absent",!,LR("%"),!,"Patient's Phenotype Record:"
  • Line Location: PH+1

FileMan Files Accessed Via FileMan Db Call

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