BHSINIT.m

BHSINIT ;IHS/CIA/MGH - Initializations for build ;17-Mar-2006 10:36;MGH

 ;;1.0;HEALTH SUMMARY COMPONENTS;;March 17, 2006

 ;===================================================================

ENV ;EP

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

 ;

 ;Check for released versions of both VA and IHS health summaries

 NEW IEN,PKG

 S PKG="GMTS*2.7*68"

 S IEN=$O(^XPD(9.6,"B",PKG,0))

 I 'IEN W !,"You must first install "_PKG_"; before updating health summary" S XPDQUIT=2 Q

 ;

 I $$LAST^XPDUTL("IHS RPMS/PCC Health Summary","2.00")<12 D

 .I $$LAST^XPDUTL("IHS RPMS/PCC Health Summary","2.0")<12 D

 ..S XPDQUIT=2 W !,"Health summary must be at least up to patch 12"

 Q

 ;

PRE ;EP

 Q

 ;

POST ;EP

 ; Fix Out of Order Message for GMTS routines

 ; except for a select few

LOOP N HNAM,FROM,HIEN

 S HNAM="GMTS",FROM=HNAM

 F  S HNAM=$O(^DIC(19,"B",HNAM)) Q:HNAM=""!($E(HNAM,1,$L(FROM))'=FROM)  D

 .S HIEN=0 F  S HIEN=$O(^DIC(19,"B",HNAM,HIEN)) Q:'HIEN  D

 ..D FIXOMSG(HIEN,HNAM)

 Q

FIXOMSG(OPT,NAME) ;

 N VAL,FDA,IEN

 S IEN=$$FIND1^DIC(19,,"X",NAME)

 I IEN D

 .S VAL=""

 .S FDA(19,IEN_",",2)=VAL

 .D FILE^DIE("K","FDA")

 Q

BHSINIT   ;IHS/CIA/MGH - Initializations for build ;17-Mar-2006 10:36;MGH

 +1       ;;1.0;HEALTH SUMMARY COMPONENTS;;March 17, 2006

 +2       ;===================================================================

ENV       ;EP

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

 +2       ;

 +3       ;Check for released versions of both VA and IHS health summaries

 +4        NEW IEN,PKG

 +5        SET PKG="GMTS*2.7*68"

 +6        SET IEN=$ORDER(^XPD(9.6,"B",PKG,0))

 +7        IF 'IEN

               WRITE !,"You must first install "_PKG_"; before updating health summary"

               SET XPDQUIT=2

               QUIT 

 +8       ;

 +9        IF $$LAST^XPDUTL("IHS RPMS/PCC Health Summary","2.00")<12

               Begin DoDot:1

 +10               IF $$LAST^XPDUTL("IHS RPMS/PCC Health Summary","2.0")<12

                       Begin DoDot:2

 +11                       SET XPDQUIT=2

                           WRITE !,"Health summary must be at least up to patch 12"

                       End DoDot:2

               End DoDot:1

 +12       QUIT 

 +13      ;

PRE       ;EP

 +1        QUIT 

 +2       ;

POST      ;EP

 +1       ; Fix Out of Order Message for GMTS routines

 +2       ; except for a select few

LOOP       NEW HNAM,FROM,HIEN

 +1        SET HNAM="GMTS"

           SET FROM=HNAM

 +2        FOR 

               SET HNAM=$ORDER(^DIC(19,"B",HNAM))

               IF HNAM=""!($EXTRACT(HNAM,1,$LENGTH(FROM))'=FROM)

                   QUIT 

               Begin DoDot:1

 +3                SET HIEN=0

                   FOR 

                       SET HIEN=$ORDER(^DIC(19,"B",HNAM,HIEN))

                       IF 'HIEN

                           QUIT 

                       Begin DoDot:2

 +4                        DO FIXOMSG(HIEN,HNAM)

                       End DoDot:2

               End DoDot:1

 +5        QUIT 

FIXOMSG(OPT,NAME) ;

 +1        NEW VAL,FDA,IEN

 +2        SET IEN=$$FIND1^DIC(19,,"X",NAME)

 +3        IF IEN

               Begin DoDot:1

 +4                SET VAL=""

 +5                SET FDA(19,IEN_",",2)=VAL

 +6                DO FILE^DIE("K","FDA")

               End DoDot:1

 +7        QUIT