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 ; IHS/DIR/FJE - UNITS ON XMATCH 2/18/93 09:36 ;

Source Information

Source file <LRBLJX.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLIX  LRBLJR  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"Units on crossmatch by date/time crossmatched",!!
  • Line Location: LRBLJX+4
Function Call: WRITE
  • Prompt: !,T(1),?12
  • Line Location: P+0
Function Call: WRITE
  • Prompt: T,?24,$P(B,"""",2),?36,$J($P(W,"^",4),2),$P(W,"^",5),?40,$P(W,"^"),?45
  • Line Location: P+0
Function Call: WRITE
  • Prompt: T,?24,$P(B,"""",2),?36,$J($P(W,"^",4),2),$P(W,"^",5),?40,$P(W,"^"),?45
  • Line Location: P+0
Function Call: WRITE
  • Prompt: ?63
  • 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,12),SSN(1)
  • Condition for execution: IOM<81
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?62
  • Line Location: P+2
Function Call: WRITE
  • Prompt: $P(Y,"^"),?94,HRCN
  • Condition for execution: IOM>80
  • Line Location: P+2
Function Call: WRITE
  • Prompt: $E($P(Y,"^"),1,10),$J(HRCN,8)
  • Condition for execution: IOM<81
  • Line Location: P+2
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",?35,"Type",?40,"Loc",?45,"Mo/Da TIME",?57,"Prod",?63,"Patient/HRCN",!,LR("%")
  • Line Location: H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] P+2
^LAB(66 - [#66] P
^LR - [#63] P+2
^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+5, 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*
>> DFN P+2*
DT T+1
>> E I*, P+2
>> HRCN P+2
IO QUE
IOF QUE+2
IOM P+2
IOSL I
IOST QUE+2, H
>> K A+1*, A+2
>> L A*, A+2
>> LR("%" H+3
>> LR("F" W*, H
>> LR("Q" W, I, H
>> LRDPF P+2*
>> M A*, A+2
>> POP LRBLJX+5
>> SSN P+2*
>> T T+1*, T+2*, W*, P*
>> T(1 W*, P
>> W I*, P
>> X P+2*, A*, A+1, A+2
>> X(1 A+1*, A+2
>> X(8 A*, A+2
>> Y P+2*
>> ZTRTN LRBLJX+5*
>> ZTSK LRBLJX+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All