source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLOT.m@ 701

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1HLOT ;IRMFO-ALB/CJM - Services provided by the transport layer;03/24/2004 14:43
2 ;;1.6;HEALTH LEVEL SEVEN;**126,131**;Oct 13, 1995;Build 10
3 ;
4 ;
5READHDR(HLCSTATE,HDR) ;
6 N SUCCESS,SEG
7 N MCODE
8 S HLCSTATE("MESSAGE ENDED")=0
9 S MCODE="S SUCCESS=$$"_HLCSTATE("READ HEADER")_"(.HLCSTATE,.HDR)"
10 X MCODE
11 Q SUCCESS
12 ;
13READSEG(HLCSTATE,SEG) ;
14 N RETURN
15 N MCODE
16 S MCODE="S RETURN=$$"_HLCSTATE("READ SEGMENT")_"(.HLCSTATE,.SEG)"
17 X MCODE
18 Q RETURN
19 ;
20OPEN(HLCSTATE) ;
21 N MCODE
22 I '$L(HLCSTATE("OPEN")) S HLCSTATE("CONNECTED")=0 Q
23 S MCODE="D "_HLCSTATE("OPEN")_"(.HLCSTATE)"
24 X MCODE
25 Q
26 ;
27CLOSE(HLCSTATE) ;
28 N MCODE
29 S MCODE="D "_HLCSTATE("CLOSE")_"(.HLCSTATE)"
30 X MCODE
31 S HLCSTATE("CONNECTED")=0
32 Q
33 ;
34WRITESEG(HLCSTATE,SEG) ;
35 N RETURN
36 N MCODE
37 S MCODE="S RETURN=$$"_HLCSTATE("WRITE SEGMENT")_"(.HLCSTATE,.SEG)"
38 X MCODE
39 Q RETURN
40 ;
41WRITEHDR(HLCSTATE,HDR) ;
42 N SUCCESS
43 N MCODE
44 S MCODE="S SUCCESS=$$"_HLCSTATE("WRITE HEADER")_"(.HLCSTATE,.HDR)"
45 X MCODE
46 Q SUCCESS
47 ;
48ENDMSG(HLCSTATE) ;
49 N RETURN
50 N MCODE
51 S MCODE="S RETURN=$$"_HLCSTATE("END MESSAGE")_"(.HLCSTATE)"
52 X MCODE
53 Q RETURN
Note: See TracBrowser for help on using the repository browser.