| 1 | MCARENV1 ;WISC/MLH-MEDICINE PACKAGE INSTALLATION-ENVIRONMENT CHECK ROUTINE #2 ;5/2/96 10:26
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | ;
|
|---|
| 4 | ; define bells & whistles
|
|---|
| 5 | N MCSCATT
|
|---|
| 6 | I $G(IOST)?1"C-VT".E F I=0:1:7 S MCSCATT(I)=$C(27,91)_I_"m"
|
|---|
| 7 | E F I=0:1:7 S MCSCATT(I)=""
|
|---|
| 8 | ;
|
|---|
| 9 | ; clean up some files before we start
|
|---|
| 10 | S OKTOGO=$$NOTIFY
|
|---|
| 11 | I OKTOGO S OKTOGO=$$NOTIFY1
|
|---|
| 12 | ; abort the init if user has requested a bailout
|
|---|
| 13 | IF 'OKTOGO D
|
|---|
| 14 | . W !!,"OK, stopping the installation here..nothing changed!"
|
|---|
| 15 | . K DIFQ
|
|---|
| 16 | . Q
|
|---|
| 17 | ;END IF
|
|---|
| 18 | ;
|
|---|
| 19 | QUIT
|
|---|
| 20 | ;
|
|---|
| 21 | NOTIFY(X) ; alert user to cleanup, allow them to bail out
|
|---|
| 22 | W @IOF,"*********************************************************"
|
|---|
| 23 | W !,"* *"
|
|---|
| 24 | W !,"* "
|
|---|
| 25 | W *7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),*7
|
|---|
| 26 | W " *",*7
|
|---|
| 27 | W !,"* *"
|
|---|
| 28 | W !,"* This pre-initialization routine will "
|
|---|
| 29 | W MCSCATT(4),"delete",MCSCATT(0)," the *"
|
|---|
| 30 | W !,"* ",MCSCATT(1),"DATA DICTIONARIES",MCSCATT(0)
|
|---|
| 31 | W " (but ",MCSCATT(4),"retain",MCSCATT(0)," the data) for the *"
|
|---|
| 32 | W !,"* following files: *"
|
|---|
| 33 | W !,"* *"
|
|---|
| 34 | W !,"* 690 (MEDICAL PATIENT) *"
|
|---|
| 35 | W !,"* 691.1 (CARDIAC CATHETERIZATION) *"
|
|---|
| 36 | W !,"* 697 (ANATOMY) *"
|
|---|
| 37 | W !,"* 697.5 (MEDICAL DIAGNOSIS/ICD CODES) *"
|
|---|
| 38 | W !,"* 699.6 (DIAG/THERAP INTERVENT) *"
|
|---|
| 39 | W !,"* *"
|
|---|
| 40 | W !,"* You "
|
|---|
| 41 | W MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *"
|
|---|
| 42 | W !,"* data dictionaries for these files before *"
|
|---|
| 43 | W !,"* proceeding with this routine. *"
|
|---|
| 44 | W !,"* (See the Installation Guide for instructions.) *"
|
|---|
| 45 | W !,"* Any changes not saved will be "
|
|---|
| 46 | W MCSCATT(1),"LOST!",MCSCATT(0)," *"
|
|---|
| 47 | W !,"* *"
|
|---|
| 48 | W !,"*********************************************************",!
|
|---|
| 49 | S DIR(0)="E",DIR("A")="Press ""^"" to abort the installation here, or RETURN to continue"
|
|---|
| 50 | D ^DIR
|
|---|
| 51 | Q Y
|
|---|
| 52 | ;
|
|---|
| 53 | NOTIFY1(X) ; alert user to cleanup -- part 2
|
|---|
| 54 | W @IOF,"*********************************************************"
|
|---|
| 55 | W !,"* *"
|
|---|
| 56 | W !,"* "
|
|---|
| 57 | W *7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),*7
|
|---|
| 58 | W " *",*7
|
|---|
| 59 | W !,"* *"
|
|---|
| 60 | W !,"* This pre-initialization routine will "
|
|---|
| 61 | W MCSCATT(4),"delete",MCSCATT(0)," the *"
|
|---|
| 62 | W !,"* ",MCSCATT(1),"DATA DICTIONARIES ",MCSCATT(0)
|
|---|
| 63 | W MCSCATT(4),"and",MCSCATT(0),MCSCATT(1)," DATA",MCSCATT(0)
|
|---|
| 64 | W " for the following *"
|
|---|
| 65 | W !,"* file: *"
|
|---|
| 66 | W !,"* *"
|
|---|
| 67 | W !,"* 697.3 (MEDICINE SCREEN) *"
|
|---|
| 68 | W !,"* *"
|
|---|
| 69 | W !,"* You "
|
|---|
| 70 | W MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *"
|
|---|
| 71 | W !,"* data dictionaries and data for this file *"
|
|---|
| 72 | W !,"* before proceeding with this routine. *"
|
|---|
| 73 | W !,"* (See the Installation Guide for instructions.) *"
|
|---|
| 74 | W !,"* Any changes not saved will be "
|
|---|
| 75 | W MCSCATT(1),"LOST!",MCSCATT(0)," *"
|
|---|
| 76 | W !,"* *"
|
|---|
| 77 | W !,"*********************************************************",!
|
|---|
| 78 | S DIR(0)="E",DIR("A")="Press ""^"" to abort the installation here, or RETURN to continue"
|
|---|
| 79 | D ^DIR
|
|---|
| 80 | Q Y
|
|---|
