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

Package: Lab Service

Routine: LRBLDW


Information

LRBLDW ;AVAMC/REG/CYM - BLOOD DONOR WORKLIST ;6/28/96 09:06 ;

Source Information

Source file <LRBLDW.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
SHOW
QUE
T
W
H
ALL
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"BLOOD DONOR WORKLIST"
  • Line Location: LRBLDW+3
Function Call: WRITE
  • Prompt: $C(7),!,"No tests pending",!
  • Line Location: LRBLDW+4
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRA(A)
  • Line Location: LRBLDW+5
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),") ",LRT(A)
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: T+1
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,C,?42,$P(P,"^",5),?46,$P(P,"^",6),?55,C(2),!
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRT(T)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?23,"BLOOD DONOR WORKLIST"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"DONOR ID",?42,"ABO",?46,"RH",?55,"Collection date",!,LR("%")
  • Line Location: H+2

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