| 1 | SROPRPT ;BIR/MAM,ADM - OPERATION REPORT ;09/02/04
|
|---|
| 2 | ;;3.0; Surgery ;**63,66,96,100,136,140**;24 Jun 93
|
|---|
| 3 | ;
|
|---|
| 4 | ;** NOTICE: This routine is part of an implementation of a nationally
|
|---|
| 5 | ;** controlled procedure. Local modifications to this routine
|
|---|
| 6 | ;** are prohibited.
|
|---|
| 7 | ;
|
|---|
| 8 | ;I '$D(SRSITE) D ^SROVAR G:'$D(SRSITE) END S SRSITE("KILL")=1
|
|---|
| 9 | ;checks if multi-divisional exists
|
|---|
| 10 | I '$D(SRTN) D ^SROPS G:'$D(SRTN) END S SRTN("KILL")=1
|
|---|
| 11 | ;Variable MAGTMPR2 is being set by routine MAGGTRPT (IMAGING Package).
|
|---|
| 12 | I '$D(MAGTMPR2) D HOME^%ZIS
|
|---|
| 13 | IM N SRSINED,SRSTAT,SRDTITL,SRTIU
|
|---|
| 14 | S SRDTITL="Operation Report"
|
|---|
| 15 | S SRSINED=0,SRSTAT="",SRTIU=$P($G(^SRF(SRTN,"TIU")),"^")
|
|---|
| 16 | I SRTIU S SRSTAT=$$STATUS^SROESUTL(SRTIU) S:SRSTAT=7 SRSINED=1
|
|---|
| 17 | ;Code for Imaging ; SRR 5/22/94
|
|---|
| 18 | I IOST["C-IMPC",$D(^SRF(SRTN,2005)) S SRIMAGE=1
|
|---|
| 19 | I IOST["P-" D DISPLY,END Q ; WISC/GEK - DELPHI APP
|
|---|
| 20 | ;End Code for Imaging.
|
|---|
| 21 | D DISPLY,END
|
|---|
| 22 | Q
|
|---|
| 23 | DISPLY I SRSINED S SRTIU=$P($G(^SRF(SRTN,"TIU")),"^") I SRTIU D PRNT^SROESPR(SRTN,SRTIU,SRDTITL) Q
|
|---|
| 24 | I 'SRSINED W !!," * * The Operation Report for this case is not yet available. * *" D LAST
|
|---|
| 25 | Q
|
|---|
| 26 | END K ^TMP("SROP",$J)
|
|---|
| 27 | W @IOF I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
|
|---|
| 28 | D ^SRSKILL K VAIN,VAINDT I $D(SRSITE("KILL")) K SRSITE
|
|---|
| 29 | I $D(SRTN("KILL")) K SRTN
|
|---|
| 30 | Q
|
|---|
| 31 | LAST I IOST'["P-" W ! K DIR S DIR(0)="E" D ^DIR K DIR
|
|---|
| 32 | Q
|
|---|
| 33 | CODE ; entry point from coding menu
|
|---|
| 34 | N SRSINED,SRSTAT,SRDTITL,SRTIU
|
|---|
| 35 | S SRDTITL="Operation Report"
|
|---|
| 36 | S SRSINED=0,SRSTAT="",SRTIU=$P($G(^SRF(SRTN,"TIU")),"^")
|
|---|
| 37 | I SRTIU S SRSTAT=$$STATUS^SROESUTL(SRTIU) S:SRSTAT=7 SRSINED=1
|
|---|
| 38 | D DISPLY,END
|
|---|
| 39 | Q
|
|---|
