source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLMA0.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1HLMA0 ;AISC/SAW-Message Administration Module (Cont'd) ;7/17/97 17:30
2 ;;1.6;HEALTH LEVEL SEVEN;**34,109**;Oct 13, 1995
3RECEIVE(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))
26EXIT K HLMTIEN,HLRESLT
27 Q
Note: See TracBrowser for help on using the repository browser.