HLCSDR2 ;ALB/RJS - HYBRID LOWER LAYER PROTOCOL UTILITIES 2.2 - ;08/22/2001 11:23
Source file <HLCSDR2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
WRITE(HLDOUT0,HLDOUT1) | ; This function writes a message from the Logical
; Link file (#870) to the specified device in the following format: ; <Start Block><Data Block><End Block> ; The data block is the complete HL7 message terminated by a <CR>. ; INPUT : HLDOUT0 - IFN of file 870 ; HLDOUT1 - IFN of Out Queue Multiple ; OUTPUT: None |
|
SETNODE(HLD0,HLD1,CR) | ;
|
|
SETNODE2 | ;
|
|
TRANS(HLTOUT,HLTRANS) | ; This function returns the state of the read operation.
; INPUT : HLTOUT - Data returned from read (Will contain TIMEOUT) ; HLTRANS - Variable passed by reference containing how ; the read was terminated. ; OUTPUT: HLTRANS - Translation of read termination. |
|
INITIZE | ;Initialize Line counter and Checksum variables
|
|
NAK(HLTRANS) | ; Send NAK
|
|
ACK | ; Send ACK
|
|
DUMP | ;
|
|
CHKSUM | ;
|
|
CHKSUM1 | ;
|
|
VALID1(FLAG,CHK,HLIND0,HLIND1) | ;
|
|
TRACE | ;When HLTRACE is instantiated this subroutine simply writes out the
|
|
MONITOR(VALUE,PIECE,HLD0,HLD1,QUEUE) | ;
|
|
FORMAT(HLC,LENGTH) | ;Function to stuff leading zeroes for checksums
|
|
RJ(HLC,LENGTH) | ;Function to stuff leading zeroes for checksums
|
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 |
|
Function Call: WRITE |
|