SROAPCA0.m

SROAPCA0 ;B'HAM ISC/MAM - PRINT CARDIAC ASSESSMENT ; 18 MAR 1992 2:00 pm

 ;;3.0; Surgery ;;24 Jun 93

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

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

 W @IOF,!,VADM(1)_" ("_VA("PID")_")",! F MOE=1:1:80 W "-"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROAPCA0   324     printed  Apr 09, 2024@21:50:53                                                                                                                                                                                                     Page 2

SROAPCA0  ;B'HAM ISC/MAM - PRINT CARDIAC ASSESSMENT ; 18 MAR 1992 2:00 pm

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

PAGE       IF $EXTRACT(IOST)'="P"

               WRITE !!,"Press <RET> to continue, or '^' to quit  "

               READ X:DTIME

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

                   SET SRSOUT=1

                   QUIT 

 +1        IF $DATA(ZTQUEUED)

               DO ^SROSTOP

               IF SRHALT

                   SET SRSOUT=1

                   QUIT 

 +2        WRITE @IOF,!,VADM(1)_" ("_VA("PID")_")",!

           FOR MOE=1:1:80

               WRITE "-"

 +3        QUIT