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 | 
  |