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

Package: Lab Service

Routine: LRBLDEX1


Information

LRBLDEX1 ;AVAMC/REG/CYM - EX-BLOOD DONORS ;7/3/96 20:44 ;

Source Information

Source file <LRBLDEX1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 EN^LRBLDEX2  (F,M,V)^LRU  END^LRUTL  
VA FileMan 1 $$EXTERNAL^DILFD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLDEX  LRBLDEX2  

Entry Points

Name Comments DBIA/ICR reference
OUT
T
L
EN1 ;also from LRBLDEX2
HDR
H
EN ;from LRBLDEX2
H2

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD L+9
EN^LRBLDEX2 L+10
F^LRU HDR+1
M^LRU HDR
V^LRU OUT
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,A,?15,^TMP("LRBL",$J,A)
  • Line Location: LRBLDEX1+4
Function Call: WRITE
  • Prompt: D
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,LRP," (Donor #: ",LRI,")",?40,Y,?49,$P(W,"^",2),?52,$J($P(W,"^",5),2),?55,$P(W,"^",6),?62,$S($P(W,"^",4)=1:"YES",1:"NO"),?73,$S($P(W,"^",10):"YES",1:"NO")
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,"Reg/edited: "
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " cum donations: ",$P(W,"^",7)
  • Condition for execution: $P(W,"^",7)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " total awards: ",$P(W,"^",8)
  • Condition for execution: $P(W,"^",8)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " demog ent/edit by:"
  • Condition for execution: $P(W,"^",9)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: L+1
Function Call: WRITE
  • Prompt: I
  • Line Location: L+2
Function Call: WRITE
  • Prompt: W
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$P(W,"^")," ",$P(W,"^",2)," ",$P(W,"^",3)," ",$P(W,"^",4)," "
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$P(W,"^")," ",$P(W,"^",2)," ",$P(W,"^",3)," ",$P(W,"^",4)," "
  • Line Location: L+2
Function Call: WRITE
  • Prompt: " ",W(6)
  • Condition for execution: W(6)
  • Line Location: L+2
Function Call: WRITE
  • Prompt: F
  • Line Location: L+4
Function Call: WRITE
  • Prompt: Q:'W!(LR("Q")) S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+4
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+4
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+4
Function Call: WRITE
  • Prompt: F
  • Line Location: L+5
Function Call: WRITE
  • Prompt: Q:'W S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+5
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+5
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+5
Function Call: WRITE
  • Prompt: F
  • Line Location: L+6
Function Call: WRITE
  • Prompt: Q:'W S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+6
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+6
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+6
Function Call: WRITE
  • Prompt: F
  • Line Location: L+7
Function Call: WRITE
  • Prompt: Q:'W S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+7
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+7
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+7
Function Call: WRITE
  • Prompt: F
  • Line Location: L+8
Function Call: WRITE
  • Prompt: Q:'W W:'B
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+8
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+8
Function Call: WRITE
  • Prompt: F
  • Line Location: L+9
Function Call: WRITE
  • Prompt: Q:'W S X=^(W,0) W:'B
  • Line Location: L+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+10)
  • Line Location: L+9
Function Call: WRITE
  • Prompt: " ",$$EXTERNAL^DILFD(65.53,.01,"",X)
  • Line Location: L+9
Function Call: WRITE
  • Prompt: !,LRAA(1)," NO DONATIONS SINCE ",LRSTR
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?10,"Donor (Reg #)",?42,"DOB",?48,"SEX",?52,"ABO/Rh",?59,"APHERESIS",?69,"PERM DEFER",!,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,LRP," (Donor #: ",LRI,") <continued from page ",LRQ-1,">"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Donor ID",?15,"DONOR NAME",!,LR("%")
  • Line Location: H2+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.53 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] L+2
^LAB(61.3 - [#61.3] L+4, L+5, L+6, L+7
^LAB(65.4 - [#65.4] L+8
^LRE - [#65.5] L, L+2, L+4, L+5, L+6, L+7, L+8, L+9
^LRO(69.2 - [#69.2] LRBLDEX1+3
^TMP("LRBL" LRBLDEX1+4, OUT!
^VA(200 - [#200] EN1+1

Label References

Name Line Occurrences
EN L+4, L+5, L+6, L+7, L+8, L+9
EN1 L+1
H LRBLDEX1+3, L, EN+1
H2 LRBLDEX1+4
HDR H, H2
L LRBLDEX1+3
OUT LRBLDEX1+4
T L, L+1

Naked Globals

Name Field # of Occurrence
^( L+4, L+5, L+6, L+7, L+9
^(0 L+4, L+5, L+6, L+7, L+8, EN1+1
^(1 L+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLDEX1+3*, LRBLDEX1+4*
>> B LRBLDEX1+4*, L+4*, L+5*, L+6*, L+7*, L+8*, L+9*
IOM L+3, L+4, L+5, L+6, L+7, L+8, L+9
IOSL LRBLDEX1+4, L, L+4, L+5, L+6, L+7, L+8, L+9
IOST HDR
>> LR("%" H, H2
>> LR("F" LRBLDEX1+3*, HDR
>> LR("Q" LRBLDEX1+4, L, L+4, L+5, L+6, L+7, L+8, L+9, L+10, HDR
, H, EN+1, H2
>> LRAA LRBLDEX1+3
>> LRAA(1 HDR+1
>> LRI LRBLDEX1+3*, L, L+2, L+4, L+5, L+6, L+7, L+8, L+9, EN+1
>> LRP LRBLDEX1+3*, L, EN+1
>> LRQ EN+1
>> LRSTR HDR+1
W L*, L+1, L+2!*, L+3, L+4*, L+5*, L+6*, L+7*, L+8*, L+9*
W(1 L+4*, L+5*, L+6*, L+7*
W(6 L+2*
W(7 L+3*
W(8 L+3*
>> X L+2*, L+9*
>> Y T*, L*, L+1*, EN1+1*
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