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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRDPA2

Package: Lab Service

Routine: LRDPA2


Information

LRDPA2 ;AVAMC/REG - PT BLOOD BANK LOOKUP ;12/14/92 10:47 ;

Source Information

Source file <LRDPA2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIWP  ^DIWW  
Kernel 1 ^%ZIS  
Lab Service 1 (D,M)^LRU  

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

Package Total Caller Graph
Lab Service 2 LRBLPE  LRDPA1  

Entry Points

Name Comments DBIA/ICR reference
W
R

External References

Name Field # of Occurrence
^%ZIS LRDPA2+2
^DIWP LRDPA2+5
^DIWW LRDPA2+6
D^LRU LRDPA2+9, R+1
M^LRU W, R+2, R+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: S A=0 F B=0
  • Timeout: 1
  • Line Location: LRDPA2+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: LRDPA2+6
Function Call: WRITE
  • Prompt: ?18,$P(X,"^")
  • Line Location: LRDPA2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRDPA2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,+$P(LR(1.9),U,2),0)),U)
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt:
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,^(B,0)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION REACTIONS WITH UNIT IDENTIFIED",?51,"UNIT ID",?66,"COMPONENT"
  • Condition for execution: A(1)=13
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,C,0)),U),?51,$P(LR(1.9),U,3),?69,$P($G(^LAB(66,+$P(LR(1.9),U,2),0)),U,2)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,B(2)
  • Line Location: R+3
Routine Call
  • %ZIS
  • Line Location:
    • LRDPA2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.3 - [#61.3] LRDPA2+6
^LAB(65.4 - [#65.4] LRDPA2+9, R+2
^LAB(66 - [#66] R+2
^LR - [#63] LRDPA2+5, LRDPA2+6, LRDPA2+9, W, R, R+3
^LR("AB" LRDPA2+8, R!
^TMP($J LRDPA2+2!

Label References

Name Line Occurrences
R LRDPA2+8
W LRDPA2+9

Naked Globals

Name Field # of Occurrence
^( LRDPA2+5, LRDPA2+9, W, R+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRDPA2+5*, LRDPA2+6*, LRDPA2+7*, LRDPA2+8*, LRDPA2+9*, W, R, R+3
>> A(1 LRDPA2+7*, LRDPA2+9*, W*, R+1*, R+2, R+3*
>> B LRDPA2+5*, LRDPA2+6*, LRDPA2+8*, LRDPA2+9*, W*
>> B(1 R+3*
>> B(2 R+3*
>> C LRDPA2+8*, R, R+2
>> DIWF LRDPA2+4*
>> DIWL LRDPA2+4*
>> DIWR LRDPA2+4*
IOM LRDPA2+2, LRDPA2+3*, LRDPA2+4
>> IOP LRDPA2+2*
>> LR( LRDPA2+9*, R*, R+1, R+2
>> LR("Q" LRDPA2+7*, LRDPA2+8, LRDPA2+9, LRDPA2+10*, W, R+3
>> LRDFN LRDPA2+5, LRDPA2+6, LRDPA2+8, LRDPA2+9, W, R, R+3
R LRDPA2+6!
R( LRDPA2+6*
U LRDPA2+9, R+2
>> X LRDPA2+5*, LRDPA2+6*
>> Y LRDPA2+9*, R+1*, R+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All