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

Package: Radiology Nuclear Medicine

Routine: RAWKL2


Information

RAWKL2 ;HISC/FPT-Workload Reports (cont.) ;12/27/00 11:29

Source Information

Source file <RAWKL2.m>

Entry Points

Name Comments DBIA/ICR reference
Q ; kill variables, close device
START ;
RAFLD
RAMIS ;
PRT ;
TOT ;
PRT1 ;
HD ; header
EOS ; end of screen

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+6
Function Call: WRITE
  • Prompt: !,RA80DASH
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !!?2,$S($D(RASUM):"Imaging Type",1:RATITLE)," Total",?40,$J(IN,5),?47,$J(OUT,5),?54,$J(TOT,5)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: ?68,$J(WWU,5)
  • Condition for execution: $D(RAFL)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !!?2,RATITLE," Total",?50,$J(IN,5),?57,$J(OUT,5),?64,$J(TOT,5)
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !!?2,"Imaging Type"," Total",?40,$J(IN,5),?47,$J(OUT,5),?54,$J(TOT,5)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?68,$J(WWU,5)
  • Condition for execution: $D(RAFL)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: TOT+19
Function Call: WRITE
  • Prompt: !!?3,"# of "_$S($G(RAPRIM)=1:"Primary ",1:"")_$S($P(RATITLE," ",2)="Resident":"Residents",1:"Staff")_" selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: TOT+21
Function Call: WRITE
  • Prompt: !,@ZZZ,?50,$J(RAIN,5),?57,$J(RAOUT,5),?64,$J(RATOT,5),?71,$J($S(TOT:(100*RATOT)/TOT,1:0),5,1)
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: !,@ZZZ,?40,$J(RAIN,5),?47,$J(RAOUT,5),?54,$J(RATOT,5),?61,$J($S(TOT:(100*RATOT)/TOT,1:0),5,1)
  • Line Location: PRT1+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?10,">>> ",RATITLE," Workload Report <<<"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?70,"Page: ",PAGE
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!?4,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN"),!,"Imaging Type: ",$S($D(^RA(79.2,+$P(RAITYPE,"-",2),0)):$P(^(0),U,1),1:"UNKNOWN"),?52,"For period: ",?64,BEGDATE,?76,"to"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?4,"Run Date: ",RARUNDTE,?64,ENDDATE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!?55,"Examinations",?71,"Percent"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!?45,"Examinations",?61,"Percent"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !?2,"Procedure (CPT) (* : > 3 CPT mods)",?50," In",?57," Out",?64,"Total",?71," Exams"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !?2,RATITLE,?40," In",?47," Out",?54,"Total",?61," Exams"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,RA80DASH
  • Line Location: HD+10
Info |  Source |  Entry Points |  Interaction Calls