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
Print Page as PDF
Routine: LRBLDL

Package: Lab Service

Routine: LRBLDL


Information

LRBLDL ;AVAMC/REG - BLOOD DONOR LIST ;2/18/93 08:55 ;

Source Information

Source file <LRBLDL.m>

Entry Points

Name Comments DBIA/ICR reference
S
F
L
QUE
W
H
B
I
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?28,"BLOOD DONOR LISTS/LABELS"
  • Line Location: LRBLDL+4
Function Call: WRITE
  • Prompt: !!,"DONORS FROM A SPECIFIC GROUP AFFILIATION "
  • Line Location: LRBLDL+6
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: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!?14,"1. PRINT DONOR LIST",!?14,"2. PRINT DONOR LABELS",!,"Select (1-2): "
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter the number 1 or the number 2"
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,P
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?31,$E(Y,1,12)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: W
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?45,$E($P(^(0),"^",3),1,30)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?45,$E($P(^(0),"^",3),1,30)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,LRAA(1),!,LR(2)," NO 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
Info |  Source |  Entry Points |  Interaction Calls