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

Package: Lab Service

Routine: LRCAPR3A


Information

LRCAPR3A ; IHS/DIR/FJE - WKLD REP GENERATOR-PRINT 2 16:49 ; [ 10/16/92 ]

Source Information

Source file <LRCAPR3A.m>

Call Graph

Call Graph Total: 1

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

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All