| 1 | ECXINPOS ;BIR/DMA,CML,PTD-Post Init for DSS Extracts ; 11/13/96 15:49
|
|---|
| 2 | ;;3.0;DSS EXTRACTS;;Dec 22, 1997
|
|---|
| 3 | ;Call the MailMan API to Create Mail Groups.
|
|---|
| 4 | ;Code for the mail groups MUST remain for later rounds.
|
|---|
| 5 | F EC=1:1 S X=$P($T(LIST+EC),";",3) Q:X="" I '$O(^XMB(3.8,"B",X,0)) D
|
|---|
| 6 | .S MGDESC(1)="This mail group contains users responsible for DSS extracts.",MGDESC(2)="A message is sent to this group upon completion of package extracts."
|
|---|
| 7 | .S MGNAM=X,(MGTYP,MGORG,MGSE)=0,MGSIL=1,XMTEXT="MGDESC(",MGMEM="",XMY="MGMEM("
|
|---|
| 8 | .S X=$$MG^XMBGRP(MGNAM,MGTYP,MGORG,MGSE,.MGMEM,.MGDESC,MGSIL)
|
|---|
| 9 | .I X'=0 D BMES^XPDUTL("The mail group "_MGNAM_" has been created. Remember to add members!")
|
|---|
| 10 | ;
|
|---|
| 11 | END K EC,MGNAM,MGTYP,MGORG,MGSE,MGMEM,MGDESC,MGSIL,XMY,XMTEXT,X
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | LIST ;Mail Groups for DSS
|
|---|
| 15 | ;;DSS-ADMS
|
|---|
| 16 | ;;DSS-DENT
|
|---|
| 17 | ;;DSS-EC
|
|---|
| 18 | ;;DSS-LAB
|
|---|
| 19 | ;;DSS-MOVS
|
|---|
| 20 | ;;DSS-NURS
|
|---|
| 21 | ;;DSS-PRES
|
|---|
| 22 | ;;DSS-QSR
|
|---|
| 23 | ;;DSS-RAD
|
|---|
| 24 | ;;DSS-SCNS
|
|---|
| 25 | ;;DSS-SCX
|
|---|
| 26 | ;;DSS-SURG
|
|---|
| 27 | ;;DSS-UD
|
|---|
| 28 | ;;DSS-IV
|
|---|
| 29 | ;;DSS-TREAT
|
|---|
| 30 | ;;DSS-PAI
|
|---|
| 31 | ;;DMS
|
|---|
| 32 | ;;DMT
|
|---|
| 33 | ;;DMU
|
|---|
| 34 | ;;DMV
|
|---|
| 35 | ;;DMW
|
|---|
