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

Package: Lab Service

Routine: LRACSUM4


Information

LRACSUM4 ; IHS/DIR/AAB - PRINT INDIVIDUAL PATIENT SUMMARY 2/11/88 12:06 ;

Source Information

Source file <LRACSUM4.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 4 (LRNP,LRSH,UDT)^LRACSUM3  (C1,LRLO,TXT,TXT1)^LRACSUM5  HEAD^LRACSUM6  ($$Y2K,DASH)^LRX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRACSUM3  

Entry Points

Name Comments DBIA/ICR reference
Y2K ;
BS4
BS ;EP - from LRACSUM3
BS1
BS2
YEAR ;

External References

Name Field # of Occurrence
LRNP^LRACSUM3 YEAR+14
LRSH^LRACSUM3 YEAR+12, YEAR+13
UDT^LRACSUM3 BS+9
C1^LRACSUM5 BS4
LRLO^LRACSUM5 BS+10
TXT^LRACSUM5 YEAR+11
TXT1^LRACSUM5 YEAR+11
HEAD^LRACSUM6 YEAR+14
$$Y2K^LRX BS1
DASH^LRX YEAR+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BS+12
Function Call: WRITE
  • Prompt: !,"Locale "
  • Line Location: BS+13
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"L"),10)
  • Line Location: BS+13
Function Call: WRITE
  • Prompt: !,$E(LRTOPP,1,7),?6
  • Line Location: Y2K+1
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,0),10)
  • Line Location: Y2K+1
Function Call: WRITE
  • Prompt: !?5
  • Line Location: YEAR+1
Function Call: WRITE
  • Prompt: $J(^TMP($J,"Y2K",I),10)
  • Line Location: YEAR+1
Function Call: WRITE
  • Prompt: !?6
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"T"),10)
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,0),6)," "
  • Line Location: YEAR+3
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",I,0)_" "
  • Line Location: YEAR+4
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"T"),10)
  • Line Location: YEAR+6
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",I,"T")_" "
  • Line Location: YEAR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+9
Function Call: WRITE
  • Prompt: !,"Comments: "
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: ?(10*LRTX-6),$C(96+I)
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: !,$C(96+I),". "
  • Line Location: YEAR+11
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",J,I)
  • Condition for execution: J=0
  • Line Location: BS4+0
Function Call: WRITE
  • Prompt: ?LRCL
  • Line Location: BS4+0
Function Call: WRITE
  • Prompt: @$P(LRG,U,4),X1
  • Condition for execution: $L($P(LRG,U,4))&(J<LRTT)
  • Line Location: BS4+0
Function Call: WRITE
  • Prompt: $J(X,LRCW)
  • Condition for execution: '$L($P(LRG,U,4))!(J'<LRTT)
  • Line Location: BS4+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.5 - [#64.5] BS+5, BS+11, YEAR+9
^TMP($J BS+4!, BS+5*, BS+9*, BS+10*, BS+11*, BS+13, Y2K+1, YEAR+1, YEAR+2, YEAR+12!
, YEAR+13, BS1*, BS1+1*, BS2, BS4

Label References

Name Line Occurrences
BS YEAR+15
BS1 BS+9
BS2 BS4
BS4 YEAR+9

Naked Globals

Name Field # of Occurrence
^( BS+5, BS+9, BS1+1, BS2
^("D" BS2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
I BS+4!*, BS+5*, BS+10*, BS+13*, Y2K+1*, YEAR+1*, YEAR+2*, YEAR+9*, YEAR+10*, YEAR+11*
, BS2, BS4
I( BS+5*, YEAR+9, BS1+1
I(1 BS+11
IOM BS+4
>> J BS1+1*, BS2, BS4*
>> K BS+9*, BS1, BS1+1
>> LRCALE( BS+13
>> LRCL YEAR+9*, BS2*, BS4
>> LRCW BS+4*, BS4*
>> LRDFN BS+9, YEAR+13, BS1+1
>> LRDP BS2*
>> LRFDT BS+9*, YEAR+11*, YEAR+12*, YEAR+13, YEAR+14*, BS1, BS1+1
>> LRFULL BS+10*, YEAR+14*
>> LRG YEAR+9*, BS4
>> LRHI BS+4*
>> LRII BS+5*
>> LRLFDT BS+9*, YEAR+14
>> LRLO BS+4*
>> LRLOHI BS+10
>> LRMH BS+5, BS+9, BS+11, BS+13, YEAR+9, YEAR+13, BS1+1
>> LRMU BS+4*, BS+10, YEAR+14*
>> LRMULT BS+10
>> LROFDT YEAR+11*, YEAR+12
>> LRSH BS+5, BS+9, BS+11, BS+13, YEAR+9, YEAR+13, BS1+1
>> LRSHD BS+10, YEAR+9, BS1+1
>> LRTOPP Y2K+1
>> LRTT BS+4*, BS+9*, BS+10, BS+11, BS+13, Y2K+1, YEAR+1, YEAR+2, BS1+1, BS4
LRTX YEAR+10*, YEAR+11*, YEAR+12!
LRTX( YEAR+10, YEAR+11, BS1+1*
LRTY BS+4*, BS+9, BS+10, YEAR+12!
>> LRUDT BS1
P3 BS+2~, BS+5*
P6 BS+2~, BS+5*
>> P7 BS+10
T1 BS2+1!
T3 BS2+1!
U BS+5, BS+9, BS+11, BS2, BS4
>> X BS2*, BS4
>> X1 BS2*, BS4
>> Z BS+5*, BS+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All