|
Last change
on this file since 623 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
589 bytes
|
| Line | |
|---|
| 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.
