- MCARENV1 ;WISC/MLH-MEDICINE PACKAGE INSTALLATION-ENVIRONMENT CHECK ROUTINE #2 ;5/2/96 10:26
- ;;2.3;Medicine;;09/13/1996
- ;
- ; define bells & whistles
- N MCSCATT
- I $G(IOST)?1"C-VT".E F I=0:1:7 S MCSCATT(I)=$C(27,91)_I_"m"
- E F I=0:1:7 S MCSCATT(I)=""
- ;
- ; clean up some files before we start
- S OKTOGO=$$NOTIFY
- I OKTOGO S OKTOGO=$$NOTIFY1
- ; abort the init if user has requested a bailout
- IF 'OKTOGO D
- . W !!,"OK, stopping the installation here..nothing changed!"
- . K DIFQ
- . Q
- ;END IF
- ;
- QUIT
- ;
- NOTIFY(X) ; alert user to cleanup, allow them to bail out
- W @IOF,"*********************************************************"
- W !,"* *"
- W !,"* "
- W *7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),*7
- W " *",*7
- W !,"* *"
- W !,"* This pre-initialization routine will "
- W MCSCATT(4),"delete",MCSCATT(0)," the *"
- W !,"* ",MCSCATT(1),"DATA DICTIONARIES",MCSCATT(0)
- W " (but ",MCSCATT(4),"retain",MCSCATT(0)," the data) for the *"
- W !,"* following files: *"
- W !,"* *"
- W !,"* 690 (MEDICAL PATIENT) *"
- W !,"* 691.1 (CARDIAC CATHETERIZATION) *"
- W !,"* 697 (ANATOMY) *"
- W !,"* 697.5 (MEDICAL DIAGNOSIS/ICD CODES) *"
- W !,"* 699.6 (DIAG/THERAP INTERVENT) *"
- W !,"* *"
- W !,"* You "
- W MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *"
- W !,"* data dictionaries for these files before *"
- W !,"* proceeding with this routine. *"
- W !,"* (See the Installation Guide for instructions.) *"
- W !,"* Any changes not saved will be "
- W MCSCATT(1),"LOST!",MCSCATT(0)," *"
- W !,"* *"
- W !,"*********************************************************",!
- S DIR(0)="E",DIR("A")="Press ""^"" to abort the installation here, or RETURN to continue"
- D ^DIR
- Q Y
- ;
- NOTIFY1(X) ; alert user to cleanup -- part 2
- W @IOF,"*********************************************************"
- W !,"* *"
- W !,"* "
- W *7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),*7
- W " *",*7
- W !,"* *"
- W !,"* This pre-initialization routine will "
- W MCSCATT(4),"delete",MCSCATT(0)," the *"
- W !,"* ",MCSCATT(1),"DATA DICTIONARIES ",MCSCATT(0)
- W MCSCATT(4),"and",MCSCATT(0),MCSCATT(1)," DATA",MCSCATT(0)
- W " for the following *"
- W !,"* file: *"
- W !,"* *"
- W !,"* 697.3 (MEDICINE SCREEN) *"
- W !,"* *"
- W !,"* You "
- W MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *"
- W !,"* data dictionaries and data for this file *"
- W !,"* before proceeding with this routine. *"
- W !,"* (See the Installation Guide for instructions.) *"
- W !,"* Any changes not saved will be "
- W MCSCATT(1),"LOST!",MCSCATT(0)," *"
- W !,"* *"
- W !,"*********************************************************",!
- S DIR(0)="E",DIR("A")="Press ""^"" to abort the installation here, or RETURN to continue"
- D ^DIR
- Q Y
- MCARENV1 ;WISC/MLH-MEDICINE PACKAGE INSTALLATION-ENVIRONMENT CHECK ROUTINE #2 ;5/2/96 10:26
- +1 ;;2.3;Medicine;;09/13/1996
- +2 ;
- +3 ; define bells & whistles
- +4 NEW MCSCATT
- +5 IF $GET(IOST)?1"C-VT".E
- FOR I=0:1:7
- SET MCSCATT(I)=$CHAR(27,91)_I_"m"
- +6 IF '$TEST
- FOR I=0:1:7
- SET MCSCATT(I)=""
- +7 ;
- +8 ; clean up some files before we start
- +9 SET OKTOGO=$$NOTIFY
- +10 IF OKTOGO
- SET OKTOGO=$$NOTIFY1
- +11 ; abort the init if user has requested a bailout
- +12 IF 'OKTOGO
- Begin DoDot:1
- +13 WRITE !!,"OK, stopping the installation here..nothing changed!"
- +14 KILL DIFQ
- +15 QUIT
- End DoDot:1
- +16 ;END IF
- +17 ;
- +18 QUIT
- +19 ;
- NOTIFY(X) ; alert user to cleanup, allow them to bail out
- +1 WRITE @IOF,"*********************************************************"
- +2 WRITE !,"* *"
- +3 WRITE !,"* "
- +4 WRITE *7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),*7
- +5 WRITE " *",*7
- +6 WRITE !,"* *"
- +7 WRITE !,"* This pre-initialization routine will "
- +8 WRITE MCSCATT(4),"delete",MCSCATT(0)," the *"
- +9 WRITE !,"* ",MCSCATT(1),"DATA DICTIONARIES",MCSCATT(0)
- +10 WRITE " (but ",MCSCATT(4),"retain",MCSCATT(0)," the data) for the *"
- +11 WRITE !,"* following files: *"
- +12 WRITE !,"* *"
- +13 WRITE !,"* 690 (MEDICAL PATIENT) *"
- +14 WRITE !,"* 691.1 (CARDIAC CATHETERIZATION) *"
- +15 WRITE !,"* 697 (ANATOMY) *"
- +16 WRITE !,"* 697.5 (MEDICAL DIAGNOSIS/ICD CODES) *"
- +17 WRITE !,"* 699.6 (DIAG/THERAP INTERVENT) *"
- +18 WRITE !,"* *"
- +19 WRITE !,"* You "
- +20 WRITE MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *"
- +21 WRITE !,"* data dictionaries for these files before *"
- +22 WRITE !,"* proceeding with this routine. *"
- +23 WRITE !,"* (See the Installation Guide for instructions.) *"
- +24 WRITE !,"* Any changes not saved will be "
- +25 WRITE MCSCATT(1),"LOST!",MCSCATT(0)," *"
- +26 WRITE !,"* *"
- +27 WRITE !,"*********************************************************",!
- +28 SET DIR(0)="E"
- SET DIR("A")="Press ""^"" to abort the installation here, or RETURN to continue"
- +29 DO ^DIR
- +30 QUIT Y
- +31 ;
- NOTIFY1(X) ; alert user to cleanup -- part 2
- +1 WRITE @IOF,"*********************************************************"
- +2 WRITE !,"* *"
- +3 WRITE !,"* "
- +4 WRITE *7,MCSCATT(5),MCSCATT(7),"C A U T I O N !",MCSCATT(0),*7
- +5 WRITE " *",*7
- +6 WRITE !,"* *"
- +7 WRITE !,"* This pre-initialization routine will "
- +8 WRITE MCSCATT(4),"delete",MCSCATT(0)," the *"
- +9 WRITE !,"* ",MCSCATT(1),"DATA DICTIONARIES ",MCSCATT(0)
- +10 WRITE MCSCATT(4),"and",MCSCATT(0),MCSCATT(1)," DATA",MCSCATT(0)
- +11 WRITE " for the following *"
- +12 WRITE !,"* file: *"
- +13 WRITE !,"* *"
- +14 WRITE !,"* 697.3 (MEDICINE SCREEN) *"
- +15 WRITE !,"* *"
- +16 WRITE !,"* You "
- +17 WRITE MCSCATT(1),"MUST",MCSCATT(0)," save any local modifications to the *"
- +18 WRITE !,"* data dictionaries and data for this file *"
- +19 WRITE !,"* before proceeding with this routine. *"
- +20 WRITE !,"* (See the Installation Guide for instructions.) *"
- +21 WRITE !,"* Any changes not saved will be "
- +22 WRITE MCSCATT(1),"LOST!",MCSCATT(0)," *"
- +23 WRITE !,"* *"
- +24 WRITE !,"*********************************************************",!
- +25 SET DIR(0)="E"
- SET DIR("A")="Press ""^"" to abort the installation here, or RETURN to continue"
- +26 DO ^DIR
- +27 QUIT Y
