INHUVUT ; DGH,FRW,CHEM,WAB ; 06 Aug 1999 14:39; Generic TCP/IP socket utilities
Source file <INHUVUT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| OPEN(INBPN,INCHNL,INERR,INMEM) | ;Open socket for destination | |
| CLEAN(X) | ; Clean out control characters | |
| DB() | ; | |
| SPORT(INBPN,INIPADIE,INERR) | ;Get next server port from Background Prc. file | |
| ADDR(INBPN,INIPADIE,INERR) | ;Get next IP address from Background Proc file | |
| SEND(INUIF,INIPPO,INIP) | ;Send a message from INTHU to a socket | |
| SENDSTR(STR,INIPPO) | ;Sends a initiation string to socket | |
| ASCII(X) | ;Converts a string into an ASCII string | |
| PARSE | ;Parse INREC array (raw message) into ING array (HL7 segments). | |
| RECEIVE(INV,INCHNL,INIP,INERR,INMEM) | ;Read socket | |
| INIT(INBPN,INIP) | ; Intialize parameters | |
| WAIT(INBPN,HNG,STAT,STOP) | ;Hang function which periodically checks ^INRHB | |
| CPORT(INBPN,INIPADIE,INIPPOIE) | ;Get next client port from Background Proc. file | |
| NEXT(INDEST,INPRI,INHOR,INPEND) | ;Return next transaction in the queue for destination | 
| Name | Field # of Occurrence | 
|---|---|
| RECV^%INET | RECEIVE+27 | 
| SEND^%INET | SEND+37, SEND+53, SEND+63, SEND+71, SENDSTR+5 | 
| $$PACK^INCRYP | SEND+27, SEND+44, SEND+55 | 
| DECRYPT^INCRYPT | RECEIVE+70 | 
| ENCRYPT^INCRYPT | SEND+33, SEND+50, SEND+60, SEND+68 | 
| ENR^INHE | RECEIVE+35, RECEIVE+42, RECEIVE+49, RECEIVE+54, RECEIVE+60 | 
| GETLINE^INHOU | SEND+21 | 
| $$FIELD^INHUT | SEND+16, RECEIVE+21 | 
| $$NOCTRL^INHUTIL | SEND+24, SEND+41 | 
| $$ASCII^INHUVUT1 | ASCII+1 | 
| INIT^INHUVUT1 | INIT+1 | 
| PARSE^INHUVUT1 | RECEIVE+83, PARSE+2 | 
| $$ADDR^INHUVUT2 | ADDR+1 | 
| $$CPORT^INHUVUT2 | CPORT+1 | 
| $$OPEN^INHUVUT2 | OPEN+8 | 
| $$SPORT^INHUVUT2 | SPORT+1 | 
| WAIT^INHUVUT2 | RECEIVE+66, WAIT+1 | 
| $$NEXT^INHUVUT3 | NEXT+1 | 
| LOG^INHVCRA1 | SEND+72, RECEIVE+22, RECEIVE+35, RECEIVE+42, RECEIVE+49, RECEIVE+54, RECEIVE+60 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^INRHSITE(1 | RECEIVE+17 | 
| ^INTHPC - [#4004] | RECEIVE+80, RECEIVE+82 | 
| ^INTHU - [#4001] | SEND+32, SEND+49, SEND+59 | 
| ^UTILITY("INREC" | RECEIVE+74!, RECEIVE+75* | 
| Name | Line Occurrences | 
|---|---|
| $$CLEAN | RECEIVE+33, RECEIVE+38, RECEIVE+47, RECEIVE+52, RECEIVE+58 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | RECEIVE+17 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | SEND+15~, SEND+21*, SEND+30*, SEND+36, SEND+47*, SEND+52, SEND+57*, SEND+62, SEND+66*, SEND+70 | 
| AP | RECEIVE+16~, RECEIVE+24*, RECEIVE+28*, RECEIVE+32, RECEIVE+37, RECEIVE+38*, RECEIVE+43*, RECEIVE+45, RECEIVE+51*, RECEIVE+70 , RECEIVE+76*, RECEIVE+80 | 
| APDONE | RECEIVE+16~, RECEIVE+24*, RECEIVE+26, RECEIVE+30*, RECEIVE+61*, RECEIVE+70, RECEIVE+78 | 
| API | RECEIVE+16~ | 
| APREC | RECEIVE+16~, RECEIVE+24*, RECEIVE+27, RECEIVE+28, RECEIVE+32, RECEIVE+33*, RECEIVE+37, RECEIVE+38, RECEIVE+39*, RECEIVE+41 , RECEIVE+45, RECEIVE+46, RECEIVE+47*, RECEIVE+51, RECEIVE+52*, RECEIVE+56, RECEIVE+57*, RECEIVE+61, RECEIVE+63*, RECEIVE+65 , RECEIVE+70, RECEIVE+71*, RECEIVE+76 | 
| APREC(0 | RECEIVE+30, RECEIVE+78 | 
| EOL | SEND+15~, SEND+16* | 
| HNG | WAIT~, WAIT+1 | 
| I | SEND+15~, SEND+39*, SEND+41, SEND+43, SEND+44, SEND+49, CLEAN+1~, CLEAN+2*, CLEAN+3, CLEAN+4 | 
| INBPN | OPEN~, OPEN+8, RECEIVE+35, RECEIVE+42, RECEIVE+49, RECEIVE+54, RECEIVE+60, RECEIVE+66, RECEIVE+80, RECEIVE+82 , INIT~, INIT+1, ADDR~, ADDR+1, CPORT~, CPORT+1, SPORT~, SPORT+1, WAIT~, WAIT+1 | 
| INBUF | SEND+15~, SEND+18*, SEND+27, SEND+44, SEND+55, SEND+65 | 
| INCHNL | OPEN~, OPEN+8, RECEIVE~, RECEIVE+27 | 
| INCRYPT | SEND+15~, SEND+33, SEND+34, SEND+50, SEND+51, SEND+60, SEND+61, SEND+68, SEND+69 | 
| >> INDEBUG | SEND+72, RECEIVE+22, RECEIVE+35, RECEIVE+42, RECEIVE+49, RECEIVE+54, RECEIVE+60 | 
| INDELIM | SEND+15~, SEND+16*, SEND+25, SEND+43, RECEIVE+21*, RECEIVE+82 | 
| INDEST | NEXT~, NEXT+1 | 
| INEOM | RECEIVE+16~, RECEIVE+19*, RECEIVE+56, RECEIVE+57, RECEIVE+61, RECEIVE+63 | 
| INERR | OPEN~, OPEN+8, RECEIVE~, RECEIVE+78*, RECEIVE+80*, RECEIVE+82*, ADDR~, ADDR+1, SPORT~, SPORT+1 | 
| INERRREC | RECEIVE+16~, RECEIVE+33*, RECEIVE+34, RECEIVE+47*, RECEIVE+48, RECEIVE+52*, RECEIVE+53, RECEIVE+57*, RECEIVE+58*, RECEIVE+59 | 
| INFIRST | SEND+15~, SEND+16*, SEND+33, SEND+34*, SEND+50, SEND+51*, SEND+60, SEND+61*, SEND+68, SEND+69* | 
| INHOR | NEXT~, NEXT+1 | 
| INIP | SEND~, RECEIVE~, INIT~, INIT+1 | 
| INIP("CRYPT" | SEND+18, SEND+31, SEND+48, SEND+58, SEND+67, RECEIVE+69 | 
| INIP("EOL" | SEND+16, SEND+55, SEND+70, RECEIVE+58 | 
| INIP("EOM" | SEND+70, RECEIVE+19 | 
| INIP("NOSOM" | RECEIVE+28 | 
| INIP("RHNG" | RECEIVE+66 | 
| INIP("RTO" | RECEIVE+17 | 
| INIP("RTRY" | RECEIVE+67 | 
| INIP("SOM" | SEND+36, SEND+52, SEND+62, SEND+70, RECEIVE+19 | 
| INIPADIE | ADDR~, ADDR+1, CPORT~, CPORT+1, SPORT~, SPORT+1 | 
| INIPPO | SEND~, SEND+37, SEND+53, SEND+63, SEND+71, SENDSTR~, SENDSTR+5 | 
| INIPPOIE | CPORT~, CPORT+1 | 
| INLAST | SEND+15~, SEND+32*, SEND+33, SEND+49*, SEND+50, SEND+59*, SEND+60 | 
| >> INMAX | SEND+18*, SEND+27, SEND+44, SEND+55 | 
| INMEM | OPEN~, OPEN+8, RECEIVE~ | 
| INMS | RECEIVE+16~, RECEIVE+34*, RECEIVE+35, RECEIVE+40!, RECEIVE+42, RECEIVE+43!, RECEIVE+48*, RECEIVE+49, RECEIVE+53*, RECEIVE+54 , RECEIVE+59*, RECEIVE+60 | 
| INMS(1 | RECEIVE+40* | 
| INMS(2 | RECEIVE+41* | 
| INOUT | OPEN+7~, OPEN+8*, OPEN+9 | 
| INPEND | NEXT~, NEXT+1 | 
| INPRI | NEXT~, NEXT+1 | 
| INREC | RECEIVE+16~, RECEIVE+24*, RECEIVE+25, RECEIVE+38, RECEIVE+43, RECEIVE+73, RECEIVE+75*, RECEIVE+76, RECEIVE+82, RECEIVE+84 | 
| INSMIN | RECEIVE+16~, RECEIVE+17*, RECEIVE+72 | 
| INSOM | RECEIVE+16~, RECEIVE+19*, RECEIVE+28, RECEIVE+32, RECEIVE+37, RECEIVE+38, RECEIVE+39, RECEIVE+45, RECEIVE+46, RECEIVE+47 , RECEIVE+51, RECEIVE+52, RECEIVE+63 | 
| INUIF | SEND~, SEND+21, SEND+32, SEND+49, SEND+59, SEND+72 | 
| INV | RECEIVE~ | 
| LCT | SEND+15~, SEND+21*, SEND+32, SEND+49, SEND+59 | 
| LINE | SEND+15~, SEND+21, SEND+22, SEND+24*, SEND+25*, SEND+27, SEND+32 | 
| LINE( | SEND+39, SEND+41*, SEND+43*, SEND+44, SEND+49 | 
| NORESP | RECEIVE+16~, RECEIVE+24*, RECEIVE+26, RECEIVE+66, RECEIVE+67*, RECEIVE+82 | 
| NULLREAD | RECEIVE+16~, RECEIVE+24*, RECEIVE+67* | 
| REC | RECEIVE+16~ | 
| REM | RECEIVE+16~ | 
| RTO | RECEIVE+16~, RECEIVE+17*, RECEIVE+27 | 
| STAT | WAIT~, WAIT+1 | 
| STOP | WAIT~, WAIT+1 | 
| STR | SENDSTR~, SENDSTR+5 | 
| U | RECEIVE+17, RECEIVE+80, RECEIVE+82 | 
| X | SEND+27*, SEND+29, SEND+33, SEND+34*, SEND+36*, SEND+37, SEND+44*, SEND+46, SEND+50, SEND+51* , SEND+52*, SEND+53, SEND+55*, SEND+56, SEND+60, SEND+61*, SEND+62*, SEND+63, SEND+65*, SEND+66 , SEND+67, SEND+68, SEND+69*, SEND+70*, SEND+71, RECEIVE+16~, RECEIVE+38~*, RECEIVE+39, RECEIVE+46~*, RECEIVE+47 , RECEIVE+70, RECEIVE+71, ASCII~, ASCII+1, CLEAN~, CLEAN+2, CLEAN+3, CLEAN+4 | 
| Y | CLEAN+1~*, CLEAN+2, CLEAN+3*, CLEAN+4*, CLEAN+5 |