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

Package: Lab Service

Routine: LRBLPTR1


Information

LRBLPTR1 ; IHS/DIR/FJE - TRANSFUSIONS/HEM RESULTS 3/5/91 09:20 ;

Source Information

Source file <LRBLPTR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 3 ^LRBLPC1  (D,F,M,SSN)^LRU  ^LRUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPTR  

Entry Points

Name Comments DBIA/ICR reference
A
G ;S X=^LR(LRDFN,0),(LRDPF,LRPF)=$P(X,"^",2),Y=$P(X,"^",3),X=^DIC(LRPF,0,"GL"),X=@(X_Y_",0)"),W(2)=$P(X,"^"),DFN=$S(LRPF=2:Y,1:""),Y=$P(X,"^",3),SSN=$P(X,"^",9),W(5)=$S($D(^(.1)):^(.1),1:"") D SSN^LRU,D^LRU S W(4)=Y,W(10)=SSN Q
H
S
P
WRT
T
W

External References

Name Field # of Occurrence
^LRBLPC1 W+2
D^LRU G+1
F^LRU H+1
M^LRU H
SSN^LRU G+1
^LRUTL LRBLPTR1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"BLOOD must be an entry in TOPOGRAPHY file (#61)",!
  • Line Location: LRBLPTR1+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have tests to print entered in the",!,"'Tests for inclusion in transfusion report option' in",!,"Blood bank supervisor menu",!
  • Line Location: LRBLPTR1+6
Function Call: WRITE
  • Prompt: !!,"Please hold while I sort transfusions with hematology results..."
  • Line Location: LRBLPTR1+7
Function Call: WRITE
  • Prompt: !,T
  • Line Location: P+0
Function Call: WRITE
  • Prompt: ?12,$E($P(^LAB(66,+Q,0),"^"),1,28),$S($P(Q,"^",6):"("_$P(Q,"^",6)_")",1:"")
  • Condition for execution: Q
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !?32
  • Condition for execution: $X>(IOM-9)
  • Line Location: P+2
Function Call: WRITE
  • Prompt: ?32+(8*X(1))
  • Line Location: P+2
Function Call: WRITE
  • Prompt: $J(^(B),5)
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !,W(2),?31,W(10),?45,"DOB: ",W(4),!,"Location:",?12,W(5),!,"Mo/Da TIME",?12,"Blood component"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?32
  • Condition for execution: $X>(IOM-8)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?32+(8*X(1)),$P(LRT(X),"^",7)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] G+1
^LAB(60 - [#60] S
^LAB(61 - [#61] LRBLPTR1+4, S+1
^LAB(66 - [#66] P
^LR - [#63] A, A+1, G+1
^LRO(69.2 - [#69.2] LRBLPTR1+5
^TMP("LRBL" LRBLPTR1+8, WRT
^TMP($J LRBLPTR1+7!, A*, A+1*, W+1, P, P+1, P+2

Label References

Name Line Occurrences
A LRBLPTR1+8
G W
H W, P
P W+1
S LRBLPTR1+5
T W+1
W WRT
WRT LRBLPTR1+9

Naked Globals

Name Field # of Occurrence
^( LRBLPTR1+5, LRBLPTR1+8, A*, A+1*, W+1, P, P+2, S, G+1
^(0 S
^(1 S

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLPTR1+5*, A*, A+1*, WRT*, W+1*, P, P+1, P+2
>> B LRBLPTR1+5*, LRBLPTR1+6, A+1*, P+2*, S+1*
>> DFN W+2, G+1*
>> HRCN G+1
IOM P+2, H+2
IOSL P
IOST LRBLPTR1+7, H
>> LR("%" H+3
>> LR("F" H
>> LR("Q" WRT, W, W+1, W+2, P, H
>> LRA LRBLPTR1+8*
>> LRAA LRBLPTR1+5
>> LRDFN LRBLPTR1+8*, A, A+1, WRT*, W+1, P, P+1, P+2, G+1
>> LRDPF G+1*
>> LRLDT LRBLPTR1+8*, A, A+1
>> LRP LRBLPTR1+8*
>> LRPF G+1*
>> LRQ W*
>> LRS LRBLPTR1+4*, LRBLPTR1+5
>> LRS( A+1, S+1*
>> LRSDT LRBLPTR1+8*, A, A+1
>> LRT( S+1*, H+2
>> LRT(0 LRBLPTR1+6*, A+1, P+2, H+2
>> LRV( A+1, S+1*
>> N WRT*
>> Q P*
>> SSN G+1*
>> T W+1*, P, T*
>> W LRBLPTR1+5*, S, S+1
>> W(10 H+1, G+1*
>> W(2 H+1, G+1*
>> W(4 H+1, G+1*
>> W(5 H+1, G+1*
>> X LRBLPTR1+5*, LRBLPTR1+8*, A*, A+1*, S*, S+1, H+2*, G+1*
>> X(1 P+2*, S*, S+1, H+2*
>> Y LRBLPTR1+5*, S, S+1, G+1*
>> Z A+1*, S*, S+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All