SROACAR.m

SROACAR ;BIR/MAM - OPEATIVE DATA ;12/03/07

 ;;3.0;Surgery;**38,71,93,95,100,125,142,153,166,174,182**;24 Jun 93;Build 49

 I '$D(SRTN) W !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue  " R X:DTIME G END

 S SRACLR=0,SRSOUT=0,SRSUPCPT=1 D ^SROAUTL

START D:SRACLR RET G:SRSOUT END S SRACLR=0 K SRA,SRAO D ^SROACR2

 ;

END W @IOF D ^SRSKILL

 Q

RET Q:SRSOUT  W ! K DIR S DIR(0)="E" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROACAR   491     printed  Apr 09, 2024@21:50:18                                                                                                                                                                                                      Page 2

SROACAR   ;BIR/MAM - OPEATIVE DATA ;12/03/07

 +1       ;;3.0;Surgery;**38,71,93,95,100,125,142,153,166,174,182**;24 Jun 93;Build 49

 +2        IF '$DATA(SRTN)

               WRITE !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue  "

               READ X:DTIME

               GOTO END

 +3        SET SRACLR=0

           SET SRSOUT=0

           SET SRSUPCPT=1

           DO ^SROAUTL

START      if SRACLR

               DO RET

           if SRSOUT

               GOTO END

           SET SRACLR=0

           KILL SRA,SRAO

           DO ^SROACR2

 +1       ;

END        WRITE @IOF

           DO ^SRSKILL

 +1        QUIT 

RET        if SRSOUT

               QUIT 

           WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           KILL DIR

           IF $DATA(DTOUT)!$DATA(DUOUT)

               SET SRSOUT=1

 +1        QUIT