©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
INHVTA3M ; DGH, CHEM ; 07 Oct 1999 15:24 ; "Generic" socket transceiver
Source file <INHVTA3M.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 10 | ENR^INHE DONE^INHOS $$IN^INHUSEN $$SUPPRESS^INHUT6 ($$RECEIVE,$$SEND)^INHUVUT $$INRHB^INHUVUT1 WAIT^INHUVUT2 $$NEXT^INHUVUT3 LOG^INHVCRA1 ($$INIT,$$OPEN,CKDISCNT,CLOSE,ERR,EXIT1,PARM)^INHVTAPU |
| Kernel | 2 | $$ETYPE^%ZTFE (ITIME,TTSTP,TTSTRT)^XUSAUD |
| Uncategorized | 1 | CLOSE^%INET |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;Entry point
|
|
| RUN | ;With port open, start send/receive. This is main loop of routine.
|
|
| LOG | ;Log status of original message
|
|
| ERR | ;Error module
|
|
| RECEIVE | ;Receive incoming response. If no response, go back and SEND again
|
|
| SEND | ;Send outgoing message. Retry until
|
|
| EXIT | ;Main exit module
|
|
| EVAL | ;Evaluate incoming response (ie ack status=CA).
|
|
| QULOCK | ||
| QKILL | ||
| OPEN | ;Open the TCP/IP connection
|
| Name | Field # of Occurrence |
|---|---|
| CLOSE^%INET | ERR+4 |
| $$ETYPE^%ZTFE | ERR+3 |
| ENR^INHE | RUN+27, SEND+4, SEND+9, RECEIVE+17, EVAL+20 |
| DONE^INHOS | LOG+3 |
| $$IN^INHUSEN | EVAL+8 |
| $$SUPPRESS^INHUT6 | RUN+32 |
| $$RECEIVE^INHUVUT | RUN+18, RECEIVE+7 |
| $$SEND^INHUVUT | SEND+14 |
| $$INRHB^INHUVUT1 | RUN+2, RUN+20, SEND+13, RECEIVE+6, EVAL+2, EVAL+28, EVAL+32 |
| WAIT^INHUVUT2 | OPEN+4, RUN+13, RUN+14 |
| $$NEXT^INHUVUT3 | RUN+8 |
| LOG^INHVCRA1 | RUN+1, RUN+7, RUN+13, RUN+17, RUN+21, RUN+24, RUN+26, SEND+3, SEND+7, SEND+12 , RECEIVE+1, RECEIVE+5, RECEIVE+11, RECEIVE+18, RECEIVE+21, RECEIVE+25, EVAL+1, EVAL+12, EVAL+29, EVAL+31 , ERR+5, EXIT+2 |
| $$INIT^INHVTAPU | OPEN+8 |
| $$OPEN^INHVTAPU | OPEN+6 |
| CKDISCNT^INHVTAPU | RUN+24, RECEIVE+21 |
| CLOSE^INHVTAPU | RUN+13, RUN+24, SEND+4, RECEIVE+21 |
| ERR^INHVTAPU | ERR+7 |
| EXIT1^INHVTAPU | EXIT+3 |
| PARM^INHVTAPU | EN+4 |
| ITIME^XUSAUD | RUN+4 |
| TTSTP^XUSAUD | RECEIVE+20, RECEIVE+27 |
| TTSTRT^XUSAUD | RUN+36, EVAL+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | EN+3, ERR+4 |
| ^INLHDEST( | OPEN+3, RUN+13, QKILL!, QULOCK |
| ^INRHB("RUN" | SEND+14 |
| ^INRHD - [#4005] | RUN+27 |
| ^INTHU - [#4001] | RUN+27, RUN+31 |
| Name | Line Occurrences |
|---|---|
| EN | ERR+3 |
| EXIT | EN+5, OPEN+5, OPEN+6, OPEN+8, RUN+2, RUN+10, SEND+13, RECEIVE+16 |
| LOG | SEND+9, EVAL+27 |
| OPEN | RUN+10, SEND+4, RECEIVE+16 |
| QKILL | RUN+27, RUN+32, SEND+10, EVAL+27 |
| QULOCK | QKILL+1, ERR+1, EXIT+1 |
| RUN | RUN+10, RUN+27, RUN+32, SEND+6, EVAL+23 |
| SEND | RECEIVE+22, RECEIVE+23, RECEIVE+25, EVAL+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLISRV | EN+2~, OPEN+2, OPEN+6, RUN+13, RUN+24, SEND+4, RECEIVE+21 |
| ER | EN+2~, RUN+10, RUN+12*, RUN+13*, RUN+18*, RUN+19, SEND+8*, SEND+14*, RECEIVE+7*, RECEIVE+8 , RECEIVE+16, RECEIVE+22, RECEIVE+23, EVAL+8*, EVAL+9*, EVAL+18, EVAL+20, EVAL+23, EVAL+25* |
| INA | EN+2~, RUN+31*, RUN+32 |
| INACKID | EVAL+4! |
| >> INBPN | OPEN+4, OPEN+6, RUN+2, RUN+13, RUN+14, RUN+20, RUN+27, RUN+32, SEND+4, SEND+9 , SEND+13, SEND+14, RECEIVE+6, RECEIVE+17, EVAL+2, EVAL+20, EVAL+28, EVAL+32 |
| INBPNM | EN+2~, RUN+4, RUN+21, RUN+24, RUN+36, SEND+4, SEND+12, RECEIVE+5, RECEIVE+21, EVAL+7 , EVAL+29, ERR+5, EXIT+2 |
| INCHNL | EN+2~, OPEN+6, RUN+18, SEND+14, RECEIVE+7, ERR+4 |
| INDA | EN+2~, RUN+31*, RUN+32 |
| >> INDEBUG | EN+1*, OPEN+6, RUN+1, RUN+7, RUN+13, RUN+17, RUN+21, RUN+24, RUN+26, SEND+3 , SEND+7, SEND+12, RECEIVE+1, RECEIVE+5, RECEIVE+11, RECEIVE+18, RECEIVE+21, RECEIVE+25, EVAL+1, EVAL+8 , EVAL+29, EVAL+31, ERR+5, EXIT+2 |
| INDEST | EN+2~, EVAL+8 |
| INDISCNT | EN+2~, EN+3*, RUN+24, RECEIVE+21, EVAL+18* |
| INDSTR | EN+2~, OPEN+3, RUN+7, RUN+8, RUN+13, RUN+27, EVAL+8, QKILL, QULOCK |
| INERR | EN+2~, RUN+18, SEND+8*, SEND+9!, RECEIVE+7, RECEIVE+17, RECEIVE+18!, EVAL+4!, EVAL+8, EVAL+20! |
| ING | EN+2~, RUN+16*, RUN+18, RECEIVE+2*, RECEIVE+7, RECEIVE+22, EVAL+8, EVAL+23 |
| >> INHERR | EVAL+25* |
| INIP | EN+2~, OPEN+6, RUN+18, SEND+14, RECEIVE+7 |
| INIP("ACK" | OPEN+8 |
| INIP("DHNG" | RUN+24, RECEIVE+21 |
| INIP("INIT" | OPEN+8 |
| INIP("OHNG" | SEND+4 |
| INIP("RHNG" | RECEIVE+11, RECEIVE+12 |
| INIP("RTRY" | RECEIVE+10, RECEIVE+25 |
| INIP("SHNG" | EVAL+33 |
| INIP("STRY" | SEND+6 |
| INIP("THNG" | OPEN+4, RUN+13, RUN+14 |
| INLOOP | EN+2~ |
| INMEM | EN+2~, OPEN+6, RUN+18, RECEIVE+7 |
| INMSASTA | EN+2~, EVAL+4!, EVAL+8, EVAL+9*, EVAL+23, EVAL+25, EVAL+36 |
| INMSG | EVAL+24~, EVAL+25*, EVAL+26*, EVAL+28, EVAL+29 |
| INNORSP | EN+2~, RUN+34*, SEND+4, SEND+11, RECEIVE+4, RECEIVE+22*, RECEIVE+23* |
| INQP | EN+2~, RUN+8, QKILL, QULOCK |
| INQT | EN+2~, RUN+8, QKILL, QULOCK |
| INSEND | EN+2~, EVAL+8 |
| INSND | EN+2~, RUN+34*, SEND+6*, SEND+7, SEND+8, RECEIVE+22*, RECEIVE+23*, RECEIVE+25*, EVAL+36* |
| INSTOP | EN+2~, EN+3*, EN+5, OPEN+2, OPEN+4, OPEN+5, RUN+10, RUN+13, RUN+14, RUN+24 , RECEIVE+16, RECEIVE+21 |
| INTRNSNT | EN+2~, OPEN+2, RUN+13 |
| INUIF | EN+2~, RUN+8*, RUN+10, RUN+27, RUN+31, RUN+32, RUN+36, SEND+14, LOG+2, QKILL , QULOCK |
| INUSEQ | EN+2~ |
| >> INXDST | EVAL+8 |
| MSG | EN+2~, SEND+11*, SEND+12, SEND+13, RECEIVE+4*, RECEIVE+5, RECEIVE+6 |
| OK | EN+2~, OPEN+6*, OPEN+8* |
| OUT | EN+2~, SEND+14*, RECEIVE+3*, RECEIVE+8*, RECEIVE+10* |
| RC | EN+2~ |
| RCVE | EN+2~, RECEIVE+3*, RECEIVE+10*, RECEIVE+25 |
| RUN | EN+2~, OPEN+2*, OPEN+3*, RUN+2*, RUN+20*, SEND+13*, RECEIVE+3, RECEIVE+6*, EVAL+2*, EVAL+28* , EVAL+32* |
| SYSTEM | EN+2~ |
| TIMCHK | EN+2~, RUN+14, RUN+15*, RUN+28* |
| U | RUN+27, RUN+32 |
| UIF | EN+2~, RUN+31*, RUN+32, LOG+2~* |
| X | EN+2~, EN+3*, ERR+4* |
| >> XUAUDIT | RUN+4, RUN+36, RECEIVE+20, RECEIVE+27, EVAL+7 |