Routine: RAFLM2

Information

RAFLM2 ;HISC/FPT-Film Usage Rpt (cont.) ;4/17/96 09:30

Source file <RAFLM2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: Q+7
Function Call: WRITE	Prompt: !!?2,$S($D(RASUM):"Imaging Type",1:"Film Usage")," Total",?40,$J(FILM,5),?50,$J(EXAM,5),?60,$J(RATIO,5,1) Line Location: TOT+1
Function Call: WRITE	Prompt: !,RA80DASH Line Location: TOT+2
Function Call: WRITE	Prompt: !,@ZZZ,?40,$J(RAFILM,5),?50,$J(RAEXAM,5),?60,$J(RARATIO,5,1) Line Location: PRT1+1
Function Call: WRITE	Prompt: ?70,$J(RAPCT,5,1) Line Location: PRT1+1
Function Call: WRITE	Prompt: !?8,">>>>> Film Usage Report <<<<<" Line Location: HD+1
Function Call: WRITE	Prompt: ?70,"Page: ",PAGE Line Location: HD+2
Function Call: WRITE	Prompt: !!?4,"Division: ",RAY,!,"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+3
Function Call: WRITE	Prompt: !?4,"Run Date: ",RARUNDTE,?64,ENDDATE Line Location: HD+4
Function Call: WRITE	Prompt: !!?40,"Number",?50,"Number",?60,RALBL,?70,"Percentage" Line Location: HD+5
Function Call: WRITE	Prompt: !?40," of ",?50," of ",?60," per ",?70," ",RALBL Line Location: HD+6
Function Call: WRITE	Prompt: !,RA80DASH Line Location: HD+8