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 |