source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53625P.m@ 1796

Last change on this file since 1796 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 918 bytes
Line 
1DG53625P ;TDM - Patch DG*5.3*625 Install Utility Routine ; 10/19/04 10:40am
2 ;;5.3;Registration;**625**; Aug 13,1993
3 ;
4 Q
5ADDMGRP ;Check for IB MEANS TEST mail group and add if not already there.
6 N MGRP,WPARY,FDA,ERR
7 S MGRP="IB MEANS TEST"
8 ;
9 D BMES^XPDUTL("Add '"_MGRP_"' mail group.")
10 K FDA,ERR
11 I $$FIND1^DIC(3.8,"","X",MGRP) D BMES^XPDUTL("'"_MGRP_"' entry already exists!") Q
12 S WPARY(1,0)="This mail group will receive Means Test error messages from integrated billing."
13 S WPARY(2,0)="errors and the editing/deletion of records which are associated with"
14 S WPARY(3,0)="Means Test/Category C billing."
15 ;
16 S FDA(3.8,"+1,",.01)=MGRP
17 S FDA(3.8,"+1,",3)="WPARY"
18 S FDA(3.8,"+1,",4)="PU"
19 S FDA(3.8,"+1,",5)=.5
20 ;
21 D UPDATE^DIE("","FDA","","ERR")
22 I $D(ERR) D BMES^XPDUTL(MGRP_" not added! ERROR:"),MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1)) Q
23 D MES^XPDUTL("'"_MGRP_"' successfully added.")
24 Q
Note: See TracBrowser for help on using the repository browser.