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

Package: Lab Service

Routine: LRBLDTA


Information

LRBLDTA ; IHS/DIR/AAB - ABNORMAL DONOR TESTS 6/28/96 09:04 ;

Source Information

Source file <LRBLDTA.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDTA  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
END
G
F
H
QUE

External References

Name Field # of Occurrence
FIELD^DID QUE
D^LRU F
F^LRU H+1
L^LRU QUE+1
M^LRU H
S^LRU QUE+1
V^LRU END
^LRUTL LRBLDTA+3
BEG^LRUTL B+1
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Blood donor- Abnormal Test List"
  • Line Location: LRBLDTA+4
Function Call: READ
  • Prompt: "Start with DONOR UNIT ID: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+0
Function Call: READ
  • Prompt: "Go to DONOR UNIT ID: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,LRT,?14,A,?26,I
  • Condition for execution: F=1
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: F>1
  • Line Location: G+0
Function Call: WRITE
  • Prompt: ?36,LRA(E)," ",$P(Z,"^",3)
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?23,"ABNORMAL TEST RESULTS FOR DONORS"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Donation Date",?14,"Unit ID",?26,"DONOR",?36,"TEST",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $C(7)," Entry must be 6-11 digits &/or UPPER CASE letters"
  • Line Location: C+0

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] F, F+1
^LRE("C" QUE+1, F

Label References

Name Line Occurrences
A A
B B
C A, B
END LRBLDTA+3, A, B, B+1, QUE+2
F QUE+1
G F+1
H QUE+1, G

Naked Globals

Name Field # of Occurrence
^( F, F+1
^(0 F

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A A+1*, QUE*, QUE+1*, F, G
>> B QUE+1*
DTIME A, B
>> E F+1*, G
>> F F+1*, F+2, G
>> I F*, F+1, G
IO QUE
IOSL G
IOST H
>> LR("%" F+2, H+2
>> LR("F" QUE+1*, H
>> LR("Q" QUE+1, G, H
>> LRA A+1*, QUE+1
>> LRA( QUE*, F+1, G
>> LRA("LABEL" QUE
>> LRB B+1*, QUE+1
>> LRIDT F*, F+1
>> LRT F*, G
>> POP B+1
U A, B
X LRBLDTA+3*, A*, A+1, B*, B+1, C!
>> Y LRBLDTA+3, F*
>> Z F+1*, G
>> ZTRTN B+1*
>> ZTSK B+1
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