|
Last change
on this file since 785 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
639 bytes
|
| Line | |
|---|
| 1 | MCPOS05 ;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.
