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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRBLPR

Package: Lab Service

Routine: LRBLPR


Information

LRBLPR ;AVAMC/REG - BLOOD BANK PT RECORD ;2/18/93 09:46 ;

Source Information

Source file <LRBLPR.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 3 ^LRBLPR1  (B,DT,F,L,M,S,SSN,V,YN)^LRU  (,BEG,END)^LRUTL  

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

Package Total Caller Graph
Lab Service 3 LRBLPR  LRBLPR1  LRBLPRA  

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
OUT
S
B
W
H ;from LRBLPR1, LRBLPRA
END

External References

Name Field # of Occurrence
^LRBLPR1 W+1
B^LRU LRBLPR+4
DT^LRU W+1
F^LRU H+2
L^LRU QUE
M^LRU H+1
S^LRU QUE
SSN^LRU S
V^LRU END
YN^LRU LRBLPR+5
^LRUTL LRBLPR+2
BEG^LRUTL ASK+3
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"PRINT CURRENT PATIENT BLOOD BANK RECORDS",!!,"The dates asked will be from the BLOOD BANK ACCESSION LIST:"
  • Line Location: LRBLPR+3
Function Call: WRITE
  • Prompt: !!,"Print only patients with antibodies/special instructions "
  • Line Location: LRBLPR+5
Function Call: READ
  • Variable: LR(8)
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the maximum number of specimens to display",!,"in reverse chronological order for each patient: "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!,"ENTER A WHOLE NUMBER FROM 0-99"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!,"ENTER A WHOLE NUMBER FROM 0-99"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,LRP,?31,$P(LR(4),"^",2),?46,Y,?56,$J($P(LR(4),"^",3),2),?59,$P(LR(4),"^",4)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"BLOOD BANK PATIENTS"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: " from ",LRSTR," to ",LRLST
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?10,"Patient",?34,"SSN",?49,"DOB",?55,"ABO",?59,"Rh",!,LR("%")
  • Line Location: H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] S
^LR - [#63] S, W
^LRO(68 - [#68] QUE+1
^TMP("LRBL" QUE!, QUE+1*, QUE+2, QUE+4, OUT!, S*, B
^TMP($J OUT!

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
B QUE+4
END LRBLPR+2, LRBLPR+4, LRBLPR+5, ASK+3, OUT
H QUE+3, W+1
S QUE+2
W B

Naked Globals

Name Field # of Occurrence
^( QUE+1, B
^(0 QUE+1, S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLPR+5*
>> A QUE+1*, QUE+2*, S
>> B QUE+1*
DTIME ASK
IO QUE
IOF QUE, OUT
IOSL W+1
IOST OUT, H+1
>> LR QUE+4*, B
>> LR("%" H+3
>> LR("F" QUE+3*, H+1
>> LR("Q" QUE+4, B, W+1, H+1
>> LR(1 QUE+4*
>> LR(4 B*, W+1
>> LR(7 LRBLPR+5*, W
>> LR(8 ASK*, ASK+1, ASK+2, ASK+3*
>> LRAA QUE+1
>> LRDFN B*, W
>> LRDPF S*
>> LRLDT QUE+1
>> LRLST H+2
>> LRP QUE+4*, B, W+1
>> LRSDT QUE
>> LRSTR H+2
>> P S*
>> POP ASK+3
>> S QUE*, QUE+1
>> SSN S*
U ASK
>> W S*
>> X LRBLPR+2*, S*
>> Y LRBLPR+2, LRBLPR+4, S*, W+1*
>> ZTRTN ASK+3*
>> ZTSK ASK+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All