| 1 | RMIM3PST ;ALB/TMD ; FUNCTIONAL INDEPENDENCE INSTALL UTILITY ; 5/4/04 12:02pm
|
---|
| 2 | ;;1.0;FUNCTIONAL INDEPENDENCE;**3**;Mar 12, 2003
|
---|
| 3 | ;
|
---|
| 4 | ENV ;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 | ;
|
---|
| 12 | POST ;Main entry point for Post-init items
|
---|
| 13 | D LAYGO
|
---|
| 14 | D VERSION
|
---|
| 15 | Q
|
---|
| 16 | ;
|
---|
| 17 | LAYGO ;
|
---|
| 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 | ;
|
---|
| 34 | VERSION ;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
|
---|
| 49 | PROGCHK(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
|
---|