source: WorldVistAEHR/trunk/r/SURGERY-SR/SROALAB.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SROALAB ;BIR/MAM - ENTER/EDIT LABORATORY INFORMATION ;05/26/99 10:51 AM
2 ;;3.0; Surgery ;**38,88,142**;24 Jun 93
3 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
4 S SRSOUT=0,SRSUPCPT=1 D ^SROAUTL
5START G:SRSOUT END D HDR^SROAUTL
6 W !,"Enter/Edit Laboratory Test Results",!!,"1. Capture Preoperative Laboratory Information",!,"2. Capture Postoperative Laboratory Information"
7 W !,"3. Enter, Edit, or Review Laboratory Test Results"
8ASK W !!,"Select Number: " R X:DTIME I '$T!("^"[X) G END
9 I X>3!(X<1)!(X'?.N) D HELP G:SRSOUT END G START
10 I X=1 D ^SROAL1 G START
11 I X=2 D ^SROAL2 G START
12 D ^SROALEN G START
13END ;
14 W @IOF D ^SRSKILL
15 Q
16HELP W !!,"Enter '1' if you want to capture preoperative laboratory test results from the",!,"DHCP Laboratory records. Enter '2' if you want to capture the postoperative"
17 W !,"laboratory test results from the DHCP Laboratory records. If you want to ",!,"enter, edit, or review preoperative and postoperative laboratory test results,",!,"enter '3'."
18PRESS W ! K DIR S DIR(0)="E" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1
19 Q
Note: See TracBrowser for help on using the repository browser.