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

Package: Lab Service

Routine: LRBLCMV


Information

LRBLCMV ;AVAMC/REG - UNIT PHENOTYPE BY ABO/RH ;9/13/89 19:30 ;

Source Information

Source file <LRBLCMV.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
ABO
RH
QUE
I
H
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter 'POS' for CMV ANTIBODY POSITIVE units",!,"Enter 'NEG' for CMV ANTIBODY NEGATIVE units."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: $E(X(1),$L(X)+1,3)
  • Line Location: SEL+2
Function Call: READ
  • Formatting: !
  • Prompt: "Select ABO group: "
  • Variable: C(7)
  • Timeout: DTIME
  • Line Location: ABO+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter A, B, AB or O"
  • Line Location: ABO+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select Rh type: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: $C(7)," Enter 'NEG' or 'POS'"
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: $E(C(8),$L(X)+1,3)
  • Line Location: RH+1
Function Call: WRITE
  • Prompt: !,$J(Z,3),")",?5,$P(F,"^"),?20
  • Line Location: I+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: I+4
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: I+5
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",!,C(1)," ",C(7)," ",C(8)," CMV ",$S(LRV:"POS",1:"NEG")," units"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"Unit",?20,"Exp date",?40,!,LR("%")
  • Line Location: H+2

FileMan Files Accessed Via FileMan Db Call

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