©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
XWBTCPL ;SLC/KCM - Listener for TCP connects ;12/09/2004 07:33
Source file <XWBTCPL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPDTREC(XWBTSKT,STATE,XWBENV) | ; -- update STATUS field and ^%ZIS X-ref of the
|
|
| ETRAPX | ||
| ETRAP | ; -- on trapped error, send error info to client
|
|
| RELEASE(%) | ;Now release the connection. (*p7*)
|
|
| SEMAPHOR(XWBTSKT,XWBACT) | ;Lock/Unlock listener semaphore
|
|
| EN(XWBTSKT) | ; -- accept clients and start the individual message handler
|
|
| FLUSH | ;Flush the input buffer
|
|
| QSND(STR) | ;Write output (*p35)
|
|
| NEWJOB() | ;Check if OK to start a new job, Return 1 if OK, 0 if not OK.
|
|
| RESTART | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$EC^%ZOSV | ETRAP+2 |
| $$GETPEER^%ZOSV | RESTART+64 |
| $$LGR^%ZOSV | ETRAP+2 |
| GETENV^%ZOSV | UPDTREC+6, SEMAPHOR+7 |
| SETNM^%ZOSV | EN+16 |
| ^%ZTER | ETRAP+3 |
| $$FIND1^DIC | UPDTREC+10, UPDTREC+11 |
| FILE^DIE | UPDTREC+14 |
| FDA^DILF | UPDTREC+13 |
| $$GET^XPAR | EN+11 |
| $$INHIBIT^XUSRB | NEWJOB+3 |
| LOG^XWBDLOG | RESTART+22, RESTART+24, RESTART+58, RESTART+66, RESTART+83, QSND+1, ETRAP+4 |
| LOGSTART^XWBDLOG | EN+12 |
| $$BREAD^XWBRW | RESTART+46, RESTART+49, RESTART+50, RESTART+52, RESTART+53, RESTART+54, RESTART+55, RESTART+56 |
| QSND^XWBRW | RESTART+77, QSND+1 |
| MARKER^XWBTCP | EN+14 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(8994.171 | SEMAPHOR+9, SEMAPHOR+11 |
| ^%ZOSF("OS" | RESTART+4 |
| ^%ZOSF("UCI" | EN+5 |
| ^XTV(8989.3 - [#8989.3] | NEWJOB+2 |
| Name | Line Occurrences |
|---|---|
| $$NEWJOB | RESTART+65 |
| $$SEMAPHOR | EN+9, RESTART+82, ETRAP+8 |
| ETRAPX | ETRAP+15 |
| QSND | RESTART+65, RESTART+69, RESTART+70, RESTART+73, ETRAP+17, ETRAP+18, ETRAP+19 |
| RELEASE | RESTART+48, RESTART+49, RESTART+78, ETRAPX |
| UPDTREC | EN+13, RESTART+84, ETRAP+9 |
| Name | Field # of Occurrence |
|---|---|
| ^("OS" | RESTART+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RESTART+82*, ETRAP+8*, RELEASE~, RELEASE+3, RELEASE+6, RELEASE+9 |
| %T | RESTART+7*, RESTART+9*, RESTART+11*, RESTART+16*, RESTART+22, RESTART+62~*, RESTART+68*, RESTART+69, RESTART+70 |
| C | UPDTREC+3~, UPDTREC+4*, UPDTREC+11, UPDTREC+13 |
| DONE | EN+2~, RESTART+3*, RESTART+25, RESTART+26*, RESTART+77* |
| DSMTCP | EN+2~ |
| DZ | RESTART+62~* |
| IO("GTM-IP" | RESTART+38* |
| LEN | EN+2~, RESTART+54*, RESTART+55, RESTART+56* |
| >> LISTEN(1 | RESTART+18 |
| MSG | EN+2~, RESTART+44*, RESTART+55*, RESTART+56*, RESTART+58, RESTART+61, RESTART+64*, RESTART+66, RESTART+73, RESTART+77 |
| >> MSG1 | RESTART+44*, RESTART+46*, RESTART+48, RESTART+49*, RESTART+50*, RESTART+51, RESTART+56, RESTART+58 |
| >> MSG2 | RESTART+44*, RESTART+56* |
| NATIP | EN+2~, RESTART+64* |
| RESULT | SEMAPHOR+5~, SEMAPHOR+6*, SEMAPHOR+10*, SEMAPHOR+12 |
| RETRY | EN+2~, EN+4*, RESTART+62*, ETRAP+5* |
| >> SOCKET | RELEASE+10 |
| >> SOCKET("" | RESTART+29 |
| STATE | UPDTREC~, UPDTREC+13 |
| STR | QSND~, QSND+1 |
| U | EN+4*, UPDTREC+4*, UPDTREC+10, SEMAPHOR+6*, SEMAPHOR+9, SEMAPHOR+11 |
| >> VL | RESTART+52*, RESTART+53 |
| >> WAIT(10 | RESTART+35 |
| X | EN+2~, RESTART+3*, RESTART+30*, RESTART+56*, FLUSH+1*, NEWJOB+1~, NEWJOB+2*, NEWJOB+3*, NEWJOB+4 |
| >> XCNT | RESTART+46*, RESTART+47 |
| XQVOL | NEWJOB+1~, NEWJOB+2* |
| XUVOL | NEWJOB+1~, NEWJOB+2* |
| XWBACT | SEMAPHOR~, SEMAPHOR+8 |
| >> XWBDEBUG | EN+11*, EN+12, RESTART+24, RESTART+58, RESTART+66, ETRAP+11* |
| XWBENV | UPDTREC~, UPDTREC+5 |
| XWBERC | ETRAP+1~, ETRAP+2*, ETRAP+4, ETRAP+7, ETRAP+15, ETRAP+17, ETRAP+18 |
| XWBERR | ETRAP+1~, ETRAP+2*, ETRAP+17, ETRAP+18, ETRAP+19 |
| XWBFDA | UPDTREC+3~ |
| XWBOS | EN+2~, RESTART+4*, RESTART+5, RESTART+9, RESTART+11, RESTART+13, RESTART+28, RESTART+29, RESTART+30, RESTART+31 , RESTART+86, ETRAP+16, ETRAP+18, ETRAP+19, ETRAPX+1, RELEASE+2, RELEASE+5, RELEASE+8, RELEASE+11 |
| XWBOXIEN | UPDTREC+3~, UPDTREC+10*, UPDTREC+11, UPDTREC+13 |
| XWBPOIEN | UPDTREC+3~, UPDTREC+11*, UPDTREC+12, UPDTREC+13 |
| XWBRBUF | EN+2~, RESTART+44* |
| >> XWBT("BF" | RESTART+5* |
| >> XWBTDEV | EN+7*, RESTART+11*, RESTART+15*, RESTART+16, RESTART+17, RESTART+19, RESTART+29*, RESTART+30, RESTART+35, RESTART+39 , RELEASE+6, RELEASE+9, RELEASE+10 |
| >> XWBTDEV("IP" | RESTART+38* |
| >> XWBTDEV("KEY" | RESTART+35*, RESTART+36, RESTART+37, RESTART+38 |
| >> XWBTDEV("LISTENER" | RESTART+17* |
| >> XWBTDEV("SOCKET" | RESTART+32!, RESTART+33, RESTART+37*, RELEASE+10 |
| >> XWBTDEV("STATUS" | RESTART+19* |
| XWBTIME | EN+3~, RESTART+3*, RESTART+28*, RESTART+46 |
| XWBTIME(1 | RESTART+3* |
| >> XWBTLEN | ETRAP+17 |
| XWBTSKT | EN~, EN+6*, EN+7, EN+9, EN+13, EN+14, EN+16, RESTART+9, RESTART+11, RESTART+15* , RESTART+22, RESTART+24, RESTART+28, RESTART+29, RESTART+82, RESTART+84, RESTART+86, ETRAP+8, ETRAP+9, RELEASE+3 , RELEASE+4, UPDTREC~, UPDTREC+11, SEMAPHOR~, SEMAPHOR+9, SEMAPHOR+11 |
| XWBVER | EN+2~, RESTART+53*, RESTART+56* |
| XWBVOL | EN+2~, EN+5*, NEWJOB+2 |
| Y | EN+5, UPDTREC+5*, UPDTREC+10, SEMAPHOR+9, SEMAPHOR+11, NEWJOB+1~ |