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

Package: Radiology Nuclear Medicine

Routine: RAWKL3


Information

RAWKL3 ;HISC/FPT-Workload Reports (cont.) ;9/23/96 08:44

Source Information

Source file <RAWKL3.m>

Entry Points

Name Comments DBIA/ICR reference
DIVTOT ; print division totals
DIVHDR ; division totals header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RA80DASH,!!?2,"Division Total",?40,$J(RADIN,5),?47,$J(RADOUT,5),?54,$J(RADTOT,5)
  • Line Location: DIVTOT+25
Function Call: WRITE
  • Prompt: ?68,$J(RADWWU,5)
  • Condition for execution: $D(RAFL)
  • Line Location: DIVTOT+25
Function Call: WRITE
  • Prompt: !!?2,"Imaging Type(s): "
  • Line Location: DIVTOT+27
Function Call: WRITE
  • Prompt: !?19
  • Line Location: DIVTOT+30
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: DIVTOT+33
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: !?10,">>> ",RATITLE," Workload Report <<<"
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: ?70,"Page: ",PAGE
  • 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: ",?64,BEGDATE,?76,"to"
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: !?4,"Run Date: ",RARUNDTE,?64,ENDDATE
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: !!?45,"Examinations",?61,"Percent"
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: ?73,"Percent"
  • Condition for execution: $D(RAFL)
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: !?2,RATITLE,?40," In",?47," Out",?54,"Total",?61," Exams"
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: ?67," WWU",?73," WWU"
  • Condition for execution: $D(RAFL)
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: !,RA80DASH
  • Line Location: DIVHDR+6
Function Call: WRITE
  • Prompt: !?10,"(Division Summary)"
  • Line Location: DIVHDR+7
Info |  Source |  Entry Points |  Interaction Calls