Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
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.