Routine: LRCAPR3A

Package	Total	Call Graph
Lab Service	1	(HDR1,PAUSE,UP1)^LRCAPR4

Package	Total	Caller Graph
Lab Service	1	LRCAPR3

Entry Points

Name	Comments	DBIA/ICR reference
CONTROL	;
LOC	;
LRMAC	;
STAT2	; Individual patient type totals
STAT1	; Combined patient type totals
STAT	;
WKLD	;
COND	;

External References

Name	Field # of Occurrence
HDR1^LRCAPR4	COND+1, LRMAC+3, CONTROL+3, WKLD+3, STAT1+3, STAT2+3
PAUSE^LRCAPR4	LRMAC+3, CONTROL+3, WKLD+3, STAT1+3, STAT2+3
UP1^LRCAPR4	LOC+10, LRMAC+7, LRMAC+15, CONTROL+7, CONTROL+15, WKLD+7, STAT1+9, STAT1+18, STAT2+9, STAT2+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)),! Line Location: LOC+3
Function Call: WRITE	Prompt: ?X*40 Line Location: LOC+6
Function Call: WRITE	Prompt: $E(LRLOC_" ",1,20),"=" Line Location: LOC+7
Function Call: WRITE	Prompt: $J(^TMP("LR",$J,"TST/LOC",LRLOC),4)," " Line Location: LOC+8
Function Call: WRITE	Prompt: $J($FN($S(LRSUM:^(LRLOC)/LRSUM,1:0)*100,"",2),5),"%" Line Location: LOC+9
Function Call: WRITE	Prompt: @IOF Line Location: LRMAC+3
Function Call: WRITE	Prompt: !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)) Line Location: LRMAC+4
Function Call: WRITE	Prompt: !!,LRMAC," =",$J(LRLMAC,5)," " Line Location: LRMAC+8
Function Call: WRITE	Prompt: $J($FN($S(LRSUM:LRLMAC/LRSUM,1:0)*100,"",2),5),"%" Line Location: LRMAC+9
Function Call: WRITE	Prompt: ?X*40+1 Line Location: LRMAC+12
Function Call: WRITE	Prompt: LRTEST," = ",$J(^TMP("LR",$J,"TST/LRM",LRMAC,LRTEST),5) Line Location: LRMAC+13
Function Call: WRITE	Prompt: " ",$J($FN($S(LRLMAC:^(LRTEST)/LRLMAC,1:0)*100,"",2),5),"%" Line Location: LRMAC+14
Function Call: WRITE	Prompt: @IOF Line Location: CONTROL+3
Function Call: WRITE	Prompt: !!!?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)) Line Location: CONTROL+4
Function Call: WRITE	Prompt: !!,LRMAC," =",$J(LRLMAC,5)," " Line Location: CONTROL+8
Function Call: WRITE	Prompt: $J($FN($S(LRSUM:LRLMAC/LRSUM,1:0)*100,"",2),5),"%" Line Location: CONTROL+9
Function Call: WRITE	Prompt: ?X*40+1 Line Location: CONTROL+12
Function Call: WRITE	Prompt: LRTEST," = ",$J(^TMP("LR",$J,"TST/CTL",LRMAC,LRTEST),5) Line Location: CONTROL+13
Function Call: WRITE	Prompt: " ",$J($FN($S(LRLMAC:^(LRTEST)/LRLMAC,1:0)*100,"",2),5),"%" Line Location: CONTROL+14
Function Call: WRITE	Prompt: @IOF Line Location: WKLD+3
Function Call: WRITE	Prompt: !!!,?15,LRSUBH1,!?15,$E(LRDSH,1,$L(LRSUBH1)),! Line Location: WKLD+4
Function Call: WRITE	Prompt: ?X*40+1 Line Location: WKLD+8
Function Call: WRITE	Prompt: $E(LRTEST_" ",1,8)," = ",$J(^TMP("LR",$J,"TST",LRTEST),5) Line Location: WKLD+9
Function Call: WRITE	Prompt: " ",$J($FN($S(LRSUM:^(LRTEST)/LRSUM,1:0)*100,"",2),5),"% " Line Location: WKLD+10
Function Call: WRITE	Prompt: @IOF Line Location: STAT1+3
Function Call: WRITE	Prompt: !!!?((80-$L(LRSUBH1))/2),LRSUBH1 Line Location: STAT1+4
Function Call: WRITE	Prompt: !?((80-$L(LRSUBH1))/2),$E(LRDSH,1,$L(LRSUBH1)) Line Location: STAT1+5
Function Call: WRITE	Prompt: !!,?30,"NONE FOUND" Line Location: STAT1+6
Function Call: WRITE	Prompt: !!,LRURG," =",$J(LRURGCNT,5)," " Line Location: STAT1+10
Function Call: WRITE	Prompt: $J($FN($S(LRSUM:LRURGCNT/LRSUM,1:0)*100,"",2),5)_"%" Line Location: STAT1+11
Function Call: WRITE	Prompt: ?X*40+1,$E(LRTEST_" ",1,8)," = " Line Location: STAT1+15
Function Call: WRITE	Prompt: $J(^TMP("LR",$J,"TST/URG",LRPTYP,LRURG,LRTEST),5)," " Line Location: STAT1+16
Function Call: WRITE	Prompt: $J($FN($S(LRURGCNT:^(LRTEST)/LRURGCNT,1:0)*100,"",2),5)_"%" Line Location: STAT1+17
Function Call: WRITE	Prompt: @IOF Line Location: STAT2+3
Function Call: WRITE	Prompt: !!!?((80-$L(LRSUBH1))/2),LRSUBH1 Line Location: STAT2+4
Function Call: WRITE	Prompt: !?((80-$L(LRSUBH1))/2),$E(LRDSH,1,$L(LRSUBH1)) Line Location: STAT2+5
Function Call: WRITE	Prompt: !!,?30,"NONE FOUND" Line Location: STAT2+6
Function Call: WRITE	Prompt: !!,LRURG," =",$J(LRURGCNT,5)," " Line Location: STAT2+10
Function Call: WRITE	Prompt: $J($FN($S(LRSUM:LRURGCNT/LRSUM,1:0)*100,"",2),5)_"%" Line Location: STAT2+11
Function Call: WRITE	Prompt: ?X*40+1,$E(LRTEST_" ",1,8)," = " Line Location: STAT2+15
Function Call: WRITE	Prompt: $J(^TMP("LR",$J,"TST/URG",LRPTYP,LRURG,LRTEST),5)," " Line Location: STAT2+16
Function Call: WRITE	Prompt: $J($FN($S(LRURGCNT:^(LRTEST)/LRURGCNT,1:0)*100,"",2),5)_"%" Line Location: STAT2+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LR"	LOC+1, LOC+5, LOC+8, LRMAC+1, LRMAC+6, LRMAC+11, LRMAC+13, CONTROL+1, CONTROL+6, CONTROL+11 , CONTROL+13, WKLD+1, WKLD+6, WKLD+9, STAT+1, STAT1+6, STAT1+8, STAT1+13, STAT1+16, STAT2+6 , STAT2+8, STAT2+13, STAT2+16

Label References

Name	Line Occurrences
CONTROL	COND+4
LOC	COND+2
LRMAC	COND+3
STAT	COND+6
STAT1	STAT+2
STAT2	STAT+3
WKLD	COND+5

Naked Globals

Name	Field # of Occurrence
^(	LOC+9, LRMAC+6, LRMAC+14, CONTROL+6, CONTROL+14, WKLD+10, STAT1+8, STAT1+17, STAT2+8, STAT2+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> I	LOC+5, LOC+6, LRMAC+11, LRMAC+12, CONTROL+11, CONTROL+12, WKLD+6, WKLD+7, WKLD+8, STAT1+13* , STAT1+14, STAT2+13*, STAT2+14
IOF	LRMAC+3, CONTROL+3, WKLD+3, STAT1+3, STAT2+3
IOSL	LOC+10, LRMAC+3, LRMAC+7, LRMAC+15, CONTROL+3, CONTROL+7, CONTROL+15, WKLD+3, WKLD+7, STAT1+3 , STAT1+9, STAT1+18, STAT2+3, STAT2+9, STAT2+18
>> LRCTL	COND+4
>> LRDSH	LOC+3, LRMAC+4, CONTROL+4, WKLD+4, STAT1+5, STAT2+5
>> LREND	COND+2, COND+3, COND+4, COND+5, LOC+5, LOC+10, LRMAC+3, LRMAC+6, LRMAC+7, LRMAC+11 , LRMAC+15, CONTROL+3, CONTROL+6, CONTROL+7, CONTROL+11, CONTROL+15, WKLD+3, WKLD+6, WKLD+7, STAT+3 , STAT1+3, STAT1+8, STAT1+9, STAT1+13, STAT1+18, STAT2+1, STAT2+3, STAT2+8, STAT2+9, STAT2+13 , STAT2+18
>> LRIOPAT	STAT+2
>> LRLMAC	LRMAC+6, LRMAC+8, LRMAC+9, LRMAC+14, CONTROL+6, CONTROL+8, CONTROL+9, CONTROL+14
>> LRLOC	LOC+4, LOC+5, LOC+7, LOC+8, LOC+9
>> LRMAC	LRMAC+5, LRMAC+6, LRMAC+8, LRMAC+11, LRMAC+13, CONTROL+5, CONTROL+6, CONTROL+8, CONTROL+11, CONTROL+13
>> LRPTYP	STAT1+1, STAT1+6, STAT1+8, STAT1+13, STAT1+16, STAT2+1, STAT2+2, STAT2+6, STAT2+8, STAT2+13 , STAT2+16
>> LRSUBH1	LOC+2, LOC+3, LRMAC+2, LRMAC+4, CONTROL+2, CONTROL+4, WKLD+2, WKLD+4, STAT1+2, STAT1+4 , STAT1+5, STAT2+2, STAT2+4, STAT2+5
>> LRSUM	LOC+2, LOC+9, LRMAC+2, LRMAC+9, CONTROL+2, CONTROL+9, WKLD+2, WKLD+10, STAT1+2, STAT1+11 , STAT2+2, STAT2+11
>> LRTEST	LRMAC+10, LRMAC+11, LRMAC+13, LRMAC+14, CONTROL+10, CONTROL+11, CONTROL+13, CONTROL+14, WKLD+5, WKLD+6 , WKLD+9, WKLD+10, STAT1+12, STAT1+13, STAT1+15, STAT1+16, STAT1+17, STAT2+12, STAT2+13, STAT2+15 , STAT2+16, STAT2+17
>> LRURG	STAT1+7, STAT1+8, STAT1+10, STAT1+13, STAT1+16, STAT2+7, STAT2+8, STAT2+10, STAT2+13, STAT2+16
>> LRURGCNT	STAT1+8, STAT1+10, STAT1+11, STAT1+17, STAT2+8, STAT2+10, STAT2+11, STAT2+17
>> X	LOC+6, LOC+10, LRMAC+12, LRMAC+15, CONTROL+12, CONTROL+15, WKLD+8, STAT1+14, STAT1+15, STAT1+18 , STAT2+14, STAT2+15, STAT2+18

Customize PDF page

Package: Lab Service

Routine: LRCAPR3A

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: