Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRCAPR3A

Package: Lab Service

Routine: LRCAPR3A


Information

LRCAPR3A ;DALISC/PAC/FHS/JBM - WKLD REP GENERATOR-PRINT 2 ;10/16/92 16:49

Source Information

Source file <LRCAPR3A.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls