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

Package: Lab Service

Routine: LRBLJLA


Information

LRBLJLA ;AVAMC/REG/CYM - CROSSMATCH LABELS ;6/17/96 14:21 ;

Source Information

Source file <LRBLJLA.m>

Entry Points

Name Comments DBIA/ICR reference
ED
I
ASK
QUE
OUT
C
E
A
B
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?30,"PRINT XMATCH LABELS"
  • Line Location: LRBLJLA+4
Function Call: WRITE
  • Prompt: !?25,"(There ",$S(X>1:"are",1:"is")," ",X," label",$S(X>1:"s",1:"")," to print)"
  • Condition for execution: X
  • Line Location: LRBLJLA+4
Function Call: WRITE
  • Prompt: !?3,"Add labels for emergency transfusion "
  • Line Location: LRBLJLA+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRBLJLA+6
Function Call: WRITE
  • Prompt: !,"Do you want to delete the list of labels "
  • Line Location: LRBLJLA+7
Function Call: WRITE
  • Prompt: $C(7),!,"Are you sure "
  • Line Location: LRBLJLA+7
Function Call: WRITE
  • Prompt: $C(7),!,"Are you sure "
  • Line Location: LRBLJLA+7
Function Call: WRITE
  • Prompt: !,"Edit LABELS "
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !!,"Save list for repeat printing "
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL"
  • Line Location: ED+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !,$C(7),^(3)
  • Condition for execution: $D(^DD(69.2,.07,3))
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $P(X,"^",B),!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: A+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter number of crossmatch labels wanted: "
  • Variable: LRB
  • Timeout: DTIME
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 99."
  • Line Location: B+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't make those extra labels now.",!!,"Someone else started this first",!!,"Try again later if you still need extras",!!
  • Line Location: B+2

FileMan Files Accessed Via FileMan Db Call

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