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

Package: Lab Service

Routine: LRBLDPA1


Information

LRBLDPA1 ; IHS/DIR/AAB - BLOOD DONOR PRINT 7/5/96 20:57 ;

Source Information

Source file <LRBLDPA1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 FIELD^DID  $$EXTERNAL^DILFD  ^DIWP  ^DIWW  
Lab Service 3 (,A,C,P)^LRBLDPA2  ^LRBLDPAW  (D,F,M)^LRU  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLDPA  LRBLDPA2  LRBLDPAW  

Entry Points

Name Comments DBIA/ICR reference
G
H
H1
M
S
W
V

External References

Name Field # of Occurrence
FIELD^DID W, W+3, W+4, W+5
$$EXTERNAL^DILFD S+1
^DIWP LRBLDPA1+6, LRBLDPA1+10
^DIWW LRBLDPA1+7, LRBLDPA1+11
^LRBLDPA2 W+10
A^LRBLDPA2 LRBLDPA1+11
C^LRBLDPA2 LRBLDPA1+13
P^LRBLDPA2 W+5
^LRBLDPAW LRBLDPA1+21
D^LRU LRBLDPA1+4, LRBLDPA1+9, LRBLDPA1+18, W, W+2
F^LRU H+1
M^LRU H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLDPA1+8
Function Call: WRITE
  • Prompt: "PERMANENT DEFERRAL: ",Y
  • Condition for execution: X]""
  • Line Location: LRBLDPA1+8
Function Call: WRITE
  • Prompt: ?29,"DEFERRAL ENTER/EDIT: ",X
  • Condition for execution: X]""
  • Line Location: LRBLDPA1+8
Function Call: WRITE
  • Prompt: !,"PERMANENT DEFERRAL DATE CHANGE: ",Y
  • Line Location: LRBLDPA1+9
Function Call: WRITE
  • Prompt: !!,"SCHEDULING/RECALL: "
  • Line Location: LRBLDPA1+13
Function Call: WRITE
  • Prompt: !?19
  • Line Location: LRBLDPA1+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: LRBLDPA1+15
Function Call: WRITE
  • Prompt: ?19,F(E)
  • Line Location: LRBLDPA1+15
Function Call: WRITE
  • Prompt: !!?3,"APHERESIS: ",Y,?28,"CUMULATIVE DONATIONS: ",$P(LRX,U,7)
  • Line Location: LRBLDPA1+16
Function Call: WRITE
  • Prompt: !,"TOTAL AWARDS: ",$P(LRX,U,8),?34,"GIVE NEW AWARD: "
  • Line Location: LRBLDPA1+17
Function Call: WRITE
  • Prompt: Y
  • Line Location: LRBLDPA1+17
Function Call: WRITE
  • Prompt: !?2,"DEMOG EDIT: ",X
  • Line Location: LRBLDPA1+18
Function Call: WRITE
  • Prompt: ?45,"DATE REG/EDITED: ",Y
  • Line Location: LRBLDPA1+18
Function Call: WRITE
  • Prompt: !!?3,"ADDRESS: ",$P(X,U)," ",$P(X,U,2)
  • Line Location: LRBLDPA1+19
Function Call: WRITE
  • Prompt: !?12,Y
  • Condition for execution: Y]""
  • Line Location: LRBLDPA1+19
Function Call: WRITE
  • Prompt: !?12,$P(X,U,4),", "
  • Line Location: LRBLDPA1+19
Function Call: WRITE
  • Prompt: !?12,$P(X,U,4),", "
  • Line Location: LRBLDPA1+19
Function Call: WRITE
  • Prompt: !,"HOME PHONE: ",$P(X,U,7),?38,"WORK PHONE: ",$P(X,U,8)
  • Line Location: LRBLDPA1+20
Function Call: WRITE
  • Prompt: D:LRN=1
  • Line Location: LRBLDPA1+21
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: LRBLDPA1+22
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,NAME,": ",Y
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?40,"DONATION CODE: ",Y
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"COLLECTION SITE: ",X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"COLLECTION SITE: ",X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"ARRIVAL/APPT TIME: ",Y,?40,"ENTER/EDIT: "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: X
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,NAME,": ",Y
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,NAME,": ",Y
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,NAME,": ",$P(X,U)," ",$P(X,U,9)
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?40,"DONOR REACTION: ",X
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !,"UNIT ID: ",$P(LRX,U,4)
  • Condition for execution: $P(LRX,U,4)]""
  • Line Location: W+8
Function Call: WRITE
  • Prompt: ?40,"PRIMARY BAG: "
  • Line Location: W+8
Function Call: WRITE
  • Prompt: Y
  • Line Location: W+8
Function Call: WRITE
  • Prompt: !,"ANTICOAGULANT: ",Y,?40,"BAG LOT #: ",$P(LRZ,U,10)
  • Line Location: W+9
Function Call: WRITE
  • Prompt: !," BLOOD DONOR: ",PNM,?45,"DOB: ",LRDOB,!?9,"SEX: ",SEX,?42,"ABO/RH: ",LRABO," ",LRRH,!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"GROUP AFFILIATION:"
  • Line Location: H1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] LRBLDPA1+19
^LAB(65.4 - [#65.4] G
^LRE - [#65.5] LRBLDPA1+4, LRBLDPA1+6, LRBLDPA1+10, LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+17, LRBLDPA1+19, LRBLDPA1+21, LRBLDPA1+22, W+7
, W+8
^TMP($J LRBLDPA1+6!, LRBLDPA1+10!
^VA(200 - [#200] V

Label References

Name Line Occurrences
G LRBLDPA1+14, W+1, W+6, W+7
H LRBLDPA1+5, LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11, LRBLDPA1+14, LRBLDPA1+16, LRBLDPA1+20, LRBLDPA1+22, M
, H1
H1 LRBLDPA1+15
M W+2, W+4, W+7, W+8
S LRBLDPA1+4, LRBLDPA1+8, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, W+1, W+3, W+4, W+8, W+9
V LRBLDPA1+8, LRBLDPA1+18, W+2
W LRBLDPA1+21, LRBLDPA1+22

Naked Globals

Name Field # of Occurrence
^( LRBLDPA1+6, LRBLDPA1+10, LRBLDPA1+22, W+7
^(0 LRBLDPA1+19, G, V
^(1 LRBLDPA1+19
^(2 W+8
^(3 LRBLDPA1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLDPA1+12*, LRBLDPA1+14*, LRBLDPA1+21*, LRBLDPA1+22*, W+7, W+8
>> B LRBLDPA1+22*
>> C W+7*
>> E LRBLDPA1+12*, LRBLDPA1+14*, LRBLDPA1+15*, W+7*
F LRBLDPA1+12!, LRBLDPA1+14!
F( LRBLDPA1+12*, LRBLDPA1+14*, LRBLDPA1+15
F(1 LRBLDPA1+12*, LRBLDPA1+13, LRBLDPA1+14*, LRBLDPA1+15
F(2 LRBLDPA1+13
>> G LRBLDPA1+12*
IOSL LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11, LRBLDPA1+14, LRBLDPA1+15, LRBLDPA1+16, LRBLDPA1+20, LRBLDPA1+22, M
IOST H
>> LR LRBLDPA1+4, LRBLDPA1+6, LRBLDPA1+10, LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+17, LRBLDPA1+19, LRBLDPA1+21, LRBLDPA1+22, W+7
, W+8
>> LR("F" LRBLDPA1+5*, H
>> LR("Q" LRBLDPA1+6, LRBLDPA1+7, LRBLDPA1+10, LRBLDPA1+11, LRBLDPA1+12, LRBLDPA1+14, LRBLDPA1+15, LRBLDPA1+16, LRBLDPA1+20, LRBLDPA1+22
, W+2, W+4, W+7, W+8, M+1, H, H1
>> LRA LRBLDPA1+6*, LRBLDPA1+10*, W+7*
>> LRABO LRBLDPA1+4*, H+1
LRDOB LRBLDPA1+4~*, H+1
>> LRE LRBLDPA1+6*, LRBLDPA1+10*
>> LRF LRBLDPA1+4*, LRBLDPA1+12*, LRBLDPA1+16*, LRBLDPA1+21*, LRBLDPA1+22*, S+1
>> LRI LRBLDPA1+21
>> LRJ LRBLDPA1+6*, LRBLDPA1+7, LRBLDPA1+10*, LRBLDPA1+11
>> LRM M*, M+1
>> LRN LRBLDPA1+21
>> LRRH LRBLDPA1+4*, H+1
>> LRX LRBLDPA1+4*, LRBLDPA1+5, LRBLDPA1+8, LRBLDPA1+9, LRBLDPA1+16, LRBLDPA1+17, LRBLDPA1+18, LRBLDPA1+21*, LRBLDPA1+22*, W
, W+1, W+2, W+3, W+4, W+5, W+6, W+8
>> LRY W*, M+1
>> LRZ W+8*, W+9
NAME LRBLDPA1+4~, W*, W+3*, W+4*, W+5*
NAME("LABEL" W, W+3, W+4, W+5
>> PNM LRBLDPA1+4*, H+1
>> SEX LRBLDPA1+4*, H+1
>> SSN LRBLDPA1+4*
U LRBLDPA1+4, LRBLDPA1+5, LRBLDPA1+8, LRBLDPA1+9, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, LRBLDPA1+18, LRBLDPA1+19, LRBLDPA1+20
, W+1, W+2, W+3, W+4, W+5, W+6, W+8, W+9, G, V
>> X LRBLDPA1+4*, LRBLDPA1+5*, LRBLDPA1+6*, LRBLDPA1+8*, LRBLDPA1+10*, LRBLDPA1+12*, LRBLDPA1+13*, LRBLDPA1+14*, LRBLDPA1+16*, LRBLDPA1+17*
, LRBLDPA1+18*, LRBLDPA1+19*, LRBLDPA1+20, W+1*, W+2*, W+3*, W+4*, W+5*, W+6*, W+7*
, W+8*, W+9*, G*, V*, S*, S+1
>> X(3 LRBLDPA1+14, W+7, G*
>> Y LRBLDPA1+4*, LRBLDPA1+8, LRBLDPA1+9*, LRBLDPA1+12, LRBLDPA1+16, LRBLDPA1+17, LRBLDPA1+18*, LRBLDPA1+19*, W*, W+1
, W+2*, W+3, W+4, W+8, W+9, S*, S+1*
>> Z LRBLDPA1+4*, LRBLDPA1+8*, LRBLDPA1+12*, LRBLDPA1+16*, LRBLDPA1+17*, W+1*, W+3*, W+4*, W+8*, W+9*
, S+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