source: WorldVistAEHR/trunk/r/FUNCTIONAL_INDEPENDENCE-RMIM/RMIM3PST.m@ 724

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1RMIM3PST ;ALB/TMD ; FUNCTIONAL INDEPENDENCE INSTALL UTILITY ; 5/4/04 12:02pm
2 ;;1.0;FUNCTIONAL INDEPENDENCE;**3**;Mar 12, 2003
3 ;
4ENV ;Main entry point for Environment check point
5 ;
6 S XPDABORT=""
7 D PROGCHK(.XPDABORT) ;checks programmer variables
8 I XPDABORT="" K XPDABORT
9 Q
10 ;
11 ;
12POST ;Main entry point for Post-init items
13 D LAYGO
14 D VERSION
15 Q
16 ;
17LAYGO ;
18 N RMDA ;Option file #
19 N RMOPTION ;Option Name
20 N RMIEN ;Record IEN
21 N RMFDA ;fda_root array
22 N RMMSG ;msg_root array
23 ;
24 S RMOPTION="RMIM EDIT SITE PARAMETER",RMDA=19,RMIEN=""
25 S RMIEN=$O(^DIC(19,"B",RMOPTION,RMIEN))_","
26 I 'RMIEN D BMES^XPDUTL("****Could not locate "_RMOPTION_" option, update not completed") Q
27 S RMFDA(RMDA,RMIEN,"20")="S DLAYGO=783.9"
28 S RMFDA(RMDA,RMIEN,"15")="K DLAYGO"
29 D FILE^DIE("","RMFDA","RMMSG")
30 I $D(RMMSG("DIERR",1)) D BMES^XPDUTL("****"_RMOPTION_" option not updated - ERROR CODE "_RMMSG("DIERR",1)) Q
31 D BMES^XPDUTL("****"_RMOPTION_" option successfully updated")
32 Q
33 ;
34VERSION ;Update server version number
35 N RMDA ;Option file #
36 N RMOPTION ;Option Name
37 N RMIEN ;Record IEN
38 N RMFDA ;fda_root array
39 N RMMSG ;msg_root array
40 ;
41 S RMOPTION="RMIMFIM",RMDA=19,RMIEN=""
42 S RMIEN=$O(^DIC(19,"B",RMOPTION,RMIEN))_","
43 I 'RMIEN D BMES^XPDUTL("****Could not locate "_RMOPTION_" option, server version update not completed") Q
44 S RMFDA(RMDA,RMIEN,"1")="RMIMFIM Context version 1.0.4.1"
45 D FILE^DIE("","RMFDA","RMMSG")
46 I $D(RMMSG("DIERR",1)) D BMES^XPDUTL("****Server version number not updated - ERROR CODE "_RMMSG("DIERR",1)) Q
47 D BMES^XPDUTL("****Server version successfully updated to 1.0.4.1.")
48 Q
49PROGCHK(XPDABORT) ;checks for necessary programmer variables
50 ;
51 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
52 .D BMES^XPDUTL("****")
53 .D BMES^XPDUTL("Your programming variables are not set up properly.")
54 .D BMES^XPDUTL("Installation aborted.")
55 .S XPDABORT=2
56 Q
Note: See TracBrowser for help on using the repository browser.