Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
918 bytes
|
Rev | Line | |
---|
[613] | 1 | DG53625P ;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
|
---|
| 5 | ADDMGRP ;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.