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

Package: Lab Service

Routine: LRBLDA1


Information

LRBLDA1 ;AVAMC/REG - BLOOD DONOR LABELS ; 10/23/88 15:45 ;

Source Information

Source file <LRBLDA1.m>

Entry Points

Name Comments DBIA/ICR reference
END
W
A
EN ;
AB
R
EN1 ;RBC ANTIGENS ABSENT
B

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(LRP,",",2)_" "_$P(LRP,",")
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,$P(X,"^",B)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$P(X,"^",4)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: ", ",$P(^DIC(5,$P(X,"^",5),0),"^",2)
  • Condition for execution: $P(X,"^",5)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: " ",$P(X,"^",6)
  • Line Location: A+1
Function Call: READ
  • Formatting: !
  • Prompt: "ABO GROUP: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter A, O, B or AB"
  • Line Location: AB+1
Function Call: READ
  • Formatting: !
  • Prompt: "Rh TYPE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter P for POS or N for NEG"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1

FileMan Files Accessed Via FileMan Db Call

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