| 1 | HLMA0 ;AISC/SAW-Message Administration Module (Cont'd) ;7/17/97 17:30
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**34,109**;Oct 13, 1995
|
|---|
| 3 | RECEIVE(HLLD0,HLLD1) ;Entry point to receive an external message
|
|---|
| 4 | ;
|
|---|
| 5 | ;This is a subroutine call with parameter passing. There are no
|
|---|
| 6 | ;output parameters returned by this call.
|
|---|
| 7 | ;
|
|---|
| 8 | ;Required Input Parameter
|
|---|
| 9 | ; HLLD0 = Internal entry number where message is stored in Logical Link
|
|---|
| 10 | ; file or XM if message is stored in MailMan
|
|---|
| 11 | ;Optional Input Parameter (Required if HLLD0 does not equal XM)
|
|---|
| 12 | ; HLLD1 = Internal entry number of IN QUEUE multiple entry in Logical
|
|---|
| 13 | ; Link file
|
|---|
| 14 | ;
|
|---|
| 15 | ;Check for required parameter
|
|---|
| 16 | I $G(HLLD0)']"" Q
|
|---|
| 17 | I HLLD0'="XM",'$G(HLLD1) Q
|
|---|
| 18 | N HLRESLT
|
|---|
| 19 | ;Get message ID and Message Text IEN for message being received
|
|---|
| 20 | D CREATE^HLTF(.HLMID,.HLMTIEN,.HLDT,.HLDT1)
|
|---|
| 21 | K HLDT,HLDT1
|
|---|
| 22 | ;Call Transaction Processor
|
|---|
| 23 | D PROCESS^HLTP0(HLMTIEN,HLLD0,$S($G(HLLD1):HLLD1,1:""),.HLRESLT)
|
|---|
| 24 | ;Update Status to Successfully Completed or Error During Transmission
|
|---|
| 25 | 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))
|
|---|
| 26 | EXIT K HLMTIEN,HLRESLT
|
|---|
| 27 | Q
|
|---|
