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

Package: Lab Service

Routine: LRCAPMA2


Information

LRCAPMA2 ;SLC/AM/DALISC/FHS/J0 - WKLD REPORT BY MAJOR SECTION; 2/6/91

Source Information

Source file <LRCAPMA2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
TOP ;
DET ;Detailed section
PRTDET ;Print details
INSTSUM ;
PSUM ;
LSS ;
PCC ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOP+10
Function Call: WRITE
  • Prompt: !,?(80-$L(LRINN)\2),LRINN,!
  • Line Location: PRTDET+2
Function Call: WRITE
  • Prompt: !,?(80-$L(LRINN)\2),LRINN,!!
  • Line Location: PRTDET+8
Function Call: WRITE
  • Prompt: !!!,"NO DATA FOR THIS INSTITUTION AND DATE RANGE",!
  • Line Location: PRTDET+10
Function Call: WRITE
  • Prompt: !!!,"GRAND TOTAL",?43,$J(LRICGT,5),?50,$J(LRIIGT,5)
  • Line Location: PRTDET+12
Function Call: WRITE
  • Prompt: ?57,$J(LRIOGT,5),?65,$J(LRINGT,5),?73,$J(LRIAGT,7),!
  • Line Location: PRTDET+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTDET+14
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: INSTSUM+2
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: INSTSUM+7
Function Call: WRITE
  • Prompt: !!,"GRAND TOTAL",?43,$J(LRICGT,5),?50,$J(LRIIGT,5),?57,$J(LRIOGT,5)
  • Line Location: INSTSUM+8
Function Call: WRITE
  • Prompt: ?65,$J(LRINGT,5),?73,$J(LRIAGT,7),!
  • Line Location: INSTSUM+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INSTSUM+10
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: PSUM+3
Function Call: WRITE
  • Prompt: !,$E(LRMAN(LRMAA),1,14),?15,$E(LRLSSN(LRLSSA),1,14),?31,"NUMBER :"
  • Line Location: PSUM+6
Function Call: WRITE
  • Prompt: ?43,$J(LRCCNT,5),?50,$J(LRICNT,5),?57,$J(LROCNT,5)
  • Line Location: PSUM+7
Function Call: WRITE
  • Prompt: ?65,$J(LRNCNT,5),?73,$J(LRACNT,7)
  • Line Location: PSUM+8
Function Call: WRITE
  • Prompt: !,?31,"PERCENT :"
  • Line Location: PSUM+9
Function Call: WRITE
  • Prompt: ?43,$J($S(LRIAGT:LRCCNT/LRIAGT,1:0)*100,5,1),?50,$J($S(LRIAGT:LRICNT/LRIAGT,1:0)*100,5,1)
  • Line Location: PSUM+10
Function Call: WRITE
  • Prompt: ?57,$J($S(LRIAGT:LROCNT/LRIAGT,1:0)*100,5,1),?65,$J($S(LRIAGT:LRNCNT/LRIAGT,1:0)*100,5,1)
  • Line Location: PSUM+11
Function Call: WRITE
  • Prompt: ?73,$J($S(LRIAGT:LRACNT/LRIAGT,1:0)*100,7,1)
  • Line Location: PSUM+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PSUM+13
Function Call: WRITE
  • Prompt: !,?(80-$L(LRINN)\2),LRINN,!
  • Line Location: LSS+2
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: LSS+3
Function Call: WRITE
  • Prompt: !,?(80-$L(LRINN)\2),LRINN,!,@LRLAB
  • Line Location: LSS+10
Function Call: WRITE
  • Prompt: !,?11,"SUB TOTAL",?43,$J(LRCST,5),?50,$J(LRIST,5)
  • Line Location: LSS+11
Function Call: WRITE
  • Prompt: ?57,$J(LROST,5),?65,$J(LRNST,5),?73,$J(LRAST,7),!
  • Line Location: LSS+12
Function Call: WRITE
  • Prompt: !,?(80-$L(LRINN)\2),LRINN,!,@LRLAB
  • Line Location: PCC+2
Function Call: WRITE
  • Prompt: $P(LRX,U,5),?11,$E(LRCC,1,30),?43,$J(LRCCNT,5),?50,$J(LRICNT,5)
  • Line Location: PCC+5
Function Call: WRITE
  • Prompt: ?57,$J(LROCNT,5),?65,$J(LRNCNT,5),?73,$J(LRACNT,7),!
  • Line Location: PCC+6
Info |  Source |  Entry Points |  Interaction Calls