BDGP17PS.m

BDGP17PS ;ihs/cmi/maw - PIMS Patch 1017 env checker

 ;;5.3;PIMS;**1017**;MAY 28, 2004;Build 5

 ;

ENV ;-- environment check

 I '$$INSTALLD("PIMS*5.3*1016") D SORRY(2)

 I '$$INSTALLD("BJPC*2.0*9") D SORRY(2)

 I '$$INSTALLD("TIU*1.0*1010") D SORRY(2)

 Q

 ;

POST ;post init entry point

 D RCMP

 Q

 ;

RCMP ;-- recompile the SDAMXOE template

 N TIEN

 S TIEN=$O(^DIE("B","SD ENCOUNTER ENTRY",0))

 Q:'TIEN

 D EN2^DIEZ(TIEN,,"SDAMXOE",15000)

 Q

 ;

INSTALLD(BDGSTAL) ;EP - Determine if patch BDGSTAL was installed, where

 ; BDGSTAL is the name of the INSTALL.  E.g "AG*6.0*11".

 ;

 NEW BDGY,DIC,X,Y

 S X=$P(BDGSTAL,"*",1)

 S DIC="^DIC(9.4,",DIC(0)="FM",D="C"

 D IX^DIC

 I Y<1 D IMES Q 0

 S DIC=DIC_+Y_",22,",X=$P(BDGSTAL,"*",2)

 D ^DIC

 I Y<1 D IMES Q 0

 S DIC=DIC_+Y_",""PAH"",",X=$P(BDGSTAL,"*",3)

 D ^DIC

 S BDGY=Y

 D IMES

 Q $S(BDGY<1:0,1:1)

IMES ;

 D MES^XPDUTL($$CJ^XLFSTR("Patch """_BDGSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" Present.",IOM))

 Q

SORRY(X) ;

 KILL DIFQ

 I X=3 S XPDQUIT=2 Q

 S XPDQUIT=X

 W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)

 Q

 ;

BDGP17PS  ;ihs/cmi/maw - PIMS Patch 1017 env checker

 +1       ;;5.3;PIMS;**1017**;MAY 28, 2004;Build 5

 +2       ;

ENV       ;-- environment check

 +1        IF '$$INSTALLD("PIMS*5.3*1016")

               DO SORRY(2)

 +2        IF '$$INSTALLD("BJPC*2.0*9")

               DO SORRY(2)

 +3        IF '$$INSTALLD("TIU*1.0*1010")

               DO SORRY(2)

 +4        QUIT 

 +5       ;

POST      ;post init entry point

 +1        DO RCMP

 +2        QUIT 

 +3       ;

RCMP      ;-- recompile the SDAMXOE template

 +1        NEW TIEN

 +2        SET TIEN=$ORDER(^DIE("B","SD ENCOUNTER ENTRY",0))

 +3        IF 'TIEN

               QUIT 

 +4        DO EN2^DIEZ(TIEN,,"SDAMXOE",15000)

 +5        QUIT 

 +6       ;

INSTALLD(BDGSTAL) ;EP - Determine if patch BDGSTAL was installed, where

 +1       ; BDGSTAL is the name of the INSTALL.  E.g "AG*6.0*11".

 +2       ;

 +3        NEW BDGY,DIC,X,Y

 +4        SET X=$PIECE(BDGSTAL,"*",1)

 +5        SET DIC="^DIC(9.4,"

           SET DIC(0)="FM"

           SET D="C"

 +6        DO IX^DIC

 +7        IF Y<1

               DO IMES

               QUIT 0

 +8        SET DIC=DIC_+Y_",22,"

           SET X=$PIECE(BDGSTAL,"*",2)

 +9        DO ^DIC

 +10       IF Y<1

               DO IMES

               QUIT 0

 +11       SET DIC=DIC_+Y_",""PAH"","

           SET X=$PIECE(BDGSTAL,"*",3)

 +12       DO ^DIC

 +13       SET BDGY=Y

 +14       DO IMES

 +15       QUIT $SELECT(BDGY<1:0,1:1)

IMES      ;

 +1        DO MES^XPDUTL($$CJ^XLFSTR("Patch """_BDGSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" Present.",IOM))

 +2        QUIT 

SORRY(X)  ;

 +1        KILL DIFQ

 +2        IF X=3

               SET XPDQUIT=2

               QUIT 

 +3        SET XPDQUIT=X

 +4        WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)

 +5        QUIT 

 +6       ;