Routine: BSDX2E

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

Package

Total

Call Graph

HOME^%ZIS ($$PATCH,$$VERSION,BMES)^XPDUTL

DT^DICRW UPDATE^DIE

$$C^XBFUNC

Name	Comments	DBIA/ICR reference
PATCHCK(XPXPCH)	;
SORRY(XPX)	;
V0200	;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	BSDX2E+10
DT^DICRW	BSDX2E+10
UPDATE^DIE	V0200+17
$$C^XBFUNC	BSDX2E+12, VERSION+1, VERSION+2, ENVOK+1, VERCHK+2, PATCHCK+2, SORRY+3, SORRY+4, SORRY+5, SORRY+6 , SORRY+7, SORRY+8, SORRY+9
$$PATCH^XPDUTL	PATCHCK+1
$$VERSION^XPDUTL	VERCHK+1
BMES^XPDUTL	SORRY+11, SORRY+12, SORRY+13, SORRY+14, SORRY+15, SORRY+16

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Who are you????") Line Location: BSDX2E+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("XPDI",XPDST,"BLD",XPDBLD,0),U,1)_" "_$P(^XTMP("XPDI",XPDST,"BLD",XPDBLD,0),U,2)_" Cannot Be Installed!") Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Reason: "_XPX_".") Line Location: SORRY+4
Function Call: WRITE	Prompt: *7,!!!,$$C^XBFUNC("Sorry....something is wrong with your environment") Line Location: SORRY+5
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Aborting "_XPDNM_" install!") Line Location: SORRY+6
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Correct error and reinstall otherwise") Line Location: SORRY+7
Function Call: WRITE	Prompt: !,$$C^XBFUNC("please print/capture this screen and notify") Line Location: SORRY+8
Function Call: WRITE	Prompt: !,$$C^XBFUNC("the Help Desk") Line Location: SORRY+9
Function Call: WRITE	Prompt: !!,LINE Line Location: SORRY+10
Routine Call	%ZIS Line Location: BSDX2E+10
Routine Call	DIE Line Location: V0200+17

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	V0200+4, V0200+12, V0200+14
^VA(200 - [#200]	BSDX2E+11
^XTMP("XPDI"	SORRY+2, SORRY+3

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

Name	Field # of Occurrence
BSDXDA	V0200+3~, V0200+4*, V0200+5, V0200+14, V0200+15, V0200+16
BSDXDA1	V0200+3~, V0200+10, V0200+12, V0200+13, V0200+14, V0200+15
BSDXDAT	V0200+3~, V0200+6*, V0200+7, V0200+9
BSDXFDA	V0200+3~, V0200+8!
BSDXFDA(	V0200+15, V0200+16
BSDXIEN	V0200+3~, V0200+8!
BSDXMSG	V0200+3~, V0200+8!
BSDXNOD	V0200+3~, V0200+9*, V0200+10, V0200+11
BSDXSEQ	V0200+3~, V0200+11*, V0200+16
>> D	VERSION+8
DIFQ	SORRY+1!
DUZ	BSDX2E+6, BSDX2E+11
DUZ(0	BSDX2E+8
>> J	V0200+7*, V0200+9
>> LINE	BSDX2E+3*, SORRY+10
U	BSDX2E+11, V0200+7, V0200+9, SORRY+3
>> X	BSDX2E+11, BSDX2E+12, VERSION+1, VERCHK+1, VERCHK+2, VERCHK+3, PATCHCK+1*, PATCHCK+2, PATCHCK+3
>> XPDA	SORRY+2
>> XPDABORT	BSDX2E+5, SORRY+2
>> XPDBLD	SORRY+2*, SORRY+3
>> XPDDIQ("XPZ1"	ENVOK+5*
>> XPDDIQ("XPZ2"	ENVOK+5*
>> XPDENV	ENVOK+5
>> XPDNM	SORRY+6, SORRY+13
>> XPDNOQUE	BSDX2E+4*
>> XPDST	SORRY+3
XPX	SORRY~, SORRY+4, SORRY+12
XPXPCH	PATCHCK~, PATCHCK+1, PATCHCK+2
XPXPKG	VERCHK~, VERCHK+1, VERCHK+2, VERCHK+3
XVRMIN	VERCHK~, VERCHK+2, VERCHK+3

Information