©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
INTSEND ;JD; 13 May 96 12:19; "Generic" socket transceiver
Source file <INTSEND.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(INEXPAND,INDA,DIE) | ;Entry point
; Input: ; INEXPAND - 0 display to screen, 1 don't display to screen ; INDA - ien of criteria ; DIE - Criteria File |
|
| LOOP(INCHNL,INIP,INDEST,INXDST,INEXPAND,INPOP,INDA) | ;Loop /send and receive messages
; Input: ; INCHNL - port channel ; INIP - TCP/IP paramters ; INDEST - array of destinations ; INPOP - 0 stop, 1 continue ; INDA - ien of Criteria |
| Name | Field # of Occurrence |
|---|---|
| $$VAL^DWRA | EN+10 |
| ULOG^INHU | LOOP+31 |
| $$SAVE^INHUTC1 | LOOP+36 |
| $$SEND^INHUVUT | LOOP+27 |
| RECEIVE^INTSREC | LOOP+28 |
| CLINIT^INTSUT | EN+23 |
| EXIT^INTSUT | EN+29 |
| INIT1^INTSUT | EN+13 |
| OPEN^INTSUT | EN+18 |
| SRVINIT^INTSUT | EN+25 |
| DISPLAY^INTSUT1 | EN+15, EN+16, EN+26, LOOP+18, LOOP+21, LOOP+24, LOOP+29 |
| EXPNDIS^INTSUT1 | LOOP+26 |
| $$POSTPRE^INTSUT2 | LOOP+15 |
| PRE^INTSUT2 | LOOP+14 |
| UPDTSND^INTSUT3 | EN+8 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INTHU - [#4001] | LOOP+18, LOOP+24 |
| ^UTILITY("INTHU" | EN+6!, LOOP+11, LOOP+12 |
| Name | Line Occurrences |
|---|---|
| LOOP | EN+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLISRV | EN+5~, EN+13, EN+15, EN+16, EN+18, EN+23, EN+25, EN+29 |
| DIE | EN~, EN+10 |
| DUZ | EN+6, LOOP+11, LOOP+12 |
| ER | LOOP+19~, LOOP+27* |
| INARY | LOOP+7~, LOOP+10!, LOOP+14, LOOP+15 |
| INBPN | EN+5~, EN+10*, EN+13, EN+29 |
| INCHNL | EN+5~, EN+10*, EN+18, EN+23, EN+25, EN+28, EN+29, LOOP~, LOOP+27, LOOP+28 |
| INDA | EN~, EN+8, EN+10, EN+13, EN+28, LOOP~, LOOP+14, LOOP+15, LOOP+28, LOOP+36 |
| INDATA | EN+5~, LOOP+19~ |
| INDEST | EN+5~, EN+13, EN+28, LOOP~, LOOP+28 |
| INERR | LOOP+19~ |
| INEXPAND | EN~, EN+28, LOOP~, LOOP+26, LOOP+28 |
| INEXTN | LOOP+7~, LOOP+11*, LOOP+12 |
| INEXTUIF | LOOP+7~, LOOP+10!, LOOP+12*, LOOP+14, LOOP+15, LOOP+18, LOOP+24, LOOP+26, LOOP+27, LOOP+31 |
| ING | EN+5~, LOOP+19~ |
| INIP | EN+5~, EN+13, EN+18, EN+23, EN+25, EN+28, EN+29, LOOP~, LOOP+27, LOOP+28 |
| INIP("ACK" | EN+21 |
| INIP("ADDR" | EN+15*, EN+16 |
| INIP("INIT" | EN+21 |
| INIP("PRE" | LOOP+14 |
| INIP("STRY" | LOOP+23, LOOP+29 |
| INLASTN | LOOP+7~, LOOP+8*, LOOP+11*, LOOP+15, LOOP+17 |
| INMEM | EN+5~, EN+18, EN+23, EN+25 |
| INOPT | LOOP+7~, LOOP+34~, LOOP+36 |
| INOPT("NONINTER" | LOOP+35* |
| INOPT("TYPE" | LOOP+35* |
| INOUT | LOOP+19~, LOOP+20*, LOOP+23, LOOP+28 |
| INPOP | EN+5~, EN+11*, EN+13, EN+14, EN+18, EN+19, EN+23, EN+25, EN+26, EN+28 , LOOP~, LOOP+9, LOOP+15, LOOP+18*, LOOP+23, LOOP+28 |
| INSND | LOOP+7~, LOOP+8*, LOOP+23*, LOOP+29 |
| INUPDAT | LOOP+7~, LOOP+8*, LOOP+15, LOOP+33 |
| INXDST | EN+5~, EN+13, EN+28, LOOP~, LOOP+28 |
| OUT | LOOP+7~, LOOP+8*, LOOP+9, LOOP+17* |
| RCVE | LOOP+7~, LOOP+8* |
| U | LOOP+24 |
| >> X | LOOP+36* |