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

Package: Lab Service

Routine: LRBLPRA


Information

LRBLPRA ; IHS/DIR/FJE - BB PT RECORD 2/18/93 09:46 ;

Source Information

Source file <LRBLPRA.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 4 H^LRBLPR  ^LRBLPR1  (D,H,H1,L,S,SSN,V,YN)^LRU  (,BEG,END)^LRUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPRA  

Entry Points

Name Comments DBIA/ICR reference
EN
END
F
S
B
QUE
T
W ;D:$Y>(IOSL-6) H^LRBLPR Q:LR("Q") S LRDPF=$P(^LR(LRDFN,0),U,2),Y=+LR(4),SSN=$P(LR(4),"^",2) D SSN^LRU,D^LRU W !,LRP,?31,SSN,?43,Y,?56,$J($P(LR(4),"^",3),2),?59,$P(LR(4),"^",4) D ^LRBLPR1 Q
ASK

External References

Name Field # of Occurrence
H^LRBLPR QUE+2, W+1
^LRBLPR1 W+1
D^LRU W+1
H^LRU S+1
H1^LRU F+1
L^LRU QUE
S^LRU QUE
SSN^LRU W+1
V^LRU END
YN^LRU EN+2
^LRUTL EN
BEG^LRUTL T
END^LRUTL QUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"PRINT PATIENT BLOOD BANK RECORDS",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: "Print only patients with antibodies/special instructions "
  • Line Location: EN+2
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: READ
  • Prompt: "START WITH PATIENT NAME: FIRST// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: S+0
Function Call: READ
  • Prompt: "GO TO PATIENT NAME: LAST// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: F+0
Function Call: WRITE
  • Prompt: ;D:$Y>(IOSL-6)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRP,?31,SSN,?43,Y,?56,$J($P(LR(4),"^",3),2),?59,$P(LR(4),"^",4)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LRP,?31,SSN,?43,Y,?56,$J($P(LR(4),"^",3),2),?59,$P(LR(4),"^",4)
  • Line Location: W+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] LRBLPRA+5
^LR - [#63] LRBLPRA+4, LRBLPRA+5, QUE+1, W+1
^TMP("LRBL" LRBLPRA+5*, QUE!, QUE+3, QUE+4!, B
^TMP($J QUE+4!

Label References

Name Line Occurrences
ASK ASK+1
B QUE+3
END EN, EN+2, S, F, T, QUE+4
F F+1
LRBLPRA QUE+1
S S+1
T S, F
W B

Naked Globals

Name Field # of Occurrence
^( QUE+1, B
^("BB" QUE+1
^(0 LRBLPRA+5, W+1
^(3 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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