ECXINPOS.m

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 ---ECXINPOS   1024     printed  Apr 09, 2024@20:55:07                                                                                                                                                                                                    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