RMIM3PST ;ALB/TMD ; FUNCTIONAL INDEPENDENCE INSTALL UTILITY ; 5/4/04 12:02pm
;;1.0;FUNCTIONAL INDEPENDENCE;**3**;Mar 12, 2003
;
ENV ;Main entry point for Environment check point
;
S XPDABORT=""
D PROGCHK(.XPDABORT) ;checks programmer variables
I XPDABORT="" K XPDABORT
Q
;
;
POST ;Main entry point for Post-init items
D LAYGO
D VERSION
Q
;
LAYGO ;
N RMDA ;Option file #
N RMOPTION ;Option Name
N RMIEN ;Record IEN
N RMFDA ;fda_root array
N RMMSG ;msg_root array
;
S RMOPTION="RMIM EDIT SITE PARAMETER",RMDA=19,RMIEN=""
S RMIEN=$O(^DIC(19,"B",RMOPTION,RMIEN))_","
I 'RMIEN D BMES^XPDUTL("****Could not locate "_RMOPTION_" option, update not completed") Q
S RMFDA(RMDA,RMIEN,"20")="S DLAYGO=783.9"
S RMFDA(RMDA,RMIEN,"15")="K DLAYGO"
D FILE^DIE("","RMFDA","RMMSG")
I $D(RMMSG("DIERR",1)) D BMES^XPDUTL("****"_RMOPTION_" option not updated - ERROR CODE "_RMMSG("DIERR",1)) Q
D BMES^XPDUTL("****"_RMOPTION_" option successfully updated")
Q
;
VERSION ;Update server version number
N RMDA ;Option file #
N RMOPTION ;Option Name
N RMIEN ;Record IEN
N RMFDA ;fda_root array
N RMMSG ;msg_root array
;
S RMOPTION="RMIMFIM",RMDA=19,RMIEN=""
S RMIEN=$O(^DIC(19,"B",RMOPTION,RMIEN))_","
I 'RMIEN D BMES^XPDUTL("****Could not locate "_RMOPTION_" option, server version update not completed") Q
S RMFDA(RMDA,RMIEN,"1")="RMIMFIM Context version 1.0.4.1"
D FILE^DIE("","RMFDA","RMMSG")
I $D(RMMSG("DIERR",1)) D BMES^XPDUTL("****Server version number not updated - ERROR CODE "_RMMSG("DIERR",1)) Q
D BMES^XPDUTL("****Server version successfully updated to 1.0.4.1.")
Q
PROGCHK(XPDABORT) ;checks for necessary programmer variables
;
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
.D BMES^XPDUTL("****")
.D BMES^XPDUTL("Your programming variables are not set up properly.")
.D BMES^XPDUTL("Installation aborted.")
.S XPDABORT=2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMIM3PST 1992 printed Nov 22, 2024@17:05:11 Page 2
RMIM3PST ;ALB/TMD ; FUNCTIONAL INDEPENDENCE INSTALL UTILITY ; 5/4/04 12:02pm
+1 ;;1.0;FUNCTIONAL INDEPENDENCE;**3**;Mar 12, 2003
+2 ;
ENV ;Main entry point for Environment check point
+1 ;
+2 SET XPDABORT=""
+3 ;checks programmer variables
DO PROGCHK(.XPDABORT)
+4 IF XPDABORT=""
KILL XPDABORT
+5 QUIT
+6 ;
+7 ;
POST ;Main entry point for Post-init items
+1 DO LAYGO
+2 DO VERSION
+3 QUIT
+4 ;
LAYGO ;
+1 ;Option file #
NEW RMDA
+2 ;Option Name
NEW RMOPTION
+3 ;Record IEN
NEW RMIEN
+4 ;fda_root array
NEW RMFDA
+5 ;msg_root array
NEW RMMSG
+6 ;
+7 SET RMOPTION="RMIM EDIT SITE PARAMETER"
SET RMDA=19
SET RMIEN=""
+8 SET RMIEN=$ORDER(^DIC(19,"B",RMOPTION,RMIEN))_","
+9 IF 'RMIEN
DO BMES^XPDUTL("****Could not locate "_RMOPTION_" option, update not completed")
QUIT
+10 SET RMFDA(RMDA,RMIEN,"20")="S DLAYGO=783.9"
+11 SET RMFDA(RMDA,RMIEN,"15")="K DLAYGO"
+12 DO FILE^DIE("","RMFDA","RMMSG")
+13 IF $DATA(RMMSG("DIERR",1))
DO BMES^XPDUTL("****"_RMOPTION_" option not updated - ERROR CODE "_RMMSG("DIERR",1))
QUIT
+14 DO BMES^XPDUTL("****"_RMOPTION_" option successfully updated")
+15 QUIT
+16 ;
VERSION ;Update server version number
+1 ;Option file #
NEW RMDA
+2 ;Option Name
NEW RMOPTION
+3 ;Record IEN
NEW RMIEN
+4 ;fda_root array
NEW RMFDA
+5 ;msg_root array
NEW RMMSG
+6 ;
+7 SET RMOPTION="RMIMFIM"
SET RMDA=19
SET RMIEN=""
+8 SET RMIEN=$ORDER(^DIC(19,"B",RMOPTION,RMIEN))_","
+9 IF 'RMIEN
DO BMES^XPDUTL("****Could not locate "_RMOPTION_" option, server version update not completed")
QUIT
+10 SET RMFDA(RMDA,RMIEN,"1")="RMIMFIM Context version 1.0.4.1"
+11 DO FILE^DIE("","RMFDA","RMMSG")
+12 IF $DATA(RMMSG("DIERR",1))
DO BMES^XPDUTL("****Server version number not updated - ERROR CODE "_RMMSG("DIERR",1))
QUIT
+13 DO BMES^XPDUTL("****Server version successfully updated to 1.0.4.1.")
+14 QUIT
PROGCHK(XPDABORT) ;checks for necessary programmer variables
+1 ;
+2 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
Begin DoDot:1
+3 DO BMES^XPDUTL("****")
+4 DO BMES^XPDUTL("Your programming variables are not set up properly.")
+5 DO BMES^XPDUTL("Installation aborted.")
+6 SET XPDABORT=2
End DoDot:1
+7 QUIT
