BPHR21P2.m

BPHR21P2 ;GDIT/HCS/ALA-Version 2.1 Patch 2 ; 16 Feb 2018  11:37 AM

 ;;2.1;IHS PERSONAL HEALTH RECORD;**2**;Apr 01, 2014;Build 4

 ;

PRE ;Pre-install check

 I $P(^BPHR(90670.2,1,0),"^",2)'="https://hqabqdittphrw01.d1.na.ihs.gov" D

 . S BPHR(90670.2,"1,",.02)="https://hqabqdittphrw01.d1.na.ihs.gov"

 I $P(^BPHR(90670.2,2,0),"^",2)'="https://phrperfm.ihs.gov" D

 . S BPHR(90670.2,"2,",.02)="https://phrperfm.ihs.gov"

 I $D(BPHR) D FILE^DIE("","BPHR","ERROR")

 ;

 Q

BPHR21P2  ;GDIT/HCS/ALA-Version 2.1 Patch 2 ; 16 Feb 2018  11:37 AM

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

 +2       ;

PRE       ;Pre-install check

 +1        IF $PIECE(^BPHR(90670.2,1,0),"^",2)'="https://hqabqdittphrw01.d1.na.ihs.gov"

               Begin DoDot:1

 +2                SET BPHR(90670.2,"1,",.02)="https://hqabqdittphrw01.d1.na.ihs.gov"

               End DoDot:1

 +3        IF $PIECE(^BPHR(90670.2,2,0),"^",2)'="https://phrperfm.ihs.gov"

               Begin DoDot:1

 +4                SET BPHR(90670.2,"2,",.02)="https://phrperfm.ihs.gov"

               End DoDot:1

 +5        IF $DATA(BPHR)

               DO FILE^DIE("","BPHR","ERROR")

 +6       ;

 +7        QUIT