SROACAR1.m

SROACAR1 ;BIR/MAM - OPEATIVE DATA ; [ 09/20/00  12:55 PM ]

 ;;3.0; Surgery ;**125**;24 Jun 93

 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 D ^SROAUTL

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

ASK W !,"Select Operative Information to Edit: " R X:DTIME I '$T!("^"[X) G END

 S:X="a" X="A" I '$D(SRAO(X)),(X'?.N1":".N),(X'="A") D HELP G:SRSOUT END G START

 I X="A" S X="1:12"

 I X?.N1":".N S Y=$E(X),Z=$P(X,":",2) I Y<1!(Z>12)!(Y>Z) D HELP G:SRSOUT END G START

 D HDR^SROAUTL

 I X?.N1":".N D RANGE G START

 I $D(SRAO(X)),+X=X S EMILY=X W ! D ONE G START

 I $D(SRAO(X)) W ! S EMILY=X D ONE G START

END W @IOF D ^SRSKILL

 Q

HELP W @IOF,!!!!,"Enter the number or range of numbers you want to edit.  Examples of proper",!,"responses are listed below."

 W !!,"1. Enter 'A' to update all information.",!!,"2. Enter a number (1-12) to update the information in that field.  (For",!,"   example, enter '9' to update Valve Repair.)"

 W !!,"3. Enter a range of numbers (1-12) separated by a ':' to enter a range of",!,"   information.  (For example, enter '6:8' to enter Other tumor resection",!,"   , Cardiac transplant, and Other CT procedures.)"

 D RET

 Q

RANGE ; range of numbers

 W ! S SHEMP=$P(X,":"),CURLEY=$P(X,":",2) F EMILY=SHEMP:1:CURLEY Q:SRSOUT  D ONE

 Q

ONE ; edit one item

 K DR,DIE S DA=SRTN,DR=$P(SRAO(EMILY),"^",2)_"T",DIE=130 D ^DIE K DR I $D(Y) S SRSOUT=1

 I 'SRSOUT,EMILY=12!(EMILY=13) D OK

 Q

OK N SRISCH,SRCPB S X=$G(^SRF(SRTN,206)),SRISCH=$P(X,"^",36),SRCPB=$P(X,"^",37)

 I SRISCH,SRCPB,SRISCH>SRCPB W !!,"  ***  NOTE: Ischemic Time is greater than CPB Time!!  Please check.  ***",! D RET W !

 Q

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

 Q

SROACAR1  ;BIR/MAM - OPEATIVE DATA ; [ 09/20/00  12:55 PM ]

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

 +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

           DO ^SROAUTL

START      IF SRACLR

               DO RET

           IF SRSOUT

               GOTO END

           SET SRACLR=0

           KILL SRA,SRAO

           DO ^SROACR2

ASK        WRITE !,"Select Operative Information to Edit: "

           READ X:DTIME

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

               GOTO END

 +1        IF X="a"

               SET X="A"

           IF '$DATA(SRAO(X))

               IF (X'?.N1":".N)

                   IF (X'="A")

                       DO HELP

                       IF SRSOUT

                           GOTO END

                       GOTO START

 +2        IF X="A"

               SET X="1:12"

 +3        IF X?.N1":".N

               SET Y=$EXTRACT(X)

               SET Z=$PIECE(X,":",2)

               IF Y<1!(Z>12)!(Y>Z)

                   DO HELP

                   IF SRSOUT

                       GOTO END

                   GOTO START

 +4        DO HDR^SROAUTL

 +5        IF X?.N1":".N

               DO RANGE

               GOTO START

 +6        IF $DATA(SRAO(X))

               IF +X=X

                   SET EMILY=X

                   WRITE !

                   DO ONE

                   GOTO START

 +7        IF $DATA(SRAO(X))

               WRITE !

               SET EMILY=X

               DO ONE

               GOTO START

END        WRITE @IOF

           DO ^SRSKILL

 +1        QUIT 

HELP       WRITE @IOF,!!!!,"Enter the number or range of numbers you want to edit.  Examples of proper",!,"responses are listed below."

 +1        WRITE !!,"1. Enter 'A' to update all information.",!!,"2. Enter a number (1-12) to update the information in that field.  (For",!,"   example, enter '9' to update Valve Repair.)"

 +2        WRITE !!,"3. Enter a range of numbers (1-12) separated by a ':' to enter a range of",!,"   information.  (For example, enter '6:8' to enter Other tumor resection",!,"   , Cardiac transplant, and Other CT procedures.)"

 +3        DO RET

 +4        QUIT 

RANGE     ; range of numbers

 +1        WRITE !

           SET SHEMP=$PIECE(X,":")

           SET CURLEY=$PIECE(X,":",2)

           FOR EMILY=SHEMP:1:CURLEY

               IF SRSOUT

                   QUIT 

               DO ONE

 +2        QUIT 

ONE       ; edit one item

 +1        KILL DR,DIE

           SET DA=SRTN

           SET DR=$PIECE(SRAO(EMILY),"^",2)_"T"

           SET DIE=130

           DO ^DIE

           KILL DR

           IF $DATA(Y)

               SET SRSOUT=1

 +2        IF 'SRSOUT

               IF EMILY=12!(EMILY=13)

                   DO OK

 +3        QUIT 

OK         NEW SRISCH,SRCPB

           SET X=$GET(^SRF(SRTN,206))

           SET SRISCH=$PIECE(X,"^",36)

           SET SRCPB=$PIECE(X,"^",37)

 +1        IF SRISCH

               IF SRCPB

                   IF SRISCH>SRCPB

                       WRITE !!,"  ***  NOTE: Ischemic Time is greater than CPB Time!!  Please check.  ***",!

                       DO RET

                       WRITE !

 +2        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