©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
XOBVTCPL ;; mjk/alb - VistALink TCP/IP Listener (Cache NT) ; 07/27/2002 13:00
Source file <XOBVTCPL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXIT(XOBBOX,XOBPORT) | ;
; -- is status 'stopping' |
|
| LISTENER(XOBPORT,XOBCFG) | ; -- Start Listener
|
|
| CHILDNT() | ;Child process for OpenM
|
|
| LOGINERR(XOBEC,XOBPORT) | ;
|
|
| VAR | ;Setup IO variables
|
|
| GETLOGID(XOBBOX,XOBPORT) | ;
|
|
| OPENM(XOBIO,XOBPORT) | ;
|
|
| NEWOK() | ;Is it OK to start a new process
|
| Name | Field # of Occurrence |
|---|---|
| CLOSE^%ZISTCP | LISTENER+16 |
| GETENV^%ZOSV | NEWOK+3 |
| $$EZBLD^DIALOG | LOGINERR+1 |
| $$FIND1^DIC | NEWOK+4 |
| $$DT^XLFDT | LISTENER+8 |
| ERROR^XOBVLL | LOGINERR+1 |
| SPAWN^XOBVLL | CHILDNT+8 |
| $$GETBOX^XOBVTCP | OPENM+2 |
| $$GETOS^XOBVTCP | LISTENER+3 |
| $$LOCK^XOBVTCP | LISTENER+12 |
| UNLOCK^XOBVTCP | LISTENER+24 |
| UPDATE^XOBVTCP | LISTENER+18, LISTENER+22, OPENM+11 |
| $$INHIBIT^XUSRB | NEWOK+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XOB(18.04 - [#18.04] | EXIT+2, GETLOGID+1 |
| ^XTV(8989.3 - [#8989.3] | NEWOK+4 |
| Name | Line Occurrences |
|---|---|
| $$EXIT | OPENM+13 |
| $$GETLOGID | EXIT+2 |
| $$NEWOK | CHILDNT+6 |
| $$OPENM | LISTENER+13 |
| LOGINERR | CHILDNT+7 |
| VAR | CHILDNT+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZA | OPENM+1~, OPENM+16*, OPENM+17 |
| DT | LISTENER+7~, LISTENER+8* |
| DTIME | LISTENER+7~, LISTENER+8* |
| DUZ | LISTENER+9~* |
| DUZ(0 | LISTENER+9* |
| IO | LISTENER+15*, CHILDNT+3*, CHILDNT+4, CHILDNT+7, VAR+1 |
| IO(0 | VAR+1* |
| IO(1 | VAR+1* |
| IOF | VAR+2* |
| IOST | VAR+2* |
| IOST(0 | VAR+2* |
| >> IOT | VAR+2* |
| POP | LISTENER+7~, VAR+1* |
| U | LISTENER+7~, LISTENER+8*, NEWOK+2*, NEWOK+3, EXIT+2 |
| X | LISTENER+7~, OPENM+15*, NEWOK+1~, NEWOK+4* |
| XOBBOX | OPENM+1~, OPENM+2*, OPENM+13, EXIT~, EXIT+2, GETLOGID~, GETLOGID+1 |
| XOBCFG | LISTENER~, LISTENER+18, LISTENER+22, OPENM+11 |
| XOBCODE | NEWOK+1~, NEWOK+5*, NEWOK+6, NEWOK+7 |
| XOBDA | LISTENER+7~ |
| XOBEC | CHILDNT+1~, CHILDNT+6*, CHILDNT+7, CHILDNT+8, LOGINERR~, LOGINERR+1 |
| XOBIO | LISTENER+7~, LISTENER+13, LISTENER+15, OPENM~, OPENM+3*, OPENM+4, OPENM+14 |
| XOBPORT | LISTENER~, LISTENER+12, LISTENER+13, LISTENER+18, LISTENER+22, LISTENER+24, OPENM~, OPENM+3, OPENM+11, OPENM+13 , LOGINERR~, LOGINERR+1, EXIT~, EXIT+2, GETLOGID~, GETLOGID+1 |
| XQVOL | NEWOK+1~, NEWOK+3*, NEWOK+4 |
| XUVOL | NEWOK+1~, NEWOK+4* |
| Y | NEWOK+1~, NEWOK+3 |