source: WorldVistAEHR/trunk/r/SURGERY-SR/SROPRPT.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1SROPRPT ;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
13IM 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
23DISPLY 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
26END 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
31LAST I IOST'["P-" W ! K DIR S DIR(0)="E" D ^DIR K DIR
32 Q
33CODE ; 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
Note: See TracBrowser for help on using the repository browser.