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

Package: Lab Service

Routine: LRBLDA


Information

LRBLDA ; IHS/DIR/FJE - BLOOD DONOR LIST 2/18/93 08:43 ;

Source Information

Source file <LRBLDA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 (,EN,EN1)^LRBLDA1  ^LRBLDAA  (,EN)^LRBLDAL  (D,F,H,H1,L,M,S,V,YN)^LRU  (,BEG,END)^LRUTL  
VA Fileman 2 ^%DT  ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDL  

Entry Points

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

External References

Name Field # of Occurrence
^%DT L+3
^DIC L+5, LTR, ASK
^LRBLDA1 I+4
EN^LRBLDA1 A
EN1^LRBLDA1 LTR
^LRBLDAA L+2
^LRBLDAL C+1
EN^LRBLDAL ASK+2
D^LRU L+3, W+2
F^LRU H+1
H^LRU S+1
H1^LRU F+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU QUE+2, END
YN^LRU L+2, L+4, A, ASK+1
^LRUTL LRBLDA+4
BEG^LRUTL A+1, I+3, C, ASK+2
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?24,"PRINT BLOOD DONOR LIST/LABELS/LETTERS"
  • Line Location: LRBLDA+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Start with BLOOD DONOR NAME: FIRST// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: S+0
Function Call: READ
  • Prompt: "Go to BLOOD DONOR NAME: LAST// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIC
  • Line Location:
    • L+5
    • LTR
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRE - [#65.5] Classic Fileman Calls
^LAB(65.9 - [#65.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(69.2 I+1
^LAB(65.4 - [#65.4] W+2, W+4
^LRE - [#65.5] QUE+1, W, W+1, W+3, W+4
^LRE("B" QUE+1
^LRO(69.2 - [#69.2] B
^TMP("LRBLY" END!

Label References

Name Line Occurrences
A S, F
ASK ASK+1
B A+1
C A+1
END LRBLDA+4, L, L+3, L+4, L+5, S, F, A, A+1, I+3
, C, O, ASK, ASK+2
F F+1
H QUE, W+1
I I+1
L L+1
LTR C, O
O L+2
S S+1
W QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE+1
^(0 W+2, W+4, B
^(1 W+3
^(3 I+1
^(4 I+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L+2*, L+4*, L+5, A*, ASK+1
%DT L+3*!
%DT("A" L+3*
%DT(0 L+3*
>> B W+4*
DIC L+5*!, LTR*!, ASK*!
DIC("A" L+5*, LTR*
DIC("S" L+5*, LTR*
DIC(0 L+5*, LTR*, ASK*
DTIME L, S, F, I
IO QUE
IOF LRBLDA+5
IOM W+3, H+2
IOSL W+1
IOST H
>> LR L+3*, L+5*, W+1
>> LR("%" H+2
>> LR("F" QUE*, H
>> LR("Q" QUE+1, W+1, H
>> LR(1 B*, I, I+2*
>> LR(2 L+3*, L+5*, H+1
>> LRA QUE+1*
>> LRAA B
>> LRAA(1 H+1
>> LRABO A*, W
>> LRF LRBLDA+4*
>> LRI QUE+1*, W, W+1, W+3, W+4, ASK+1*
>> LRJ LTR
>> LRL LTR*
>> LRP QUE+1*, W+2, ASK+1*
>> LRP(1 S*, S+2*, QUE+1
>> LRP(2 S*, F*, F+2*, QUE+1
>> LRRH A*, W
>> LRS L+2*, A+1
>> LRSDT L+3*, QUE+1
>> LRSTR L+3*, H+1
>> LRW QUE+1*, W+1, W+2
>> LRW(7 W+1*, W+2, W+4
>> LRY LRBLDA+4*, L+5*
>> O W+3*
>> POP A+1, I+3, C, ASK+2
U L, L+5, S, F, I, LTR, ASK+1
>> X LRBLDA+4*, L*, L+1, L+2, L+5, S*, S+1, S+2, F*, F+1
, F+2, W*, W+3*, I*, I+1, I+2
>> X(1 S+2*
>> Y LRBLDA+4, L+3, L+5, A, W+2*, W+3*, LTR*, C, O, ASK
, ASK+1
>> Y(0 L+5, ASK+1
>> ZTRTN A+1*, I+3*, C*, ASK+2*
>> ZTSK A+1, I+3, C, ASK+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