RAERRPT ;HIRMFO/GJC-Access erroneous Rad/Nuc Med reports ;10/23/97 12:39
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ; Beginning entry point
K ^TMP($J,"RAEX") D SETVARS^RART1
I $G(RAIMGTY)="" K XQUIT D KILL Q ; no sign-on imaging loc specified
S DIC(0)="QEAMZ",DIC("A")="Select Patient: " D ^RADPA G:Y<0 KILL
S RADFN=+Y,RAPAT=Y(0,0),RAHEAD="**** Patient's Exams ****"
D ^RAPTLU G:+X'>0 KILL ; user did not select an exam
S RA74=$P(^TMP($J,"RAEX",X),"^",10) ; ien for file 74
S ZTDESC="Rad/Nuc Med Erroneous Reports",ZTRTN="START^RAERRPT"
F I="RA74","RAPAT" S ZTSAVE(I)=""
D ZIS^RAUTL
I RAPOP D KILL Q
START ; Start processing data
S:$D(ZTQUEUED) ZTREQ="@"
U IO S (RAIEN,RAXIT)=0
S RAHD="*** Uncorrected Reports for: "_RAPAT_" ***"
S $P(RALINE,"-",(IOM+1))="",RAPG=0,RADT=$$FMTE^XLFDT(DT,"1D")
S RAHD1="Run Date: "_RADT D HDH^RAERRPT G:RAXIT KILL
F S RAIEN=$O(^RARPT(RA74,"ERR",RAIEN)) Q:RAIEN'>0 D Q:RAXIT
. S RAERR(0)=$G(^RARPT(RA74,"ERR",RAIEN,0))
. W !?3,"Date/Time Uncorrected Report retained: "
. W $$FMTE^XLFDT($P(RAERR(0),"^"),"1P"),! S RAI=0
. F S RAI=$O(^RARPT(RA74,"ERR",RAIEN,"RPT",RAI)) Q:RAI'>0 D Q:RAXIT
.. S RAERRPT=$G(^RARPT(RA74,"ERR",RAIEN,"RPT",RAI,0))
.. I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HDH^RAERRPT
.. Q:RAXIT W !,RAERRPT
.. Q
. Q
W ! D ^%ZISC,KILL
Q
HDH ; Header
W:$Y @IOF S RAPG=RAPG+1 W !,$$CJ^XLFSTR(RAHD,IOM)
W !,RAHD1,?$S(IOM=132:121,1:68),"Page: ",RAPG,!,RALINE
I $D(ZTQUEUED) D STOPCHK^RAUTL9 S:$G(ZTSTOP)=1 RAXIT=1
Q
KILL ; Reset, Kill & quit
D HOME^%ZIS
K %W,%X,%XX,%Y,%YY,C,DIC,DIPGM,I,RA74,RACN,RACNI,RADATE,RADFN,RADT
K RADTE,RADTI,RAERR,RAERRPT,RAHD,RAHD1,RAHEAD,RAI,RAIEN,RALINE,RANME
K RAPAT,RAPG,RAPOP,RAPRC,RARPT,RASSN,RAST,RAXIT,X,Y,Z
K POP,RAMES,ZTDESC,ZTRTN,ZTSAVE,DUOUT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAERRPT 1827 printed Apr 09, 2024@21:40:10 Page 2
RAERRPT ;HIRMFO/GJC-Access erroneous Rad/Nuc Med reports ;10/23/97 12:39
+1 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
EN1 ; Beginning entry point
+1 KILL ^TMP($JOB,"RAEX")
DO SETVARS^RART1
+2 ; no sign-on imaging loc specified
IF $GET(RAIMGTY)=""
KILL XQUIT
DO KILL
QUIT
+3 SET DIC(0)="QEAMZ"
SET DIC("A")="Select Patient: "
DO ^RADPA
if Y<0
GOTO KILL
+4 SET RADFN=+Y
SET RAPAT=Y(0,0)
SET RAHEAD="**** Patient's Exams ****"
+5 ; user did not select an exam
DO ^RAPTLU
if +X'>0
GOTO KILL
+6 ; ien for file 74
SET RA74=$PIECE(^TMP($JOB,"RAEX",X),"^",10)
+7 SET ZTDESC="Rad/Nuc Med Erroneous Reports"
SET ZTRTN="START^RAERRPT"
+8 FOR I="RA74","RAPAT"
SET ZTSAVE(I)=""
+9 DO ZIS^RAUTL
+10 IF RAPOP
DO KILL
QUIT
START ; Start processing data
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 USE IO
SET (RAIEN,RAXIT)=0
+3 SET RAHD="*** Uncorrected Reports for: "_RAPAT_" ***"
+4 SET $PIECE(RALINE,"-",(IOM+1))=""
SET RAPG=0
SET RADT=$$FMTE^XLFDT(DT,"1D")
+5 SET RAHD1="Run Date: "_RADT
DO HDH^RAERRPT
if RAXIT
GOTO KILL
+6 FOR
SET RAIEN=$ORDER(^RARPT(RA74,"ERR",RAIEN))
if RAIEN'>0
QUIT
Begin DoDot:1
+7 SET RAERR(0)=$GET(^RARPT(RA74,"ERR",RAIEN,0))
+8 WRITE !?3,"Date/Time Uncorrected Report retained: "
+9 WRITE $$FMTE^XLFDT($PIECE(RAERR(0),"^"),"1P"),!
SET RAI=0
+10 FOR
SET RAI=$ORDER(^RARPT(RA74,"ERR",RAIEN,"RPT",RAI))
if RAI'>0
QUIT
Begin DoDot:2
+11 SET RAERRPT=$GET(^RARPT(RA74,"ERR",RAIEN,"RPT",RAI,0))
+12 IF $Y>(IOSL-4)
SET RAXIT=$$EOS^RAUTL5()
if RAXIT
QUIT
DO HDH^RAERRPT
+13 if RAXIT
QUIT
WRITE !,RAERRPT
+14 QUIT
End DoDot:2
if RAXIT
QUIT
+15 QUIT
End DoDot:1
if RAXIT
QUIT
+16 WRITE !
DO ^%ZISC
DO KILL
+17 QUIT
HDH ; Header
+1 if $Y
WRITE @IOF
SET RAPG=RAPG+1
WRITE !,$$CJ^XLFSTR(RAHD,IOM)
+2 WRITE !,RAHD1,?$SELECT(IOM=132:121,1:68),"Page: ",RAPG,!,RALINE
+3 IF $DATA(ZTQUEUED)
DO STOPCHK^RAUTL9
if $GET(ZTSTOP)=1
SET RAXIT=1
+4 QUIT
KILL ; Reset, Kill & quit
+1 DO HOME^%ZIS
+2 KILL %W,%X,%XX,%Y,%YY,C,DIC,DIPGM,I,RA74,RACN,RACNI,RADATE,RADFN,RADT
+3 KILL RADTE,RADTI,RAERR,RAERRPT,RAHD,RAHD1,RAHEAD,RAI,RAIEN,RALINE,RANME
+4 KILL RAPAT,RAPG,RAPOP,RAPRC,RARPT,RASSN,RAST,RAXIT,X,Y,Z
+5 KILL POP,RAMES,ZTDESC,ZTRTN,ZTSAVE,DUOUT
+6 QUIT
