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

Package: Lab Service

Routine: LRBLJPA2


Information

LRBLJPA2 ; IHS/DIR/AAB - UNIT FINAL DISPOSITION 6/20/96 07:13 ;

Source Information

Source file <LRBLJPA2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 (H1,P,Y)^LRBLJPA1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLJPA1  

Entry Points

Name Comments DBIA/ICR reference
A ;S X=A D P^LRBLJPA1 W !,$P(Y,"^")," ssn:",$P(Y,"^",9)," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:" S Y=$P(A(1),"^",2) D Y^LRBLJPA1 W Y
C
B
D
H2
H
H1
H6
H4
H5
H3

External References

Name Field # of Occurrence
H1^LRBLJPA1 H, H2, H3, H4
P^LRBLJPA1 A+1
Y^LRBLJPA1 C, A+1, A+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$S($D(^LAB(61.3,A,0)):$P(^(0),"^"),1:A)
  • Line Location: LRBLJPA2+6
Function Call: WRITE
  • Prompt: " (",$P(A(1),"^",2),")"
  • Condition for execution: $P(A(1),"^",2)]""
  • Line Location: LRBLJPA2+6
Function Call: WRITE
  • Prompt: !,"Modified to/from:"
  • Line Location: LRBLJPA2+7
Function Call: WRITE
  • Prompt: !?2,"Issued to/rec'd from:",$P(A(1),"^",5)," For patient:",$P(A(1),"^",6)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: " (",$P(A(1),"^",7),")"
  • Condition for execution: $P(A(1),"^",7)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,$P(Y,"^")," ssn:",$P(Y,"^",9)," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,$P(Y,"^")," HRCN:",HRCN," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:"
  • Line Location: A+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,Y," ",$P(B(1),"^",6)," ",$P(B(1),"^",2)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: "(",$P(B(1),"^",7),")"
  • Condition for execution: $P(B(1),"^",7)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: " ",$P(B(1),"^",3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: "(",$P(B(1),"^",8),")"
  • Condition for execution: $P(B(1),"^",8)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,C(1)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !,$S(LRA=60:"RBC antigen present",LRA=70:"RBC antigen absent",LRA=80:"HLA antigen present",1:"HLA antigen absent"),":"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Modified to/from:"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Patient xmatched/assigned:"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,"Crossmatch comment:"
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: !,"Date unit relocated:"
  • Line Location: H6+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.3 - [#61.3] LRBLJPA2+6
^LAB(66 - [#66] D
^LRD(65 - [#65] LRBLJPA2+3, LRBLJPA2+4, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D
^VA(200 - [#200] LRBLJPA2+3, LRBLJPA2+4, C, B+1

Label References

Name Line Occurrences
A LRBLJPA2+8
B A+2
C LRBLJPA2+9
D LRBLJPA2+7
H LRBLJPA2+5, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9
H1 LRBLJPA2+6
H2 D
H3 LRBLJPA2+8
H4 A+2, H5, H6
H5 B+2
H6 LRBLJPA2+9

Naked Globals

Name Field # of Occurrence
^( LRBLJPA2+6, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D
^(0 LRBLJPA2+3, LRBLJPA2+4, LRBLJPA2+6, C, B+1, D
^(10 LRBLJPA2+3
^(11 LRBLJPA2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLJPA2+6*, LRBLJPA2+8*, LRBLJPA2+9*, A+1, A+2, B+2, D*
>> A(1 LRBLJPA2+6*, LRBLJPA2+8*, LRBLJPA2+9*, C, C+1, A+1, D*
>> B A+2*, B+2
>> B(1 A+2*, B, B+1
>> C B+2*
>> C(1 B+2*
>> HRCN A+1
IOSL LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D, H
>> LR("Q" LRBLJPA2+5, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D, H1, H2
, H3, H5, H6
>> LRA LRBLJPA2+6*, H1
>> LRI LRBLJPA2+3, LRBLJPA2+4, LRBLJPA2+6, LRBLJPA2+7, LRBLJPA2+8, LRBLJPA2+9, A+2, B+2, D
>> LRT B+1
>> LRTABO LRBLJPA2+3
>> LRTINS C
>> LRTRH LRBLJPA2+4
U LRBLJPA2+3, LRBLJPA2+4
>> X LRBLJPA2+3*, LRBLJPA2+4*, C*, A+1*, B+1*, D*
>> X(1 A+1
>> X(3 LRBLJPA2+3*, LRBLJPA2+4*, C*
>> Y LRBLJPA2+3*, LRBLJPA2+4*, C*, A+1*, A+2*, B, B+1*
>> Z LRBLJPA2+3*, LRBLJPA2+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All