Routine: XUINP337

Information

XUINP337 ;ISF/RWF - PATCH XU*8*337 POST INIT. ;08/08/2005 09:04

Source file <XUINP337.m>

Package	Total	Call Graph
Kernel	5	HOME^%ZIS (CALL,CLOSE)^%ZISTCP (,UNWIND)^%ZTER BMES^XPDUTL $$KSP^XUPARAM
RPC Broker	1	$$BREAD^XWBRW
Toolkit	1	($$GET,ADD)^XPAR
VA FileMan	1	^DIE

Name	Comments	DBIA/ICR reference
POST	;Post Install
TEST	;Test the get part
PST1	;Get the app-code
GET	;Get the codes
FAIL	;Tell user APPCODE failed
ERR	;
FILE	;
GETAPC	;Test the appcode
PST2	;Set default CCOW token timeout

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Return data was "_$S(($L(APP1)+$L(APP2))=256:"OK",1:"Missing") Line Location: TEST+5
Function Call: WRITE	Prompt: !,"Call took ",$P(T2,",",2)-$P(T1,",",2)," seconds" Line Location: TEST+6
Function Call: WRITE	Prompt: "[SSO]3-"_$E(1000+$L(SITE),2,4)_SITE,@IOF Line Location: GET+8
Routine Call	%ZIS Line Location: TEST+2
Routine Call	DIE Line Location: PST2+2

Name	Field # of Occurrence
APP1	TEST+1, TEST+5, PST1+1~, PST1+5, GET+10*, FILE+1, FILE+2
APP2	TEST+1, TEST+5, PST1+1~, PST1+5, GET+12*, FILE+1, FILE+3
CCOW	PST1+1~, PST1+5*, FILE+2, FILE+3
DA	PST2+1~, PST2+2*
DIC	PST2+1~
DIE	PST2+1~, PST2+2*
DR	PST2+1~, PST2+2*
>> ERR	FILE+2, FILE+3
IO	GET+7
IOF	GET+8
>> POP	GET+6
RET	PST1+1~, GETAPC+1!
RET(0	PST1+3, PST1+9, GETAPC+2*
RET(1	PST1+3, PST1+9, GETAPC+3*
SITE	GET+1~, GET+4*, GET+8
T1	TEST+1~, TEST+2*, TEST+6
T2	TEST+1~, TEST+4*, TEST+6
X	PST1+1~, GET+9, GET+10, GET+11, GET+12, GET+13*
XWBDEBUG	GET+1~, GET+7*
XWBRBUF	GET+1~, GET+7*
XWBTDEV	GET+1~, GET+7*
XWBTIME	PST1+1~, GET+3*
XWBTIME(1	GET+3*