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

Package: Lab Service

Routine: LRBLDA1


Information

LRBLDA1 ;AVAMC/REG - BLOOD DONOR LABELS ; 10/23/88 15:45 ;

Source Information

Source file <LRBLDA1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 V^LRU  END^LRUTL  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDA  

Entry Points

Name Comments DBIA/ICR reference
END
W
A
EN ;
AB
R
EN1 ;RBC ANTIGENS ABSENT
B

External References

Name Field # of Occurrence
^DIC B
V^LRU END
END^LRUTL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(LRP,",",2)_" "_$P(LRP,",")
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,$P(X,"^",B)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$P(X,"^",4)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: ", ",$P(^DIC(5,$P(X,"^",5),0),"^",2)
  • Condition for execution: $P(X,"^",5)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: " ",$P(X,"^",6)
  • Line Location: A+1
Function Call: READ
  • Formatting: !
  • Prompt: "ABO GROUP: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter A, O, B or AB"
  • Line Location: AB+1
Function Call: READ
  • Formatting: !
  • Prompt: "Rh TYPE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter P for POS or N for NEG"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Routine Call
  • DIC
  • Line Location:
    • B

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61.3 - [#61.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] A+1
^LRE - [#65.5] LRBLDA1+3, W, W+1, W+3
^LRE("B" LRBLDA1+3

Label References

Name Line Occurrences
A W+3
AB AB+1
B B
END LRBLDA1+3
R R+1
W LRBLDA1+3

Naked Globals

Name Field # of Occurrence
^( LRBLDA1+3
^(1 W+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A B+1*
>> B W+4*, A*, B+1*, B+2*, B+3
>> C W+2*, W+4, A*, A+1*
DIC B*!
DIC("A" B*
DIC("S" B*
DIC(0 B*
DTIME AB, R
IO LRBLDA1+3
>> LR W+1
>> LR(1 W+4
>> LRA LRBLDA1+3*
>> LRABO W, AB+2*
>> LRF B+3*
>> LRI LRBLDA1+3*, W, W+1, W+3
>> LRJ( B*, B+1
>> LRP LRBLDA1+3*, W+2
>> LRP(1 LRBLDA1+3
>> LRP(2 LRBLDA1+3
>> LRRH W, R+2*
>> LRSDT LRBLDA1+3
>> LRW LRBLDA1+3*, W+1
>> LRW(7 W+1*
U AB, R, B
>> X W*, W+3*, A, A+1, AB*, AB+1, AB+2, R*, R+1, R+2
, B+1*, B+2
Y AB!, R!, B
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