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

Package: Lab Service

Routine: LRBLDAA


Information

LRBLDAA ;AVAMC/REG/CYM - DONOR/DEFERRAL LETTERS ;6/28/96 19:11 ;

Source Information

Source file <LRBLDAA.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
P
QUE
B
A
A1
R
R1
S
W
M
D
T
F
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?29,"Post-visit letter list",!
  • Line Location: LRBLDAA+4
Function Call: WRITE
  • Prompt: ?25,"There ",$S(X>1:"are ",1:"is "),X," donor",$S(X>1:"s",1:"")," on the list",!
  • Line Location: LRBLDAA+4
Function Call: WRITE
  • Prompt: !?25,"1. Add a donor to the list",!?25,"2. Remove a donor from the list",!?25,"3. Show the donors in the list",!?25,"4. Delete the donor letter list",!?25,"5. Print the donor letters"
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Select a number from 1 to 5",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " Print post-visit donor letters"
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!,"There are no letters to print."
  • Line Location: P+0
Function Call: WRITE
  • Prompt: " Add a donor to the list"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: " Remove a donor from list"
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"All donors have been removed from the list."
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: " Show the donors in the list"
  • Line Location: S+0
Function Call: WRITE
  • Prompt: $C(7),!,"There are no blood donors in the list."
  • Line Location: S+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter return to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",80),$C(13)
  • Line Location: M+0
Function Call: WRITE
  • Prompt: " Delete the donor letter list"
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!,"There is no list to delete."
  • Line Location: D+0

FileMan Files Accessed Via FileMan Db Call

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