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 ; IHS/DIR/FJE - BLOOD BANK PT RECORD 2/18/93 09:46 ;

Source Information

Source file <LRBLPR.m>

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

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRBLPR  LRBLPR1  LRBLPRA  

Entry Points

Name Comments DBIA/ICR reference
B
END
H ;from LRBLPR1, LRBLPRA
S ;Q:'$D(^LR(A,0)) S W=^(0),Y=$P(W,"^",3),(LRDPF,P)=$P(W,"^",2),X=^DIC(P,0,"GL"),X=@(X_Y_",0)"),SSN=$P(X,"^",9) D SSN^LRU S ^TMP("LRBL",$J,"B",P,$P(X,"^"),A)=$P(X,"^",3)_"^"_SSN_"^"_$P(W,"^",5)_"^"_$P(W,"^",6) Q
QUE
W
ASK
OUT

External References

Name Field # of Occurrence
^LRBLPR1 W+1
B^LRU LRBLPR+6
DT^LRU W+1
F^LRU H+2
L^LRU QUE
M^LRU H+1
S^LRU QUE
SSN^LRU S+1
V^LRU END
YN^LRU LRBLPR+7
^LRUTL LRBLPR+4
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+5
Function Call: WRITE
  • Prompt: !!,"Print only patients with antibodies/special instructions "
  • Line Location: LRBLPR+7
Function Call: READ
  • Timeout: DTIME
  • Variable: LR(8)
  • 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,"HRCN",?49,"DOB",?55,"ABO",?59,"Rh",!,LR("%")
  • Line Location: H+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
B QUE+4
END LRBLPR+4, LRBLPR+6, LRBLPR+7, 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+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRBLPR+7*
>> A QUE+1*, QUE+2*, S+1
>> B QUE+1*
>> DFN S+1*
DTIME ASK
>> HRCN S+1
IO QUE
IOF QUE, OUT
IOSL W+1
IOST OUT, H+1
>> LR QUE+4*, B
>> LR("%" H+4
>> 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+7*, W
>> LR(8 ASK*, ASK+1, ASK+2, ASK+3*
>> LRAA QUE+1
>> LRDFN B*, W
>> LRDPF S+1*
>> LRLDT QUE+1
>> LRLST H+2
>> LRP QUE+4*, B, W+1
>> LRSDT QUE
>> LRSTR H+2
>> P S+1*
>> POP ASK+3
>> S QUE*, QUE+1
>> SSN S+1*
U ASK
>> W S+1*
>> X LRBLPR+4*, S+1*
>> Y LRBLPR+4, LRBLPR+6, S+1*, 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