Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: HLCSRV

HLCSRV.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLCSRV   284     printed  Dec 13, 2024@01:57:04                                                                                                                                                                                                       Page 2

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