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

Package: Lab Service

Routine: LRBLJPH


Information

LRBLJPH ; IHS/DIR/FJE - UNIT PHENOTYPE BY ABO/RH 2/18/93 09:26 ;

Source Information

Source file <LRBLJPH.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (D,F,L,M,S,V)^LRU  (BEG,END)^LRUTL  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLIPH  

Entry Points

Name Comments DBIA/ICR reference
A
END
I
H
H1
ABO
P
QUE
RH

External References

Name Field # of Occurrence
^%DT QUE
D^LRU QUE, I+5
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
BEG^LRUTL RH+2
END^LRUTL QUE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Phenotyped units"
  • Line Location: LRBLJPH+4
Function Call: READ
  • Prompt: "Select ABO group: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: C(7)
  • Line Location: ABO+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter A, B, AB or O"
  • Line Location: ABO+0
Function Call: READ
  • Prompt: "Select Rh type: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: $C(7)," Enter 'NEG' or 'POS'"
  • Line Location: RH+0
Function Call: WRITE
  • Prompt: $E(C(8),$L(X)+1,3)
  • Line Location: RH+1
Function Call: WRITE
  • Prompt: !!,$P(^LAB(66,C,0),U),":"
  • Condition for execution: LRE=1
  • Line Location: I+5
Function Call: WRITE
  • Prompt: !,$J(Z,3),")"
  • Line Location: I+5
Function Call: WRITE
  • Prompt: ?5,$P(F,"^"),?20
  • Line Location: I+5
Function Call: WRITE
  • Prompt: ?5,$P(F,"^"),?20
  • Line Location: I+5
Function Call: WRITE
  • Prompt: !,"Assigned:",$P(X,"^")
  • Line Location: I+6
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: I+10
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?40,C(7)," ",C(8)," Phenotyped units"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Count",?6,"Unit ID",?20,"Exp date",?40,"Antigen(s) present",?60,"| Antigen(s) absent",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!,$P(^LAB(66,C,0),U)
  • Line Location: H1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] P
^LAB(61.3 - [#61.3] I+7, I+8
^LAB(66 - [#66] QUE+1, I+5, H1
^LR - [#63] P
^LRD(65 - [#65] A, I!, I+1!, I+2, I+4, I+6, I+7, I+8

Label References

Name Line Occurrences
A QUE+2
ABO ABO
END LRBLJPH+4, RH, RH+2, QUE+3
H QUE, H1
H1 I+5
I A
P I+6
RH RH

Naked Globals

Name Field # of Occurrence
^( QUE+1
^(0 I+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT QUE*
>> A A*, I, I+1, I+2
>> B I+7*, I+8*
>> C QUE+2*, A, I, I+1, I+2, I+5, H1
>> C(7 ABO*, QUE+3, I+3, H+1
>> C(8 RH+1*, QUE+3, I+3, H+1
>> C(9 LRBLJPH+4*, RH
DTIME ABO, RH
>> E I+7*, I+8*, I+9*
F I+2!*, I+3, I+5
F( I+7*, I+9
F(1 I+7*
>> G I+7*, I+8*
>> H QUE*, I+1
>> I I+7*, I+8*
IO QUE
IOSL I+5
IOST H
J I+2!
J( I+8*, I+9
J(1 I+8*
>> K I+8*, I+9*
>> LR("%" I+10, H+2
>> LR("F" QUE*, H
>> LR("Q" QUE+2, A, I+5, I+6, H, H1
>> LRB A*
>> LRC( QUE+1*, QUE+2
>> LRDFN I+6*, P
>> LRE A*, I+5*
>> N QUE*, I
>> POP RH+2
>> Q A*, I, I+1, I+2
U I+5, H1
>> V I+2*, I+4, I+6, I+7, I+8
>> X RH*, RH+1, QUE*, QUE+1*, I+6, P*
>> Y QUE, QUE+1*, I+5*, P*
>> Z QUE*, QUE+3, I+5*
>> Z(1 QUE*
>> ZTRTN RH+2*
>> ZTSK RH+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All