Routine: XOBUENV

Information

XOBUENV ;; ld/alb - VistaLink Environment Check ; 08/08/2003 08:44

Source file <XOBUENV.m>

Package	Total	Call Graph
VA Fileman	3	FILE^DID $$VFILE^DILFD ^DIR

Name	Comments	DBIA/ICR reference
OSMSG	;- Message to user if operating system is not Cache or DSM
EN	;- entry point
ASKINSTR()	;- ask if user wants file deletion instructions
FILECHK()	;- Check for file 18
FILE18Q
PRNTXT(TEXT)	;- display user text
FILE18	;- check for obsolete Kernel file #18 which is in VistALink's numberspace
ANSWER(XOB0,XOBA,XOBB,XOBARR)	;wrap FileMan DIR Reader call
INSTR1	;- user instructions to delete file #18
INTRO	;- display message to user explaining file #18
ENQ
INSTR2	;- user instructions to delete file #18 (continued)
OSCHK	;- check enviroment for operating system (DSM or OpenM)
PROG	;- check enviroment for programmer variables
ASKINSTL()	;- ask if user wants to abort install
REASK()	;- ask user again if they want to continue with install (pre-init will ; delete file #18)
TOP	;- top of screen
PAUSE	;- enhance readability of text

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	OSCHK+3
^DD(18	FILECHK+6
^DIC(18	FILECHK+6

Name	Field # of Occurrence
DIR	ANSWER+12~, ANSWER+18!, PAUSE+3!
DIR("A"	ANSWER+15, ANSWER+16, PAUSE+3*
DIR("B"	ANSWER+17*
DIR(0	ANSWER+14, PAUSE+3
DIRUT	ANSWER+12~, ANSWER+19
DUZ	PROG+3
DUZ(0	PROG+3
I	FILE18+2~, PRNTXT+3~, PRNTXT+4*
IOF	TOP+3
IOST	TOP+2, PAUSE+2
LINE	FILE18+2~, PRNTXT+3~, PRNTXT+4*
TEXT	PRNTXT~, PRNTXT+2
U	ANSWER+19
X	ANSWER+12~
XOB0	ASKINSTL+2~, ASKINSTL+3, ASKINSTL+13, REASK+3~, REASK+4, REASK+12, ASKINSTR+2~, ASKINSTR+3*, ASKINSTR+7, ANSWER~ , ANSWER+14
XOBA	ASKINSTL+2~, ASKINSTL+4, ASKINSTL+13, REASK+3~, REASK+5, REASK+12, ASKINSTR+2~, ASKINSTR+4, ASKINSTR+7, ANSWER~ , ANSWER+15, FILECHK+2~, FILECHK+3, FILECHK+5, FILECHK+6, FILECHK+7
XOBABORT	FILE18+2~, FILE18+16*, FILE18+17, FILE18+18, FILE18+22
XOBARR	ASKINSTL+2~, ASKINSTL+13, REASK+3~, REASK+12, ASKINSTR+2~, ASKINSTR+7, ANSWER~, ANSWER+16
XOBARR(1	ASKINSTL+6, REASK+7, ASKINSTR+6*
XOBARR(2	ASKINSTL+7, REASK+8
XOBARR(3	ASKINSTL+8, REASK+9
XOBARR(4	ASKINSTL+9, REASK+10
XOBARR(5	ASKINSTL+10, REASK+11
XOBARR(6	ASKINSTL+11*
XOBARR(7	ASKINSTL+12*
XOBASK	FILE18+2~, FILE18+23*, FILE18+24, FILE18+25
XOBB	ASKINSTL+2~, ASKINSTL+5, ASKINSTL+13, REASK+3~, REASK+6, REASK+12, ASKINSTR+2~, ASKINSTR+5*, ASKINSTR+7, ANSWER~ , ANSWER+17
XOBFIL	FILECHK+2~
XOBFIL("NAME"	FILECHK+5
XOBOS	OSCHK+2~, OSCHK+3*, OSCHK+4
>> XPDABORT	EN+3, EN+6, EN+12, EN+15, PROG+4, OSCHK+5, FILE18+19, FILE18+26
>> XPDENV	EN+12, EN+15, FILE18+11
Y	ANSWER+12~, ANSWER+19

Name	Field # of Occurrence
$T(@TEXT+I	PRNTXT+4