Routine: LRACSUM4

Information

LRACSUM4 ;SLC/DCM - PRINT INDIVIDUAL PATIENT SUMMARY ; 2/11/88 12:06 ;

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRACSUM3

Entry Points

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

Name	Field # of Occurrence
LRNP^LRACSUM3	YEAR+14
LRSH^LRACSUM3	YEAR+12, YEAR+13
UDT^LRACSUM3	BS+4
C1^LRACSUM5	BS4
LRLO^LRACSUM5	BS+5
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+7
Function Call: WRITE	Prompt: !,"Locale " Line Location: BS+8
Function Call: WRITE	Prompt: $J(^TMP($J,"TY",I,"L"),10) Line Location: BS+8
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+2, BS+6, YEAR+9
^TMP($J	BS+1!, BS+2, BS+4, BS+5, BS+6, BS+8, 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+4
BS2	BS4
BS4	YEAR+9

Naked Globals

Name	Field # of Occurrence
^(	BS+2, BS+4, BS1+1, BS2
^("D"	BS2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
I	BS+1!, BS+2, BS+5, BS+8, Y2K+1, YEAR+1, YEAR+2, YEAR+9, YEAR+10, YEAR+11 , BS2, BS4
I(	BS+2*, YEAR+9, BS1+1
I(1	BS+6
IOM	BS+1
>> J	BS1+1, BS2, BS4
>> K	BS+4*, BS1, BS1+1
>> LRCALE(	BS+8
>> LRCL	YEAR+9, BS2, BS4
>> LRCW	BS+1, BS4
>> LRDFN	BS+4, YEAR+13, BS1+1
>> LRDP	BS2*
>> LRFDT	BS+4, YEAR+11, YEAR+12, YEAR+13, YEAR+14, BS1, BS1+1
>> LRFULL	BS+5, YEAR+14
>> LRG	YEAR+9*, BS4
>> LRHI	BS+1*
>> LRII	BS+2*
>> LRLFDT	BS+4*, YEAR+14
>> LRLO	BS+1*
>> LRLOHI	BS+5
>> LRMH	BS+2, BS+4, BS+6, BS+8, YEAR+9, YEAR+13, BS1+1
>> LRMU	BS+1, BS+5, YEAR+14
>> LRMULT	BS+5
>> LROFDT	YEAR+11*, YEAR+12
>> LRSH	BS+2, BS+4, BS+6, BS+8, YEAR+9, YEAR+13, BS1+1
>> LRSHD	BS+5, YEAR+9, BS1+1
>> LRTOPP	Y2K+1
>> LRTT	BS+1, BS+4, BS+5, BS+6, BS+8, 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+1*, BS+4, BS+5, YEAR+12!
>> LRUDT	BS1
P3	BS+2*, BS+3!
P6	BS+2*, BS+3!
>> P7	BS+5
T1	BS2+1!
T3	BS2+1!
U	BS+2, BS+4, BS+6, BS2, BS4
>> X	BS2*, BS4
>> X1	BS2*, BS4
>> Z	BS+2, BS+4

Customize PDF page

Package: Lab Service