source: FOIAVistA/trunk/r/MEDICINE-MC/MCPOS05.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 639 bytes
Line 
1MCPOS05 ;HIRMFO/DAD-MAIL GROUP CREATION ;6/4/96 11:21
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N DA,DIE,DR,MCA,MCB,MCC,MCD,MCE,MCF,MCG,MCDATA
5 S MCDATA(1)=""
6 S MCDATA(2)="Creating the MC MESSAGING SERVER mail group."
7 D MES^XPDUTL(.MCDATA) K MCDATA
8 ;
9 S MCA="MC MESSAGING SERVER" ; Mail group name
10 S MCB=0 ; Public
11 S MCC=.5 ; Organizer is Postmaster
12 S MCD=0 ; No self enrollment
13 S MCF(1)="Mail group used for Medicine HL7 messages." ; Description
14 S MCG=1 ; Silent flag
15 S MCDATA=$$MG^XMBGRP(MCA,MCB,MCC,MCD,.MCE,.MCF,MCG)
16 I MCDATA D
17 . S MCE(3.812,"?+1,"_MCDATA_",",.01)="S.MCHL7SERVER@"_^XMB("NETNAME")
18 . D UPDATE^DIE("E","MCE")
19 . Q
20 Q
Note: See TracBrowser for help on using the repository browser.