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

Package: Lab Service

Routine: LRBLDA


Information

LRBLDA ;AVAMC/REG - BLOOD DONOR LIST ;2/18/93 08:43 ;

Source Information

Source file <LRBLDA.m>

Entry Points

Name Comments DBIA/ICR reference
L
S
F
A
QUE
W
H
B
I
LTR
C
O
ASK
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?24,"PRINT BLOOD DONOR LIST/LABELS/LETTERS"
  • Line Location: LRBLDA+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!?14,"1. DONOR LIST",!?14,"2. DONOR LABELS",!?14,"3. DONOR PRE -VISIT LETTERS",!?14,"4. DONOR POST-VISIT LETTERS",!,"Select (1-4): "
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a number from 1 to 4"
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !!,"Letter for a single donor "
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !!,"DONORS FROM A SPECIFIC GROUP AFFILIATION "
  • Line Location: L+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Start with BLOOD DONOR NAME: FIRST// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: S+0
Function Call: READ
  • Formatting: !
  • Prompt: "Go to BLOOD DONOR NAME: LAST// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F+0
Function Call: WRITE
  • Prompt: !,LRP
  • Line Location: W+2
Function Call: WRITE
  • Prompt: ?31,$E(Y,1,12)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: ?31,$E(Y,1,12)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !?45,$E($P(^(0),"^",3),1,30)
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,LRAA(1),!,"NO "
  • Line Location: H+1
Function Call: WRITE
  • Prompt: LR(2)," "
  • Condition for execution: LR(2)]""
  • Line Location: H+1
Function Call: WRITE
  • Prompt: "DONATIONS SINCE ",LRSTR
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Donor",?31,"Last donation",?55,"Group"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?76,"Home phone",?93,"Work phone"
  • Condition for execution: IOM>118
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?5,"Home phone",?25,"Work phone"
  • Condition for execution: IOM<119
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!?33,"REMEMBER TO",!?13,"ALIGN THE PRINT HEAD ON THE FIRST LINE OF THE LABEL"
  • Line Location: B+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !
  • Line Location: I+4
Function Call: WRITE
  • Prompt: !
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2

FileMan Files Accessed Via FileMan Db Call

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