Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Rev | Line | |
---|
[613] | 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.