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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 ^LRBLDL1  (D,F,H,H1,L,M,S,V,YN)^LRU  (,BEG,END)^LRUTL  
VA FileMan 2 ^%DT  ^DIC  

Entry Points

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

External References

Name Field # of Occurrence
^%DT LRBLDL+5
^DIC LRBLDL+7
^LRBLDL1 I+4
D^LRU LRBLDL+5, W+1
F^LRU H+1
H^LRU S+1
H1^LRU F+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
YN^LRU LRBLDL+6
^LRUTL LRBLDL+3
BEG^LRUTL L+1, I+3
END^LRUTL QUE+2

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
Routine Call
  • DIC
  • Line Location:
    • LRBLDL+7

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
B L+1
END LRBLDL+3, LRBLDL+5, LRBLDL+6, LRBLDL+7, SFL+1, QUE+2, I+3
F F+1
H QUEW
I I+1
L SFL
S S+1
W QUE+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLDL+6*, LRBLDL+7
%DT LRBLDL+5*!
%DT("A" LRBLDL+5*
%DT(0 LRBLDL+5*
>> A QUE+1*
>> B W+3*
DIC LRBLDL+7*!
DIC("A" LRBLDL+7*
DIC("S" LRBLDL+7*
DIC(0 LRBLDL+7*
DTIME SFLI
>> I QUE+1*, WW+2, W+3
IO QUE
IOF LRBLDL+4
IOM W+2, H+2
IOSL W
IOST H
>> LR LRBLDL+5*, LRBLDL+7*, W
>> LR("%" H+2
>> LR("F" QUE*, H
>> LR("Q" QUE+1, WW+3, H
>> LR(1 B*, II+2*
>> LR(2 LRBLDL+5*, LRBLDL+7*, H+1
>> LRAA B
>> LRAA(1 H+1
>> LRSDT LRBLDL+5*, QUE+1
>> LRSTR LRBLDL+5*, H+1
>> O W+2*
>> P QUE+1*, W+1
>> P(1 S*, S+2*, QUE+1
>> P(2 S*, F*, F+2*, QUE+1
>> POP L+1, I+3
U LRBLDL+7, SFLI
>> W QUE+1*, WW+1
>> W(7 W*, W+1, W+3
>> X LRBLDL+3*, LRBLDL+7, S*, S+1, S+2, F*, F+1, F+2, L*, L+1
W+2*, I*, I+1, I+2
>> X(1 S+2*
>> Y LRBLDL+3, LRBLDL+5, LRBLDL+7, W+1*, W+2*
>> ZTRTN L+1*, I+3*
>> ZTSK L+1, I+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All