©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
HLCSDL1 ;ALB/MTC/JC - X3.28 LOWER LAYER PROTOCOL 2.2 - 2/28/95 ;08/19/97
Source file <HLCSDL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;
|
|
| POLL | ;-- This function will check if any messages should be sent
; then if anything is in the buffer to read in. If there is data ; to write out then the system will bid for master status and if ; successful x-mit the message. If the system receives a request to ; receive data, then it will attemp to enter a slave mode and read ; data in. |
|
| SLAVE | ;-- this function will check if anything is ready to read in from
; the port. If nothing is ready then return to polling, else ; start slave process. |
|
| SLAVEQ | ;
|
|
| READ | ;-- This function will take the incoming data from the device and
; store in file 870. After each read an ack will be sent to the ; client application. Once an EOT has been received, return to ; polling. |
|
| LOOP | ;-- main loop for reading in message
|
|
| READQ | ||
| MASTER | ;-- if outgoing messages are present then establish m/s and begin
; transmission of message. |
|
| MASTERQ | ||
| BID(MAXTRY) | ;-- This function will bid for Master status MAXTRY times
; and return a 1 if succesful, 0 if fails ; INPUT - MAXTRY - Maximum number of attemps before failing ; OUTPUT - 1 for ok; 0 fails |
|
| BIDRET | ;-- bid for master status
|
|
| BIDQ | ;-- exit
|
|
| WRITE(HLDOUT0,HLDOUT1) | ;-- This function will take the message contained
; in file 870 specified by HLDOUT0 and HLDOUT1 and write the data out. ; after each write the system will wait for an ack. ; INPUT : HLDOUT0 - IEN of file #870 ; HLDOUT1 - IEN of out queue multiple |
|
| WRITEQ | ||
| SEND(HLTEXT,HLHEAD,HLFOOT,HLRETRY,HLBK) | ;-- This function will write the X3.28 formatted
; string out the port and wait for an ack. If this function fails ; 0 will be returned, else 1. |
|
| RETRY | ;-- write data
|
|
| SENDQ | ;-- exit
|
|
| EXIT | ;-- Cleanup
|
|
| LOG(ST1,OP) | ;Log reads/writes (translates ctrls)
|
|
| TRANS(ST) | ;Translate controls in string
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|