RARTVER1 ;HISC/FPT AISC/MJK,RMO-On-Line Verify List/Select Reports ;11/19/97 13:49
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
HDR K RAOUT,RARSEL S RACNT=0 W !!,?5,"Case",!,?5,"No.",?12,"Procedure",?34,"Ex Date",?44,"Name",?66,"Pt ID" W:$D(RASTATFG) ?74,"ST",?78,"PV"
W !,?5,"-----",?12,"---------",?34,"--------",?44,"-----------------",?66,"-----" W:$D(RASTATFG) ?74,"---",?78,"--"
N RAPRTSET,RAMEMARR
;
RPTLP F RARTDT=0:0 S RARTDT=$O(^TMP($J,"RA","DT",RARTDT)) Q:'RARTDT!($D(RARSEL)) D GETRPT
;
Q K I,RACN,RACNT,RADASH,RADUP,^TMP($J,"RA","DT"),RAFST,RALST,RAI,RANME,RAPAR,RAPRC,RARTDT,RARPT,RARSEL,RASEL,RASSN
Q
;
GETRPT F RARPT=0:0 S RARPT=$O(^TMP($J,"RA","DT",RARTDT,RARPT)) Q:'RARPT!($D(RARSEL)) D RASET^RARTVER2 S:'Y RARSEL=0 Q:'Y S RASSN=$$SSN^RAUTL(RADFN,1) D WRT
Q
;
WRT ; used when user chooses SELECTED category
; the "xref" nodes store all cases ready to be selected by user
D EN2^RAUTL20(.RAMEMARR)
S RACNT=RACNT+1 W !,RACNT,?4,$S(RAPRTSET:"+",1:""),?5,RACN,?12,$E(RAPRC,1,20),?34,$E(RADTE,4,5),"-",$E(RADTE,6,7),"-",$E(RADTE,2,3),?44,$E(RANME,1,20),?66,RASSN
I $D(RASTATFG),$P($G(^RARPT(RARPT,0)),U,5)]"" W ?74,"("_$E($P($G(^RARPT(RARPT,0)),U,5),1)_")"
I $D(RASTATFG) W ?78,$S($P($G(^RARPT(RARPT,0)),U,12)]"":"Y",1:"N")
;rarpt^rpt status at start of selection^/long CN^Pat.ien^Proc.ien
S ^TMP($J,"RA","XREF",RACNT)=RARPT_"^"_$P($G(^RARPT(+RARPT,0)),U,5)_"^/"_$P(^TMP($J,"RA","DT",RARTDT,RARPT),"/",2) D ASK:'(RACNT#15)!(RACNT=RATOT)
Q
;
ASK K RADUP,RARPTX S (RAERR,RAI,RANUM)=0 W !,"Type '^' to STOP, or",!,"CHOOSE FROM 1-",RACNT,": " R X:DTIME S:'$T X="^" S:X["^" RAOUT="",RARSEL=0 Q:X["^"!(X="")
I X["?" W !!?3,"Please enter a single number, individual numbers separated by commas,",!?3,"a range of numbers separated by a dash, or numbers separated by a",!?3,"combination of commas and dashes.",! G ASK
PARSE S RAI=RAI+1,RAPAR=$P(X,",",RAI) Q:RAPAR="" I RAPAR?.N1"-".N S RADASH="" F RASEL=$P(RAPAR,"-"):1:$P(RAPAR,"-",2) D CHK Q:RAERR
I '$D(RADASH) S RASEL=RAPAR D CHK
K RADASH G ASK:RAERR,PARSE
;
CHK I $D(RADASH),+$P(RAPAR,"-",2)<+$P(RAPAR,"-") S RAERR=1 Q
I RASEL'?.N W !?3,*7,"Item ",RASEL," is not a valid selection.",! S RAERR=1 Q
I '$D(^TMP($J,"RA","XREF",RASEL)) W !?3,*7,"Item ",RASEL," is not a valid selection.",! S RAERR=1 Q
I $D(RADUP(RASEL)) W !?3,*7,"Item ",RASEL," was already selected.",! S RAERR=1 Q
S RANUM=RANUM+1,RADUP(RASEL)="",RARPTX(RANUM)=$S(^TMP($J,"RA","XREF",RASEL):^TMP($J,"RA","XREF",RASEL),1:0),RARSEL=RANUM
Q
PV ; keep pre-verified reports (status ='draft' or 'released/not verified')
S RARTDT=0
F S RARTDT=$O(^TMP($J,"RA","DT",RARTDT)) Q:RARTDT="" S RARPT=0 F S RARPT=$O(^TMP($J,"RA","DT",RARTDT,RARPT)) Q:RARPT'>0 D
.S X=$G(^RARPT(RARPT,0))
.I $P(X,U,12)]"","DR"[$E($P(X,U,5)) Q
.K ^TMP($J,"RA","DT",RARTDT,RARPT) S RATOT=RATOT-1
I RATOT'>0 W !!,"Sorry, there are no Pre-Verified reports to review."
Q
DPDRNV ; keep reports with a status of 'draft', 'problem draft' or 'released/
; not verified"
S RARTDT=0
F S RARTDT=$O(^TMP($J,"RA","DT",RARTDT)) Q:RARTDT="" S RARPT=0 F S RARPT=$O(^TMP($J,"RA","DT",RARTDT,RARPT)) Q:RARPT'>0 I $P($G(^RARPT(RARPT,0)),U,5)'=RASTATUS K ^TMP($J,"RA","DT",RARTDT,RARPT) S RATOT=RATOT-1
I RATOT'>0 W !!,"Sorry, there are no "_$S(RASTATUS="R":"RELEASED/NOT VERIFIED",RASTATUS="PD":"PROBLEM DRAFT",1:"DRAFT")_" reports to review."
K RASTATUS
Q
SELRPT ; select reports to verify
K DIR,DIROUT,DIRUT,DTOUT,DUOUT
W !!!!!,"Select one of the following:",!
S DIR("A",1)=" 1 PRE-VERIFIED (STATUS=DRAFT or RELEASED/NOT VERIFIED) ("_RATOTAL(1)_")"
S DIR("A",2)=" 2 RELEASED/NOT VERIFIED ("_RATOTAL(2)_")"
S DIR("A",3)=" 3 DRAFT ("_RATOTAL(3)_")"
S DIR("A",4)=" 4 PROBLEM DRAFT ("_RATOTAL(4)_")"
S DIR("A",5)=" 5 ALL ("_RATOT_")"
S DIR("A",6)=" 6 SELECTED ("_RATOT_")"
S DIR("A",7)=" 7 STAT (STATUS MAY BE ANY OF ABOVE) ("_RATOTAL(7)_")"
S DIR("A",8)=" "
S DIR(0)="SAO^1:PRE-VERIFIED (STATUS=DRAFT or RELEASED/NOT VERIFIED);2:RELEASED/NOT VERIFIED;3:DRAFT;4:PROBLEM DRAFT;5:ALL;6:SELECTED;7:STAT"
S DIR("A")="Category of Reports to Verify: "
D ^DIR
I $D(DIRUT) S Y=0
K DIR,DIROUT,DIRUT,DTOUT,DUOUT,RATOTAL
Q
ONERPT ; message when there is only one report to choose from
S RARTDT=$O(^TMP($J,"RA","DT",0)) Q:RARTDT=""
S RARPT=$O(^TMP($J,"RA","DT",RARTDT,0)) Q:RARPT'>0
S RARPT0=$G(^RARPT(RARPT,0)),RASTATUS=$P(RARPT0,U,5)
S RASTATUS=$S(RASTATUS="V":"VERIFIED",RASTATUS="R":"RELEASED/NOT VERIFIED",RASTATUS="PD":"PROBLEM DRAFT",RASTATUS="D":"DRAFT",1:"<none>")
S RAPREV=$S($P(RARPT0,U,12)]"":", PRE-VERIFIED",1:"")
W !,"There is only one report ("_RASTATUS_RAPREV_") to choose from."
K DIR,RAPREV,RARPT0,RASTATUS
S DIR(0)="Y",DIR("A")="Do you wish to review this one report"
S DIR("B")="YES" D ^DIR
I Y=0!($D(DIRUT)) K ^TMP($J,"RA")
K DIR,DIRUT,DIROUT,DTOUT,DUOUT
Q
RLTV ; reports left to view
S RARLTV=1,RARLTV(1)=0
F S RARLTV(1)=$O(^TMP($J,"RA","DT",RARLTV(1))) Q:RARLTV(1)'>0 S RARLTV(2)=0 F S RARLTV(2)=$O(^TMP($J,"RA","DT",RARLTV(1),RARLTV(2))) Q:RARLTV(2)'>0 S:$P(^TMP($J,"RA","DT",RARLTV(1),RARLTV(2)),"^")'="V" RARLTV=RARLTV+1
Q
RLTV1 ; add'l reports left to be viewed
S RARLTV=1,RARLTV(1)=0
F S RARLTV(1)=$O(^TMP($J,"RA","DT",RARLTV(1))) Q:RARLTV(1)'>0 S RARLTV(2)=0 F S RARLTV(2)=$O(^TMP($J,"RA","DT",RARLTV(1),RARLTV(2))) Q:RARLTV(2)'>0 S:$P(^TMP($J,"RA","DT",RARLTV(1),RARLTV(2)),"^")'="V" RARLTV=RARLTV+1
Q
TALLY ; tally report counts by category
K RATOTAL
F RAI=1:1:4,7 S RATOTAL(RAI)=0
S RARTDT=""
; all cases within a print/exam set have the same ien to file #75.1
; store stat flag 's' in 3rd '/' segment of ^tmp record
F S RARTDT=$O(^TMP($J,"RA","DT",RARTDT)) Q:RARTDT="" S RARPT=0 F S RARPT=$O(^TMP($J,"RA","DT",RARTDT,RARPT)) Q:'RARPT D
.S RARPT(0)=$G(^RARPT(RARPT,0))
.S RASTATUS=$P(RARPT(0),U,5) Q:RASTATUS="" ;rpt status
.S RAPREVER=$P(RARPT(0),U,12) ;pre-verf dt/tm
.I RASTATUS="D" S RATOTAL(3)=RATOTAL(3)+1
.I RASTATUS="PD" S RATOTAL(4)=RATOTAL(4)+1
.I RASTATUS="R" S RATOTAL(2)=RATOTAL(2)+1
.I RAPREVER]"","DR"[$E(RASTATUS) S RATOTAL(1)=RATOTAL(1)+1
.S Y=RARPT D RASET^RAUTL2 Q:'Y
.S Y=$P(Y,U,11) ;ptr to file #75.1
.Q:$P($G(^RAO(75.1,+Y,0)),U,6)'=1 ;urgency=1 means Stat
.S RATOTAL(7)=RATOTAL(7)+1,$P(^TMP($J,"RA","DT",RARTDT,RARPT),"/",3)="S"
.Q
K RAI,RAPREVER,RARPT(0),RASTATUS
Q
STAT ;keep only rpts with order of stat
S RARTDT=0
F S RARTDT=$O(^TMP($J,"RA","DT",RARTDT)) Q:RARTDT="" S RARPT=0 F S RARPT=$O(^TMP($J,"RA","DT",RARTDT,RARPT)) Q:RARPT'>0 I $P(^(RARPT),"/",3)'="S" K ^(RARPT) S RATOT=RATOT-1
I RATOT'>0 W !!,"Sorry, there are no STAT ordered reports to review."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRARTVER1 6988 printed Oct 16, 2024@18:40:18 Page 2
RARTVER1 ;HISC/FPT AISC/MJK,RMO-On-Line Verify List/Select Reports ;11/19/97 13:49
+1 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
HDR KILL RAOUT,RARSEL
SET RACNT=0
WRITE !!,?5,"Case",!,?5,"No.",?12,"Procedure",?34,"Ex Date",?44,"Name",?66,"Pt ID"
if $DATA(RASTATFG)
WRITE ?74,"ST",?78,"PV"
+1 WRITE !,?5,"-----",?12,"---------",?34,"--------",?44,"-----------------",?66,"-----"
if $DATA(RASTATFG)
WRITE ?74,"---",?78,"--"
+2 NEW RAPRTSET,RAMEMARR
+3 ;
RPTLP FOR RARTDT=0:0
SET RARTDT=$ORDER(^TMP($JOB,"RA","DT",RARTDT))
if 'RARTDT!($DATA(RARSEL))
QUIT
DO GETRPT
+1 ;
Q KILL I,RACN,RACNT,RADASH,RADUP,^TMP($JOB,"RA","DT"),RAFST,RALST,RAI,RANME,RAPAR,RAPRC,RARTDT,RARPT,RARSEL,RASEL,RASSN
+1 QUIT
+2 ;
GETRPT FOR RARPT=0:0
SET RARPT=$ORDER(^TMP($JOB,"RA","DT",RARTDT,RARPT))
if 'RARPT!($DATA(RARSEL))
QUIT
DO RASET^RARTVER2
if 'Y
SET RARSEL=0
if 'Y
QUIT
SET RASSN=$$SSN^RAUTL(RADFN,1)
DO WRT
+1 QUIT
+2 ;
WRT ; used when user chooses SELECTED category
+1 ; the "xref" nodes store all cases ready to be selected by user
+2 DO EN2^RAUTL20(.RAMEMARR)
+3 SET RACNT=RACNT+1
WRITE !,RACNT,?4,$SELECT(RAPRTSET:"+",1:""),?5,RACN,?12,$EXTRACT(RAPRC,1,20),?34,$EXTRACT(RADTE,4,5),"-",$EXTRACT(RADTE,6,7),"-",$EXTRACT(RADTE,2,3),?44,$EXTRACT(RANME,1,20),?66,RASSN
+4 IF $DATA(RASTATFG)
IF $PIECE($GET(^RARPT(RARPT,0)),U,5)]""
WRITE ?74,"("_$EXTRACT($PIECE($GET(^RARPT(RARPT,0)),U,5),1)_")"
+5 IF $DATA(RASTATFG)
WRITE ?78,$SELECT($PIECE($GET(^RARPT(RARPT,0)),U,12)]"":"Y",1:"N")
+6 ;rarpt^rpt status at start of selection^/long CN^Pat.ien^Proc.ien
+7 SET ^TMP($JOB,"RA","XREF",RACNT)=RARPT_"^"_$PIECE($GET(^RARPT(+RARPT,0)),U,5)_"^/"_$PIECE(^TMP($JOB,"RA","DT",RARTDT,RARPT),"/",2)
if '(RACNT#15)!(RACNT=RATOT)
DO ASK
+8 QUIT
+9 ;
ASK KILL RADUP,RARPTX
SET (RAERR,RAI,RANUM)=0
WRITE !,"Type '^' to STOP, or",!,"CHOOSE FROM 1-",RACNT,": "
READ X:DTIME
if '$TEST
SET X="^"
if X["^"
SET RAOUT=""
SET RARSEL=0
if X["^"!(X="")
QUIT
+1 IF X["?"
WRITE !!?3,"Please enter a single number, individual numbers separated by commas,",!?3,"a range of numbers separated by a dash, or numbers separated by a",!?3,"combination of commas and dashes.",!
GOTO ASK
PARSE SET RAI=RAI+1
SET RAPAR=$PIECE(X,",",RAI)
if RAPAR=""
QUIT
IF RAPAR?.N1"-".N
SET RADASH=""
FOR RASEL=$PIECE(RAPAR,"-"):1:$PIECE(RAPAR,"-",2)
DO CHK
if RAERR
QUIT
+1 IF '$DATA(RADASH)
SET RASEL=RAPAR
DO CHK
+2 KILL RADASH
if RAERR
GOTO ASK
GOTO PARSE
+3 ;
CHK IF $DATA(RADASH)
IF +$PIECE(RAPAR,"-",2)<+$PIECE(RAPAR,"-")
SET RAERR=1
QUIT
+1 IF RASEL'?.N
WRITE !?3,*7,"Item ",RASEL," is not a valid selection.",!
SET RAERR=1
QUIT
+2 IF '$DATA(^TMP($JOB,"RA","XREF",RASEL))
WRITE !?3,*7,"Item ",RASEL," is not a valid selection.",!
SET RAERR=1
QUIT
+3 IF $DATA(RADUP(RASEL))
WRITE !?3,*7,"Item ",RASEL," was already selected.",!
SET RAERR=1
QUIT
+4 SET RANUM=RANUM+1
SET RADUP(RASEL)=""
SET RARPTX(RANUM)=$SELECT(^TMP($JOB,"RA","XREF",RASEL):^TMP($JOB,"RA","XREF",RASEL),1:0)
SET RARSEL=RANUM
+5 QUIT
PV ; keep pre-verified reports (status ='draft' or 'released/not verified')
+1 SET RARTDT=0
+2 FOR
SET RARTDT=$ORDER(^TMP($JOB,"RA","DT",RARTDT))
if RARTDT=""
QUIT
SET RARPT=0
FOR
SET RARPT=$ORDER(^TMP($JOB,"RA","DT",RARTDT,RARPT))
if RARPT'>0
QUIT
Begin DoDot:1
+3 SET X=$GET(^RARPT(RARPT,0))
+4 IF $PIECE(X,U,12)]""
IF "DR"[$EXTRACT($PIECE(X,U,5))
QUIT
+5 KILL ^TMP($JOB,"RA","DT",RARTDT,RARPT)
SET RATOT=RATOT-1
End DoDot:1
+6 IF RATOT'>0
WRITE !!,"Sorry, there are no Pre-Verified reports to review."
+7 QUIT
DPDRNV ; keep reports with a status of 'draft', 'problem draft' or 'released/
+1 ; not verified"
+2 SET RARTDT=0
+3 FOR
SET RARTDT=$ORDER(^TMP($JOB,"RA","DT",RARTDT))
if RARTDT=""
QUIT
SET RARPT=0
FOR
SET RARPT=$ORDER(^TMP($JOB,"RA","DT",RARTDT,RARPT))
if RARPT'>0
QUIT
IF $PIECE($GET(^RARPT(RARPT,0)),U,5)'=RASTATUS
KILL ^TMP($JOB,"RA","DT",RARTDT,RARPT)
SET RATOT=RATOT-1
+4 IF RATOT'>0
WRITE !!,"Sorry, there are no "_$SELECT(RASTATUS="R":"RELEASED/NOT VERIFIED",RASTATUS="PD":"PROBLEM DRAFT",1:"DRAFT")_" reports to review."
+5 KILL RASTATUS
+6 QUIT
SELRPT ; select reports to verify
+1 KILL DIR,DIROUT,DIRUT,DTOUT,DUOUT
+2 WRITE !!!!!,"Select one of the following:",!
+3 SET DIR("A",1)=" 1 PRE-VERIFIED (STATUS=DRAFT or RELEASED/NOT VERIFIED) ("_RATOTAL(1)_")"
+4 SET DIR("A",2)=" 2 RELEASED/NOT VERIFIED ("_RATOTAL(2)_")"
+5 SET DIR("A",3)=" 3 DRAFT ("_RATOTAL(3)_")"
+6 SET DIR("A",4)=" 4 PROBLEM DRAFT ("_RATOTAL(4)_")"
+7 SET DIR("A",5)=" 5 ALL ("_RATOT_")"
+8 SET DIR("A",6)=" 6 SELECTED ("_RATOT_")"
+9 SET DIR("A",7)=" 7 STAT (STATUS MAY BE ANY OF ABOVE) ("_RATOTAL(7)_")"
+10 SET DIR("A",8)=" "
+11 SET DIR(0)="SAO^1:PRE-VERIFIED (STATUS=DRAFT or RELEASED/NOT VERIFIED);2:RELEASED/NOT VERIFIED;3:DRAFT;4:PROBLEM DRAFT;5:ALL;6:SELECTED;7:STAT"
+12 SET DIR("A")="Category of Reports to Verify: "
+13 DO ^DIR
+14 IF $DATA(DIRUT)
SET Y=0
+15 KILL DIR,DIROUT,DIRUT,DTOUT,DUOUT,RATOTAL
+16 QUIT
ONERPT ; message when there is only one report to choose from
+1 SET RARTDT=$ORDER(^TMP($JOB,"RA","DT",0))
if RARTDT=""
QUIT
+2 SET RARPT=$ORDER(^TMP($JOB,"RA","DT",RARTDT,0))
if RARPT'>0
QUIT
+3 SET RARPT0=$GET(^RARPT(RARPT,0))
SET RASTATUS=$PIECE(RARPT0,U,5)
+4 SET RASTATUS=$SELECT(RASTATUS="V":"VERIFIED",RASTATUS="R":"RELEASED/NOT VERIFIED",RASTATUS="PD":"PROBLEM DRAFT",RASTATUS="D":"DRAFT",1:"<none>")
+5 SET RAPREV=$SELECT($PIECE(RARPT0,U,12)]"":", PRE-VERIFIED",1:"")
+6 WRITE !,"There is only one report ("_RASTATUS_RAPREV_") to choose from."
+7 KILL DIR,RAPREV,RARPT0,RASTATUS
+8 SET DIR(0)="Y"
SET DIR("A")="Do you wish to review this one report"
+9 SET DIR("B")="YES"
DO ^DIR
+10 IF Y=0!($DATA(DIRUT))
KILL ^TMP($JOB,"RA")
+11 KILL DIR,DIRUT,DIROUT,DTOUT,DUOUT
+12 QUIT
RLTV ; reports left to view
+1 SET RARLTV=1
SET RARLTV(1)=0
+2 FOR
SET RARLTV(1)=$ORDER(^TMP($JOB,"RA","DT",RARLTV(1)))
if RARLTV(1)'>0
QUIT
SET RARLTV(2)=0
FOR
SET RARLTV(2)=$ORDER(^TMP($JOB,"RA","DT",RARLTV(1),RARLTV(2)))
if RARLTV(2)'>0
QUIT
if $PIECE(^TMP($JOB,"RA","DT",RARLTV(1),RARLTV(2)),"^")'="V"
SET RARLTV=RARLTV+1
+3 QUIT
RLTV1 ; add'l reports left to be viewed
+1 SET RARLTV=1
SET RARLTV(1)=0
+2 FOR
SET RARLTV(1)=$ORDER(^TMP($JOB,"RA","DT",RARLTV(1)))
if RARLTV(1)'>0
QUIT
SET RARLTV(2)=0
FOR
SET RARLTV(2)=$ORDER(^TMP($JOB,"RA","DT",RARLTV(1),RARLTV(2)))
if RARLTV(2)'>0
QUIT
if $PIECE(^TMP($JOB,"RA","DT",RARLTV(1),RARLTV(2)),"^")'="V"
SET RARLTV=RARLTV+1
+3 QUIT
TALLY ; tally report counts by category
+1 KILL RATOTAL
+2 FOR RAI=1:1:4,7
SET RATOTAL(RAI)=0
+3 SET RARTDT=""
+4 ; all cases within a print/exam set have the same ien to file #75.1
+5 ; store stat flag 's' in 3rd '/' segment of ^tmp record
+6 FOR
SET RARTDT=$ORDER(^TMP($JOB,"RA","DT",RARTDT))
if RARTDT=""
QUIT
SET RARPT=0
FOR
SET RARPT=$ORDER(^TMP($JOB,"RA","DT",RARTDT,RARPT))
if 'RARPT
QUIT
Begin DoDot:1
+7 SET RARPT(0)=$GET(^RARPT(RARPT,0))
+8 ;rpt status
SET RASTATUS=$PIECE(RARPT(0),U,5)
if RASTATUS=""
QUIT
+9 ;pre-verf dt/tm
SET RAPREVER=$PIECE(RARPT(0),U,12)
+10 IF RASTATUS="D"
SET RATOTAL(3)=RATOTAL(3)+1
+11 IF RASTATUS="PD"
SET RATOTAL(4)=RATOTAL(4)+1
+12 IF RASTATUS="R"
SET RATOTAL(2)=RATOTAL(2)+1
+13 IF RAPREVER]""
IF "DR"[$EXTRACT(RASTATUS)
SET RATOTAL(1)=RATOTAL(1)+1
+14 SET Y=RARPT
DO RASET^RAUTL2
if 'Y
QUIT
+15 ;ptr to file #75.1
SET Y=$PIECE(Y,U,11)
+16 ;urgency=1 means Stat
if $PIECE($GET(^RAO(75.1,+Y,0)),U,6)'=1
QUIT
+17 SET RATOTAL(7)=RATOTAL(7)+1
SET $PIECE(^TMP($JOB,"RA","DT",RARTDT,RARPT),"/",3)="S"
+18 QUIT
End DoDot:1
+19 KILL RAI,RAPREVER,RARPT(0),RASTATUS
+20 QUIT
STAT ;keep only rpts with order of stat
+1 SET RARTDT=0
+2 FOR
SET RARTDT=$ORDER(^TMP($JOB,"RA","DT",RARTDT))
if RARTDT=""
QUIT
SET RARPT=0
FOR
SET RARPT=$ORDER(^TMP($JOB,"RA","DT",RARTDT,RARPT))
if RARPT'>0
QUIT
IF $PIECE(^(RARPT),"/",3)'="S"
KILL ^(RARPT)
SET RATOT=RATOT-1
+3 IF RATOT'>0
WRITE !!,"Sorry, there are no STAT ordered reports to review."
+4 QUIT
