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

Package: Lab Service

Routine: LRARCML2


Information

LRARCML2 ;DALISC/CKA - ARCHIVED WKLD COST REP BY MAJ SCTN; 5/22/95

Source Information

Source file <LRARCML2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
TOP ;
DET ;Detailed section
PRTDET ; PRINT THE REPORT
INSTSUM ;
PSUM ;
LSS ;
PCC ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOP+8
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",?52,$J(LRIGTU,7),?65,$J(LRIGT,9,2),!
  • Line Location: PRTDET+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTDET+13
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: INSTSUM+2
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: INSTSUM+7
Function Call: WRITE
  • Prompt: !!,"GRAND TOTAL",?31,$J(LRIGTU,7),?55,$J(LRIGT,9,2)
  • Line Location: INSTSUM+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INSTSUM+9
Function Call: WRITE
  • Prompt: @LRLAB
  • Line Location: PSUM+4
Function Call: WRITE
  • Prompt: !,$E(LRMAN(LRMAA),1,14),?15,$E(LRLSSN(LRLSSA),1,15)
  • Line Location: PSUM+5
Function Call: WRITE
  • Prompt: ?31,$J($P(LRX,U,2),7),?45,$J($P(LRX,U,2)/LRIGTU*100,5,1)
  • Line Location: PSUM+6
Function Call: WRITE
  • Prompt: ?55,$J($P(LRX,U,1),9,2)
  • Line Location: PSUM+7
Function Call: WRITE
  • Prompt: ?70,$J($P(LRX,U)/$S(LRIGT=0:1,1:LRIGT)*100,5,1),!
  • Line Location: PSUM+8
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+9
Function Call: WRITE
  • Prompt: !,?40,"SUB TOTAL",?52,$J(LRSTU,7),?65,$J(LRST,9,2)
  • Line Location: LSS+10
Function Call: WRITE
  • Prompt: !,?(80-$L(LRINN)\2),LRINN,!,@LRLAB
  • Line Location: PCC+2
Function Call: WRITE
  • Prompt: $P(LRX,"^",4),?11,$E(LRCC,1,30),?43,$J(+$P(LRX,"^",3),6,2)_$S($P(LRX,"^",3)["*":"*",1:"")
  • Line Location: PCC+3
Function Call: WRITE
  • Prompt: ?52,$J(+$P(LRX,"^"),7),?65,$J(+$P(LRX,"^",2),9,2)
  • Line Location: PCC+4
Function Call: WRITE
  • Prompt: ?75,$J($P(LRX,U)/$S(LRSTU=0:1,1:LRSTU)*100,5,1),!
  • Line Location: PCC+5
Info |  Source |  Entry Points |  Interaction Calls