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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARENV1 3835 printed Oct 16, 2024@18:13:29 Page 2
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
