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

Package: Lab Service

Routine: LRBLDTA


Information

LRBLDTA ;AVAMC/REG/CYM - ABNORMAL DONOR TESTS ;6/28/96 09:04 ;

Source Information

Source file <LRBLDTA.m>

Entry Points

Name Comments DBIA/ICR reference
A
B
QUE
F
G
H
C
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Blood donor- Abnormal Test List"
  • Line Location: LRBLDTA+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Start with DONOR UNIT ID: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to DONOR UNIT ID: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,LRT,?14,A,?26,I
  • Condition for execution: F=1
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: F>1
  • Line Location: G+0
Function Call: WRITE
  • Prompt: ?36,LRA(E)," ",$P(Z,"^",3)
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?23,"ABNORMAL TEST RESULTS FOR DONORS"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Donation Date",?14,"Unit ID",?26,"DONOR",?36,"TEST",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $C(7)," Entry must be 6-11 digits &/or UPPER CASE letters"
  • Line Location: C+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call