- BPC15E ; IHS/OIT/MJL - ENVIRONMENT CHECK FOR PATIENT CHART ; [ 04/15/2008 10:18 AM ]
- ;;1.5;BPC;**5**;OCT 04, 2005
- ;
- S $P(LINE,"*",81)=""
- S XPDNOQUE="NO QUE" ;NO QUEUING ALLOWED
- S XPDABORT=0
- I '$G(DUZ) D SORRY("DUZ UNDEFINED OR 0") Q
- ;
- I '$L($G(DUZ(0))) D SORRY("DUZ(0) UNDEFINED OR NULL") Q
- ;
- D HOME^%ZIS,DT^DICRW
- S X=$P($G(^VA(200,DUZ,0)),U)
- I $G(X)="" W !,$$C^XBFUNC("Who are you????") D SORRY("Unknown User") Q
- ;
- VERSION ;
- W !,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,","))
- W !!,$$C^XBFUNC("Checking Environment for Install of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".")
- ;
- Q:'$$VERCHK("VA FILEMAN",22)
- Q:'$$VERCHK("KERNEL",8)
- Q:'$$VERCHK("IHS RPC BROKER",1.5)
- Q:'$$VERCHK("BPC PATIENT CHART",1.5)
- Q:'$$VERCHK("IHS MENTAL HLTH/SOC SERV",3)
- Q:'$$VERCHK("REFERRED CARE INFO SYSTEM",3)
- ;
- OTHER ;
- ;Other checks
- I '$P($G(^AUTTSITE(1,0)),U,22) D SORRY("File 200 PCC Conversion Has Not Been Previously Completed") Q
- W !!,"Checking for IHS RPC BROKER Patch..."
- I ","_$P($T(+2^BGUXUSRB),"**",2)_","'[",2," D SORRY("IHS RPC BROKER Version 1.5, Patch 2 Is Not Installed") Q
- I ","_$P($T(+2^BGULIST2),"**",2)_","'[",3," D SORRY("IHS RPC BROKER Version 1.5, Patch 3 Is Not Installed") Q
- I ","_$P($T(+2^BGUTCPL),"**",2)_","'[",4," D SORRY("IHS RPC BROKER Version 1.5, Patch 4 Is Not Installed") Q
- W !!,"Checking for BPC PATIENT CHART Patches..."
- ; The following line is necessary because patch 2 didn't do this check.
- I ","_$P($T(+2^BPCBHSC),"**",2)_","'[",1," D SORRY("BPC PATIENT CHART Version 1.5, Patch 1 Is Not Installed") Q
- I ","_$P($T(+2^BPCRC3),"**",2)_","'[",2," D SORRY("BPC PATIENT CHART Version 1.5, Patch 2 Is Not Installed") Q
- I ","_$P($T(+2^BPCBHDSP),"**",2)_","'[",3," D SORRY("BPC PATIENT CHART Version 1.5, Patch 3 Is Not Installed") Q
- I ","_$P($T(+2^BPCBHDSP),"**",2)_","'[",4," D SORRY("BPC PATIENT CHART Version 1.5, Patch 4 Is Not Installed") Q
- W !!,"Checking for AMH Patch..."
- I ","_$P($T(+2^AMHPCCL1),"**",2)_","'[",9," D SORRY("Mental Health Version 3.0, Patch 9 Is Not Installed") Q
- ;
- ENVOK ; If this is just an environ check, end here.
- W !!,$$C^XBFUNC("ENVIRONMENT OK.")
- ;
- ; 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
- ;
- ;
- ;VERIFY BACKUPS HAVE BEEN DONE
- ;W !!
- ;S DIR(0)="Y"
- ;S DIR("B")="NO"
- ;S DIR("A")="Has a SUCCESSFUL system backup been performed??"
- ;D ^DIR
- ;I $D(DIRUT)!($G(Y)=0) S XPDABORT=1 S XPX="BACKUP" D SORRY Q
- ;S ^TMP("BPCPRE",$J,"BACKUPS CONFIRMED BY "_DUZ)=$H
- ;
- Q
- ;
- VERCHK(XPXPKG,XVRMIN) ;
- S X=$$VERSION^XPDUTL(XPXPKG)
- W !!,$$C^XBFUNC("Need at least "_XPXPKG_" "_XVRMIN_"....."_XPXPKG_" "_$S(X'="":X,1:"Is Not")_" Present")
- I X<XVRMIN D SORRY(XPXPKG_" "_XVRMIN_" Is Not Installed") Q 0
- Q 1
- ;
- SORRY(XPX) ;
- K DIFQ
- S XPDABORT=1,XPDBLD=$O(^XTMP("XPDI",XPDA,"BLD",0))
- W !,$$C^XBFUNC($P(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,1)_" "_$P(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,2)_" Cannot Be Installed!")
- W !,$$C^XBFUNC("Reason: "_XPX_".")
- W *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your environment")
- W !,$$C^XBFUNC("Aborting "_XPDNM_" install!")
- W !,$$C^XBFUNC("Correct error and reinstall otherwise")
- W !,$$C^XBFUNC("please print/capture this screen and notify")
- W !,$$C^XBFUNC("the Help Desk")
- W !!,LINE
- D BMES^XPDUTL("Sorry....something is wrong with your environment")
- D BMES^XPDUTL("Enviroment ERROR "_$G(XPX))
- D BMES^XPDUTL("Aborting "_XPDNM_" install!")
- D BMES^XPDUTL("Correct error and reinstall otherwise")
- D BMES^XPDUTL("please print/capture this screen and notify")
- D BMES^XPDUTL("the Help Desk")
- Q
- ;
- BPC15E ; IHS/OIT/MJL - ENVIRONMENT CHECK FOR PATIENT CHART ; [ 04/15/2008 10:18 AM ]
- +1 ;;1.5;BPC;**5**;OCT 04, 2005
- +2 ;
- +3 SET $PIECE(LINE,"*",81)=""
- +4 ;NO QUEUING ALLOWED
- SET XPDNOQUE="NO QUE"
- +5 SET XPDABORT=0
- +6 IF '$GET(DUZ)
- DO SORRY("DUZ UNDEFINED OR 0")
- QUIT
- +7 ;
- +8 IF '$LENGTH($GET(DUZ(0)))
- DO SORRY("DUZ(0) UNDEFINED OR NULL")
- QUIT
- +9 ;
- +10 DO HOME^%ZIS
- DO DT^DICRW
- +11 SET X=$PIECE($GET(^VA(200,DUZ,0)),U)
- +12 IF $GET(X)=""
- WRITE !,$$C^XBFUNC("Who are you????")
- DO SORRY("Unknown User")
- QUIT
- +13 ;
- VERSION ;
- +1 WRITE !,$$C^XBFUNC("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","))
- +2 WRITE !!,$$C^XBFUNC("Checking Environment for Install of Version "_$PIECE($TEXT(+2),";",3)_" of "_$PIECE($TEXT(+2),";",4)_".")
- +3 ;
- +4 IF '$$VERCHK("VA FILEMAN",22)
- QUIT
- +5 IF '$$VERCHK("KERNEL",8)
- QUIT
- +6 IF '$$VERCHK("IHS RPC BROKER",1.5)
- QUIT
- +7 IF '$$VERCHK("BPC PATIENT CHART",1.5)
- QUIT
- +8 IF '$$VERCHK("IHS MENTAL HLTH/SOC SERV",3)
- QUIT
- +9 IF '$$VERCHK("REFERRED CARE INFO SYSTEM",3)
- QUIT
- +10 ;
- OTHER ;
- +1 ;Other checks
- +2 IF '$PIECE($GET(^AUTTSITE(1,0)),U,22)
- DO SORRY("File 200 PCC Conversion Has Not Been Previously Completed")
- QUIT
- +3 WRITE !!,"Checking for IHS RPC BROKER Patch..."
- +4 IF ","_$PIECE($TEXT(+2^BGUXUSRB),"**",2)_","'[",2,"
- DO SORRY("IHS RPC BROKER Version 1.5, Patch 2 Is Not Installed")
- QUIT
- +5 IF ","_$PIECE($TEXT(+2^BGULIST2),"**",2)_","'[",3,"
- DO SORRY("IHS RPC BROKER Version 1.5, Patch 3 Is Not Installed")
- QUIT
- +6 IF ","_$PIECE($TEXT(+2^BGUTCPL),"**",2)_","'[",4,"
- DO SORRY("IHS RPC BROKER Version 1.5, Patch 4 Is Not Installed")
- QUIT
- +7 WRITE !!,"Checking for BPC PATIENT CHART Patches..."
- +8 ; The following line is necessary because patch 2 didn't do this check.
- +9 IF ","_$PIECE($TEXT(+2^BPCBHSC),"**",2)_","'[",1,"
- DO SORRY("BPC PATIENT CHART Version 1.5, Patch 1 Is Not Installed")
- QUIT
- +10 IF ","_$PIECE($TEXT(+2^BPCRC3),"**",2)_","'[",2,"
- DO SORRY("BPC PATIENT CHART Version 1.5, Patch 2 Is Not Installed")
- QUIT
- +11 IF ","_$PIECE($TEXT(+2^BPCBHDSP),"**",2)_","'[",3,"
- DO SORRY("BPC PATIENT CHART Version 1.5, Patch 3 Is Not Installed")
- QUIT
- +12 IF ","_$PIECE($TEXT(+2^BPCBHDSP),"**",2)_","'[",4,"
- DO SORRY("BPC PATIENT CHART Version 1.5, Patch 4 Is Not Installed")
- QUIT
- +13 WRITE !!,"Checking for AMH Patch..."
- +14 IF ","_$PIECE($TEXT(+2^AMHPCCL1),"**",2)_","'[",9,"
- DO SORRY("Mental Health Version 3.0, Patch 9 Is Not Installed")
- QUIT
- +15 ;
- ENVOK ; If this is just an environ check, end here.
- +1 WRITE !!,$$C^XBFUNC("ENVIRONMENT OK.")
- +2 ;
- +3 ; The following line prevents the "Disable Options..." and "Move
- +4 ; Routines..." questions from being asked during the install.
- +5 IF $GET(XPDENV)=1
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +6 ;
- +7 ;
- +8 ;VERIFY BACKUPS HAVE BEEN DONE
- +9 ;W !!
- +10 ;S DIR(0)="Y"
- +11 ;S DIR("B")="NO"
- +12 ;S DIR("A")="Has a SUCCESSFUL system backup been performed??"
- +13 ;D ^DIR
- +14 ;I $D(DIRUT)!($G(Y)=0) S XPDABORT=1 S XPX="BACKUP" D SORRY Q
- +15 ;S ^TMP("BPCPRE",$J,"BACKUPS CONFIRMED BY "_DUZ)=$H
- +16 ;
- +17 QUIT
- +18 ;
- VERCHK(XPXPKG,XVRMIN) ;
- +1 SET X=$$VERSION^XPDUTL(XPXPKG)
- +2 WRITE !!,$$C^XBFUNC("Need at least "_XPXPKG_" "_XVRMIN_"....."_XPXPKG_" "_$SELECT(X'="":X,1:"Is Not")_" Present")
- +3 IF X<XVRMIN
- DO SORRY(XPXPKG_" "_XVRMIN_" Is Not Installed")
- QUIT 0
- +4 QUIT 1
- +5 ;
- SORRY(XPX) ;
- +1 KILL DIFQ
- +2 SET XPDABORT=1
- SET XPDBLD=$ORDER(^XTMP("XPDI",XPDA,"BLD",0))
- +3 WRITE !,$$C^XBFUNC($PIECE(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,1)_" "_$PIECE(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,2)_" Cannot Be Installed!")
- +4 WRITE !,$$C^XBFUNC("Reason: "_XPX_".")
- +5 WRITE *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your environment")
- +6 WRITE !,$$C^XBFUNC("Aborting "_XPDNM_" install!")
- +7 WRITE !,$$C^XBFUNC("Correct error and reinstall otherwise")
- +8 WRITE !,$$C^XBFUNC("please print/capture this screen and notify")
- +9 WRITE !,$$C^XBFUNC("the Help Desk")
- +10 WRITE !!,LINE
- +11 DO BMES^XPDUTL("Sorry....something is wrong with your environment")
- +12 DO BMES^XPDUTL("Enviroment ERROR "_$GET(XPX))
- +13 DO BMES^XPDUTL("Aborting "_XPDNM_" install!")
- +14 DO BMES^XPDUTL("Correct error and reinstall otherwise")
- +15 DO BMES^XPDUTL("please print/capture this screen and notify")
- +16 DO BMES^XPDUTL("the Help Desk")
- +17 QUIT
- +18 ;
