SROPAC1.m

SROPAC1 ;B'HAM ISC/MAM - DAILY ACTIVITY REPORT (CONT)  ; 17 SEPT 1990 8:05 AM

 ;;3.0; Surgery ;;24 Jun 93

 I $Y+8>IOSL D PAGE I SRSOUT Q

 W !,SRNM,?24,SRINTIME,?40,SRDIAG,?92,SRAN1,?115,SRSUR,!,VA("PID"),?16,VADM(4),?24,SROUTIME,?40,SROP(1),?92,SRAN2,?115,SRFST

 W !,SRSLOC,?23,SRTN W:$D(SROP(2)) ?40,SROP(2) W ?115,SRATT

 I $D(SROP(3)) W !,?40,SROP(3) I $D(SROP(4)) W !,?40,SROP(4) I $D(SROP(5)) W !,?40,SROP(5)

 I $D(^SRF(SRTN,"CON")),$P(^("CON"),"^") S SRCON=+^("CON") W !,?24,"Concurrent Case #"_SRCON

 W !

 Q

PAGE S X="" I $E(IOST)'="P" W !!,"Press RETURN to continue, or '^' to quit:  " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q

 I X["?" W !!,"Enter RETURN to continue printing this report, or '^' to exit from this option." G PAGE

 D HDR Q:SRSOUT  W !!,"OPERATING ROOM: "_SROR,!

 Q

HDR ; print heading

 I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q

 W:$Y @IOF W !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",!,?47,"DAILY REPORT OF OPERATING ROOM ACTIVITY",!,?58,"FOR: "_SRSDT

 W !!!,"PATIENT",?23,"TIME IN OR",?40,"POSTOPERATIVE DIAGNOSIS",?92,"ANESTHESIOLOGIST",?115,"SURGEON",!,"ID #",?15,"AGE",?23,"TIME OUT OR",?40,"PROCEDURE(S)",?92,"PRIN. ANESTHETIST",?115,"FIRST ASST."

 W !,"WARD",?23,"CASE NUMBER",?115,"ATT SURGEON"

 W ! F LINE=1:1:132 W "="

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROPAC1   1287     printed  Apr 09, 2024@21:43:32                                                                                                                                                                                                     Page 2

SROPAC1   ;B'HAM ISC/MAM - DAILY ACTIVITY REPORT (CONT)  ; 17 SEPT 1990 8:05 AM

 +1       ;;3.0; Surgery ;;24 Jun 93

 +2        IF $Y+8>IOSL

               DO PAGE

               IF SRSOUT

                   QUIT 

 +3        WRITE !,SRNM,?24,SRINTIME,?40,SRDIAG,?92,SRAN1,?115,SRSUR,!,VA("PID"),?16,VADM(4),?24,SROUTIME,?40,SROP(1),?92,SRAN2,?115,SRFST

 +4        WRITE !,SRSLOC,?23,SRTN

           if $DATA(SROP(2))

               WRITE ?40,SROP(2)

           WRITE ?115,SRATT

 +5        IF $DATA(SROP(3))

               WRITE !,?40,SROP(3)

               IF $DATA(SROP(4))

                   WRITE !,?40,SROP(4)

                   IF $DATA(SROP(5))

                       WRITE !,?40,SROP(5)

 +6        IF $DATA(^SRF(SRTN,"CON"))

               IF $PIECE(^("CON"),"^")

                   SET SRCON=+^("CON")

                   WRITE !,?24,"Concurrent Case #"_SRCON

 +7        WRITE !

 +8        QUIT 

PAGE       SET X=""

           IF $EXTRACT(IOST)'="P"

               WRITE !!,"Press RETURN to continue, or '^' to quit:  "

               READ X:DTIME

               IF '$TEST!(X["^")

                   SET SRSOUT=1

                   QUIT 

 +1        IF X["?"

               WRITE !!,"Enter RETURN to continue printing this report, or '^' to exit from this option."

               GOTO PAGE

 +2        DO HDR

           if SRSOUT

               QUIT 

           WRITE !!,"OPERATING ROOM: "_SROR,!

 +3        QUIT 

HDR       ; print heading

 +1        IF $DATA(ZTQUEUED)

               DO ^SROSTOP

               IF SRHALT

                   SET SRSOUT=1

                   QUIT 

 +2        if $Y

               WRITE @IOF

           WRITE !,?(132-$LENGTH(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",!,?47,"DAILY REPORT OF OPERATING ROOM ACTIVITY",!,?58,"FOR: "_SRSDT

 +3        WRITE !!!,"PATIENT",?23,"TIME IN OR",?40,"POSTOPERATIVE DIAGNOSIS",?92,"ANESTHESIOLOGIST",?115,"SURGEON",!,"ID #",?15,"AGE",?23,"TIME OUT OR",?40,"PROCEDURE(S)",?92,"PRIN. ANESTHETIST",?115,"FIRST ASST."

 +4        WRITE !,"WARD",?23,"CASE NUMBER",?115,"ATT SURGEON"

 +5        WRITE !

           FOR LINE=1:1:132

               WRITE "="

 +6        QUIT