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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROCLAB 907 printed Dec 13, 2024@02:42:43 Page 2
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
