SROPRPT.m

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

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