|
Last change
on this file since 770 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.
