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

Package: Radiology Nuclear Medicine

Routine: RAWFR3


Information

RAWFR3 ;HISC/GJC-'Wasted Film Report' (3 of 4) ;4/15/96 07:12

Source Information

Source file <RAWFR3.m>

Entry Points

Name Comments DBIA/ICR reference
COMP ; Compilation for 'Non-Summary' data
KILL ; Kill and quit
HDR ; Display/Print the header for the report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,X4,?$S(IOM=132:60,1:35),Y2,?$S(IOM=132:75,1:45),Y1
  • Line Location: COMP+23
Function Call: WRITE
  • Prompt: ?$S(IOM=132:100,1:60),RATIO
  • Line Location: COMP+24
Function Call: WRITE
  • Prompt: !!?$S(IOM=132:10,1:5),"Subtotals:"
  • Line Location: COMP+27
Function Call: WRITE
  • Prompt: ?$S(IOM=132:75,1:45),Y0
  • Line Location: COMP+29
Function Call: WRITE
  • Prompt: ?$S(IOM=132:100,1:60),$S((Y0+Y3)>0:$J((Y0/(Y0+Y3))*100,5,1),1:0)
  • Line Location: COMP+30
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: COMP+31
Function Call: WRITE
  • Prompt: !!?5,"* Cine data not included in totals."
  • Line Location: COMP+33
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHEAD)\2),RAHEAD,?$S(IOM=132:122,1:69),"Page: ",RAPG,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?$S(IOM=132:10,1:5),"Division: ",$G(RADIV)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?$S(IOM=132:85,1:50),"For Period: ",RABGDTX_" to"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?$S(IOM=132:10,1:5),"Run Date: ",RATDAY
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?$S(IOM=132:97,1:62),RAENDTX_"."
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?$S(IOM=132:10,1:5),"Division: ",$G(RADIV)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?$S(IOM=132:85,1:50),"For Period: ",RABGDTX_" to"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?$S(IOM=132:10,1:5),"Imaging Type: ",$G(RAIMG)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?$S(IOM=132:97,1:62),RAENDTX_"."
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !?$S(IOM=132:10,1:5),"Run Date: ",RATDAY
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !!?$S(IOM=132:60,1:35),"Units",?$S(IOM=132:75,1:45),"Units"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?$S(IOM=132:100,1:60),"Percentage"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !?$S(IOM=132:60,1:35),"Of Used",?$S(IOM=132:75,1:45),"Of Wasted"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?$S(IOM=132:100,1:60),"Of Wasted"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,"Film Size",?$S(IOM=132:60,1:35),"Films"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: ?$S(IOM=132:75,1:45),"Films"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?$S(IOM=132:100,1:60),"Film"
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: HDR+23
Info |  Source |  Entry Points |  Interaction Calls