Routine: ADE60P16

Call Graph

Package	Total	Call Graph
IHS Dental System	9	PREINST^ADE60P12 POST^ADE60P14 POST^ADE60P15 ADDCDT5^ADE6P161 MODCDT5^ADE6P162 DELCDT5^ADE6P163 MODCDT4^ADE6P164 ^ADECD4 ^ADECD44
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL
VA Fileman	2	(,IX)^DIC $$GET1^DIQ

Name	Comments	DBIA/ICR reference
VCHK(ADEPRE,ADEVER,ADEQUIT,ADECOMP)	; Check versions needed.
INSTALLD(ADE)	; Determine if patch ADE was installed, where ADE is ; the name of the INSTALL. E.g "AVA93.212".
SORRY(X)	;
ISAUT14()	;
ENV	;Environment check
PREINST	;EP Pre-install -- Do previous patches as needed
POST	;EP Post-Install ; only post for patch 16 - MJL 7/7/05 ; Add new, modify and delete ADA Codes

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+15
PREINST^ADE60P12	PREINST+9
POST^ADE60P14	PREINST+19
POST^ADE60P15	PREINST+23
ADDCDT5^ADE6P161	POST+5
MODCDT5^ADE6P162	POST+8
DELCDT5^ADE6P163	POST+11
MODCDT4^ADE6P164	POST+14
^ADECD4	PREINST+10
^ADECD44	PREINST+14
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	ENV+21, INSTALLD+7
$$GET1^DIQ	ENV+9
$$CJ^XLFSTR	ENV+10, ENV+11, ENV+23, ENV+24, VCHK+4, SORRY+3
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	ENV+30, ENV+31, ENV+32, PREINST+8, PREINST+13, PREINST+18, PREINST+22, POST+4, POST+6, POST+7 , POST+9, POST+10, POST+12, POST+13, POST+15

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ENV+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ENV+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ENV+10
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment...",IOM) Line Location: ENV+11
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ADE"" prefix.",IOM) Line Location: ENV+23
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: ENV+24
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need "_$S(ADECOMP="<":"at least ",1:"")_ADEPRE_" v "_ADEVER_"....."_ADEPRE_" v "_ADEV_" Present",IOM) Line Location: VCHK+4
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",IOM) Line Location: SORRY+3
Routine Call	%ZIS Line Location: ENV+1
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIC Line Location: ENV+21 INSTALLD+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	ENV+22
^XPD(9.7 - [#9.7]	ISAUT14+1, ISAUT14+3

Name	Line Occurrences
$$INSTALLD	PREINST+2, PREINST+3, PREINST+4, PREINST+5, PREINST+6
$$ISAUT14	ENV+29
$$VCHK	ENV+17
SORRY	ENV+3, ENV+5, ENV+7, ENV+25, ENV+33, VCHK+5

Name	Field # of Occurrence
ADE	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14
ADECNT	POST+3~
ADECOMP	VCHK~, VCHK+4, VCHK+5
ADED	POST+3~
ADEPRE	VCHK~, VCHK+3, VCHK+4
ADEQUIT	VCHK~, VCHK+5
ADEV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ADEVALUE	POST+3~
ADEVER	VCHK~, VCHK+4, VCHK+5
>> D	ENV+20, INSTALLD+6
DA	ENV+19~
DIC	ENV+19~, ENV+20, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14
DIC(0	ENV+20, INSTALLD+6
DIFQ	SORRY+1!
DUZ	ENV+3, ENV+9
DUZ(0	ENV+5, ENV+7
IOM	ENV+1, ENV+10, ENV+11, ENV+23, ENV+24, VCHK+4, SORRY+3
IORVOFF	ENV+13~, ENV+24
IORVON	ENV+13~, ENV+24
>> KFINISH	ISAUT14+1*, ISAUT14+2, ISAUT14+3
>> KSTATUS	ISAUT14+3*, ISAUT14+9
U	ISAUT14+3
X	ENV+9, ENV+10, ENV+14, ENV+20, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14
>> XPDQUIT	SORRY+2*
Y	ENV+22, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED	ENV+7