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

Package: Lab Service

Routine: LRAC4


Information

LRAC4 ; IHS/DIR/AAB - PRINT CUMULATIVE REPORT 5/16/88 10:49 ; [ 07/22/2002 12:27 PM ]

Source Information

Source file <LRAC4.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 6 (LRNP,LRSH,UDT)^LRAC3  (HEAD,HEAD1)^LRAC6  OVFL^LRAC7  (C1,LRLO,TXT,TXT1)^LRAC9  ^LRAIRNUM  ($$Y2K,DASH)^LRX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAC3  

Entry Points

Name Comments DBIA/ICR reference
Y2K ;
; W !,$E(LRTOPP,1,7),?6 F I=1:1:(LRTT+1) W $J(^TMP($J,"TY",I,0),10)
BS4
YEAR ;
; W !?5 F I=1:1:(LRTT-1) W $J(^TMP($J,"Y2K",I),10)
; W !?6 F I=1:1:(LRTT+1) W $J(^TMP($J,"TY",I,"T"),10)
BS1
BS2
BS3
BS ;EP - from LRAC3
IA

External References

Name Field # of Occurrence
LRNP^LRAC3 YEAR+21
LRSH^LRAC3 YEAR+19, YEAR+20
UDT^LRAC3 BS1+1
HEAD^LRAC6 YEAR+21
HEAD1^LRAC6 YEAR+19, YEAR+20, YEAR+21
OVFL^LRAC7 YEAR+18
C1^LRAC9 BS4
LRLO^LRAC9 BS+14
TXT^LRAC9 YEAR+18
TXT1^LRAC9 YEAR+18
^LRAIRNUM IA
$$Y2K^LRX BS1
DASH^LRX YEAR+12

Interaction Calls

Name Line Occurrences
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
Function Call: WRITE
  • Prompt: !
  • Line Location: BS+16
Function Call: WRITE
  • Prompt: IA(0)
  • Line Location: BS+16
Function Call: WRITE
  • Prompt: IA(0)
  • Line Location: BS+16
Function Call: WRITE
  • Prompt: !,"Locale "
  • Line Location: BS+18
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"L"),10)
  • Line Location: BS+18
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+7
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",I,0)_" "
  • Line Location: YEAR+8
Function Call: WRITE
  • Prompt: $J(^TMP($J,"TY",I,"T"),10)
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: " "
  • Line Location: YEAR+10
Function Call: WRITE
  • Prompt: ^TMP($J,"TY",I,"T")_" "
  • Line Location: YEAR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: YEAR+15
Function Call: WRITE
  • Prompt: !,"Comments: "
  • Line Location: YEAR+17
Function Call: WRITE
  • Prompt: ?(10*LRTX-6),$C(96+I)
  • Line Location: YEAR+17
Function Call: WRITE
  • Prompt: !,$C(96+I),". "
  • Line Location: YEAR+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] IA
^LAB(64.5 - [#64.5] BS+5, BS+15, YEAR+15
^LAC( BS1+3, BS3, BS+12, YEAR+20
^LR - [#63] IA
^TMP($J BS1*, BS1+1*, BS1+3*, BS2, BS4, BS+4!, BS+5*, BS+14*, BS+15*, BS+20
, Y2K+3, YEAR+4, YEAR+5, YEAR+19!

Label References

Name Line Occurrences
BS YEAR+22
BS1 BS+12
BS2 BS4
BS3 BS1+3
BS4 YEAR+15
IA BS1+1

Naked Globals

Name Field # of Occurrence
^( BS2, BS+5
^("D" BS2
^(0 BS1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ("AG" IA
I BS2, BS4, BS+4!*, BS+5*, BS+14*, BS+16*, BS+20*, Y2K+3*, YEAR+4*, YEAR+5*
, YEAR+15*, YEAR+17*, YEAR+18*
I( BS1+3, BS+5*, BS+14, YEAR+15
I(1 BS+15
IA BS+17!
IA( BS+16, IA*
IA(0 BS+16, IA*
IADA BS+17!, IA*
IARNO BS+17!, IA
IAX BS+17!, IA*
IOM BS+4
IOSL YEAR+18
>> J BS1+3*, BS2, BS4*
>> K BS1, BS1+1, BS1+3, BS+12*, IA
>> LRCALE( BS+20
>> LRCL BS2*, BS4, YEAR+15*
>> LRCW BS4*, BS+4*
>> LRDFN BS1+3, BS3, BS+12, YEAR+20, IA
>> LRDP BS2*
>> LRDPF IA
>> LRFDT BS1, BS1+1, BS1+3, BS3, BS+12*, YEAR+18*, YEAR+19*, YEAR+20, YEAR+21*, IA
>> LRFULL BS+14*, YEAR+21*
>> LRG BS4, YEAR+15*
>> LRHI BS+4*
>> LRII BS+5*
>> LRKL BS1+3*
>> LRLFDT BS1+1*, YEAR+21
>> LRLO BS+4*
>> LRLOHI BS+14
>> LRMH BS1+3, BS3, BS+5, BS+12, BS+15, BS+20, YEAR+15, YEAR+20
>> LRMU BS+4*, BS+14, YEAR+21*
>> LRMULT BS+14
>> LROFDT YEAR+18*, YEAR+19
>> LRSH BS1, BS1+3, BS3, BS+5, BS+12, BS+15, BS+20, YEAR+15, YEAR+20
>> LRSHD BS1+3, BS+14, YEAR+15
>> LRTOPP Y2K+3
>> LRTT BS1*, BS3, BS4, BS+4*, BS+14, BS+15, BS+16, BS+20, Y2K+3, YEAR+4
, YEAR+5
LRTX YEAR+17*, YEAR+18*, YEAR+19!
LRTX( BS3*, YEAR+17, YEAR+18
LRTY BS+4*, BS+12, BS+14, YEAR+19!
>> LRUDT BS1+1
>> LRXLR BS1+3, BS3, BS+12, YEAR+20
P3 BS+2~, BS+5*
P6 BS+2~, BS+5*
P7 BS+14!
T1 BS1+3*, BS1+4!
T3 BS1+3*, BS1+4!
U BS1, BS1+3, BS2, BS4, BS+5, BS+15, IA
>> X BS2*, BS4
>> X1 BS2*, BS4
>> Z BS1, BS+5*, BS+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All