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

Package: Lab Service

Routine: LRBLJX


Information

LRBLJX ;AVAMC/REG - UNITS ON XMATCH ;2/18/93 09:36 ;

Source Information

Source file <LRBLJX.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 (F,L,M,S,SSN,V)^LRU  (BEG,END)^LRUTL  

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 LRBLIX  LRBLJR  

Entry Points

Name Comments DBIA/ICR reference
QUE
T ;from LRBLJR
W
I
P
A
H
END

External References

Name Field # of Occurrence
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU P+1
V^LRU END
BEG^LRUTL LRBLJX+4
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"Units on crossmatch by date/time crossmatched",!!
  • Line Location: LRBLJX+3
Function Call: WRITE
  • Prompt: !,T(1),?12
  • Line Location: P+0
Function Call: WRITE
  • Prompt: T,?24,$P(B,"""",2),?38,$J($P(W,"^",4),2),$P(W,"^",5),?42,$P(W,"^"),?47
  • Line Location: P+0
Function Call: WRITE
  • Prompt: T,?24,$P(B,"""",2),?38,$J($P(W,"^",4),2),$P(W,"^",5),?42,$P(W,"^"),?47
  • Line Location: P+0
Function Call: WRITE
  • Prompt: ?66
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $P(Y,"^"),?94,SSN
  • Condition for execution: IOM>80
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $E($P(Y,"^"),1,10),SSN(1)
  • Condition for execution: IOM<81
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"Blood Bank "
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"XMATCHED",?13,"SPECIMEN",?46,"EXPIRES",!,"Mo/Da TIME",?12,"Mo/Da TIME",?24,"Unit ID",?37,"Type",?42,"Loc",?47,"Mo/Da TIME",?60,"Prod",?66,"Patient/SSN",!,LR("%")
  • Line Location: H+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] P+1
^LAB(66 - [#66] P
^LR - [#63] P+1
^LRD(65 - [#65] QUE+1, A!, A+1
^TMP($J QUE!, QUE+2!, W, I, A+2*

Label References

Name Line Occurrences
A QUE+1
END LRBLJX+4, QUE+2
H W, I
I W
P I
T W, P
W QUE+2

Naked Globals

Name Field # of Occurrence
^( I, A, A+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+1*, W*, I, A, A+1, A+2
>> B QUE+1*, I*, P, A, A+1
>> C I*
DT T+1
>> E I*, P+1
IO QUE
IOF QUE+2
IOM P+1
IOSL I
IOST QUE+2, H
>> K A+1*, A+2
>> L A*, A+2
>> LR("%" H+2
>> LR("F" W*, H
>> LR("Q" W, I, H
>> LRDPF P+1*
>> M A*, A+2
>> POP LRBLJX+4
>> SSN P+1*
>> SSN(1 P+1
>> T T+1*, T+2*, W*, P*
>> T(1 W*, P
>> W I*, P
>> X P+1*, A*, A+1, A+2
>> X(1 A+1*, A+2
>> X(8 A*, A+2
>> Y P+1*
>> ZTRTN LRBLJX+4*
>> ZTSK LRBLJX+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All