21 lines
639 B
Mathematica
21 lines
639 B
Mathematica
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
|