Routine: BSDX3E

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ($$PATCH,$$VERSION,BMES)^XPDUTL
IHS VA Utilities	1	$$C^XBFUNC
VA Fileman	1	DT^DICRW

Entry Points

Name	Comments	DBIA/ICR reference
PATCHCK(XPXPCH)	;
SORRY(XPX)	;
V0300	;EP Version 2.0 PostInit
OTHER	;
VERSION	;
VERCHK(XPXPKG,XVRMIN)	;
ENVOK	; If this is just an environ check, end here.

Name	Field # of Occurrence
HOME^%ZIS	BSDX3E+10
DT^DICRW	BSDX3E+10
$$C^XBFUNC	BSDX3E+12, VERSION+1, VERSION+2, ENVOK+1, VERCHK+2, PATCHCK+2, SORRY+4, SORRY+5, SORRY+6, SORRY+7 , SORRY+8, SORRY+9, SORRY+10
$$PATCH^XPDUTL	PATCHCK+1
$$VERSION^XPDUTL	VERCHK+1
BMES^XPDUTL	SORRY+12, SORRY+13, SORRY+14, SORRY+15, SORRY+16, SORRY+17

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Who are you????") Line Location: BSDX3E+12
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Hello, "_$P(X,",",2)_" "_$P(X,",")) Line Location: VERSION+1
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Checking Environment for Install of Version "_$P($T(+2),";",3)_" of "_$P($T(+2),";",4)_".") Line Location: VERSION+2
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("ENVIRONMENT OK.") Line Location: ENVOK+1
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("Need "_XPXPCH_"....."_XPXPCH_" "_$S(X:"Is",1:"Is Not")_" Present") Line Location: PATCHCK+2
Function Call: WRITE	Prompt: !,$$C^XBFUNC($P(^XTMP("BSDX3E",$J,"XPDI",XPDST,"BLD",XPDBLD,0),U,1)_" "_$P(^XTMP("BSDX3E",$J,"XPDI",XPDST,"BLD",XPDBLD,0),U,2)_" Cannot Be Installed!") Line Location: SORRY+4
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Reason: "_XPX_".") Line Location: SORRY+5
Function Call: WRITE	Prompt: *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your environment") Line Location: SORRY+6
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Aborting "_XPDNM_" install!") Line Location: SORRY+7
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Correct error and reinstall otherwise") Line Location: SORRY+8
Function Call: WRITE	Prompt: !,$$C^XBFUNC("please print/capture this screen and notify") Line Location: SORRY+9
Function Call: WRITE	Prompt: !,$$C^XBFUNC("the Help Desk at 888-830-7280") Line Location: SORRY+10
Function Call: WRITE	Prompt: !!,LINE Line Location: SORRY+11
Routine Call	%ZIS Line Location: BSDX3E+10

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	BSDX3E+11
^XTMP(	SORRY+2
^XTMP("BSDX3E"	SORRY+2*, SORRY+3, SORRY+4

Name	Line Occurrences
$$PATCHCK	VERSION+8
$$VERCHK	VERSION+4, VERSION+5, VERSION+7, VERSION+9
SORRY	BSDX3E+6, BSDX3E+8, BSDX3E+12, VERCHK+3

Name	Field # of Occurrence
>> D	VERSION+8
DIFQ	SORRY+1!
DUZ	BSDX3E+6, BSDX3E+11
DUZ(0	BSDX3E+8
>> LINE	BSDX3E+3*, SORRY+11
U	BSDX3E+11, SORRY+4
>> X	BSDX3E+11, BSDX3E+12, VERSION+1, VERCHK+1, VERCHK+2, VERCHK+3, PATCHCK+1*, PATCHCK+2, PATCHCK+3
>> XPDA	SORRY+3
>> XPDABORT	BSDX3E+5, SORRY+3
>> XPDBLD	SORRY+3*, SORRY+4
>> XPDDIQ("XPZ1"	ENVOK+5*
>> XPDDIQ("XPZ2"	ENVOK+5*
>> XPDENV	ENVOK+5
>> XPDNM	SORRY+7, SORRY+14
>> XPDNOQUE	BSDX3E+4*
>> XPDST	SORRY+4
XPX	SORRY~, SORRY+5, SORRY+13
XPXPCH	PATCHCK~, PATCHCK+1, PATCHCK+2
XPXPKG	VERCHK~, VERCHK+1, VERCHK+2, VERCHK+3
XVRMIN	VERCHK~, VERCHK+2, VERCHK+3

Name	Field # of Occurrence
$T(	VERSION+2