©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
HLCSTCP4 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;08/03/2011 13:29
Source file <HLCSTCP4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RDERR | ; Error during read process, decrement counter
|
|
| ERROR | ; Error trap
; OPEN ERROR-retry. ; WRITE ERROR (SERVER DISCONNECT)-close channel, retry |
|
| PROXY | ; set DUZ for application proxy user
|
|
| HLDUZ | ; compare DUZ and set DUZ to application proxy user
|
|
| HLDUZ2 | ; compare DUZ and HLDUZ
|
|
| CLEANVAR | ; clean variables for server, called from HLCSTCP1
|
|
| MIEN | ; sets HLIND1=ien in 773^ien in 772 for message
|
|
| PMSH(MSH,P) | ;get piece P from MSH array (passed by ref.)
|
|
| ERROR1 | ;
; moved from ERROR^HLCSTCP1 ; Error trap for disconnect error and return back to the read loop. ; patch HL*1.6*122 start ; patch HL*1.6*140 ; S $ETRAP="D HALT^ZU" ;RWF |
|
| CLRMCNTR | ;
; clear the counter to set as "0 server" for multi-listener ; HL*1.6*122 start |
|
| CREATUSR | ;
; patch HL*1.6*122 TEST v2: DUZ code removed ; create application proxy users for listeners and incoming filer |