Last change
on this file since 1073 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
589 bytes
|
Rev | Line | |
---|
[613] | 1 | DG53463 ;ALB/RMM - Mail Group Utility ; 2/03/03
|
---|
| 2 | ;;5.3;Registration;**463**;Aug 13, 1993
|
---|
| 3 | ;
|
---|
| 4 | ; This post-install routine will add the user who is performing the
|
---|
| 5 | ; install of Patch DG*5.3*463 to the MT INCONSISTENCIES Mail Group
|
---|
| 6 | ;
|
---|
| 7 | EN ; Get the IEN of the mail group distributed in this patch
|
---|
| 8 | N DGENDA,DATA,ERR
|
---|
| 9 | S DGENDA(1)=$O(^XMB(3.8,"B","MT INCONSISTENCIES",""))
|
---|
| 10 | ;
|
---|
| 11 | ; Quit if the user has already been added to the mail group
|
---|
| 12 | Q:$D(^XMB(3.8,DGENDA(1),1,"B",DUZ))
|
---|
| 13 | ;
|
---|
| 14 | ; Add the user to the MT INCONSISTENCIES Mail Group
|
---|
| 15 | S DATA(.01)=DUZ
|
---|
| 16 | I $$ADD^DGENDBS(3.81,.DGENDA,.DATA,.ERR)
|
---|
| 17 | ;
|
---|
| 18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.