source: WorldVistAEHR/trunk/r/SURGERY-SR/SROASWAP.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.8 KB
Line 
1SROASWAP ;B'HAM ISC/MAM - MOVE RISK TO FILE 130 ; 13 APR 1992 8:25 am
2 ;;3.0; Surgery ;;24 Jun 93
3 S SRLINE="" F I=1:1:80 S SRLINE=SRLINE_"-"
4 S SRSOUT=0 I DT<2940401 D NOTYET G END
5START D ^SROASWP I SRSOUT G END
6DATE ; get starting date
7 W ! K %DT S %DT="AEX",%DT("A")="Convert existing assessments starting with which date ? " D ^%DT G:X="^" END I Y<0 D NEEDATE G:SRSOUT END G DATE
8 S SRDATE=+Y D ^SROASWP0
9 K ^TMP("CONVERT") D ^SROASWP2 K ^TMP("CONVERT")
10 I $O(^SRA(0)) W @IOF,!,"The SURGERY RISK ASSSESSMENT file (139) still contains entries. Before you",!,"enter any additional risk assessment information, all entries in this file ",!,"should be converted or deleted." S SRSOUT=0
11 I '$O(^SRA(0)) W @IOF,!,"The conversion process has been completed. Please review your incomplete",!,"assessments." D ^SROASWPD,DEL
12 W !!,"Press RETURN to continue " R X:DTIME
13END D ^SRSKILL K SRTN W @IOF
14 Q
15NOTYET ; can't convert before April 1, 1994
16 W @IOF,!,SRLINE,!,"The conversion of the ""stand-alone"" Surgery Risk Assessment Module cannot",!,"be run until after April 1, 1994. It should only be run after that date"
17 W !,"if your Surgery files are complete, including complications, CPT codes and",!,"anesthesia information since installing Surgery Version 3.0.",!,SRLINE
18 W !!,"Press RETURN to continue " R X:DTIME
19 Q
20NEEDATE ; message if no date is entered
21 W !!,"You must select a starting date to begin the conversion process. All ",!,"assessments with operation dates prior to the start date will be automatically"
22 W !,"deleted. The remaining assessments will then be processed for conversion."
23CONT W !!,"Press RETURN to continue, or '^' to quit: " R X:DTIME I X["^" S SRSOUT=1
24 Q
25DEL ; delete file 139
26 W !!,"The SURGERY RISK ASSESSMENT file will now be deleted from your system... "
27 K DIU S DIU(0)="DT",DIU=139 D EN^DIU2
28 Q
Note: See TracBrowser for help on using the repository browser.