- XWBP1018 ; IHS/OIT/FBD - XWB V1.1 PATCH 1018 ENVIRONMENT CHECKS;
- ;;1.1;RPC BROKER;**1018**;JUN 7,2013;Build 8
- ;
- ;
- ; The following line prevents the "Disable Options..." and "Move Routines..." questions from being asked during the install.
- I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
- ;KERNEL
- I +$$VERSION^XPDUTL("XU")<8 D MES^XPDUTL($$CJ^XLFSTR("Version 8.0 of KERNEL is required. Not installed",80)) D SORRY(2) I 1
- E D MES^XPDUTL($$CJ^XLFSTR("Requires Kernel Version 8.0....Present.",80))
- ;FILEMAN
- I +$$VERSION^XPDUTL("DI")<22 D MES^XPDUTL($$CJ^XLFSTR("Version 22.0 of FILEMAN is required. Not installed.",80)) D SORRY(2) I 1
- E D MES^XPDUTL($$CJ^XLFSTR("Requires Fileman v22....Present.",80))
- ;AUT
- I $$VERSION^XPDUTL("XWB")'="1.1" D MES^XPDUTL($$CJ^XLFSTR("Version 1.1 of the RPC BROKER is required. Not installed",80)) D SORRY(2) I 1
- E D MES^XPDUTL($$CJ^XLFSTR("Requires RPC BROKER Version 1.1....Present.",80))
- ;AUT 98.1 PATCH 25
- I '$$INSTALLD("XWB*1.1*1017") D SORRY(2)
- ;
- Q ;END OF ENVIRONMENT CHECK
- ;
- ;
- ;
- POST ;XWB*1.1*1018 PATCH POST-INSTALL
- ;
- D MES^XPDUTL($$CJ^XLFSTR("Beginning XWB v1.1 patch 1018 post-init process.",80))
- N DIR ; error message from setting XWBM2M
- ;
- ;CHECK CORRECT SETTING FOR XWBM2M PARAMETER
- ; - IHS DEFAULT WILL BE OFF = M-TO-M BROKER DEACTIVATED
- ; - SHOULD ONLY BE TURNED ON FOR SITES USING THE DICOM GATEWAY (VISTA IMAGING SITES)
- ;
- S DIR(0)="Y"
- S DIR("A")="Does this system have services using the DICOM gateway (Y/N)"
- S DIR("?",1)="If this system runs services which use the DICOM gateway (such as "
- S DIR("?")="VistA Imaging) enter a 'Y' for Yes; otherwise, enter a 'N' for No."
- D ^DIR
- I +Y D ;IF ANSWERED 'YES', SET APPROPRIATE PARAMETERS TO SUPPORT DICOM ACCESS
- .D P62ON ;PARAMETER XWB62 = 1 (YES/ON)
- .D M2MON ;PARAMETER XWBM2M = 1 (YES/ON)
- .D MES^XPDUTL($$CJ^XLFSTR("Per user specification, parameters set to allow M2M/DICOM access.",80))
- E D ; OTHERWISE SET PARAMETERS FOR NO DICOM ACCESS (DEFAULT)
- .D P62OFF ;PARAMETER XWB62 = 0 (NO/OFF)
- .D M2MOFF ;PARAMETER XWBM2M = 0 (NO/OFF)
- .D MES^XPDUTL($$CJ^XLFSTR("Per user specification, parameters set to disallow M2M/DICOM access.",80))
- ;
- D MES^XPDUTL($$CJ^XLFSTR("XWB v1.1 patch 1018 post-init process complete.",80))
- Q
- ;
- ;
- P62ON ;SET VALUE OF XWB62 = 1 (YES)
- Q:'$D(^XTV(8989.51,"B","XWB62")) ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- N XWBERR
- D PUT^XPAR("PKG","XWB62",1,1,.XWBERR)
- Q
- ;
- P62OFF ;SET VALUE OF XWB62 = 0 (NO)
- Q:'$D(^XTV(8989.51,"B","XWB62")) ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- N XWBERR
- D PUT^XPAR("PKG","XWB62",1,0,.XWBERR)
- Q
- ;
- M2MON ;SET VALUE OF XWBM2M = 1 (YES)
- Q:'$D(^XTV(8989.51,"B","XWBM2M")) ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- N XWBERR
- D PUT^XPAR("PKG","XWBM2M",1,1,.XWBERR)
- Q
- ;
- M2MOFF ;SET VALUE OF XWBM2M = 0 (NO)
- Q:'$D(^XTV(8989.51,"B","XWBM2M")) ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- N XWBERR
- D PUT^XPAR("PKG","XWBM2M",1,0,.XWBERR)
- Q
- ;
- INSTALLD(AUTSTAL) ;EP - Determine if patch AUTSTAL was installed, where
- ; AUTSTAL is the name of the INSTALL. E.g "AG*6.0*11".
- ;
- NEW AUTY,DIC,X,Y
- S X=$P(AUTSTAL,"*",1)
- S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
- D IX^DIC
- I Y<1 D IMES Q 0
- S DIC=DIC_+Y_",22,",X=$P(AUTSTAL,"*",2)
- D ^DIC
- I Y<1 D IMES Q 0
- S DIC=DIC_+Y_",""PAH"",",X=$P(AUTSTAL,"*",3)
- D ^DIC
- S AUTY=Y
- D IMES
- Q $S(AUTY<1:0,1:1)
- IMES ;
- D MES^XPDUTL($$CJ^XLFSTR("Patch """_AUTSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
- Q
- SORRY(X) ;
- KILL DIFQ
- I X=3 S XPDQUIT=2 Q
- S XPDQUIT=X
- W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
- Q
- XWBP1018 ; IHS/OIT/FBD - XWB V1.1 PATCH 1018 ENVIRONMENT CHECKS;
- +1 ;;1.1;RPC BROKER;**1018**;JUN 7,2013;Build 8
- +2 ;
- +3 ;
- +4 ; The following line prevents the "Disable Options..." and "Move Routines..." questions from being asked during the install.
- +5 IF $GET(XPDENV)=1
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +6 FOR X="XPO1","XPZ1","XPZ2","XPI1"
- SET XPDDIQ(X)=0
- +7 ;KERNEL
- +8 IF +$$VERSION^XPDUTL("XU")<8
- DO MES^XPDUTL($$CJ^XLFSTR("Version 8.0 of KERNEL is required. Not installed",80))
- DO SORRY(2)
- IF 1
- +9 IF '$TEST
- DO MES^XPDUTL($$CJ^XLFSTR("Requires Kernel Version 8.0....Present.",80))
- +10 ;FILEMAN
- +11 IF +$$VERSION^XPDUTL("DI")<22
- DO MES^XPDUTL($$CJ^XLFSTR("Version 22.0 of FILEMAN is required. Not installed.",80))
- DO SORRY(2)
- IF 1
- +12 IF '$TEST
- DO MES^XPDUTL($$CJ^XLFSTR("Requires Fileman v22....Present.",80))
- +13 ;AUT
- +14 IF $$VERSION^XPDUTL("XWB")'="1.1"
- DO MES^XPDUTL($$CJ^XLFSTR("Version 1.1 of the RPC BROKER is required. Not installed",80))
- DO SORRY(2)
- IF 1
- +15 IF '$TEST
- DO MES^XPDUTL($$CJ^XLFSTR("Requires RPC BROKER Version 1.1....Present.",80))
- +16 ;AUT 98.1 PATCH 25
- +17 IF '$$INSTALLD("XWB*1.1*1017")
- DO SORRY(2)
- +18 ;
- +19 ;END OF ENVIRONMENT CHECK
- QUIT
- +20 ;
- +21 ;
- +22 ;
- POST ;XWB*1.1*1018 PATCH POST-INSTALL
- +1 ;
- +2 DO MES^XPDUTL($$CJ^XLFSTR("Beginning XWB v1.1 patch 1018 post-init process.",80))
- +3 ; error message from setting XWBM2M
- NEW DIR
- +4 ;
- +5 ;CHECK CORRECT SETTING FOR XWBM2M PARAMETER
- +6 ; - IHS DEFAULT WILL BE OFF = M-TO-M BROKER DEACTIVATED
- +7 ; - SHOULD ONLY BE TURNED ON FOR SITES USING THE DICOM GATEWAY (VISTA IMAGING SITES)
- +8 ;
- +9 SET DIR(0)="Y"
- +10 SET DIR("A")="Does this system have services using the DICOM gateway (Y/N)"
- +11 SET DIR("?",1)="If this system runs services which use the DICOM gateway (such as "
- +12 SET DIR("?")="VistA Imaging) enter a 'Y' for Yes; otherwise, enter a 'N' for No."
- +13 DO ^DIR
- +14 ;IF ANSWERED 'YES', SET APPROPRIATE PARAMETERS TO SUPPORT DICOM ACCESS
- IF +Y
- Begin DoDot:1
- +15 ;PARAMETER XWB62 = 1 (YES/ON)
- DO P62ON
- +16 ;PARAMETER XWBM2M = 1 (YES/ON)
- DO M2MON
- +17 DO MES^XPDUTL($$CJ^XLFSTR("Per user specification, parameters set to allow M2M/DICOM access.",80))
- End DoDot:1
- +18 ; OTHERWISE SET PARAMETERS FOR NO DICOM ACCESS (DEFAULT)
- IF '$TEST
- Begin DoDot:1
- +19 ;PARAMETER XWB62 = 0 (NO/OFF)
- DO P62OFF
- +20 ;PARAMETER XWBM2M = 0 (NO/OFF)
- DO M2MOFF
- +21 DO MES^XPDUTL($$CJ^XLFSTR("Per user specification, parameters set to disallow M2M/DICOM access.",80))
- End DoDot:1
- +22 ;
- +23 DO MES^XPDUTL($$CJ^XLFSTR("XWB v1.1 patch 1018 post-init process complete.",80))
- +24 QUIT
- +25 ;
- +26 ;
- P62ON ;SET VALUE OF XWB62 = 1 (YES)
- +1 ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- IF '$DATA(^XTV(8989.51,"B","XWB62"))
- QUIT
- +2 NEW XWBERR
- +3 DO PUT^XPAR("PKG","XWB62",1,1,.XWBERR)
- +4 QUIT
- +5 ;
- P62OFF ;SET VALUE OF XWB62 = 0 (NO)
- +1 ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- IF '$DATA(^XTV(8989.51,"B","XWB62"))
- QUIT
- +2 NEW XWBERR
- +3 DO PUT^XPAR("PKG","XWB62",1,0,.XWBERR)
- +4 QUIT
- +5 ;
- M2MON ;SET VALUE OF XWBM2M = 1 (YES)
- +1 ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- IF '$DATA(^XTV(8989.51,"B","XWBM2M"))
- QUIT
- +2 NEW XWBERR
- +3 DO PUT^XPAR("PKG","XWBM2M",1,1,.XWBERR)
- +4 QUIT
- +5 ;
- M2MOFF ;SET VALUE OF XWBM2M = 0 (NO)
- +1 ;SKIP IF PARAMETER DOESN'T EXIST ON THIS SYSTEM
- IF '$DATA(^XTV(8989.51,"B","XWBM2M"))
- QUIT
- +2 NEW XWBERR
- +3 DO PUT^XPAR("PKG","XWBM2M",1,0,.XWBERR)
- +4 QUIT
- +5 ;
- INSTALLD(AUTSTAL) ;EP - Determine if patch AUTSTAL was installed, where
- +1 ; AUTSTAL is the name of the INSTALL. E.g "AG*6.0*11".
- +2 ;
- +3 NEW AUTY,DIC,X,Y
- +4 SET X=$PIECE(AUTSTAL,"*",1)
- +5 SET DIC="^DIC(9.4,"
- SET DIC(0)="FM"
- SET D="C"
- +6 DO IX^DIC
- +7 IF Y<1
- DO IMES
- QUIT 0
- +8 SET DIC=DIC_+Y_",22,"
- SET X=$PIECE(AUTSTAL,"*",2)
- +9 DO ^DIC
- +10 IF Y<1
- DO IMES
- QUIT 0
- +11 SET DIC=DIC_+Y_",""PAH"","
- SET X=$PIECE(AUTSTAL,"*",3)
- +12 DO ^DIC
- +13 SET AUTY=Y
- +14 DO IMES
- +15 QUIT $SELECT(AUTY<1:0,1:1)
- IMES ;
- +1 DO MES^XPDUTL($$CJ^XLFSTR("Patch """_AUTSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))
- +2 QUIT
- SORRY(X) ;
- +1 KILL DIFQ
- +2 IF X=3
- SET XPDQUIT=2
- QUIT
- +3 SET XPDQUIT=X
- +4 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
- +5 QUIT
