HLCSTCP2 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;08/04/2011 16:27
Source file <HLCSTCP2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EXIT | ||
QUE | ; -- Check "OUT" queue for processing IF there is a message do it
; and then check the link if it open or not |
|
DCSEND | ;direct connect
; Set up error trap |
|
DONE(ST,ERR,ERRMSG) | ;set status to complete
|
|
CHKMSG(HLI) | ;check status of message and update if not cancelled
|
|
WRITE(HLDA) | ; write message in HL7 format
; HLDA - ien of message in 773 ; - start block $C(11) ; - end block $C(28) ; - record separator $C(13) |
|
OPEN() | ; -- Open TCP/IP device (Client)
|
|
RDERR | ||
ERROR | ||
CC(X) | ;cleanup and close
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|