©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
INHVTAPT ; DGH, CHEM ; 07 Oct 1999 15:24 ; "Generic" socket transceiver
Source file <INHVTAPT.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+26, SEND+4, SEND+9, RECEIVE+17, EVAL+18 |
| DONE^INHOS | LOG+3 |
| $$IN^INHUSEN | EVAL+8 |
| $$SUPPRESS^INHUT6 | RUN+31 |
| $$RECEIVE^INHUVUT | RUN+18, RECEIVE+7 |
| $$SEND^INHUVUT | SEND+14 |
| $$INRHB^INHUVUT1 | RUN+2, RUN+20, SEND+13, RECEIVE+6, EVAL+2, EVAL+26, EVAL+30 |
| 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+23, RUN+25, SEND+3, SEND+7, SEND+12 , RECEIVE+1, RECEIVE+5, RECEIVE+11, RECEIVE+18, RECEIVE+21, RECEIVE+25, EVAL+1, EVAL+9, EVAL+10, EVAL+27 , EVAL+29, ERR+5, EXIT+2 |
| $$INIT^INHVTAPU | OPEN+8 |
| $$OPEN^INHVTAPU | OPEN+6 |
| CKDISCNT^INHVTAPU | RUN+23, RECEIVE+21 |
| CLOSE^INHVTAPU | RUN+13, RUN+23, SEND+4, RECEIVE+21 |
| ERR^INHVTAPU | ERR+7 |
| EXIT1^INHVTAPU | EXIT+3 |
| PARM^INHVTAPU | EN+3 |
| ITIME^XUSAUD | RUN+4 |
| TTSTP^XUSAUD | RECEIVE+20, RECEIVE+27 |
| TTSTRT^XUSAUD | RUN+35, EVAL+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | EN+2, ERR+4 |
| ^INLHDEST( | OPEN+3, RUN+13, QKILL!, QULOCK |
| ^INRHB("RUN" | SEND+14 |
| ^INRHD - [#4005] | RUN+26 |
| ^INTHU - [#4001] | RUN+26, RUN+30 |
| Name | Line Occurrences |
|---|---|
| EN | ERR+3 |
| EXIT | EN+4, OPEN+5, OPEN+6, OPEN+8, RUN+2, RUN+10, SEND+13, RECEIVE+16 |
| LOG | SEND+9, EVAL+25 |
| OPEN | RUN+10, SEND+4, RECEIVE+16 |
| QKILL | RUN+26, RUN+31, SEND+10, EVAL+25 |
| QULOCK | QKILL+1, ERR+1, EXIT+1 |
| RUN | RUN+10, RUN+26, RUN+31, SEND+6, EVAL+21 |
| SEND | RECEIVE+22, RECEIVE+23, RECEIVE+25, EVAL+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLISRV | EN+1~, OPEN+2, OPEN+6, RUN+13, RUN+23, SEND+4, RECEIVE+21 |
| ER | EN+1~, 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+16, EVAL+18, EVAL+21, EVAL+23* |
| INA | EN+1~, RUN+30*, RUN+31 |
| INACKID | EVAL+4! |
| >> INBPN | OPEN+4, OPEN+6, RUN+2, RUN+13, RUN+14, RUN+20, RUN+26, RUN+31, SEND+4, SEND+9 , SEND+13, SEND+14, RECEIVE+6, RECEIVE+17, EVAL+2, EVAL+18, EVAL+26, EVAL+30 |
| INBPNM | EN+1~, RUN+4, RUN+21, RUN+23, RUN+35, SEND+4, SEND+12, RECEIVE+5, RECEIVE+21, EVAL+7 , EVAL+27, ERR+5, EXIT+2 |
| INCHNL | EN+1~, OPEN+6, RUN+18, SEND+14, RECEIVE+7, ERR+4 |
| INDA | EN+1~, RUN+30*, RUN+31 |
| >> INDEBUG | OPEN+6, RUN+1, RUN+7, RUN+13, RUN+17, RUN+21, RUN+23, RUN+25, SEND+3, SEND+7 , SEND+12, RECEIVE+1, RECEIVE+5, RECEIVE+11, RECEIVE+18, RECEIVE+21, RECEIVE+25, EVAL+1, EVAL+8, EVAL+27 , EVAL+29, ERR+5, EXIT+2 |
| INDEST | EN+1~, EVAL+8 |
| INDISCNT | EN+1~, EN+2*, RUN+23, RECEIVE+21, EVAL+16* |
| INDSTR | EN+1~, OPEN+3, RUN+7, RUN+8, RUN+13, RUN+26, EVAL+8, QKILL, QULOCK |
| INERR | EN+1~, RUN+18, SEND+8*, SEND+9!, RECEIVE+7, RECEIVE+17, RECEIVE+18!, EVAL+4!, EVAL+8, EVAL+18! |
| ING | EN+1~, RUN+16*, RUN+18, RECEIVE+2*, RECEIVE+7, RECEIVE+22, EVAL+8, EVAL+21 |
| >> INHERR | EVAL+23* |
| INIP | EN+1~, OPEN+6, RUN+18, SEND+14, RECEIVE+7 |
| INIP("ACK" | OPEN+8 |
| INIP("DHNG" | RUN+23, 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+31 |
| INIP("STRY" | SEND+6 |
| INIP("THNG" | OPEN+4, RUN+13, RUN+14 |
| INLOOP | EN+1~ |
| INMEM | EN+1~, OPEN+6, RUN+18, RECEIVE+7 |
| INMSASTA | EN+1~, EVAL+4!, EVAL+8, EVAL+21, EVAL+23, EVAL+34 |
| INMSG | EVAL+22~, EVAL+23*, EVAL+24*, EVAL+26, EVAL+27 |
| INNORSP | EN+1~, RUN+33*, SEND+4, SEND+11, RECEIVE+4, RECEIVE+22*, RECEIVE+23* |
| INQP | EN+1~, RUN+8, QKILL, QULOCK |
| INQT | EN+1~, RUN+8, QKILL, QULOCK |
| INSEND | EN+1~, EVAL+8 |
| INSND | EN+1~, RUN+33*, SEND+6*, SEND+7, SEND+8, RECEIVE+22*, RECEIVE+23*, RECEIVE+25*, EVAL+34* |
| INSTOP | EN+1~, EN+2*, EN+4, OPEN+2, OPEN+4, OPEN+5, RUN+10, RUN+13, RUN+14, RUN+23 , RECEIVE+16, RECEIVE+21 |
| INTRNSNT | EN+1~, OPEN+2, RUN+13 |
| INUIF | EN+1~, RUN+8*, RUN+10, RUN+26, RUN+30, RUN+31, RUN+35, SEND+14, LOG+2, QKILL , QULOCK |
| INUSEQ | EN+1~ |
| >> INXDST | EVAL+8 |
| MSG | EN+1~, SEND+11*, SEND+12, SEND+13, RECEIVE+4*, RECEIVE+5, RECEIVE+6 |
| OK | EN+1~, OPEN+6*, OPEN+8* |
| OUT | EN+1~, SEND+14*, RECEIVE+3*, RECEIVE+8*, RECEIVE+10* |
| RC | EN+1~ |
| RCVE | EN+1~, RECEIVE+3*, RECEIVE+10*, RECEIVE+25 |
| RUN | EN+1~, OPEN+2*, OPEN+3*, RUN+2*, RUN+20*, SEND+13*, RECEIVE+3, RECEIVE+6*, EVAL+2*, EVAL+26* , EVAL+30* |
| SYSTEM | EN+1~ |
| TIMCHK | EN+1~, RUN+14, RUN+15*, RUN+27* |
| U | RUN+26, RUN+31 |
| UIF | EN+1~, RUN+30*, RUN+31, LOG+2~* |
| X | EN+1~, EN+2*, ERR+4* |
| >> XUAUDIT | RUN+4, RUN+35, RECEIVE+20, RECEIVE+27, EVAL+7 |