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

Package: Radiology Nuclear Medicine

Routine: RAPM1


Information

RAPM1 ;HOIFO/TH-Radiology Performance Monitors/Indicator ;2/18/04 09:42

Source Information

Source file <RAPM1.m>

Entry Points

Name Comments DBIA/ICR reference
SHDR ; Print header of summary report
SHDR2 ;save to tmp
SRPT ; Print summary report
SRPT2 ; store in tmp
RPTINFO ; Other report info.
; Get Date/Time Report Entered, replace prev RACN with data from Report
CAL ; Calculation: Null report pointer, no report, no report date, no
; verfied date are counted as diff=0
; # of Transcribed = Total # of transcribed exams not cancelled.
; # of hrs from exam registration = Date/Time transcribed
; (Date Report Entered) - Exam Date/time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Total number of reports expected for procedures performed during "
  • Line Location: RAPM1+5
Function Call: WRITE
  • Prompt: "specified",!,"date range: "
  • Line Location: RAPM1+6
Function Call: WRITE
  • Prompt: $J(+RATOTCNT,$L(+RATOTCNT))
  • Line Location: RAPM1+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: SHDR+5
Function Call: WRITE
  • Prompt: !?(RAIOM-$L(RAHDR)\2),RAHDR,?(RAIOM-10),"Page: ",$G(RAPG)
  • Line Location: SHDR+5
Function Call: WRITE
  • Prompt: !!,"Hrs ",?8,">0",?14,">24",?21,">48",?27,">72",?33,">96"
  • Line Location: SHDR+6
Function Call: WRITE
  • Prompt: ?38,">120",?44,">144",?50,">168",?56,">192",?62,">216",?68,">240"
  • Line Location: SHDR+7
Function Call: WRITE
  • Prompt: ?73,"PENDING"
  • Line Location: SHDR+8
Function Call: WRITE
  • Prompt: !,"From",?7,"-24",?14,"-48",?21,"-72",?27,"-96",?32,"-120",?38,"-144"
  • Line Location: SHDR+9
Function Call: WRITE
  • Prompt: ?44,"-168",?50,"-192",?56,"-216",?62,"-240",?68,"Hrs"
  • Line Location: SHDR+10
Function Call: WRITE
  • Prompt: !,"Ex Dt",?7,"Hrs",?14,"Hrs",?21,"Hrs",?27,"Hrs",?33,"Hrs",?39,"Hrs",?45,"Hrs",?51,"Hrs",?57,"Hrs",?63,"Hrs",!
  • Line Location: SHDR+11
Function Call: WRITE
  • Prompt: !,"#Tr",?4,$J(+$G(^TMP($J,"RAPM","TR",1)),6),?11,$J(+$G(^(2)),6),?18,$J(+$G(^(3)),6),?25,$J(+$G(^(4)),5)
  • Line Location: SRPT+5
Function Call: WRITE
  • Prompt: ?31,$J(+$G(^TMP($J,"RAPM","TR",5)),5),?37,$J(+$G(^(6)),5),?43,$J(+$G(^(7)),5),?49,$J(+$G(^(8)),5),?55,$J(+$G(^(9)),5)
  • Line Location: SRPT+6
Function Call: WRITE
  • Prompt: ?61,$J(+$G(^TMP($J,"RAPM","TR",10)),5),?67,$J(+$G(^(11)),5),?73,$J(+$G(^(0)),7)
  • Line Location: SRPT+7
Function Call: WRITE
  • Prompt: !,"%Tr",?4,$J((+$G(^TMP($J,"RAPM","TR",1))/RATOTCNT)*100,6,1)
  • Line Location: SRPT+9
Function Call: WRITE
  • Prompt: ?11,$J((+$G(^TMP($J,"RAPM","TR",2))/RATOTCNT)*100,6,1),?18,$J((+$G(^(3))/RATOTCNT)*100,6,1),?25,$J((+$G(^(4))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+10
Function Call: WRITE
  • Prompt: ?31,$J((+$G(^TMP($J,"RAPM","TR",5))/RATOTCNT)*100,5,1),?37,$J((+$G(^(6))/RATOTCNT)*100,5,1),?43,$J((+$G(^(7))/RATOTCNT)*100,5,1),?49,$J((+$G(^(8))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+11
Function Call: WRITE
  • Prompt: ?55,$J((+$G(^TMP($J,"RAPM","TR",9))/RATOTCNT)*100,5,1),?61,$J((+$G(^(10))/RATOTCNT)*100,5,1),?67,$J((+$G(^(11))/RATOTCNT)*100,5,1),?73,$J((+$G(^(0))/RATOTCNT)*100,7,1),!
  • Line Location: SRPT+12
Function Call: WRITE
  • Prompt: !,"#Vr",?4,$J(+$G(^TMP($J,"RAPM","VR",1)),6),?11,$J(+$G(^(2)),6),?18,$J(+$G(^(3)),6),?25,$J(+$G(^(4)),5),?31,$J(+$G(^(5)),5)
  • Line Location: SRPT+14
Function Call: WRITE
  • Prompt: ?37,$J(+$G(^TMP($J,"RAPM","VR",6)),5),?43,$J(+$G(^(7)),5),?49,$J(+$G(^(8)),5),?55,$J(+$G(^(9)),5),?61,$J(+$G(^(10)),5)
  • Line Location: SRPT+15
Function Call: WRITE
  • Prompt: ?67,$J(+$G(^TMP($J,"RAPM","VR",11)),5),?73,$J(+$G(^(0)),7)
  • Line Location: SRPT+16
Function Call: WRITE
  • Prompt: !,"%Vr",?4,$J((+$G(^TMP($J,"RAPM","VR",1))/RATOTCNT)*100,6,1),?11,$J((+$G(^(2))/RATOTCNT)*100,6,1),?18,$J((+$G(^(3))/RATOTCNT)*100,6,1)
  • Line Location: SRPT+18
Function Call: WRITE
  • Prompt: ?25,$J((+$G(^TMP($J,"RAPM","VR",4))/RATOTCNT)*100,5,1),?31,$J((+$G(^(5))/RATOTCNT)*100,5,1),?37,$J((+$G(^(6))/RATOTCNT)*100,5,1),?43,$J((+$G(^(7))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+19
Function Call: WRITE
  • Prompt: ?49,$J((+$G(^TMP($J,"RAPM","VR",8))/RATOTCNT)*100,5,1),?55,$J((+$G(^(9))/RATOTCNT)*100,5,1),?61,$J((+$G(^(10))/RATOTCNT)*100,5,1),?67,$J((+$G(^(11))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+20
Function Call: WRITE
  • Prompt: ?73,$J((+$G(^TMP($J,"RAPM","VR",0))/RATOTCNT)*100,7,1),!
  • Line Location: SRPT+21
Info |  Source |  Entry Points |  Interaction Calls