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 Total: 4

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPE  LRDPA1  

Entry Points

Name Comments DBIA/ICR reference
R
W

External References

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 1
  • Variable: S A=0 F B=0
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt: ?18,$P(X,"^")
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LRDPA2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LRDPA2+12
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,+$P(LR(1.9),U,2),0)),U)
  • Line Location: LRDPA2+12
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+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
R LRDPA2+11
W LRDPA2+12

Naked Globals

Name Field # of Occurrence
^( LRDPA2+8, LRDPA2+12, W, R+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRDPA2+8*, LRDPA2+9*, LRDPA2+10*, LRDPA2+11*, LRDPA2+12*, W, R, R+3
>> A(1 LRDPA2+10*, LRDPA2+12*, W*, R+1*, R+2, R+3*
>> B LRDPA2+8*, LRDPA2+9*, LRDPA2+11*, LRDPA2+12*, W*
>> B(1 R+3*
>> B(2 R+3*
>> C LRDPA2+11*, R, R+2
>> DIWF LRDPA2+7*
>> DIWL LRDPA2+7*
>> DIWR LRDPA2+7*
IOM LRDPA2+5, LRDPA2+6*, LRDPA2+7
>> IOP LRDPA2+5*
>> LR( LRDPA2+12*, R*, R+1, R+2
>> LR("Q" LRDPA2+10*, LRDPA2+11, LRDPA2+12, LRDPA2+13*, W, R+3
>> LRDFN LRDPA2+8, LRDPA2+9, LRDPA2+11, LRDPA2+12, W, R, R+3
R LRDPA2+9!
R( LRDPA2+9*
U LRDPA2+12, R+2
>> X LRDPA2+8*, LRDPA2+9*
>> Y LRDPA2+12*, 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