Routine: IBY652E

Package	Total	Call Graph
Kernel	3	(CLOSE,OPEN)^%ZISH $$FMTE^XLFDT $$PROD^XUPROD
VA FileMan	2	$$GET1^DIQ ^DIR
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;End of routine.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: IBY652E+31
Function Call: WRITE	Prompt: !,"Can't open File. Please check that you have the file in the " Line Location: IBY652E+40
Function Call: WRITE	Prompt: !,"proper directory and re-install the patch." Line Location: IBY652E+41
Function Call: WRITE	Prompt: !,"File is for a different site. Retrieve proper file and re-install patch." Line Location: IBY652E+45
Function Call: WRITE	Prompt: !,"File exists and can be read." Line Location: IBY652E+48
Function Call: WRITE	Prompt: !,"Could not create file. Please check that the path has proper settings to write a file then re-install patch." Line Location: IBY652E+53
Function Call: WRITE	Prompt: "Site:"_SITESYS_"^Results of IB2.0652 installed on "_$$FMTE^XLFDT(DT),! Line Location: IBY652E+54
Routine Call	DIR Line Location: IBY652E+31

FileNo	Call Tags
^XPD(9.7 - [#9.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^XPD(9.7 - [#9.7]	IBY652E+18

Name	Line Occurrences
EXIT	IBY652E+12, IBY652E+15, IBY652E+21, IBY652E+23, IBY652E+31, IBY652E+38, IBY652E+47, IBY652E+53

Name	Field # of Occurrence
DIR	IBY652E+4~, IBY652E+31!
DIR("?"	IBY652E+30*
DIR("A"	IBY652E+25, IBY652E+26, IBY652E+27, IBY652E+28, IBY652E+29*
DIR(0	IBY652E+25*
DIROUT	IBY652E+4~, IBY652E+31
DIRUT	IBY652E+4~, IBY652E+31
DLAYGO	IBY652E+4~
DR	IBY652E+4~
DT	IBY652E+12, IBY652E+54
DTOUT	IBY652E+4~, IBY652E+31
DUOUT	IBY652E+4~, IBY652E+31
FILENAME	IBY652E+4~, IBY652E+34, IBY652E+37, IBY652E+50, IBY652E+51
INSTCMP	IBY652E+4~, IBY652E+18*, IBY652E+23
IO	IBY652E+42, IBY652E+54
IOCSITE	IBY652E+4~
IOCSITE(	IBY652E+19*, IBY652E+21, IBY652E+23
OK	IBY652E+4~
>> PATH	IBY652E+32*, IBY652E+37, IBY652E+51
POP	IBY652E+4~, IBY652E+38, IBY652E+52
PROD	IBY652E+4~, IBY652E+17*, IBY652E+21
SITE	IBY652E+4~, IBY652E+19*
SITESYS	IBY652E+4~, IBY652E+10*, IBY652E+15, IBY652E+21, IBY652E+23, IBY652E+34, IBY652E+43, IBY652E+50, IBY652E+54
U	IBY652E+10, IBY652E+43
X	IBY652E+4~, IBY652E+42*, IBY652E+43
>> XPDNOQUE	IBY652E+8*
>> XPDQUIT	IBY652E+6, IBY652E+31, IBY652E+39, IBY652E+44, IBY652E+47, IBY652E+53*
Y	IBY652E+4~, IBY652E+32