- 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 Jan 18, 2025@03:39:36 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