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

Package: Radiology Nuclear Medicine

Routine: RAPRC1


Information

RAPRC1 ;HISC/FPT AISC/MJK-Procedure Workload Report ;10/21/97 09:08

Source Information

Source file <RAPRC1.m>

Entry Points

Name Comments DBIA/ICR reference
Q ; kill variables, close device
RAMIS
PRT
PRT1
HD
DIV
DIV1
SAVEONE ; Save off the I-Type

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+5
Function Call: WRITE
  • Prompt: !!?2,$S($D(RASUM):"DIVISION",1:"AMIS CATEGORY")," TOTALS",?35,$J(IN,5),?42,$J(OUT,5),?49,$J(TOT,5),?63,$J(WWU,5)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?2,RAPRC,?35,$J(RAIN,5),?42,$J(RAOUT,5),?49,$J(RATOT,5),?56,$J($S(TOT:(100*RATOT)/TOT,1:0),5,1),?63,$J(RAWWU,5),?70,$J($S(WWU:(RAWWU*100)/WWU,1:0),5,1)
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?9,">>>>> Detailed Procedure Workload Report <<<<<"
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: ?70,"Page: ",PAGE
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !!?5,"Division: ",RAY
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?1,"Imaging Type: ",RAITYPE,?52,"For period: "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?64,BEGDATE,?76,"to",!?5,"Run Date: ",RARUNDTE,?64,ENDDATE
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!?40,$S(RAMIS="MULP":"No. of Series",1:"Examinations"),?56,"Percent",?70,"Percent"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,RA80DASH
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!?2,"DIVISION TOTALS",?35,$J(IN,5),?42,$J(OUT,5),?49,$J(TOT,5),?63,$J(WWU,5)
  • Line Location: DIV+2
Function Call: WRITE
  • Prompt: !!,RA80DASH
  • Line Location: DIV+3
Function Call: WRITE
  • Prompt: !,$J($S(RAMIS:RAMIS,1:" "),2),"-",$E($S($D(^RAMIS(71.1,RAMIS,0)):$P(^(0),"^"),RAMIS="MULP":"SERIES OF AMIS CODES",1:"UNKNOWN"),1,30)
  • Line Location: DIV1+1
Function Call: WRITE
  • Prompt: ?35,$J(RAIN,5),?42,$J(RAOUT,5),?49,$J(RATOT,5),?56,$S(RAMIS="MULP":"",1:$J($S(TOT:(100*RATOT)/TOT,1:0),5,1)),?63,$J(RAWWU,5),?70,$J($S(WWU:(RAWWU*100)/WWU,1:0),5,1)
  • Line Location: DIV1+2
Info |  Source |  Entry Points |  Interaction Calls