MCPOS05.m

MCPOS05 ;HIRMFO/DAD-MAIL GROUP CREATION ;6/4/96  11:21

 ;;2.3;Medicine;;09/13/1996

 ;

 N DA,DIE,DR,MCA,MCB,MCC,MCD,MCE,MCF,MCG,MCDATA

 S MCDATA(1)=""

 S MCDATA(2)="Creating the MC MESSAGING SERVER mail group."

 D MES^XPDUTL(.MCDATA) K MCDATA

 ;

 S MCA="MC MESSAGING SERVER" ; Mail group name

 S MCB=0 ; Public

 S MCC=.5 ; Organizer is Postmaster

 S MCD=0 ; No self enrollment

 S MCF(1)="Mail group used for Medicine HL7 messages." ; Description

 S MCG=1 ; Silent flag

 S MCDATA=$$MG^XMBGRP(MCA,MCB,MCC,MCD,.MCE,.MCF,MCG)

 I MCDATA D

 . S MCE(3.812,"?+1,"_MCDATA_",",.01)="S.MCHL7SERVER@"_^XMB("NETNAME")

 . D UPDATE^DIE("E","MCE")

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCPOS05   659     printed  Apr 09, 2024@21:16:56                                                                                                                                                                                                      Page 2

MCPOS05   ;HIRMFO/DAD-MAIL GROUP CREATION ;6/4/96  11:21

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

 +3        NEW DA,DIE,DR,MCA,MCB,MCC,MCD,MCE,MCF,MCG,MCDATA

 +4        SET MCDATA(1)=""

 +5        SET MCDATA(2)="Creating the MC MESSAGING SERVER mail group."

 +6        DO MES^XPDUTL(.MCDATA)

           KILL MCDATA

 +7       ;

 +8       ; Mail group name

           SET MCA="MC MESSAGING SERVER"

 +9       ; Public

           SET MCB=0

 +10      ; Organizer is Postmaster

           SET MCC=.5

 +11      ; No self enrollment

           SET MCD=0

 +12      ; Description

           SET MCF(1)="Mail group used for Medicine HL7 messages."

 +13      ; Silent flag

           SET MCG=1

 +14       SET MCDATA=$$MG^XMBGRP(MCA,MCB,MCC,MCD,.MCE,.MCF,MCG)

 +15       IF MCDATA

               Begin DoDot:1

 +16               SET MCE(3.812,"?+1,"_MCDATA_",",.01)="S.MCHL7SERVER@"_^XMB("NETNAME")

 +17               DO UPDATE^DIE("E","MCE")

 +18               QUIT 

               End DoDot:1

 +19       QUIT