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

Package: Lab Service

Routine: LRBLDEX2


Information

LRBLDEX2 ; IHS/DIR/AAB - EX-BLOOD DONORS 7/3/96 11:30 ;

Source Information

Source file <LRBLDEX2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 $$EXTERNAL^DILFD  ^DIWP  ^DIWW  
Lab Service 1 (EN,EN1)^LRBLDEX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLDEX1  

Entry Points

Name Comments DBIA/ICR reference
EN ;from LRBLDEX1
D
O
R
T
W

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD R+2, R+7, R+8, R+12, D+2
^DIWP W
^DIWW W+1
EN^LRBLDEX1 EN+1, R+2, R+6, R+7, R+11, R+13, R+14, D+3, O, W
EN1^LRBLDEX1 R+1, R+9, R+12, D+1, D+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Donation **",Y,"**"
  • Line Location: R+0
Function Call: WRITE
  • Prompt: " Site:",X
  • Condition for execution: X]""
  • Line Location: R+0
Function Call: WRITE
  • Prompt: " Group:",X
  • Condition for execution: X]""
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+9)
  • Line Location: R+1
Function Call: WRITE
  • Prompt: " Edit:",Y
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"Donation type:",$$EXTERNAL^DILFD(65.54,1.1,"",X)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: " ",$$EXTERNAL^DILFD(65.54,1,"",X)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+39)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: " Reaction:",$E($P(^LAB(65.4,X,0),"^",3),1,30)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+40)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: " Taken by:",$P(M,"^",9)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+43)
  • Line Location: R+5
Function Call: WRITE
  • Prompt: " Credit for:",$P(M,"^",5)
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !,"UNIT ID: ",X
  • Line Location: R+6
Function Call: WRITE
  • Prompt: !,^LRE(LRI,5,W,3,B,0)
  • Line Location: R+7
Function Call: WRITE
  • Prompt: " (lot#",X,")"
  • Condition for execution: X]""
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " tot gm:",X
  • Condition for execution: X
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " empty wt:",X
  • Condition for execution: X
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " empty wt:",X
  • Condition for execution: X
  • Line Location: R+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+10)
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " tech: ",Y
  • Line Location: R+9
Function Call: WRITE
  • Prompt: !,"Collection start:",Y
  • Line Location: R+10
Function Call: WRITE
  • Prompt: " stop:",Y
  • Line Location: R+10
Function Call: WRITE
  • Prompt: " stop:",Y
  • Line Location: R+10
Function Call: WRITE
  • Prompt: !,"Test",?31,"Tech"
  • Line Location: R+11
Function Call: WRITE
  • Prompt: !,$E(LR(M),1,15),?16,$$EXTERNAL^DILFD(65.54,M,"",Z(1)),?31
  • Line Location: R+12
Function Call: WRITE
  • Prompt: Y,?35,$P(Z,"^",3)
  • Line Location: R+12
Function Call: WRITE
  • Prompt: !,$P(^LAB(66,M(1),0),"^"),?41,$P(M,"^",5)
  • Line Location: R+14
Function Call: WRITE
  • Prompt: ?47,Y
  • Line Location: D+0
Function Call: WRITE
  • Prompt: ?62,Y
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,"Label tech:",Y
  • Line Location: D+1
Function Call: WRITE
  • Prompt: " Disposition:",$$EXTERNAL^DILFD(65.66,.08,"",X)," date:"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: Y," tech:"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: Y," tech:"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !,^LRE(LRI,5,W,66,M(1),1,E,0)
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !,$P(^LAB(65.4,M,0),"^",3)
  • Line Location: O+0
Function Call: WRITE
  • Prompt:
  • Line Location: W+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 EXTERNAL^DILFD
65.66 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(65.4 - [#65.4] R, R+1, R+3, O
^LAB(66 - [#66] R+14
^LRE - [#65.5] EN+1, EN+2, R+7, R+8, R+11, R+12, R+14, D+3, O, W
^TMP("LRBL" R+6*
^UTILITY($J W!

Label References

Name Line Occurrences
D R+14
O R+2
R EN+1
T EN+1, R+10, D, D+2
W EN+2

Naked Globals

Name Field # of Occurrence
^( R+12, R+14, O
^(0 R, R+1
^(11 R+11
^(12 R+11
^(13 R+11
^(14 R+11
^(15 R+11
^(16 R+11
^(17 R+11
^(18 R+11
^(19 R+11
^(2 R+8
^(20 R+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B EN+1*, R+7*
>> C O*
>> DIWF W*
>> DIWL W*
>> DIWR W*
>> E D+3*
IOM R+1, R+3, R+4, R+5, R+9, W
IOSL EN+1, R+2, R+6, R+7, R+13, R+14, D+3, O, W
>> LR( R+12
>> LR("Q" EN+1, EN+2, R+1, R+2, R+6, R+7, R+8, R+13, R+14, D+3
, O, W, W+1
>> LRI EN+1, EN+2, R+7, R+8, R+11, R+12, R+14, D+3, O, W
>> LRP R+6
>> LRR W*, W+1
>> LRX W*
M EN+1*, R, R+1, R+2, R+3, R+4, R+5, R+6, R+8!*, R+9
, R+10, R+12*, R+14*, D, D+1, D+2, O*
M(1 R+13*, R+14*, D+3
>> N O*
U R+8, D+1, D+2
>> W EN+1*, R+7, R+8, R+11, R+12, R+14, D+3, O
>> X R*, R+1*, R+2*, R+3*, R+6*, R+7, R+8*, R+9*, D+2*, W*
>> Y T*, EN+1*, R, R+1*, R+9*, R+10*, R+12*, D*, D+1*, D+2*
>> Z R+12*, R+14*
>> Z(1 R+12*
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