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

Package: Lab Service

Routine: LRBLDR


Information

LRBLDR ; IHS/DIR/AAB - DONOR REGISTRATION FORM 6/28/96 12:53 ;

Source Information

Source file <LRBLDR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 6 ^%DT  ^DIC  MIX^DIC1  FIELD^DID  ^DIWP  ^DIWW  
Lab Service 3 (,A,D,S)^LRBLDR1  (D,F,L,M,S,SSN,V,YN)^LRU  (BEG,END)^LRUTL  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLDP  LRBLDR  LRBLDR1  

Entry Points

Name Comments DBIA/ICR reference
C
END
H
H1
PRT
QUE
DNR

External References

Name Field # of Occurrence
^%DT DNR+4
^%ZIS LRBLDR+6
^DIC DNR+3
MIX^DIC1 DNR
FIELD^DID QUE
^DIWP PRT+6, C
^DIWW PRT+7, C+1
^LRBLDR1 PRT+10
A^LRBLDR1 LRBLDR+9
D^LRBLDR1 LRBLDR+8
S^LRBLDR1 LRBLDR+8
D^LRU DNR+4, PRT+1, PRT+4
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU PRT+1
V^LRU END
YN^LRU LRBLDR+8, LRBLDR+9, DNR+2
BEG^LRUTL DNR+5
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"ENTER ""BLOOD BANK"" IN ACCESSION AREA FILE",!!
  • Line Location: LRBLDR+4
Function Call: WRITE
  • Prompt: $C(7),!!,"ENTER ""DNRHX"" (BLOOD DONOR HISTORY QUESTIONS) IN BLOOD BANK UTILITY FILE",!!
  • Line Location: LRBLDR+5
Function Call: WRITE
  • Prompt: !!?20,"Donor registration forms",!!
  • Line Location: LRBLDR+7
Function Call: WRITE
  • Prompt: !!,"Add all donors from a GROUP AFFILIATION: "
  • Line Location: LRBLDR+9
Function Call: WRITE
  • Prompt: $C(7),!!,"No list for printing donor registration forms !",!!
  • Line Location: DNR+1
Function Call: WRITE
  • Prompt: !!,"DONOR HISTORY"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,"Date ..................at .....(time)",?40
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?50,"(Donor)",!!?40
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?50,"(Witness)"
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !,"DONOR REGISTRATION",?60,"Date: ",T,!,"Collection site: ",S,!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,N,?31,"Sex: ",SEX,?38,"DOB: ",DOB
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?60,"ABO: ",E," Rh: ",F
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"SSN: ",SSN
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,A(1)," ",A(2)," ",A(3),!,A(4),", ",Z(5)," ",A(6),!,"Home phone: ",A(7)," Business phone: ",A(8)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?4,$S($D(^LAB(65.4,Y,0)):$P(^(0),"^",3),1:"")
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ")"
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !!,"Donor History (continued from pg ",LRQ-1,")"
  • Line Location: H1+0
Routine Call
  • DIC
  • Line Location:
    • DNR+3
Routine Call
  • %ZIS
  • Line Location:
    • LRBLDR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(65.4 - [#65.4] Classic Fileman Calls
^LRE - [#65.5] Classic Fileman Calls
65.54 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] PRT+2
^LAB(65.4 - [#65.4] LRBLDR+4, QUE, PRT+6, H+5
^LRE - [#65.5] PRT, PRT+1, PRT+2, PRT+4, H+5
^LRO(68 - [#68] LRBLDR+4
^LRO(69.2 - [#69.2] LRBLDR+6, LRBLDR+8, DNR*, DNR+1, QUE+1, QUE+2!*, PRT!
^TMP($J PRT+5!, C!

Label References

Name Line Occurrences
C PRT+8
DNR DNR
END LRBLDR+4, LRBLDR+5, LRBLDR+8, LRBLDR+9, DNR+1, DNR+2, DNR+3, DNR+4, DNR+5, QUE+2
H PRT+5, PRT+10, C, H1
H1 PRT+6, C
PRT QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE, PRT+4, PRT+6, H+5
^(0 LRBLDR+6*, PRT+2, H+5
^(1 PRT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLDR+8*, LRBLDR+9*, DNR+2*
%DT DNR+4*!
%DT("A" DNR+4*
%DT("B" DNR+4*
>> %Y LRBLDR+8
A QUE+1!
A(1 PRT+3*, H+4
A(2 PRT+3*, H+4
A(3 PRT+3*, H+4
A(4 PRT+3*, H+4
A(6 PRT+3*, H+4
A(7 PRT+3*, H+4
A(8 PRT+3*, H+4
>> B QUE+1*
>> C QUE+1*, PRT
>> D DNR*
DIC DNR*!, DNR+3*!
DIC("A" DNR*, DNR+3*
DIC("S" DNR+3*
DIC(0 DNR*, DNR+3*
>> DIWF QUE*
>> DIWL QUE*
>> DIWR QUE*
>> DOB PRT+1*, H+2
DUZ("AG" DNR
>> E PRT+1*, H+2
>> F PRT+1*, H+2
>> G PRT+1*
>> G(16 PRT+1*
IO QUE
IOF QUE+2
IOM QUE
>> IOP LRBLDR+6*
IOSL PRT+6, C
IOST QUE+2, H
>> J( QUE*, C
>> K PRT+6*, C*
>> LR( PRT+4*, PRT+5*, H+6
>> LR("%" H+1
>> LR("F" PRT+5*, H
>> LR("Q" QUE+1, PRT+6, PRT+7, PRT+8, PRT+10, C, C+1, H, H1
>> LRAA LRBLDR+4*, LRBLDR+6, LRBLDR+8, DNR, DNR+1, QUE+1, QUE+2, PRT
>> LRB LRBLDR+4*, LRBLDR+5, PRT+6
>> LRC QUE*, QUE+1*, C
>> LRD DNR+4*, PRT+4
>> LRF QUE*, PRT+4
>> LRF("POINTER" QUE
>> LRQ QUE+1*, H1
>> LRX PRT+6*
>> LRZ PRT+6*, PRT+7, C*, C+1
>> M PRT+1*, H+6
>> N PRT+1*, H+2
>> POP DNR+5
>> R PRT+1*
>> S DNR+3*, H+1
>> SEX PRT+1*, H+2
>> SSN PRT+1*, H+3
>> T DNR+4*, H+1
U DNR, DNR+3
>> W QUE+1*, PRT, PRT+1, PRT+2, PRT+4, H+5
>> X DNR+3, DNR+4*, QUE*, PRT+4*, PRT+5, PRT+6*, PRT+8*, PRT+9*, C*, H+5*
>> Y DNR, DNR+4, QUE*, PRT+1*, PRT+4*, H+5*
>> Y(0 DNR+3
Z QUE+1!, PRT+1*, PRT+2*, PRT+3
Z(5 PRT+2*, H+4
>> ZTRTN DNR+5*
>> ZTSK DNR+5
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