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

Package: Lab Service

Routine: LRBLDW


Information

LRBLDW ; IHS/DIR/AAB - BLOOD DONOR WORKLIST 6/28/96 09:06 ;

Source Information

Source file <LRBLDW.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (D,F,L,M,S,V,YN)^LRU  (BEG,END)^LRUTL  
VA Fileman 1 FIELD^DID  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDDAW  

Entry Points

Name Comments DBIA/ICR reference
ALL
END
SHOW
H
QUE
T
W
SEL

External References

Name Field # of Occurrence
FIELD^DID LRBLDW+5
D^LRU W
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU LRBLDW+3, END
YN^LRU SHOW, SHOW+2
BEG^LRUTL SHOW+3
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"BLOOD DONOR WORKLIST"
  • Line Location: LRBLDW+3
Function Call: WRITE
  • Prompt: $C(7),!,"No tests pending",!
  • Line Location: LRBLDW+4
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRA(A)
  • Line Location: LRBLDW+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select test(s) by number: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter one or more of the above numbers",!,"For 2 or more selections separate each with a ',' (ex. 12,13,15)",!,"Enter 'ALL' for all tests."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: $C(7),!,"None of the listed tests selected, try again "
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !,$J(A,3),") ",LRT(A)
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: T+1
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,C,?42,$P(P,"^",5),?46,$P(P,"^",6),?55,C(2),!
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRT(T)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?23,"BLOOD DONOR WORKLIST"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"DONOR ID",?42,"ABO",?46,"RH",?55,"Collection date",!,LR("%")
  • Line Location: H+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRE - [#65.5] W
^LRE("AT" LRBLDW+4, QUE+1, T, W

Label References

Name Line Occurrences
ALL SEL+1
END SEL, SHOW, SHOW+3, QUE+2
H QUE, W, W+1
LRBLDW SHOW, SHOW+2
SEL SEL, SEL+2, SEL+3
SHOW SEL+1
T QUE+1
W T

Naked Globals

Name Field # of Occurrence
^( W
^(5 W

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SHOW*, SHOW+2*
A LRBLDW+3!, LRBLDW+5*, SHOW+1*, QUE+1*, ALL*
>> B T*
>> C QUE+1*, T, W
>> C(1 QUE+1!, T+1, W*
>> C(2 W*
>> C(4 W*
DTIME SEL
IO QUE
IOF QUE+2
IOSL W, W+1
IOST QUE+2, H
>> LR("%" T+1, H+2
>> LR("F" QUE*, H
>> LR("Q" QUE+1, T, T+1, W, W+1, H
>> LRA( LRBLDW+5*, SEL+4, ALL
>> LRA("LABEL" LRBLDW+5
>> LRB SEL+4*
>> LRN SEL+4*
>> LRT SHOW
>> LRT( SEL+4*, SHOW+1, T, W+1, ALL*
>> LRV SEL+4*
>> P W*
>> POP SHOW+3
T LRBLDW+3!, T*, W, W+1
U SEL
>> X SEL*, SEL+1, SEL+2, SEL+3, SEL+4
>> Y W*
>> ZTRTN SHOW+3*
>> ZTSK SHOW+3
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