Routine: XOBVSKT

Information

XOBVSKT ;; mjk/alb - VistaLink Socket Methods ; 07/27/2002 13:00

Source file <XOBVSKT.m>

Package	Total	Call Graph
Kernel	3	^%ZIS (CALL,CLOSE)^%ZISTCP (CLOSE,RMDEV,SAVDEV,USE)^%ZISUTL
VistALink	2	$$XMLHDR^XOBVLIB $$MSGSINK^XOBVRH

Package	Total	Caller Graph
VistALink	4	XOBVLIB XOBVLL XOBVRPC XOBVSYSI

Name	Comments	DBIA/ICR reference
PRE	; -- prepare socket for writing
OPEN(XOBPARMS)	; -- Open tcp/ip socket
WRITE(STR)	; -- Write a data string to socket
CHK	; -- check if first read and change timeout and chars to read
INIT	; -- set up variables needed in tcp/ip processing
ADD(TXT)	; -- add new intake line
RMORE(LEN,XOBUF)	;
CLOSE(XOBPARMS)	; -- close tcp/ip socket ; -- tell server to Stop() connection if close message is needed to close
SINK	; ; -- get size of sink indicator >> then get sink indicator >> load req handler
FLUSH	; flush buffer
POST	; -- send eot and flush socket buffer
OS	; -- os var
FINAL	; -- kill variables used in tcp/ip processing
GETSTR(LEN,XOBUF)	;
READ(XOBROOT,XOBREAD,XOBTO,XOBFIRST,XOBSTOP,XOBDATA,XOBHDLR)	;

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	OS+1

Name	Field # of Occurrence
^("OS"	OS+1

Name	Field # of Occurrence
>> %ZIS	INIT+10*
BS	READ+1~
DONE	READ+1~, READ+3, READ+6, READ+18, CHK+4, SINK+7
EOT	READ+1~, READ+3*, READ+18
ES	READ+1~
I	OPEN+1~, OPEN+10*
IO	OPEN+12, INIT+12
>> IOP	INIT+10*
LEN	GETSTR~, GETSTR+2, GETSTR+3, GETSTR+4, RMORE~, RMORE+2
LINE	READ+1~, READ+3, ADD+1, ADD+2
OUT	READ+1~
PIECES	READ+1~, READ+21*, READ+22
POP	OPEN+1~, OPEN+2*, OPEN+10, OPEN+12, INIT+11
STR	READ+1~, READ+3, READ+9, READ+10, READ+18, READ+21, READ+22, WRITE~, WRITE+1, WRITE+4 , WRITE+8
TOFLAG	READ+1~, READ+6*, CHK+4
TXT	ADD~, ADD+2
X	READ+1~, GETSTR+1~, GETSTR+3, GETSTR+5, RMORE+1~, RMORE+2
XOBBH	READ+1~
XOBCNT	READ+1~
XOBDATA	READ~
XOBEH	READ+1~
XOBFIRST	READ~, READ+6, CHK+1*
XOBHDLR	READ~, SINK+2*, SINK+5
XOBHDLR(	SINK+5
XOBLEN	READ+1~
XOBNULL	INIT+1!, INIT+12*, FINAL+3, FINAL+6!
XOBOK	READ+1~, READ+3, READ+24, CHK+4
XOBOS	INIT+7, OS+1*, FINAL+8!, WRITE+1, FLUSH+1, FLUSH+2
XOBPARMS	OPEN~, CLOSE~
XOBPARMS("ADDRESS"	OPEN+10
XOBPARMS("CLO	SE MESSAGE" , CLOSE+2, CLOSE+4
XOBPARMS("PORT"	OPEN+10
XOBPARMS("RETRIES"	OPEN+10
XOBREAD	READ~, READ+6, CHK+10*
XOBROOT	READ~, ADD+2
XOBSTOP	READ~, READ+6, CHK+4*
XOBTO	READ~, READ+6, CHK+10*
XOBUF	GETSTR~, GETSTR+2, GETSTR+3, GETSTR+4, RMORE~, RMORE+2
XOBX	READ+1~, READ+6*, READ+9, READ+10, CHK+4, CHK+7, SINK+2
XWBOS	INIT+7*, FINAL+8!