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

Package: Lab Service

Routine: LRARCR3B


Information

LRARCR3B ;DALISC/CKA - ARCHIVEDWKLD REP GENERATOR-PRINT 2 ;

Source Information

Source file <LRARCR3B.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;CALLED FROM LRARCR3A
STAT ;
STAT1 ; Combined patient type totals
STAT2 ; Individual patient type totals

Interaction Calls

Name Line Occurrences
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("LRAR",$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("LRAR",$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