RAPM1 ;HOIFO/TH-Radiology Performance Monitors/Indicator ;2/18/04 09:42
;;5.0;Radiology/Nuclear Medicine;**37,44,48,59,67**;Mar 16, 1998
; Summary Report
D HDR^RAPM2("S")
; Print total reports
W !,"Total number of reports expected for procedures performed during "
W "specified",!,"date range: "
S RATOTCNT=+$G(^TMP($J,"RAPM","TOTAL"))
W $J(+RATOTCNT,$L(+RATOTCNT))
S RAN=RAN+1,^TMP($J,"RAPM",RAN)="",RAN=RAN+1
S ^TMP($J,"RAPM",RAN)="Total number of reports expected for procedures performed during specified",RAN=RAN+1
S ^TMP($J,"RAPM",RAN)="date range: "_$J(+RATOTCNT,$L(+RATOTCNT)),RAN=RAN+1,^TMP($J,"RAPM",RAN)="",RAN=RAN+1
D SHDR,SRPT,SFOOT^RAPM3
Q
SHDR ; Print header of summary report
G:'RAIO SHDR2 ; skip writes if original IO is null
I ($Y+5)>IOSL,IO=IO(0) D
. I $E(IOST,1,2)="C-" R !,"Press RETURN to continue.",X:DTIME
. S RAPG=RAPG+1,RAHDR="Summary Verification Timeliness Report"
. W:$E(IOST,1,2)="C-" @IOF W !?(RAIOM-$L(RAHDR)\2),RAHDR,?(RAIOM-10),"Page: ",$G(RAPG)
W !!,"Hrs ",?8,">0",?14,">24",?21,">48",?27,">72",?33,">96"
W ?38,">120",?44,">144",?50,">168",?56,">192",?62,">216",?68,">240"
W ?73,"PENDING"
W !,"From",?7,"-24",?14,"-48",?21,"-72",?27,"-96",?32,"-120",?38,"-144"
W ?44,"-168",?50,"-192",?56,"-216",?62,"-240",?68,"Hrs"
W !,"Ex Dt",?7,"Hrs",?14,"Hrs",?21,"Hrs",?27,"Hrs",?33,"Hrs",?39,"Hrs",?45,"Hrs",?51,"Hrs",?57,"Hrs",?63,"Hrs",!
SHDR2 ;save to tmp
S ^TMP($J,"RAPM",RAN)="Hrs >0 >24 >48 >72 >96 >120 >144 >168 >192 >216 >240 PENDING",RAN=RAN+1
S ^TMP($J,"RAPM",RAN)="From -24 -48 -72 -96 -120 -144 -168 -192 -216 -240 Hrs",RAN=RAN+1
S ^TMP($J,"RAPM",RAN)="Ex Dt Hrs Hrs Hrs Hrs Hrs Hrs Hrs Hrs Hrs Hrs",RAN=RAN+1
S ^TMP($J,"RAPM",RAN)="",RAN=RAN+1
Q
SRPT ; Print summary report
I RATOTCNT=0 W:RAIO !,?4,"No data to print..." Q
G:'RAIO SRPT2
I ($Y+5)>IOSL,IO=IO(0) D SHDR
;
W !,"#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)
W ?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)
W ?61,$J(+$G(^TMP($J,"RAPM","TR",10)),5),?67,$J(+$G(^(11)),5),?73,$J(+$G(^(0)),7)
;
W !,"%Tr",?4,$J((+$G(^TMP($J,"RAPM","TR",1))/RATOTCNT)*100,6,1)
W ?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)
W ?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)
W ?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),!
;
W !,"#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)
W ?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)
W ?67,$J(+$G(^TMP($J,"RAPM","VR",11)),5),?73,$J(+$G(^(0)),7)
;
W !,"%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)
W ?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)
W ?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)
W ?73,$J((+$G(^TMP($J,"RAPM","VR",0))/RATOTCNT)*100,7,1),!
;
SRPT2 ; store in tmp
S ^TMP($J,"RAPM",RAN)="#Tr"_$J(+$G(^TMP($J,"RAPM","TR",1)),6)_" "_$J(+$G(^(2)),6)_" "_$J(+$G(^(3)),6)_" "_$J(+$G(^(4)),5)_" "_$J(+$G(^(5)),5)
S ^TMP($J,"RAPM",RAN)=^TMP($J,"RAPM",RAN)_" "_$J(+$G(^TMP($J,"RAPM","TR",6)),5)_" "_$J(+$G(^(7)),5)_" "_$J(+$G(^(8)),5)_" "_$J(+$G(^(9)),5)_" "_$J(+$G(^(10)),5)
S ^TMP($J,"RAPM",RAN)=^TMP($J,"RAPM",RAN)_" "_$J(+$G(^TMP($J,"RAPM","TR",11)),5)_" "_$J(+$G(^(0)),7) S RAN=RAN+1
;
S ^TMP($J,"RAPM",RAN)="%Tr"_$J((+$G(^TMP($J,"RAPM","TR",1))/RATOTCNT)*100,6,1)_" "_$J((+$G(^(2))/RATOTCNT)*100,6,1)_" "_$J((+$G(^(3))/RATOTCNT)*100,6,1)_" "_$J((+$G(^(4))/RATOTCNT)*100,5,1)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J((+$G(^TMP($J,"RAPM","TR",5))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(6))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(7))/RATOTCNT)*100,5,1)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J((+$G(^TMP($J,"RAPM","TR",8))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(9))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(10))/RATOTCNT)*100,5,1)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J((+$G(^TMP($J,"RAPM","TR",11))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(0))/RATOTCNT)*100,7,1)
S RAN=RAN+1,^TMP($J,"RAPM",RAN)="",RAN=RAN+1
;
S ^TMP($J,"RAPM",RAN)="#Vr"_$J(+$G(^TMP($J,"RAPM","VR",1)),6)_" "_$J(+$G(^(2)),6)_" "_$J(+$G(^(3)),6)_" "_$J(+$G(^(4)),5)_" "_$J(+$G(^(5)),5)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J(+$G(^TMP($J,"RAPM","VR",6)),5)_" "_$J(+$G(^(7)),5)_" "_$J(+$G(^(8)),5)_" "_$J(+$G(^(9)),5)_" "_$J(+$G(^(10)),5)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J(+$G(^TMP($J,"RAPM","VR",11)),5)_" "_$J(+$G(^(0)),7) S RAN=RAN+1
;
S ^TMP($J,"RAPM",RAN)="%Vr"_$J((+$G(^TMP($J,"RAPM","VR",1))/RATOTCNT)*100,6,1)_" "_$J((+$G(^(2))/RATOTCNT)*100,6,1)_" "_$J((+$G(^(3))/RATOTCNT)*100,6,1)_" "_$J((+$G(^(4))/RATOTCNT)*100,5,1)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J((+$G(^TMP($J,"RAPM","VR",5))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(6))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(7))/RATOTCNT)*100,5,1)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J((+$G(^TMP($J,"RAPM","VR",8))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(9))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(10))/RATOTCNT)*100,5,1)
S ^TMP($J,"RAPM",RAN)=$G(^TMP($J,"RAPM",RAN))_" "_$J((+$G(^TMP($J,"RAPM","VR",11))/RATOTCNT)*100,5,1)_" "_$J((+$G(^(0))/RATOTCNT)*100,7,1) S RAN=RAN+1
Q
RPTINFO ; Other report info.
; Get Date/Time Report Entered, replace prev RACN with data from Report
S RARPTDT=$P(^RARPT(RARPTTXT,0),U,6),RACN=$P(^(0),U)
; Get Verified Date/Time
S RAVERDT=$P(^RARPT(RARPTTXT,0),U,7)
; Use 1st Verified Date/Time for amended reports
I RAVERDT,$O(^RARPT(RARPTTXT,"ERR",0)) D
. S RA1=0
. F S RA1=$O(^RARPT(RARPTTXT,"L",RA1)) Q:'RA1 I $D(^(RA1,0)),$P(^(0),U,2)="V" S RAVERDT=$P(^(0),U) Q
. Q
I RARPTDT="" S ^TMP($J,"RAPM","TR",0)=$G(^TMP($J,"RAPM","TR",0))+1
I RAVERDT="" S ^TMP($J,"RAPM","VR",0)=$G(^TMP($J,"RAPM","VR",0))+1
; Get Report Status
S RARPTST=$P(^RARPT(RARPTTXT,0),U,5)
;
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
I RARPTDT D
. S RATDFSEC=$$FMDIFF^XLFDT(RARPTDT,RADTE,2)
. S RATDFHR=RATDFSEC/3600
. S RATHRS=$S(RATDFHR=0:0,RATDFHR'>24:1,RATDFHR'>48:2,RATDFHR'>72:3,RATDFHR'>96:4,RATDFHR'>120:5,RATDFHR'>144:6,RATDFHR'>168:7,RATDFHR'>192:8,RATDFHR'>216:9,RATDFHR'>240:10,1:11)
. S ^(RATHRS)=$G(^TMP($J,"RAPM","TR",RATHRS))+1
;
I RAVERDT D
. S RAVDFSEC=$$FMDIFF^XLFDT(RAVERDT,RADTE,2)
. S RAVDFHR=RAVDFSEC/3600
. S RAVHRS=$S(RAVDFHR=0:0,RAVDFHR'>24:1,RAVDFHR'>48:2,RAVDFHR'>72:3,RAVDFHR'>96:4,RAVDFHR'>120:5,RAVDFHR'>144:6,RAVDFHR'>168:7,RAVDFHR'>192:8,RAVDFHR'>216:9,RAVDFHR'>240:10,1:11)
. S ^(RAVHRS)=$G(^TMP($J,"RAPM","VR",RAVHRS))+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAPM1 7571 printed Sep 23, 2025@20:14:41 Page 2
RAPM1 ;HOIFO/TH-Radiology Performance Monitors/Indicator ;2/18/04 09:42
+1 ;;5.0;Radiology/Nuclear Medicine;**37,44,48,59,67**;Mar 16, 1998
+2 ; Summary Report
+3 DO HDR^RAPM2("S")
+4 ; Print total reports
+5 WRITE !,"Total number of reports expected for procedures performed during "
+6 WRITE "specified",!,"date range: "
+7 SET RATOTCNT=+$GET(^TMP($JOB,"RAPM","TOTAL"))
+8 WRITE $JUSTIFY(+RATOTCNT,$LENGTH(+RATOTCNT))
+9 SET RAN=RAN+1
SET ^TMP($JOB,"RAPM",RAN)=""
SET RAN=RAN+1
+10 SET ^TMP($JOB,"RAPM",RAN)="Total number of reports expected for procedures performed during specified"
SET RAN=RAN+1
+11 SET ^TMP($JOB,"RAPM",RAN)="date range: "_$JUSTIFY(+RATOTCNT,$LENGTH(+RATOTCNT))
SET RAN=RAN+1
SET ^TMP($JOB,"RAPM",RAN)=""
SET RAN=RAN+1
+12 DO SHDR
DO SRPT
DO SFOOT^RAPM3
+13 QUIT
SHDR ; Print header of summary report
+1 ; skip writes if original IO is null
if 'RAIO
GOTO SHDR2
+2 IF ($Y+5)>IOSL
IF IO=IO(0)
Begin DoDot:1
+3 IF $EXTRACT(IOST,1,2)="C-"
READ !,"Press RETURN to continue.",X:DTIME
+4 SET RAPG=RAPG+1
SET RAHDR="Summary Verification Timeliness Report"
+5 if $EXTRACT(IOST,1,2)="C-"
WRITE @IOF
WRITE !?(RAIOM-$LENGTH(RAHDR)\2),RAHDR,?(RAIOM-10),"Page: ",$GET(RAPG)
End DoDot:1
+6 WRITE !!,"Hrs ",?8,">0",?14,">24",?21,">48",?27,">72",?33,">96"
+7 WRITE ?38,">120",?44,">144",?50,">168",?56,">192",?62,">216",?68,">240"
+8 WRITE ?73,"PENDING"
+9 WRITE !,"From",?7,"-24",?14,"-48",?21,"-72",?27,"-96",?32,"-120",?38,"-144"
+10 WRITE ?44,"-168",?50,"-192",?56,"-216",?62,"-240",?68,"Hrs"
+11 WRITE !,"Ex Dt",?7,"Hrs",?14,"Hrs",?21,"Hrs",?27,"Hrs",?33,"Hrs",?39,"Hrs",?45,"Hrs",?51,"Hrs",?57,"Hrs",?63,"Hrs",!
SHDR2 ;save to tmp
+1 SET ^TMP($JOB,"RAPM",RAN)="Hrs >0 >24 >48 >72 >96 >120 >144 >168 >192 >216 >240 PENDING"
SET RAN=RAN+1
+2 SET ^TMP($JOB,"RAPM",RAN)="From -24 -48 -72 -96 -120 -144 -168 -192 -216 -240 Hrs"
SET RAN=RAN+1
+3 SET ^TMP($JOB,"RAPM",RAN)="Ex Dt Hrs Hrs Hrs Hrs Hrs Hrs Hrs Hrs Hrs Hrs"
SET RAN=RAN+1
+4 SET ^TMP($JOB,"RAPM",RAN)=""
SET RAN=RAN+1
+5 QUIT
SRPT ; Print summary report
+1 IF RATOTCNT=0
if RAIO
WRITE !,?4,"No data to print..."
QUIT
+2 if 'RAIO
GOTO SRPT2
+3 IF ($Y+5)>IOSL
IF IO=IO(0)
DO SHDR
+4 ;
+5 WRITE !,"#Tr",?4,$JUSTIFY(+$GET(^TMP($JOB,"RAPM","TR",1)),6),?11,$JUSTIFY(+$GET(^(2)),6),?18,$JUSTIFY(+$GET(^(3)),6),?25,$JUSTIFY(+$GET(^(4)),5)
+6 WRITE ?31,$JUSTIFY(+$GET(^TMP($JOB,"RAPM","TR",5)),5),?37,$JUSTIFY(+$GET(^(6)),5),?43,$JUSTIFY(+$GET(^(7)),5),?49,$JUSTIFY(+$GET(^(8)),5),?55,$JUSTIFY(+$GET(^(9)),5)
+7 WRITE ?61,$JUSTIFY(+$GET(^TMP($JOB,"RAPM","TR",10)),5),?67,$JUSTIFY(+$GET(^(11)),5),?73,$JUSTIFY(+$GET(^(0)),7)
+8 ;
+9 WRITE !,"%Tr",?4,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",1))/RATOTCNT)*100,6,1)
+10 WRITE ?11,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",2))/RATOTCNT)*100,6,1),?18,$JUSTIFY((+$GET(^(3))/RATOTCNT)*100,6,1),?25,$JUSTIFY((+$GET(^(4))/RATOTCNT)*100,5,1)
+11 WRITE ?31,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",5))/RATOTCNT)*100,5,1),?37,$JUSTIFY((+$GET(^(6))/RATOTCNT)*100,5,1),?43,$JUSTIFY((+$GET(^(7))/RATOTCNT)*100,5,1),?49,$JUSTIFY((+$GET(^(8))/RATOTCNT)*100,5,1)
+12 WRITE ?55,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",9))/RATOTCNT)*100,5,1),?61,$JUSTIFY((+$GET(^(10))/RATOTCNT)*100,5,1),?67,$JUSTIFY((+$GET(^(11))/RATOTCNT)*100,5,1),?73,$JUSTIFY((+$GET(^(0))/RATOTCNT)*100,7,1),!
+13 ;
+14 WRITE !,"#Vr",?4,$JUSTIFY(+$GET(^TMP($JOB,"RAPM","VR",1)),6),?11,$JUSTIFY(+$GET(^(2)),6),?18,$JUSTIFY(+$GET(^(3)),6),?25,$JUSTIFY(+$GET(^(4)),5),?31,$JUSTIFY(+$GET(^(5)),5)
+15 WRITE ?37,$JUSTIFY(+$GET(^TMP($JOB,"RAPM","VR",6)),5),?43,$JUSTIFY(+$GET(^(7)),5),?49,$JUSTIFY(+$GET(^(8)),5),?55,$JUSTIFY(+$GET(^(9)),5),?61,$JUSTIFY(+$GET(^(10)),5)
+16 WRITE ?67,$JUSTIFY(+$GET(^TMP($JOB,"RAPM","VR",11)),5),?73,$JUSTIFY(+$GET(^(0)),7)
+17 ;
+18 WRITE !,"%Vr",?4,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",1))/RATOTCNT)*100,6,1),?11,$JUSTIFY((+$GET(^(2))/RATOTCNT)*100,6,1),?18,$JUSTIFY((+$GET(^(3))/RATOTCNT)*100,6,1)
+19 WRITE ?25,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",4))/RATOTCNT)*100,5,1),?31,$JUSTIFY((+$GET(^(5))/RATOTCNT)*100,5,1),?37,$JUSTIFY((+$GET(^(6))/RATOTCNT)*100,5,1),?43,$JUSTIFY((+$GET(^(7))/RATOTCNT)*100,5,1)
+20 WRITE ?49,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",8))/RATOTCNT)*100,5,1),?55,$JUSTIFY((+$GET(^(9))/RATOTCNT)*100,5,1),?61,$JUSTIFY((+$GET(^(10))/RATOTCNT)*100,5,1),?67,$JUSTIFY((+$GET(^(11))/RATOTCNT)*100,5,1)
+21 WRITE ?73,$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",0))/RATOTCNT)*100,7,1),!
+22 ;
SRPT2 ; store in tmp
+1 SET ^TMP($JOB,"RAPM",RAN)="#Tr"_$JUSTIFY(+$GET(^TMP($JOB,"RAPM","TR",1)),6)_" "_$JUSTIFY(+$GET(^(2)),6)_" "_$JUSTIFY(+$GET(^(3)),6)_" "_$JUSTIFY(+$GET(^(4)),5)_" "_$JUSTIFY(+$GET(^(5)),5)
+2 SET ^TMP($JOB,"RAPM",RAN)=^TMP($JOB,"RAPM",RAN)_" "_$JUSTIFY(+$GET(^TMP($JOB,"RAPM","TR",6)),5)_" "_$JUSTIFY(+$GET(^(7)),5)_" "_$JUSTIFY(+$GET(^(8)),5)_" "_$JUSTIFY(+$GET(^(9)),5)_" "_$JUSTIFY(+$GET(^(10)),5)
+3 SET ^TMP($JOB,"RAPM",RAN)=^TMP($JOB,"RAPM",RAN)_" "_$JUSTIFY(+$GET(^TMP($JOB,"RAPM","TR",11)),5)_" "_$JUSTIFY(+$GET(^(0)),7)
SET RAN=RAN+1
+4 ;
+5 SET ^TMP($JOB,"RAPM",RAN)="%Tr"_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",1))/RATOTCNT)*100,6,1)_" "_$JUSTIFY((+$GET(^(2))/RATOTCNT)*100,6,1)_" "_$JUSTIFY((+$GET(^(3))/RATOTCNT)*100,6,1)_" "_$JUSTIFY((+$GET(^(4))/RATOTCNT)*100,5,1)
+6 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",5))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(6))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(7))/RATOTCNT)*100,5,1)
+7 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",8))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(9))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(10))/RATOTCNT)*100,5,1)
+8 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","TR",11))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(0))/RATOTCNT)*100,7,1)
+9 SET RAN=RAN+1
SET ^TMP($JOB,"RAPM",RAN)=""
SET RAN=RAN+1
+10 ;
+11 SET ^TMP($JOB,"RAPM",RAN)="#Vr"_$JUSTIFY(+$GET(^TMP($JOB,"RAPM","VR",1)),6)_" "_$JUSTIFY(+$GET(^(2)),6)_" "_$JUSTIFY(+$GET(^(3)),6)_" "_$JUSTIFY(+$GET(^(4)),5)_" "_$JUSTIFY(+$GET(^(5)),5)
+12 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY(+$GET(^TMP($JOB,"RAPM","VR",6)),5)_" "_$JUSTIFY(+$GET(^(7)),5)_" "_$JUSTIFY(+$GET(^(8)),5)_" "_$JUSTIFY(+$GET(^(9)),5)_" "_$JUSTIFY(+$GET(^(10)),5)
+13 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY(+$GET(^TMP($JOB,"RAPM","VR",11)),5)_" "_$JUSTIFY(+$GET(^(0)),7)
SET RAN=RAN+1
+14 ;
+15 SET ^TMP($JOB,"RAPM",RAN)="%Vr"_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",1))/RATOTCNT)*100,6,1)_" "_$JUSTIFY((+$GET(^(2))/RATOTCNT)*100,6,1)_" "_$JUSTIFY((+$GET(^(3))/RATOTCNT)*100,6,1)_" "_$JUSTIFY((+$GET(^(4))/RATOTCNT)*100,5,1)
+16 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",5))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(6))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(7))/RATOTCNT)*100,5,1)
+17 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",8))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(9))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(10))/RATOTCNT)*100,5,1)
+18 SET ^TMP($JOB,"RAPM",RAN)=$GET(^TMP($JOB,"RAPM",RAN))_" "_$JUSTIFY((+$GET(^TMP($JOB,"RAPM","VR",11))/RATOTCNT)*100,5,1)_" "_$JUSTIFY((+$GET(^(0))/RATOTCNT)*100,7,1)
SET RAN=RAN+1
+19 QUIT
RPTINFO ; Other report info.
+1 ; Get Date/Time Report Entered, replace prev RACN with data from Report
+2 SET RARPTDT=$PIECE(^RARPT(RARPTTXT,0),U,6)
SET RACN=$PIECE(^(0),U)
+3 ; Get Verified Date/Time
+4 SET RAVERDT=$PIECE(^RARPT(RARPTTXT,0),U,7)
+5 ; Use 1st Verified Date/Time for amended reports
+6 IF RAVERDT
IF $ORDER(^RARPT(RARPTTXT,"ERR",0))
Begin DoDot:1
+7 SET RA1=0
+8 FOR
SET RA1=$ORDER(^RARPT(RARPTTXT,"L",RA1))
if 'RA1
QUIT
IF $DATA(^(RA1,0))
IF $PIECE(^(0),U,2)="V"
SET RAVERDT=$PIECE(^(0),U)
QUIT
+9 QUIT
End DoDot:1
+10 IF RARPTDT=""
SET ^TMP($JOB,"RAPM","TR",0)=$GET(^TMP($JOB,"RAPM","TR",0))+1
+11 IF RAVERDT=""
SET ^TMP($JOB,"RAPM","VR",0)=$GET(^TMP($JOB,"RAPM","VR",0))+1
+12 ; Get Report Status
+13 SET RARPTST=$PIECE(^RARPT(RARPTTXT,0),U,5)
+14 ;
CAL ; Calculation: Null report pointer, no report, no report date, no
+1 ; verfied date are counted as diff=0
+2 ; # of Transcribed = Total # of transcribed exams not cancelled.
+3 ; # of hrs from exam registration = Date/Time transcribed
+4 ; (Date Report Entered) - Exam Date/time
+5 IF RARPTDT
Begin DoDot:1
+6 SET RATDFSEC=$$FMDIFF^XLFDT(RARPTDT,RADTE,2)
+7 SET RATDFHR=RATDFSEC/3600
+8 SET RATHRS=$SELECT(RATDFHR=0:0,RATDFHR'>24:1,RATDFHR'>48:2,RATDFHR'>72:3,RATDFHR'>96:4,RATDFHR'>120:5,RATDFHR'>144:6,RATDFHR'>168:7,RATDFHR'>192:8,RATDFHR'>216:9,RATDFHR'>240:10,1:11)
+9 SET ^(RATHRS)=$GET(^TMP($JOB,"RAPM","TR",RATHRS))+1
End DoDot:1
+10 ;
+11 IF RAVERDT
Begin DoDot:1
+12 SET RAVDFSEC=$$FMDIFF^XLFDT(RAVERDT,RADTE,2)
+13 SET RAVDFHR=RAVDFSEC/3600
+14 SET RAVHRS=$SELECT(RAVDFHR=0:0,RAVDFHR'>24:1,RAVDFHR'>48:2,RAVDFHR'>72:3,RAVDFHR'>96:4,RAVDFHR'>120:5,RAVDFHR'>144:6,RAVDFHR'>168:7,RAVDFHR'>192:8,RAVDFHR'>216:9,RAVDFHR'>240:10,1:11)
+15 SET ^(RAVHRS)=$GET(^TMP($JOB,"RAPM","VR",RAVHRS))+1
End DoDot:1
+16 QUIT
