Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLDAA

Package: Lab Service

Routine: LRBLDAA


Information

LRBLDAA ; IHS/DIR/AAB - DONOR/DEFERRAL LETTERS 6/28/96 19:11 ;

Source Information

Source file <LRBLDAA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 4 (EN1,SET)^LRBLDAL  EN1^LRBLY  (V,YN)^LRU  (BEG,END)^LRUTL  
VA Fileman 3 ^%DT  ^DIC  FIELD^DID  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDA  

Entry Points

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

External References

Name Field # of Occurrence
^%DT P+1
^DIC A1, R1+1
FIELD^DID T
EN1^LRBLDAL B+1
SET^LRBLDAL B+1
EN1^LRBLY LRBLDAA+3
V^LRU END
YN^LRU D+1
BEG^LRUTL P+2
END^LRUTL QUE+2

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
  • Prompt: "Enter return to continue: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIC
  • Line Location:
    • A1
    • R1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID
^LRO(69.2 - [#69.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(65.9 - [#65.9] T
^LRE - [#65.5] QUE+1, B
^LRO(69.2 - [#69.2] LRBLDAA+3, QUE+1, A1+1, A1+2*, R1+2!, S+1, D+1!, F

Label References

Name Line Occurrences
@( ASK+3
A1 A1+1, A1+2
ASK ASK+1
B QUE+1
END ASK+1, P+1, P+2, QUE+2
F P, R1, S, D
LRBLDAA ASK+3, P
M W
P ASK+3
R1 R1+2
T QUE
W S+1

Naked Globals

Name Field # of Occurrence
^( B
^(0 QUE+1, A1+2*, R1+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D+1*
%DT P+1*!
%DT("A" P+1*
>> A(1 S+1*, W, M*
DIC A1*!, R1+1*!
DIC("A" A1*, R1+1*
DIC("S" A1*
DIC(0 A1*, R1+1*
DTIME ASK+1, M
IO QUE
IOF S+1
>> L S+1*, W
>> L( W*
>> LRA QUE+1*
>> LRAA LRBLDAA+3, QUE+1, A1+1, A1+2, R1+2, S+1, D+1, F
>> LRI QUE+1*, B
>> LRL B+1*
>> LRP QUE+1*, A1+1*, A1+2, R1+1*, R1+2
>> LRSDT P+1*, B
>> LRW B*
>> LRX ASK+2*, ASK+3
>> LRY B*, B+1
>> LRY( B+1, T*
>> P S+1*, W
>> POP P+2
>> R S+1*, W
U ASK+1, A1+1, R1+1
>> X LRBLDAA+3*, LRBLDAA+4, ASK+1*, ASK+2, P*, A1+1*, A1+2, R1*, R1+1*, R1+2
, S*, S+1*, M*, D*, T*, F*
>> X("POINTER" T
>> X(1 R1+2*
>> Y P+1, A1, A1+1, A1+2*, R1+1, R1+2*, T*
>> Z T*
>> Z(1 T*
>> Z(2 T*
>> Z(3 T*
>> ZTRTN P+2*
>> ZTSK P+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All