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

Package: Lab Service

Routine: LRCAPR4


Information

LRCAPR4 ;DALOI/PAC/FHS/JBM - WKLD REP GENERATOR-UTILITIES ;10/16/92 16:49

Source Information

Source file <LRCAPR4.m>

Entry Points

Name Comments DBIA/ICR reference
BLDHDR ;
ADDHDR(LRARY,LRTITLE,LRCODSTR) ;
REPHDR ;
HDR ;
SUBH ;
UP ;
UP1 ;
HDR1 ;
HDR2 ;
PAUSE ;
CLEAN ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!!!,$E(LRSTR,1,30)_$S(LRANS="D":" D E T A I L E D *",1:" C-O-N-D-E-N-S-E-D ")_$E(LRSTR,1,31)
  • Line Location: REPHDR+1
Function Call: WRITE
  • Prompt: !,LRSITE_"("_LRSITNUM_")",?33,"Workload Report"
  • Line Location: REPHDR+2
Function Call: WRITE
  • Prompt: ?53,LRDT,?80-(6+$L(LRPG)),"page ",LRPG
  • Line Location: REPHDR+3
Function Call: WRITE
  • Prompt: !,"ACCN AREA: ",LRX,?79-$L(LRDTH),LRDTH
  • Line Location: REPHDR+4
Function Call: WRITE
  • Prompt: !,LRDSH
  • Line Location: REPHDR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPHDR+8
Function Call: WRITE
  • Prompt: !!!,$E(LRSTR,1,31)_" D E T A I L E D "_$E(LRSTR,1,32)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,LRSITE_"("_LRSITNUM_")",?33,"Workload Report"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?53,LRDT,?80-(6+$L(LRPG)),"Page ",LRPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"ACCN AREA: ",LRX,?79-$L(LRDTH),LRDTH
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,LRDSH
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Lab Test "_$S(LRCONT:" **cont.**",1:"")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?33,"Instrument",?59,"Location [File #]",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,LRTST,?33,LRCODE,?59,LRLC," = ",LRCPT
  • Line Location: SUBH+1
Function Call: WRITE
  • Prompt: !,?3,"Accession # ",?36,"Date verified",?59,"WKLD CODE: ",LRCAP
  • Line Location: SUBH+2
Function Call: WRITE
  • Prompt: ?64,$S(LRCONT:"***continued***",1:"")
  • Line Location: UP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UP1+2
Function Call: WRITE
  • Prompt: !,"cont."
  • Line Location: UP1+2
Function Call: WRITE
  • Prompt: !?((80-$L(LRSUBH1))\2),LRSUBH1
  • Line Location: UP1+3
Function Call: WRITE
  • Prompt: !?((80-$L(LRSUBH1))\2),$E(LRDSH,1,$L(LRSUBH1))
  • Line Location: UP1+4
Function Call: WRITE
  • Prompt: !!!,$E(LRSTR,1,30)_$S(LRANS="D":" D E T A I L E D *",1:" C-O-N-D-E-N-S-E-D ")_$E(LRSTR,1,31)
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,LRSITE_"("_LRSITNUM_")",?33,"Workload Report"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: ?53,LRDT,?80-(6+$L(LRPG)),"page ",LRPG
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"ACCN AREA: ",LRX,?79-$L(LRDTH),LRDTH
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,LRDSH
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,LRHDR(A)
  • Line Location: HDR2+2
Info |  Source |  Entry Points |  Interaction Calls