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

Package: Lab Service

Routine: LRBLPD1


Information

LRBLPD1 ; IHS/DIR/FJE - BB PT INFO for OE/RR pt lists 12:21 ; [ 12/10/90 ]

Source Information

Source file <LRBLPD1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^%DT  ^%DTC  ^DIWP  ^DIWW  
Lab Service 2 (D,L,S,SSN,V)^LRU  ^LRUTL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 1 LRAPS3  
Order Entry Results Reporting 1 ORWRP16  

Entry Points

Name Comments DBIA/ICR reference
SET ;
OERR ;
H
N
S
INI ;
CLEAN ;
MORE

External References

Name Field # of Occurrence
^%DT H
^%DTC INI+7
^DIWP OERR+7
^DIWW OERR+8
D^LRU OERR+9, H, INI+7, INI+8
L^LRU OERR+5
S^LRU OERR+5
SSN^LRU INI+2
V^LRU SET+1
^LRUTL SET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Lab Data for: "_$P(^(0),"^")
  • Line Location: OERR+1
Function Call: WRITE
  • Prompt: !,"No Lab Data for: "_$P(^DPT(DFN,0),"^")
  • Line Location: OERR+2
Function Call: WRITE
  • Prompt: @IOF,!,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH
  • Line Location: OERR+6
Function Call: WRITE
  • Prompt: MORE
  • Condition for execution: 'B C(C) W:B ! W ?21,$P(^LAB(61.3,A,0),"^") D:$Y>A(1)!'$Y
  • Line Location: OERR+8
Function Call: WRITE
  • Prompt: !,"No transfused units on record",!
  • Line Location: OERR+10
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(X,"^",3),?18,$E($P(M,"^"),1,30)
  • Line Location: N+2
Function Call: WRITE
  • Prompt: ?45,"(",X(7),"/",X(10),")"
  • Line Location: N+2
Function Call: WRITE
  • Prompt: ?54,$P(X,"^",5)_" "_$P(X,"^",6),?60,Y
  • Line Location: N+3
Function Call: READ
  • Prompt: "^ TO STOP: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: A(2)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: @IOF,!,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
  • Line Location: SET+3
Function Call: WRITE
  • Prompt: $C(7),!!,?34,"",LRLLOC,"",!
  • Line Location: INI+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] INI+1
^DIC(45.7 - [#45.7] INI+6
^DPT - [#2] OERR+1, OERR+2
^LAB(61.3 - [#61.3] OERR+8
^LAB(66 - [#66] N+1
^LR - [#63] OERR+2, OERR+7, OERR+8, OERR+9, N+4, INI+2, INI+5, INI+8*
^VA(200 - [#200] INI+4

Label References

Name Line Occurrences
H OERR+5, MORE
INI OERR+3
MORE OERR+7, OERR+8, OERR+9, N+4
N OERR+9
S OERR+7, OERR+8, OERR+9

Naked Globals

Name Field # of Occurrence
^( OERR+7, N+4, INI+2, INI+6, INI+8
^(0 OERR+1, INI+4, INI+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H*
A OERR+7*, OERR+8*, OERR+9*, N+4, MORE*, S*, CLEAN+1!
A(1 OERR+5*, OERR+6*, OERR+7, OERR+8, OERR+9, N+4, MORE+1*, H+2*
A(2 OERR+7, OERR+8, OERR+9, OERR+10, N+4, MORE*, S*
AGE CLEAN+1!, INI+7*
B OERR+7*, OERR+8*, OERR+9*, OERR+10, N, N+2, CLEAN+1!
C OERR+8*, CLEAN+1!
C( OERR+4*, OERR+8
C(1 OERR+4*
DFN OERR+1, OERR+2, CLEAN+1!, INI+2, INI+6, INI+8
>> DIWF OERR+4*
>> DIWL OERR+4*
>> DIWR OERR+4*
DOB CLEAN+1!, INI+1*, INI+2*, INI+7*
DT INI+7
DTIME MORE
>> E N+4*
>> F N+4*
I CLEAN+1!
IOF OERR+6, H
IOM OERR+4, H
IOSL OERR+6, H+2
IOST OERR+5, OERR+6, MORE
LR CLEAN+1!
LRAA CLEAN+1!
LRABV CLEAN+1!
LRAD CLEAN+1!
LRADM CLEAN+1!, INI+1*
LRADX CLEAN+1!, INI+1*
LRAWRD CLEAN+1!, INI+1*
LRAX CLEAN+1!
LRCAPLOC CLEAN+1!
LRDFN OERR+2*, OERR+7, OERR+8, OERR+9, N+4, CLEAN+1!, INI+2, INI+5, INI+8
LRDPAF CLEAN+1!
LRDPF OERR+2*, CLEAN+1!, INI+1
LREXP INI+1!, INI+8*
LRFNAM CLEAN+1!, INI+1*
LRH CLEAN+1!
>> LRLLOC INI+2*, INI+3*, INI+8*
LRMD CLEAN+1!, INI+1*, INI+4*
LRMD(1 INI+1*, INI+4*
LROLLOC CLEAN+1!
LRP OERR+6, H+2, CLEAN+1!, INI+2*
LRPABO OERR+6, H+2, CLEAN+1!, INI+5*
LRPARAM CLEAN+1!
LRPF CLEAN+1!, INI+1*, INI+2, INI+6, INI+8
LRPFN CLEAN+1!, INI+1*
LRPRH OERR+6, H+2, CLEAN+1!, INI+5*
LRQ OERR+3*, H*, CLEAN+1!
LRQ(1 H
LRS CLEAN+1!, INI+1*, INI+6*
LRS(1 INI+1*, INI+6*
LRSF CLEAN+1!
LRSS SET+3, CLEAN+1!, INI+5
LRSVC CLEAN+1!, INI+1*, INI+6*
LRU CLEAN+1!
LRWHO CLEAN+1!
>> M N+1*, N+2
N CLEAN+1!
>> OREND SET+2*, SET+3*
P CLEAN+1!
R CLEAN+1!
SEX CLEAN+1!, INI+2*
SSN OERR+6, H+2, CLEAN+1!, INI+2*
X OERR+7*, OERR+9*, N+1, N+2, N+3, H*, SET+1*, CLEAN+1!, INI+2*, INI+4
, INI+5*, INI+7
X(1 N+1*
X(10 N+1*, N+2
X(7 N+1*, N+2
>> X1 INI+7*
>> X2 INI+7*
Y OERR+9*, N+3, H, SET+2, CLEAN+1!, INI+2*, INI+7*, INI+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All