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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLCMV

Package: Lab Service

Routine: LRBLCMV


Information

LRBLCMV ; IHS/DIR/FJE - UNIT PHENOTYPE BY ABO/RH 9/13/89 19:30 ;

Source Information

Source file <LRBLCMV.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLICV  

Entry Points

Name Comments DBIA/ICR reference
END
I
H
ABO
QUE
SEL
RH

External References

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter 'POS' for CMV ANTIBODY POSITIVE units",!,"Enter 'NEG' for CMV ANTIBODY NEGATIVE units."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: $E(X(1),$L(X)+1,3)
  • Line Location: SEL+2
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: !,$J(Z,3),")",?5,$P(F,"^"),?20
  • Line Location: I+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: I+4
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: I+5
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",!,C(1)," ",C(7)," ",C(8)," CMV ",$S(LRV:"POS",1:"NEG")," units"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?5,"Unit",?20,"Exp date",?40,!,LR("%")
  • Line Location: H+2
Routine Call
  • DIC
  • Line Location:
    • SEL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(66 - [#66] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRD(65 - [#65] QUE+1, I!, I+1!, I+2

Label References

Name Line Occurrences
ABO ABO
END LRBLCMV+4, SEL, SEL+4, RH+2, QUE+2
H QUE, I+4
I QUE+1
RH RH
SEL SEL+1

Naked Globals

Name Field # of Occurrence
^(0 I+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT QUE*
>> A QUE+1*, I, I+1, I+2
>> B QUE+1*
>> C SEL+4*, QUE+1, I, I+1, I+2
>> C(1 SEL+4*, QUE+2, H+1
>> C(7 ABO*, QUE+2, I+3, H+1
>> C(8 RH+1*, QUE+2, I+3, H+1
>> C(9 LRBLCMV+4*, SEL+1, RH
DIC SEL+4*!
DIC("A" SEL+4*
DIC(0 SEL+4*
DTIME LRBLCMV+4*, SEL, ABO, RH
F I+2!*, I+3, I+4
>> H QUE*, I+1
IO QUE
IOSL I+4
IOST H
J I+2!
>> LR("%" I+5, H+2
>> LR("F" QUE*, H
>> LR("Q" QUE+1, I+4, H
>> LRV SEL+3*, QUE+2, I+2, H+1
>> N QUE*, I
>> POP RH+2
>> Q QUE+1*, I, I+1, I+2
U SEL, SEL+4
>> V I+2*
>> X SEL*, SEL+1, SEL+2, SEL+3, SEL+4, RH*, RH+1, QUE*
>> X(1 SEL+2*
>> Y SEL+4, QUE, I+4*
>> Z QUE*, QUE+2, I+4*
>> Z(1 QUE*
>> ZTRTN RH+2*
>> ZTSK RH+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All