source: FOIAVistA/trunk/r/MEDICINE-MC/MCARENV1.m@ 813

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1MCARENV1 ;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 ;
21NOTIFY(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 ;
53NOTIFY1(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
Note: See TracBrowser for help on using the repository browser.