Routine: XWBTCPMT

Package	Total	Call Graph
Kernel	7	(,HOME)^%ZIS ^%ZISC (CALL,CLOSE)^%ZISTCP ($$EC,GETPEER,SHARELIC)^%ZOSV $$ADDRESS^XLFNSLK $$DTIME^XUP COUNT^XUSCNT
RPC Broker	1	($$NEWJOB,INIT,SETTIME)^XWBTCPM

Entry Points

Name	Comments	DBIA/ICR reference
ERR	;
CHECK	;Check server setup
EXIT	;Close and Exit
HOLD(MJ)	;Show that a new job is allowed.
CALL	;Interactive
TEST(IP,PORT,TALK)	;

External References

Name	Field # of Occurrence
^%ZIS	CHECK+10
HOME^%ZIS	CALL+2, CHECK+4
^%ZISC	CHECK+15
CALL^%ZISTCP	TEST+6
CLOSE^%ZISTCP	EXIT+1, ERR+1
$$EC^%ZOSV	ERR+3
GETPEER^%ZOSV	CHECK+17
SHARELIC^%ZOSV	CHECK+16
$$ADDRESS^XLFNSLK	TEST+3
$$DTIME^XUP	CALL+3
COUNT^XUSCNT	CHECK+18
$$NEWJOB^XWBTCPM	CHECK+22
INIT^XWBTCPM	CHECK+6
SETTIME^XWBTCPM	CHECK+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Interactive Broker Test" Line Location: CALL+4
Function Call: WRITE	Prompt: !,$S(STAT>0:"Success, response: "_$P(STAT,U,2),1:"Failed: "_$P(STAT,U,2,9)) Line Location: CALL+11
Function Call: WRITE	Prompt: "[XWB]10304"_$C(10)_"TCPConnect5001010.6.17.95f00010f0024ISF-FORTW.vha.med.va.govf"_$C(4),@IOF Line Location: TEST+12
Function Call: READ	Timeout: 10 Variable: RES Line Location: TEST+13
Function Call: WRITE	Prompt: "[XWB]11302"_$C(1)_"0"_$C(16)_"XUS SIGNON SETUP54f"_$C(4),@IOF Line Location: TEST+15
Function Call: WRITE	Prompt: "[XWB]10304"_$C(5)_"#BYE#"_$C(4),@IOF Line Location: TEST+18
Function Call: READ	Timeout: 3 Variable: RES3 Line Location: TEST+19
Function Call: WRITE	Prompt: !,"This will check for some of the errors that can prevent the Broker" Line Location: CHECK+2
Function Call: WRITE	Prompt: !,"from getting started.",! Line Location: CHECK+3
Function Call: WRITE	Prompt: !,"Debugging is set to ",$S(XWBDEBUG=1:"On",XWBDEBUG=2:"Verbose",XWBDEBUG=3:"Very Verbose",1:"Off") Line Location: CHECK+7
Function Call: WRITE	Prompt: !,"Broker activity timeout is set to ",XWBTIME Line Location: CHECK+9
Function Call: WRITE	Prompt: !,"The NULL device is not setup correctly." Line Location: CHECK+11
Function Call: WRITE	Prompt: !,"Checking can Write to null device" Line Location: CHECK+13
Function Call: WRITE	Prompt: !,"TEST",! Line Location: CHECK+14
Function Call: WRITE	Prompt: !,"The NULL device is OK." Line Location: CHECK+15
Function Call: WRITE	Prompt: !,"The routine %ZOSV is missing the entry point 'SHARELIC'." Line Location: CHECK+16
Function Call: WRITE	Prompt: !,"The routine %ZOSV is missing the entry point 'GETPEER'." Line Location: CHECK+17
Function Call: WRITE	Prompt: !,"The routine XUSCNT is missing on a GT.M system." Line Location: CHECK+18
Function Call: WRITE	Prompt: !,"Checking if new JOB's can start." Line Location: CHECK+19
Function Call: WRITE	Prompt: !,"Doesn't look like a new JOB could start!",! Line Location: CHECK+21
Function Call: WRITE	Prompt: !,"Done with the checks.",! Line Location: CHECK+24
Routine Call	%ZIS Line Location: CALL+2 CHECK+4
Routine Call	%ZIS Line Location: CHECK+10

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	TEST+2
^TMP("XWB"	CHECK+20, CHECK+21, CHECK+25!, HOLD+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	CHECK+10*
DTIME	CALL+3*, CALL+5, CALL+7
IO	TEST+9, CHECK+14, CHECK+15
IOF	TEST+12, TEST+15, TEST+18
>> IOP	CHECK+10*
IP	CALL+1~, CALL+5, CALL+6, CALL+9, TEST~, TEST+3, TEST+4, TEST+6
MJ	HOLD~, HOLD+1
NEWJOB	CHECK+1~, CHECK+22*, CHECK+23
OS	TEST+1~, TEST+2*, TEST+5, TEST+7, TEST+14, TEST+17
>> POP	TEST+8, CHECK+11, CHECK+12
PORT	CALL+1~, CALL+7*, CALL+8, CALL+9, TEST~, TEST+6
RES	TEST+1~, TEST+13, TEST+19, TEST+20*, EXIT+2
RES2	TEST+1~, TEST+16*
RES3	TEST+1~, TEST+19*
STAT	CALL+1~, CALL+9*, CALL+11
T1	TEST+1~, TEST+20
T2	TEST+1~, TEST+20
T3	TEST+1~, TEST+20
T4	TEST+1~, TEST+20
TALK	TEST~
U	CALL+3*, CALL+11, TEST+20
XPARSYS	CHECK+1~
XWBDEBUG	CHECK+1~, CHECK+7
XWBOS	CHECK+1~
XWBT	CHECK+1~
XWBT("PCNT"	CHECK+18
XWBTIME	CHECK+1~, CHECK+9
XWBVER	CHECK+1~, CHECK+5*
XWNRBUF	CHECK+1~

Customize PDF page

Package: RPC Broker

Routine: XWBTCPMT

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(COUNT^XUSCNT	CHECK+18
$T(GETPEER^%ZOSV	CHECK+17
$T(SHARELIC^%ZOSV	CHECK+16