SROPRPT ;BIR/MAM,ADM - OPERATION REPORT ;09/02/04
;;3.0; Surgery ;**63,66,96,100,136,140**;24 Jun 93
;
;** NOTICE: This routine is part of an implementation of a nationally
;** controlled procedure. Local modifications to this routine
;** are prohibited.
;
;I '$D(SRSITE) D ^SROVAR G:'$D(SRSITE) END S SRSITE("KILL")=1
;checks if multi-divisional exists
I '$D(SRTN) D ^SROPS G:'$D(SRTN) END S SRTN("KILL")=1
;Variable MAGTMPR2 is being set by routine MAGGTRPT (IMAGING Package).
I '$D(MAGTMPR2) D HOME^%ZIS
IM N SRSINED,SRSTAT,SRDTITL,SRTIU
S SRDTITL="Operation Report"
S SRSINED=0,SRSTAT="",SRTIU=$P($G(^SRF(SRTN,"TIU")),"^")
I SRTIU S SRSTAT=$$STATUS^SROESUTL(SRTIU) S:SRSTAT=7 SRSINED=1
;Code for Imaging ; SRR 5/22/94
I IOST["C-IMPC",$D(^SRF(SRTN,2005)) S SRIMAGE=1
I IOST["P-" D DISPLY,END Q ; WISC/GEK - DELPHI APP
;End Code for Imaging.
D DISPLY,END
Q
DISPLY I SRSINED S SRTIU=$P($G(^SRF(SRTN,"TIU")),"^") I SRTIU D PRNT^SROESPR(SRTN,SRTIU,SRDTITL) Q
I 'SRSINED W !!," * * The Operation Report for this case is not yet available. * *" D LAST
Q
END K ^TMP("SROP",$J)
W @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
D ^SRSKILL K VAIN,VAINDT I $D(SRSITE("KILL")) K SRSITE
I $D(SRTN("KILL")) K SRTN
Q
LAST I IOST'["P-" W ! K DIR S DIR(0)="E" D ^DIR K DIR
Q
CODE ; entry point from coding menu
N SRSINED,SRSTAT,SRDTITL,SRTIU
S SRDTITL="Operation Report"
S SRSINED=0,SRSTAT="",SRTIU=$P($G(^SRF(SRTN,"TIU")),"^")
I SRTIU S SRSTAT=$$STATUS^SROESUTL(SRTIU) S:SRSTAT=7 SRSINED=1
D DISPLY,END
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROPRPT 1583 printed Nov 22, 2024@17:55:16 Page 2
SROPRPT ;BIR/MAM,ADM - OPERATION REPORT ;09/02/04
+1 ;;3.0; Surgery ;**63,66,96,100,136,140**;24 Jun 93
+2 ;
+3 ;** NOTICE: This routine is part of an implementation of a nationally
+4 ;** controlled procedure. Local modifications to this routine
+5 ;** are prohibited.
+6 ;
+7 ;I '$D(SRSITE) D ^SROVAR G:'$D(SRSITE) END S SRSITE("KILL")=1
+8 ;checks if multi-divisional exists
+9 IF '$DATA(SRTN)
DO ^SROPS
if '$DATA(SRTN)
GOTO END
SET SRTN("KILL")=1
+10 ;Variable MAGTMPR2 is being set by routine MAGGTRPT (IMAGING Package).
+11 IF '$DATA(MAGTMPR2)
DO HOME^%ZIS
IM NEW SRSINED,SRSTAT,SRDTITL,SRTIU
+1 SET SRDTITL="Operation Report"
+2 SET SRSINED=0
SET SRSTAT=""
SET SRTIU=$PIECE($GET(^SRF(SRTN,"TIU")),"^")
+3 IF SRTIU
SET SRSTAT=$$STATUS^SROESUTL(SRTIU)
if SRSTAT=7
SET SRSINED=1
+4 ;Code for Imaging ; SRR 5/22/94
+5 IF IOST["C-IMPC"
IF $DATA(^SRF(SRTN,2005))
SET SRIMAGE=1
+6 ; WISC/GEK - DELPHI APP
IF IOST["P-"
DO DISPLY
DO END
QUIT
+7 ;End Code for Imaging.
+8 DO DISPLY
DO END
+9 QUIT
DISPLY IF SRSINED
SET SRTIU=$PIECE($GET(^SRF(SRTN,"TIU")),"^")
IF SRTIU
DO PRNT^SROESPR(SRTN,SRTIU,SRDTITL)
QUIT
+1 IF 'SRSINED
WRITE !!," * * The Operation Report for this case is not yet available. * *"
DO LAST
+2 QUIT
END KILL ^TMP("SROP",$JOB)
+1 WRITE @IOF
IF $DATA(ZTQUEUED)
if $GET(ZTSTOP)
QUIT
SET ZTREQ="@"
QUIT
+2 DO ^SRSKILL
KILL VAIN,VAINDT
IF $DATA(SRSITE("KILL"))
KILL SRSITE
+3 IF $DATA(SRTN("KILL"))
KILL SRTN
+4 QUIT
LAST IF IOST'["P-"
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
+1 QUIT
CODE ; entry point from coding menu
+1 NEW SRSINED,SRSTAT,SRDTITL,SRTIU
+2 SET SRDTITL="Operation Report"
+3 SET SRSINED=0
SET SRSTAT=""
SET SRTIU=$PIECE($GET(^SRF(SRTN,"TIU")),"^")
+4 IF SRTIU
SET SRSTAT=$$STATUS^SROESUTL(SRTIU)
if SRSTAT=7
SET SRSINED=1
+5 DO DISPLY
DO END
+6 QUIT
