DG53625P ;TDM - Patch DG*5.3*625 Install Utility Routine ; 10/19/04 10:40am
;;5.3;Registration;**625**; Aug 13,1993
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53625P 942 printed Dec 13, 2024@02:37:58 Page 2
DG53625P ;TDM - Patch DG*5.3*625 Install Utility Routine ; 10/19/04 10:40am
+1 ;;5.3;Registration;**625**; Aug 13,1993
+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
