BGPMU3E.m

BGPMU3E ;IHS/MSC/SAT - ENVIRONMENT CHECK ROUTINE ;APR 21, 2011;

 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

 ;

ENV S IN="IHS CLINICAL REPORTING 11.0",INSTDA=""

 I '$$PATCHCK("BGP*11.0*2") D  Q

 .W !,"You must first install the IHS CLINICAL REPORTING 11.0 patch 2 before installing this patch"

 ; The following line prevents the "Disable Options..." and "Move

 ; Routines..." questions from being asked during the install.

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

 Q

 ;

PRE ;PRE-INSTALL ROUTINE

 K ^BGPMUIND(90595.11)

 Q

POST ;Post-Install routine

 S X=$$ADD^XPDMENU("BGPMU MAIN MENU","BGPMU HOSPITAL PERF MEASURES","HOS",20)

 I 'X W "Attempt to add BGPMU MAIN MENU option failed." H 3

 D DELDD

 D START^BGPM3

 Q

 ;

DELDD ; Delete DD for Reminder Definition Findings SubFile

 N DIU

 F DIU=90595.25,90595.35,90595.111,90595.151,90595.153,90595.155,90595.116 D

 .S DIU(0)="SD"

 .D EN^DIU2

 Q

PATCHCK(XPXPCH) ;

 S X=$$PATCH^XPDUTL(XPXPCH)

 W !!,$$C^XBFUNC("Need "_XPXPCH_"....."_XPXPCH_" "_$S(X:"Is",1:"Is Not")_" Present")

 Q X

BGPMU3E   ;IHS/MSC/SAT - ENVIRONMENT CHECK ROUTINE ;APR 21, 2011;

 +1       ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

 +2       ;

ENV        SET IN="IHS CLINICAL REPORTING 11.0"

           SET INSTDA=""

 +1        IF '$$PATCHCK("BGP*11.0*2")

               Begin DoDot:1

 +2                WRITE !,"You must first install the IHS CLINICAL REPORTING 11.0 patch 2 before installing this patch"

               End DoDot:1

               QUIT 

 +3       ; The following line prevents the "Disable Options..." and "Move

 +4       ; Routines..." questions from being asked during the install.

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

 +6        QUIT 

 +7       ;

PRE       ;PRE-INSTALL ROUTINE

 +1        KILL ^BGPMUIND(90595.11)

 +2        QUIT 

POST      ;Post-Install routine

 +1        SET X=$$ADD^XPDMENU("BGPMU MAIN MENU","BGPMU HOSPITAL PERF MEASURES","HOS",20)

 +2        IF 'X

               WRITE "Attempt to add BGPMU MAIN MENU option failed."

               HANG 3

 +3        DO DELDD

 +4        DO START^BGPM3

 +5        QUIT 

 +6       ;

DELDD     ; Delete DD for Reminder Definition Findings SubFile

 +1        NEW DIU

 +2        FOR DIU=90595.25,90595.35,90595.111,90595.151,90595.153,90595.155,90595.116

               Begin DoDot:1

 +3                SET DIU(0)="SD"

 +4                DO EN^DIU2

               End DoDot:1

 +5        QUIT 

PATCHCK(XPXPCH) ;

 +1        SET X=$$PATCH^XPDUTL(XPXPCH)

 +2        WRITE !!,$$C^XBFUNC("Need "_XPXPCH_"....."_XPXPCH_" "_$SELECT(X:"Is",1:"Is Not")_" Present")

 +3        QUIT X