HLMA0.m

HLMA0 ;AISC/SAW-Message Administration Module (Cont'd) ;7/17/97  17:30

 ;;1.6;HEALTH LEVEL SEVEN;**34,109**;Oct 13, 1995

RECEIVE(HLLD0,HLLD1) ;Entry point to receive an external message

 ;

 ;This is a subroutine call with parameter passing.  There are no

 ;output parameters returned by this call.

 ;

 ;Required Input Parameter

 ;  HLLD0 = Internal entry number where message is stored in Logical Link

 ;           file or XM if message is stored in MailMan

 ;Optional Input Parameter (Required if HLLD0 does not equal XM)

 ;  HLLD1 = Internal entry number of IN QUEUE multiple entry in Logical

 ;           Link file

 ;

 ;Check for required parameter

 I $G(HLLD0)']"" Q

 I HLLD0'="XM",'$G(HLLD1) Q

 N HLRESLT

 ;Get message ID and Message Text IEN for message being received

 D CREATE^HLTF(.HLMID,.HLMTIEN,.HLDT,.HLDT1)

 K HLDT,HLDT1

 ;Call Transaction Processor

 D PROCESS^HLTP0(HLMTIEN,HLLD0,$S($G(HLLD1):HLLD1,1:""),.HLRESLT)

 ;Update Status to Successfully Completed or Error During Transmission

 D STATUS^HLTF0(HLMTIEN,$S(HLRESLT:4,1:3),$S(HLRESLT:+HLRESLT,1:""),$S(HLRESLT:$P(HLRESLT,"^",2),1:""),,$S($G(HLERR("SKIP_EVENT"))=1:1,1:0))

EXIT K HLMTIEN,HLRESLT

 Q