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 ; IHS/DIR/FJE - BLOOD DONOR LIST 2/18/93 08:55 ;

Source Information

Source file <LRBLDL.m>

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
B
END
F
I
H
L
S
QUE
W

External References

Name Field # of Occurrence
^%DT LRBLDL+6
^DIC LRBLDL+8
^LRBLDL1 I+4
D^LRU LRBLDL+6, 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+7
^LRUTL LRBLDL+4
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+5
Function Call: WRITE
  • Prompt: !!,"DONORS FROM A SPECIFIC GROUP AFFILIATION "
  • Line Location: LRBLDL+7
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: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: I+0
Function Call: WRITE
  • Prompt: !
  • Line Location: I+4
Routine Call
  • DIC
  • Line Location:
    • LRBLDL+8

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, W, W+2, W+3
^LRE("B" QUE+1
^LRO(69.2 - [#69.2] B

Label References

Name Line Occurrences
B L+1
END LRBLDL+4, LRBLDL+6, LRBLDL+7, LRBLDL+8, S, F, L+1, QUE+2, I+3
F F+1
H QUE, W
I I+1
L S, F, L
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+7*, LRBLDL+8
%DT LRBLDL+6*!
%DT("A" LRBLDL+6*
%DT(0 LRBLDL+6*
>> A QUE+1*
>> B W+3*
DIC LRBLDL+8*!
DIC("A" LRBLDL+8*
DIC("S" LRBLDL+8*
DIC(0 LRBLDL+8*
DTIME S, F, L, I
>> I QUE+1*, W, W+2, W+3
IO QUE
IOF LRBLDL+5
IOM W+2, H+2
IOSL W
IOST H
>> LR LRBLDL+6*, LRBLDL+8*, W
>> LR("%" H+2
>> LR("F" QUE*, H
>> LR("Q" QUE+1, W, W+3, H
>> LR(1 B*, I, I+2*
>> LR(2 LRBLDL+6*, LRBLDL+8*, H+1
>> LRAA B
>> LRAA(1 H+1
>> LRSDT LRBLDL+6*, QUE+1
>> LRSTR LRBLDL+6*, 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+8, S, F, L, I
>> W QUE+1*, W, W+1
>> W(7 W*, W+1, W+3
>> X LRBLDL+4*, LRBLDL+8, 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+4, LRBLDL+6, LRBLDL+8, 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