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 ---[H[J[2J[HMCPOS05 659 printed Nov 22, 2024@17:26:28 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
