- 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
