source: FOIAVistA/trunk/r/DSS_EXTRACTS-ECX/ECXINPOS.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 989 bytes
Line 
1ECXINPOS ;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 ;
11END K EC,MGNAM,MGTYP,MGORG,MGSE,MGMEM,MGDESC,MGSIL,XMY,XMTEXT,X
12 Q
13 ;
14LIST ;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
Note: See TracBrowser for help on using the repository browser.