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

Package: Radiology Nuclear Medicine

Routine: RAFLM3


Information

RAFLM3 ;HISC/FPT-Film Usage Workload Rpt (cont.) ;4/17/96 09:32

Source Information

Source file <RAFLM3.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?70,$J(RAITPCT,5,1)
  • Line Location: DIVTOT+20
Function Call: WRITE
  • Prompt: !,RA80DASH,!!?2,"Division Total",?40,$J(RADFILM,5),?50,$J(RADEXAM,5),?60,$J(RADRATIO,5,1)
  • Line Location: DIVTOT+24
Function Call: WRITE
  • Prompt: !!!,"* Cine data not included in division totals.",!?2,"Percentages calculated on film data only."
  • 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 Films selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: DIVTOT+33
Function Call: WRITE
  • Prompt: !?5,">>>>> Film Usage Report <<<<<"
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: ?70,"Page: ",PAGE
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: !!?1,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN"),?52,"For period: ",?64,BEGDATE,?76,"to"
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: !?1,"Run Date: ",RARUNDTE,?64,ENDDATE
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: !!?40,"Number",?50,"Number",?60,"Films",?70,"Percentage"
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: !?40," of ",?50," of ",?60," per ",?70," Films"
  • Line Location: DIVHDR+6
Function Call: WRITE
  • Prompt: !?2,"Film Size",?40,"Films*",?50,"Exams",?60," Exam",?70," Used"
  • Line Location: DIVHDR+7
Function Call: WRITE
  • Prompt: !,RA80DASH
  • Line Location: DIVHDR+8
Function Call: WRITE
  • Prompt: !?10,"(Division Summary)"
  • Line Location: DIVHDR+9
Info |  Source |  Entry Points |  Interaction Calls