ECXINPOS ;BIR/DMA,CML,PTD-Post Init for DSS Extracts ; 11/13/96 15:49
;;3.0;DSS EXTRACTS;;Dec 22, 1997
;Call the MailMan API to Create Mail Groups.
;Code for the mail groups MUST remain for later rounds.
F EC=1:1 S X=$P($T(LIST+EC),";",3) Q:X="" I '$O(^XMB(3.8,"B",X,0)) D
.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."
.S MGNAM=X,(MGTYP,MGORG,MGSE)=0,MGSIL=1,XMTEXT="MGDESC(",MGMEM="",XMY="MGMEM("
.S X=$$MG^XMBGRP(MGNAM,MGTYP,MGORG,MGSE,.MGMEM,.MGDESC,MGSIL)
.I X'=0 D BMES^XPDUTL("The mail group "_MGNAM_" has been created. Remember to add members!")
;
END K EC,MGNAM,MGTYP,MGORG,MGSE,MGMEM,MGDESC,MGSIL,XMY,XMTEXT,X
Q
;
LIST ;Mail Groups for DSS
;;DSS-ADMS
;;DSS-DENT
;;DSS-EC
;;DSS-LAB
;;DSS-MOVS
;;DSS-NURS
;;DSS-PRES
;;DSS-QSR
;;DSS-RAD
;;DSS-SCNS
;;DSS-SCX
;;DSS-SURG
;;DSS-UD
;;DSS-IV
;;DSS-TREAT
;;DSS-PAI
;;DMS
;;DMT
;;DMU
;;DMV
;;DMW
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECXINPOS 1024 printed Dec 13, 2024@01:52:44 Page 2
ECXINPOS ;BIR/DMA,CML,PTD-Post Init for DSS Extracts ; 11/13/96 15:49
+1 ;;3.0;DSS EXTRACTS;;Dec 22, 1997
+2 ;Call the MailMan API to Create Mail Groups.
+3 ;Code for the mail groups MUST remain for later rounds.
+4 FOR EC=1:1
SET X=$PIECE($TEXT(LIST+EC),";",3)
if X=""
QUIT
IF '$ORDER(^XMB(3.8,"B",X,0))
Begin DoDot:1
+5 SET MGDESC(1)="This mail group contains users responsible for DSS extracts."
SET MGDESC(2)="A message is sent to this group upon completion of package extracts."
+6 SET MGNAM=X
SET (MGTYP,MGORG,MGSE)=0
SET MGSIL=1
SET XMTEXT="MGDESC("
SET MGMEM=""
SET XMY="MGMEM("
+7 SET X=$$MG^XMBGRP(MGNAM,MGTYP,MGORG,MGSE,.MGMEM,.MGDESC,MGSIL)
+8 IF X'=0
DO BMES^XPDUTL("The mail group "_MGNAM_" has been created. Remember to add members!")
End DoDot:1
+9 ;
END KILL EC,MGNAM,MGTYP,MGORG,MGSE,MGMEM,MGDESC,MGSIL,XMY,XMTEXT,X
+1 QUIT
+2 ;
LIST ;Mail Groups for DSS
+1 ;;DSS-ADMS
+2 ;;DSS-DENT
+3 ;;DSS-EC
+4 ;;DSS-LAB
+5 ;;DSS-MOVS
+6 ;;DSS-NURS
+7 ;;DSS-PRES
+8 ;;DSS-QSR
+9 ;;DSS-RAD
+10 ;;DSS-SCNS
+11 ;;DSS-SCX
+12 ;;DSS-SURG
+13 ;;DSS-UD
+14 ;;DSS-IV
+15 ;;DSS-TREAT
+16 ;;DSS-PAI
+17 ;;DMS
+18 ;;DMT
+19 ;;DMU
+20 ;;DMV
+21 ;;DMW
