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

Package: Lab Service

Routine: LRBLJU1


Information

LRBLJU1 ; IHS/DIR/AAB - FIND UNITS NO DISPOSITION 08:34 ; [ 5/17/96 ]

Source Information

Source file <LRBLJU1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 (D,F,M)^LRU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLJU  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
E
D
F
H
P

External References

Name Field # of Occurrence
D^LRU C
F^LRU LRBLJU1+5, H+1
M^LRU H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Transfusion Service - Units ",$S(LROPT="EN1":"in & out date without final disposition",1:"available"),!,LR("%"),!,"There are no units ",$S(LROPT="":"available.",1:"without a final disposition.")
  • Line Location: LRBLJU1+5
Function Call: WRITE
  • Prompt: !,C(1)," Total units: ",T(1)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !?4,"Total ",A," ",R," units: ",T(2)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: D:$Y>(IOSL-6)
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,A,?3,R,?7,I,?20,C(6),?40,$E($P(W,"^",2),1,8)
  • Line Location: D+0
Function Call: WRITE
  • Prompt: ?49,"*"
  • Line Location: E+2
Function Call: WRITE
  • Prompt: $E($P(Y,"^"),1,17)
  • Line Location: E+2
Function Call: WRITE
  • Prompt: ?68,$E(I(2),4,5)_"/"_$E(I(2),6,7)
  • Line Location: F+2
Function Call: WRITE
  • Prompt: ?74,$E(I(3),1,2)_":"_$E(I(3),3,4)
  • Condition for execution: I(3)
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,"Transfusion Service ",LRAA(4),!,"Units of ",C(1),$S(LROPT["EN1":" in & out date ",1:" available")," (no disposition)"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?49,"*Autologous/Directed",!,"ABO",?4,"Rh",?7,"ID",?20,"Expiration Date",?40,"Location",?51,"Patient Assigned",?69,"Spec Date",!,LR("%")
  • Line Location: H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] P
^LAB(66 - [#66] LRBLJU1+4
^LR - [#63] F+1, P
^LRD(65 - [#65] E, E+1, E+2, F, F+2
^TMP($J LRBLJU1+4, A, B, C, D

Label References

Name Line Occurrences
A LRBLJU1+4
B A
C B
D C
E D
F E+1
H LRBLJU1+4, D
P E+2, F+1

Naked Globals

Name Field # of Occurrence
^( D, F+2
^(0 LRBLJU1+4
^(8 E

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A A*, B, C, C+1, D
>> A(1 A*
>> A(2 B*
>> A(3 C*
>> A(4 D*
>> C LRBLJU1+4*, A, B, C, D
>> C(1 LRBLJU1+4*, A+1, H+1
>> C(2 E*, F+1*
>> C(6 C*, D
>> E C*, D
>> I D*
>> I(1 D*, E, E+1, E+2, F, F+2
>> I(2 F+2*
>> I(3 F+2*
IOSL D
IOST H
>> LR("%" LRBLJU1+5, H+2
>> LR("F" LRBLJU1+4*, H
>> LR("Q" LRBLJU1+4, A, A+1, B, C, C+1, D, E+1, H
>> LRAA(4 H+1
>> LRF LRBLJU1+3*, LRBLJU1+4*, LRBLJU1+5
>> LRI F+2*
>> LRJ E*, E+2, F+2
>> LRK LRBLJU1+3*, E+2, F*
>> LROPT LRBLJU1+5, H+1
>> P E+1*, E+2*, F, F+1, F+2, P
>> P(1 E+1*, E+2
>> R B*, C, C+1, D
>> T(1 LRBLJU1+3*, A+1*, E*
>> T(2 C*, C+1, E*
>> W D*
>> X E*, P*
>> Y C*, E+2, F+2, P*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All