Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BDW10P3

BDW10P3.m

Go to the documentation of this file.
  1. BDW10P3 ; IHS/CMI/MAW - BDW Patch 3 Post Init ;
  1. ;;1.0;IHS DATA WAREHOUSE;**3**;JAN 23, 2006
  1. ;
  1. ; The following line prevents the "Disable Options..." and "Move
  1. ; Routines..." questions from being asked during the install.
  1. I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
  1. I '$$INSTALLD("BDW*1.0*2") D SORRY(2)
  1. I '$$INSTALLD("GIS*3.01*16") D SORRY(2)
  1. ;
  1. Q
  1. INSTALLD(BDWSTAL) ;EP - Determine if patch BDWSTAL was installed, where
  1. ; BDWSTAL is the name of the INSTALL. E.g "AG*6.0*11".
  1. ;
  1. NEW BDWY,DIC,X,Y
  1. S X=$P(BDWSTAL,"*",1)
  1. S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
  1. D IX^DIC
  1. I Y<1 D IMES Q 0
  1. S DIC=DIC_+Y_",22,",X=$P(BDWSTAL,"*",2)
  1. D ^DIC
  1. I Y<1 D IMES Q 0
  1. S DIC=DIC_+Y_",""PAH"",",X=$P(BDWSTAL,"*",3)
  1. D ^DIC
  1. S BDWY=Y
  1. D IMES
  1. Q $S(BDWY<1:0,1:1)
  1. IMES ;
  1. D MES^XPDUTL($$CJ^XLFSTR("Patch """_BDWSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
  1. Q
  1. SORRY(X) ;
  1. KILL DIFQ
  1. I X=3 S XPDQUIT=2 Q
  1. S XPDQUIT=X
  1. W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  1. Q
  1. EN ;-- main routine driver
  1. D GIS
  1. Q
  1. ;
  1. GIS ;-- populate the PID-3 field of GIS, then recompile
  1. N BDWX
  1. S BDWX=$O(^INTHL7F("B","HL IHS DW1 PID-3",0))
  1. Q:'BDWX
  1. S ^INTHL7F(BDWX,5)="S X=$$UID^BDWAID(DFN)_""^""_DFN_""^""_$$ICN^BDWAID(DFN)"
  1. N I,BDWM
  1. F I="HL IHS DW1 A31","HL IHS DW1 A08","HL IHS DW1 A40" D
  1. . S BDWM=$O(^INTHL7M("B",I,0))
  1. . Q:'BDWM
  1. . D COMPILE^BHLU(BDWM)
  1. Q
  1. ;