BPHR21P1.m

BPHR21P1 ;GDHD/HC/ALA-Version 2.1 Patch 1 ; 28 Jun 2016  3:35 PM

 ;;2.1;IHS PERSONAL HEALTH RECORD;**1**;Apr 01, 2014;Build 23

 ;

ENV ;EP - Environment check

 NEW VERSION

 ; Add code to check for Ensemble version greater or equal to 2012

 S VERSION=$$VERSION^%ZOSV

 I VERSION<2012 D BMES^XPDUTL("Ensemble 2012 or later is required!") S XPDQUIT=2

 Q

 ;

EN ;EP - Postinstall

 ; Check SSL

 D EN^BPHRSSL

 ;Delete existing BPHR classes

 S EXEC="DO $SYSTEM.OBJ.DeletePackage(""BPHR"")" X EXEC

 ;

 ; Import BPHR classes

 K ERR

 D IMPORT^BPHRCLAS(1,.ERR)

 I $G(ERR) Q

 Q

 ;

PRE ;EP - Preinstall

 NEW DA,DIK

 S DIK="^BPHR(90670.2,"

 S DA=0 F  S DA=$O(^BPHR(90670.2,DA)) Q:'DA  D ^DIK

 ;

 S DIK="^BPHRCLS("

 S DA=0 F  S DA=$O(^BPHRCLS(DA)) Q:'DA  D ^DIK

 Q

BPHR21P1  ;GDHD/HC/ALA-Version 2.1 Patch 1 ; 28 Jun 2016  3:35 PM

 +1       ;;2.1;IHS PERSONAL HEALTH RECORD;**1**;Apr 01, 2014;Build 23

 +2       ;

ENV       ;EP - Environment check

 +1        NEW VERSION

 +2       ; Add code to check for Ensemble version greater or equal to 2012

 +3        SET VERSION=$$VERSION^%ZOSV

 +4        IF VERSION<2012

               DO BMES^XPDUTL("Ensemble 2012 or later is required!")

               SET XPDQUIT=2

 +5        QUIT 

 +6       ;

EN        ;EP - Postinstall

 +1       ; Check SSL

 +2        DO EN^BPHRSSL

 +3       ;Delete existing BPHR classes

 +4        SET EXEC="DO $SYSTEM.OBJ.DeletePackage(""BPHR"")"

           XECUTE EXEC

 +5       ;

 +6       ; Import BPHR classes

 +7        KILL ERR

 +8        DO IMPORT^BPHRCLAS(1,.ERR)

 +9        IF $GET(ERR)

               QUIT 

 +10       QUIT 

 +11      ;

PRE       ;EP - Preinstall

 +1        NEW DA,DIK

 +2        SET DIK="^BPHR(90670.2,"

 +3        SET DA=0

           FOR 

               SET DA=$ORDER(^BPHR(90670.2,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ;

 +5        SET DIK="^BPHRCLS("

 +6        SET DA=0

           FOR 

               SET DA=$ORDER(^BPHRCLS(DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +7        QUIT