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

Package: Lab Service

Routine: LRARCR3A


Information

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

Source Information

Source file <LRARCR3A.m>

Entry Points

Name Comments DBIA/ICR reference
COND ;
LOC ;
LRMAC ;
CONTROL ;
WKLD ;

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("LRAR",$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("LRAR",$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("LRAR",$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("LRAR",$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
Info |  Source |  Entry Points |  Interaction Calls