Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Line | |
---|
1 | HLOT ;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 | ;
|
---|
5 | READHDR(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 | ;
|
---|
13 | READSEG(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 | ;
|
---|
20 | OPEN(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 | ;
|
---|
27 | CLOSE(HLCSTATE) ;
|
---|
28 | N MCODE
|
---|
29 | S MCODE="D "_HLCSTATE("CLOSE")_"(.HLCSTATE)"
|
---|
30 | X MCODE
|
---|
31 | S HLCSTATE("CONNECTED")=0
|
---|
32 | Q
|
---|
33 | ;
|
---|
34 | WRITESEG(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 | ;
|
---|
41 | WRITEHDR(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 | ;
|
---|
48 | ENDMSG(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.