SROCLAB.m

SROCLAB ;BIR/SJA - ENTER/EDIT CARDIAC LAB INFORMATION ;01/21/04  08:27 AM

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

 I '$D(SRTN) W !!,"You must select a surgery risk assessment prior to using this option.",!!,"Press <RET> to continue  " R X:DTIME G END

 S SRSOUT=0,SRSUPCPT=1 D ^SROAUTL

START G:SRSOUT END D HDR^SROAUTL

 W !,"Enter/Edit Laboratory Test Results",!!,"1. Capture Laboratory Information",!,"2. Enter, Edit, or Review Laboratory Test Results"

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

 I X>2!(X<1)!(X'?.N) D HELP G:SRSOUT END G START

 I X=1 D ^SROCL1 G START

 D ^SROACPM1 G START

END ;

 W @IOF D ^SRSKILL

 Q

HELP W !!,"Enter '1' if you want to capture laboratory test results from the",!,"DHCP Laboratory records.  Enter '2' if you want to enter, edit, or review laboratory test results."

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

 Q

SROCLAB   ;BIR/SJA - ENTER/EDIT CARDIAC LAB INFORMATION ;01/21/04  08:27 AM

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

 +2        IF '$DATA(SRTN)

               WRITE !!,"You must select a surgery risk assessment prior to using this option.",!!,"Press <RET> to continue  "

               READ X:DTIME

               GOTO END

 +3        SET SRSOUT=0

           SET SRSUPCPT=1

           DO ^SROAUTL

START      IF SRSOUT

               GOTO END

           DO HDR^SROAUTL

 +1        WRITE !,"Enter/Edit Laboratory Test Results",!!,"1. Capture Laboratory Information",!,"2. Enter, Edit, or Review Laboratory Test Results"

ASK        WRITE !!,"Select Number: "

           READ X:DTIME

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

               GOTO END

 +1        IF X>2!(X<1)!(X'?.N)

               DO HELP

               IF SRSOUT

                   GOTO END

               GOTO START

 +2        IF X=1

               DO ^SROCL1

               GOTO START

 +3        DO ^SROACPM1

           GOTO START

END       ;

 +1        WRITE @IOF

           DO ^SRSKILL

 +2        QUIT 

HELP       WRITE !!,"Enter '1' if you want to capture laboratory test results from the",!,"DHCP Laboratory records.  Enter '2' if you want to enter, edit, or review laboratory test results."

PRESS      WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           KILL DIR

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

               SET SRSOUT=1

 +1        QUIT