BADEENV2.m

BADEENV2 ;IHS/MSC/MGH - BADE ENVIRONMENT CHECK ROUTINE PATCH 2;20-Feb-2013 16:21;FJE

 ;;1.0;DENTAL/EDR INTERFACE;**1,2**;FEB 20, 2013;Build 7

 ;

ENV ;EP

 N IN,PATCH,INSTDA,STAT

 ;Check for the installation of the EDR Patch 1

 S IN="BADE*1.0*1",INSTDA=""

 I '$D(^XPD(9.7,"B",IN)) D  Q

 .D MES("You must first install the DENTAL/EDR INTERFACE BADE Patch 1 before this patch",2)

 S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)

 S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)

 I STAT'=3 D  Q

 .D MES("DENTAL/EDR INTERFACE BADE Patch 1 must be completely installed before installing this patch",2)

 ;

 ;Check for the installation of the AGG Patch 1

 S IN="AGG*1.0*1",INSTDA=""

 I '$D(^XPD(9.7,"B",IN)) D  Q

 .D MES("You must first install the Patient Registration GUI Version 1.0 Patch 1 before this patch",2)

 S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)

 S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)

 I STAT'=3 D  Q

 .D MES("Patient Registration GUI Patch 1 must be completely installed before installing this patch",2)

 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 Q

 ;

MES(TXT,QUIT) ;EP

 D BMES^XPDUTL("  "_$G(TXT))

 S:$G(QUIT) XPDABORT=QUIT

 Q

 ;

BADEENV2  ;IHS/MSC/MGH - BADE ENVIRONMENT CHECK ROUTINE PATCH 2;20-Feb-2013 16:21;FJE

 +1       ;;1.0;DENTAL/EDR INTERFACE;**1,2**;FEB 20, 2013;Build 7

 +2       ;

ENV       ;EP

 +1        NEW IN,PATCH,INSTDA,STAT

 +2       ;Check for the installation of the EDR Patch 1

 +3        SET IN="BADE*1.0*1"

           SET INSTDA=""

 +4        IF '$DATA(^XPD(9.7,"B",IN))

               Begin DoDot:1

 +5                DO MES("You must first install the DENTAL/EDR INTERFACE BADE Patch 1 before this patch",2)

               End DoDot:1

               QUIT 

 +6        SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)

 +7        SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)

 +8        IF STAT'=3

               Begin DoDot:1

 +9                DO MES("DENTAL/EDR INTERFACE BADE Patch 1 must be completely installed before installing this patch",2)

               End DoDot:1

               QUIT 

 +10      ;

 +11      ;Check for the installation of the AGG Patch 1

 +12       SET IN="AGG*1.0*1"

           SET INSTDA=""

 +13       IF '$DATA(^XPD(9.7,"B",IN))

               Begin DoDot:1

 +14               DO MES("You must first install the Patient Registration GUI Version 1.0 Patch 1 before this patch",2)

               End DoDot:1

               QUIT 

 +15       SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)

 +16       SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)

 +17       IF STAT'=3

               Begin DoDot:1

 +18               DO MES("Patient Registration GUI Patch 1 must be completely installed before installing this patch",2)

               End DoDot:1

               QUIT 

 +19       SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +20       QUIT 

 +21      ;

MES(TXT,QUIT) ;EP

 +1        DO BMES^XPDUTL("  "_$GET(TXT))

 +2        IF $GET(QUIT)

               SET XPDABORT=QUIT

 +3        QUIT 

 +4       ;