DG53625P.m

DG53625P ;TDM - Patch DG*5.3*625 Install Utility Routine ; 10/19/04 10:40am

 ;;5.3;Registration;**625,1015**; Aug 13,1993;Build 21

 ;

 Q

ADDMGRP ;Check for IB MEANS TEST mail group and add if not already there.

 N MGRP,WPARY,FDA,ERR

 S MGRP="IB MEANS TEST"

 ;

 D BMES^XPDUTL("Add '"_MGRP_"' mail group.")

 K FDA,ERR

 I $$FIND1^DIC(3.8,"","X",MGRP) D BMES^XPDUTL("'"_MGRP_"' entry already exists!") Q

 S WPARY(1,0)="This mail group will receive Means Test error messages from integrated billing."

 S WPARY(2,0)="errors and the editing/deletion of records which are associated with"

 S WPARY(3,0)="Means Test/Category C billing."

 ;

 S FDA(3.8,"+1,",.01)=MGRP

 S FDA(3.8,"+1,",3)="WPARY"

 S FDA(3.8,"+1,",4)="PU"

 S FDA(3.8,"+1,",5)=.5

 ;

 D UPDATE^DIE("","FDA","","ERR")

 I $D(ERR) D BMES^XPDUTL(MGRP_" not added!  ERROR:"),MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1)) Q

 D MES^XPDUTL("'"_MGRP_"' successfully added.")

 Q

DG53625P  ;TDM - Patch DG*5.3*625 Install Utility Routine ; 10/19/04 10:40am

 +1       ;;5.3;Registration;**625,1015**; Aug 13,1993;Build 21

 +2       ;

 +3        QUIT 

ADDMGRP   ;Check for IB MEANS TEST mail group and add if not already there.

 +1        NEW MGRP,WPARY,FDA,ERR

 +2        SET MGRP="IB MEANS TEST"

 +3       ;

 +4        DO BMES^XPDUTL("Add '"_MGRP_"' mail group.")

 +5        KILL FDA,ERR

 +6        IF $$FIND1^DIC(3.8,"","X",MGRP)

               DO BMES^XPDUTL("'"_MGRP_"' entry already exists!")

               QUIT 

 +7        SET WPARY(1,0)="This mail group will receive Means Test error messages from integrated billing."

 +8        SET WPARY(2,0)="errors and the editing/deletion of records which are associated with"

 +9        SET WPARY(3,0)="Means Test/Category C billing."

 +10      ;

 +11       SET FDA(3.8,"+1,",.01)=MGRP

 +12       SET FDA(3.8,"+1,",3)="WPARY"

 +13       SET FDA(3.8,"+1,",4)="PU"

 +14       SET FDA(3.8,"+1,",5)=.5

 +15      ;

 +16       DO UPDATE^DIE("","FDA","","ERR")

 +17       IF $DATA(ERR)

               DO BMES^XPDUTL(MGRP_" not added!  ERROR:")

               DO MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1))

               QUIT 

 +18       DO MES^XPDUTL("'"_MGRP_"' successfully added.")

 +19       QUIT