SROMOR.m

SROMOR ;B'HAM ISC/MAM - MORTALITY REPORT ; [ 09/22/98  11:33 AM ]

 ;;3.0;Surgery;**38,77,50,175**;24 Jun 93;Build 6

EN ; entry point

 N SRINSTP,SRBOTH,SRBOTH1

 W @IOF,!,"The Morbidity and Mortality Reports include the Perioperative Occurrences",!,"Report and the Mortality Report.  Each report will provide information",!,"from cases completed within the date range selected."

REPORT ; select report

 K DIR W !! S DIR(0)="YO",DIR("A")="Do you want to generate both reports",DIR("B")="YES",DIR("?")="Enter '1' to print the Perioperative Occurrences Report, or '2' to print the Mortality Report" D ^DIR S SRYN=$G(Y(0))

 I SRYN="" G END

 S:SRYN="YES" SRBOTH=1,SRBOTH1="B"

SEL I SRYN="NO" W @IOF,!,"1. Perioperative Occurrences Report",!,"2. Mortality Report",!! D  I SRBOTH="" G END

 .K DIR S DIR(0)="NO^1:2",DIR("A")="Select Number",DIR("?")="Enter '1' to print the Perioperative Occurrences Report, or '2' to print the Mortality Report" D ^DIR S SRBOTH=$S(+Y=1:"C",+Y=2:"M",1:"")

 I SRBOTH="C" W @IOF,!,"Print Report for:",! D  I SRBOTH1="" G END

 .W !,"1. Intraoperative Occurrences",!,"2. Postoperative Occurrences",!,"3. Intraoperative and Postoperative Occurrences",!!

 .K DIR S DIR(0)="NO^1:3",DIR("A")="Select Number",DIR("?")="Enter '1' to print the Intraoperative Occurrences Report, '2' to print the Postoperative Occurrences Report, or '3' to print Intraoperative and Postoperative Occurrences Report"

 .D ^DIR S SRBOTH1=$S(+Y=1:"I",+Y=2:"P",+Y=3:"B",1:"")

DATE D DATE^SROUTL(.SRSD,.SRED,.SRQ) G:SRQ END

 S SRINST=$$INST^SROUTL0() G:SRINST="^" END S SRINSTP=$P(SRINST,U),SRINST=$S(SRINST["ALL DIVISIONS":SRINST,1:$P(SRINST,U,2))

 I SRBOTH'="M" D ^SROCMP1 Q

 I SRBOTH="M" D ZIS

END W @IOF D ^SRSKILL

 Q

ZIS W ! K IOP,%ZIS,IO("Q"),POP S %ZIS="QM",%ZIS("A")="Print the Report on which Device: " W !!,"This report is designed to use a 132 column format.",! D ^%ZIS I POP Q

 I $D(IO("Q")) K IO("Q") S ZTDESC="MORTALITY REPORT",ZTRTN="BEG^SROMORT",(ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRED"),ZTSAVE("SRSD"))="" D ^%ZTLOAD Q

 D BEG^SROMORT Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROMOR   2075     printed  Apr 09, 2024@21:47:26                                                                                                                                                                                                      Page 2

SROMOR    ;B'HAM ISC/MAM - MORTALITY REPORT ; [ 09/22/98  11:33 AM ]

 +1       ;;3.0;Surgery;**38,77,50,175**;24 Jun 93;Build 6

EN        ; entry point

 +1        NEW SRINSTP,SRBOTH,SRBOTH1

 +2        WRITE @IOF,!,"The Morbidity and Mortality Reports include the Perioperative Occurrences",!,"Report and the Mortality Report.  Each report will provide information",!,"from cases completed within the date range selected."

REPORT    ; select report

 +1        KILL DIR

           WRITE !!

           SET DIR(0)="YO"

           SET DIR("A")="Do you want to generate both reports"

           SET DIR("B")="YES"

           SET DIR("?")="Enter '1' to print the Perioperative Occurrences Report, or '2' to print the Mortality Report"

           DO ^DIR

           SET SRYN=$GET(Y(0))

 +2        IF SRYN=""

               GOTO END

 +3        if SRYN="YES"

               SET SRBOTH=1

               SET SRBOTH1="B"

SEL        IF SRYN="NO"

               WRITE @IOF,!,"1. Perioperative Occurrences Report",!,"2. Mortality Report",!!

               Begin DoDot:1

 +1                KILL DIR

                   SET DIR(0)="NO^1:2"

                   SET DIR("A")="Select Number"

                   SET DIR("?")="Enter '1' to print the Perioperative Occurrences Report, or '2' to print the Mortality Report"

                   DO ^DIR

                   SET SRBOTH=$SELECT(+Y=1:"C",+Y=2:"M",1:"")

               End DoDot:1

               IF SRBOTH=""

                   GOTO END

 +2        IF SRBOTH="C"

               WRITE @IOF,!,"Print Report for:",!

               Begin DoDot:1

 +3                WRITE !,"1. Intraoperative Occurrences",!,"2. Postoperative Occurrences",!,"3. Intraoperative and Postoperative Occurrences",!!

 +4                KILL DIR

                   SET DIR(0)="NO^1:3"

                   SET DIR("A")="Select Number"

                   SET DIR("?")="Enter '1' to print the Intraoperative Occurrences Report, '2' to print the Postoperative Occurrences Report, or '3' to print Intraoperative and Postoperative Occurrences Report"

 +5                DO ^DIR

                   SET SRBOTH1=$SELECT(+Y=1:"I",+Y=2:"P",+Y=3:"B",1:"")

               End DoDot:1

               IF SRBOTH1=""

                   GOTO END

DATE       DO DATE^SROUTL(.SRSD,.SRED,.SRQ)

           if SRQ

               GOTO END

 +1        SET SRINST=$$INST^SROUTL0()

           if SRINST="^"

               GOTO END

           SET SRINSTP=$PIECE(SRINST,U)

           SET SRINST=$SELECT(SRINST["ALL DIVISIONS":SRINST,1:$PIECE(SRINST,U,2))

 +2        IF SRBOTH'="M"

               DO ^SROCMP1

               QUIT 

 +3        IF SRBOTH="M"

               DO ZIS

END        WRITE @IOF

           DO ^SRSKILL

 +1        QUIT 

ZIS        WRITE !

           KILL IOP,%ZIS,IO("Q"),POP

           SET %ZIS="QM"

           SET %ZIS("A")="Print the Report on which Device: "

           WRITE !!,"This report is designed to use a 132 column format.",!

           DO ^%ZIS

           IF POP

               QUIT 

 +1        IF $DATA(IO("Q"))

               KILL IO("Q")

               SET ZTDESC="MORTALITY REPORT"

               SET ZTRTN="BEG^SROMORT"

               SET (ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRED"),ZTSAVE("SRSD"))=""

               DO ^%ZTLOAD

               QUIT 

 +2        DO BEG^SROMORT

           QUIT