©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
XOBVLL ;; mjk/alb - VistALink Listen and Spawn Code ; 07/27/2002 13:00
Source file <XOBVLL.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 5 | ($$EC,LOGRSRC,SETNM,SHARELIC)^%ZOSV ^%ZTER ($$DT,$$NOW)^XLFDT $$CNV^XLFUTL KILL^XUSCLEAN |
| VistALink | 5 | ($$GETASTO,$$GETDELTA,$$GETRATE,ERROR)^XOBVLIB $$CACHE^XOBVRH ($$EN,RMERR)^XOBVRM ($$READ,FINAL,INIT)^XOBVSKT (START,UCX)^XOBVTCP |
| VA Fileman | 1 | $$EZBLD^DIALOG |
| VistALink Security | 1 | CLEAN^XOBSCAV1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SPAWN | ; -- spawned process
|
|
| NXTCALLQ | ; -- exit
|
|
| SYSERR | ; -- send system error message
; -- If we get an error in the error handler just Halt |
|
| START(SOCKET) | ; -- start listener
|
|
| ERROR(XOBEC,XOBMSG,XOBPORT) | ; -- send error message
|
|
| UCX | ; -- VMS TCPIP (UCX) multi-thread entry point
; -- Called from VistALink .com files |
|
| KILL | ; -- new VistALink variables and then do big KILL
|
|
| NXTCALL | ; -- do next call
|
| Name | Field # of Occurrence |
|---|---|
| $$EC^%ZOSV | SYSERR+4 |
| LOGRSRC^%ZOSV | SPAWN+18, SPAWN+37 |
| SETNM^%ZOSV | SPAWN+28 |
| SHARELIC^%ZOSV | SPAWN+15 |
| ^%ZTER | ERROR+16, ERROR+30 |
| $$EZBLD^DIALOG | NXTCALL+39, SYSERR+4 |
| $$DT^XLFDT | NXTCALL+8 |
| $$NOW^XLFDT | NXTCALL+44 |
| $$CNV^XLFUTL | SPAWN+28 |
| CLEAN^XOBSCAV1 | NXTCALL+35, ERROR+17 |
| $$GETASTO^XOBVLIB | NXTCALL+20 |
| $$GETDELTA^XOBVLIB | NXTCALL+17 |
| $$GETRATE^XOBVLIB | NXTCALL+17 |
| ERROR^XOBVLIB | ERROR+21 |
| $$CACHE^XOBVRH | SPAWN+21 |
| $$EN^XOBVRM | NXTCALL+42 |
| RMERR^XOBVRM | SPAWN+22 |
| $$READ^XOBVSKT | NXTCALL+31 |
| FINAL^XOBVSKT | SPAWN+34 |
| INIT^XOBVSKT | SPAWN+25 |
| START^XOBVTCP | START+1 |
| UCX^XOBVTCP | UCX+2 |
| KILL^XUSCLEAN | KILL+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XOBVLL" | NXTCALL+26 |
| Name | Line Occurrences |
|---|---|
| ERROR | NXTCALL+39, SYSERR+4 |
| NXTCALL | SPAWN+31 |
| NXTCALLQ | NXTCALL+34, NXTCALL+39 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIQUIET | NXTCALL+7~* |
| DT | NXTCALL+8* |
| DTIME | NXTCALL+8* |
| DUZ | NXTCALL+35, ERROR+17 |
| IO | SPAWN+4 |
| SOCKET | START~, START+1 |
| U | SPAWN+5*, SPAWN+22, NXTCALL+8* |
| X | SPAWN+1~, SPAWN+21*, SPAWN+22, NXTCALL+1~ |
| XOBDAT | ERROR+1~, ERROR+21 |
| XOBDAT("ERRORS" | ERROR+8*, ERROR+9*, ERROR+10*, ERROR+11*, ERROR+12* |
| XOBDAT("MESSA | GE TYPE" , ERROR+7* |
| XOBDATA | NXTCALL+1~, NXTCALL+31, NXTCALL+42 |
| XOBEC | ERROR~, ERROR+8, ERROR+24 |
| XOBFIRST | NXTCALL+1~, NXTCALL+23*, NXTCALL+31 |
| XOBHDLR | SPAWN+1~, SPAWN+21, NXTCALL+11*, NXTCALL+31, NXTCALL+42, KILL+1~ |
| XOBLASTR | SPAWN+1~, SPAWN+8*, NXTCALL+44* |
| XOBMSG | ERROR~, ERROR+12, ERROR+15 |
| XOBNULL | NXTCALL+39, KILL+1~ |
| XOBOK | NXTCALL+1~, NXTCALL+31*, NXTCALL+34, NXTCALL+42*, KILL+1~ |
| XOBOS | KILL+1~ |
| XOBPORT | SPAWN+1~, SPAWN+4*, SPAWN+15, NXTCALL+30, NXTCALL+39, SYSERR+4, ERROR~, ERROR+20, KILL+1~ |
| XOBREAD | NXTCALL+1~, NXTCALL+14*, NXTCALL+31 |
| XOBRL | NXTCALL+1~ |
| XOBROOT | NXTCALL+1~, NXTCALL+26*, NXTCALL+27, NXTCALL+31, NXTCALL+42, NXTCALL+46 |
| XOBSTOP | SPAWN+1~, SPAWN+3*, SPAWN+31, NXTCALL+31, NXTCALL+34, NXTCALL+36*, NXTCALL+39*, KILL+1~ |
| XOBSYS | KILL+1~ |
| XOBSYS("ENV" | NXTCALL+20 |
| XOBTO | NXTCALL+1~, NXTCALL+17*, NXTCALL+20*, NXTCALL+31 |
| Name | Field # of Occurrence |
|---|---|
| $T(SHARELIC^%ZOSV | SPAWN+15 |