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

Package: Radiology Nuclear Medicine

Routine: RALWKL4


Information

RALWKL4 ;HISC/FPT-Workload Reports By Functional Area ;4/11/96 09:33

Source Information

Source file <RALWKL4.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; This subroutine prints out only the Summary data as requested by the
; user.
IMGSUM ; imaging summary
IMGTOT ; calculate imaging totals
RAFLD ;
PFLDTOT ; print rafld totals within imaging type
PIMGTOT ; print imaging type totals
DIVSUM ; print division totals
PDIVFLD ;
PDIVTOT ;
DIVHDR ; division totals header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(RAFLD,1,28),?30,$J(+$P(RAFLDNDE,U,1),5)
  • Line Location: PFLDTOT+4
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RAFLDNDE,U,2),5)
  • Line Location: PFLDTOT+5
Function Call: WRITE
  • Prompt: ?42,$J(+$P(RAFLDNDE,U,3),5)
  • Line Location: PFLDTOT+6
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RAFLDNDE,U,4),5)
  • Line Location: PFLDTOT+7
Function Call: WRITE
  • Prompt: ?55,$J(RAFLDTOT,5)
  • Line Location: PFLDTOT+8
Function Call: WRITE
  • Prompt: ?68,$J(RAFLDWWU,5)
  • Line Location: PFLDTOT+10
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: PIMGTOT+2
Function Call: WRITE
  • Prompt: !!,"Imaging Type Total:",?30,$J(+$P(RAIMGNDE,U,1),5)
  • Line Location: PIMGTOT+3
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RAIMGNDE,U,2),5)
  • Line Location: PIMGTOT+4
Function Call: WRITE
  • Prompt: ?42,$J(+$P(RAIMGNDE,U,3),5)
  • Line Location: PIMGTOT+5
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RAIMGNDE,U,4),5)
  • Line Location: PIMGTOT+6
Function Call: WRITE
  • Prompt: ?55,$J(RAIMGTOT,5)
  • Line Location: PIMGTOT+7
Function Call: WRITE
  • Prompt: ?68,$J(RAIMGWWU,5)
  • Line Location: PIMGTOT+8
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: PIMGTOT+9
Function Call: WRITE
  • Prompt: !,$E(RAFLD,1,28),?30,$J(+$P(RASUMNDE,U,1),5),?36,$J(+$P(RASUMNDE,U,2),5),?42,$J(+$P(RASUMNDE,U,3),5),?48,$J(+$P(RASUMNDE,U,4),5),?55,$J(RAFLDTOT,5)
  • Line Location: PDIVFLD+3
Function Call: WRITE
  • Prompt: ?62,$J($S(RADIVTOT:(RAFLDTOT*100)/RADIVTOT,1:0),5,1)
  • Line Location: PDIVFLD+4
Function Call: WRITE
  • Prompt: ?68,$J(+$P(RASUMNDE,U,5),5)
  • Line Location: PDIVFLD+5
Function Call: WRITE
  • Prompt: !,RALN,!!,"Division Total",?30,$J(+$P(RADIVNDE,U,1),5),?36,$J(+$P(RADIVNDE,U,2),5),?42,$J(+$P(RADIVNDE,U,3),5),?48,$J(+$P(RADIVNDE,U,4),5),?55,$J(RADIVTOT,5)
  • Line Location: PDIVTOT+2
Function Call: WRITE
  • Prompt: ?68,$J(+$P(RADIVNDE,U,5),5)
  • Line Location: PDIVTOT+3
Function Call: WRITE
  • Prompt: !!?2,"Imaging Type(s): "
  • Line Location: PDIVTOT+5
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: PDIVTOT+11
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: !?5,">>> ",RATITLE," Workload Report <<<"
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: ?70,"Page: ",RAPG
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: !!,?4,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN"),?52,"For period: "
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: ?64,BEGDATE("X"),?76," to"
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: !?4,"Run Date: ",RATDY
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: ?64,ENDDATE("X")
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: !!?32,"-------Examinations------",!?62,"% of"
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: ?75," % of"
  • Condition for execution: $D(RAFL)
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: !,RATITLE,?30," Inpt",?36," Opt",?42," Res",?48,"Other",?55,"Total",?62,"Exams"
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: DIVHDR+7
Function Call: WRITE
  • Prompt: !?10,"(Division Summary)"
  • Line Location: DIVHDR+8
Info |  Source |  Entry Points |  Interaction Calls