HLCSRV.m

HLCSRV ;AISC/SAW-Server Routine for HL7 Messages Received Through MailMan ;1/26/95  14:20

 ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995

 ;Receive incoming message from MailMan

 D RECEIVE^HLMA0("XM")

 ;Delete message from server mailbox

 S XMSER="S.HL V16 SERVER" D REMSBMSG^XMA1C

 Q

HLCSRV    ;AISC/SAW-Server Routine for HL7 Messages Received Through MailMan ;1/26/95  14:20

 +1       ;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995

 +2       ;Receive incoming message from MailMan

 +3        DO RECEIVE^HLMA0("XM")

 +4       ;Delete message from server mailbox

 +5        SET XMSER="S.HL V16 SERVER"

           DO REMSBMSG^XMA1C

 +6        QUIT