AMH30P5.m

AMH30P5 ; IHS/CMI/LAB - POST INIT BH ;   [ 01/02/05  3:20 PM ]

 ;;3.0;IHS BEHAVIORAL HEALTH;**5**;JAN 27, 2003

 ;

 ;LORI -SEND OUT LISTER ITEMS

ENV ;EP 

 I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0

 I '$$INSTALLD("AMH*3.0*4") D SORRY(2)

 Q

 ;

PRE ;

 F DA=1:1:200 S DIK="^AMHSORT(" D ^DIK

 F DA=1:1:50 S DIK="^AMHDTER(" D ^DIK

 F DA=1:1:10 S DIK="^AMHRECD(" D ^DIK

 D ^XBFMK

 Q

POST ;EP

 S DA=$O(^AMHPROB("B","305.10",0))

 I DA S DIE="^AMHPROB(",DR=".01///305.1;.05///305.1" D ^DIE,^XBFMK

 D ^AMH30P5B

 Q

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

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

 ;

 NEW AMHY,DIC,X,Y

 S X=$P(AMHSTAL,"*",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(AMHSTAL,"*",2)

 D ^DIC

 I Y<1 D IMES Q 0

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

 D ^DIC

 S AMHY=Y

 D IMES

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

IMES ;

 D MES^XPDUTL($$CJ^XLFSTR("Patch """_AMHSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",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

AMH30P5   ; IHS/CMI/LAB - POST INIT BH ;   [ 01/02/05  3:20 PM ]

 +1       ;;3.0;IHS BEHAVIORAL HEALTH;**5**;JAN 27, 2003

 +2       ;

 +3       ;LORI -SEND OUT LISTER ITEMS

ENV       ;EP 

 +1        IF $GET(XPDENV)=1

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

 +2        FOR X="XPO1","XPZ1","XPZ2","XPI1"

               SET XPDDIQ(X)=0

 +3        IF '$$INSTALLD("AMH*3.0*4")

               DO SORRY(2)

 +4        QUIT 

 +5       ;

PRE       ;

 +1        FOR DA=1:1:200

               SET DIK="^AMHSORT("

               DO ^DIK

 +2        FOR DA=1:1:50

               SET DIK="^AMHDTER("

               DO ^DIK

 +3        FOR DA=1:1:10

               SET DIK="^AMHRECD("

               DO ^DIK

 +4        DO ^XBFMK

 +5        QUIT 

POST      ;EP

 +1        SET DA=$ORDER(^AMHPROB("B","305.10",0))

 +2        IF DA

               SET DIE="^AMHPROB("

               SET DR=".01///305.1;.05///305.1"

               DO ^DIE

               DO ^XBFMK

 +3        DO ^AMH30P5B

 +4        QUIT 

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

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

 +2       ;

 +3        NEW AMHY,DIC,X,Y

 +4        SET X=$PIECE(AMHSTAL,"*",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(AMHSTAL,"*",2)

 +9        DO ^DIC

 +10       IF Y<1

               DO IMES

               QUIT 0

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

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

 +12       DO ^DIC

 +13       SET AMHY=Y

 +14       DO IMES

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

IMES      ;

 +1        DO MES^XPDUTL($$CJ^XLFSTR("Patch """_AMHSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",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