Routine: ADE60P15

Call Graph

Package	Total	Call Graph
IHS Dental System	5	PREINST^ADE60P12 POST^ADE60P14 ^ADEADRVU ^ADECD4 ^ADECD44
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL
VA Fileman	3	(,IX)^DIC FILE^DICN $$GET1^DIQ

Package	Total	Caller Graph
IHS Dental System	1	ADE60P16

Name	Comments	DBIA/ICR reference
VCHK(ADEPRE,ADEVER,ADEQUIT,ADECOMP)	; Check versions needed. ;
ADDRVU	;
1	;;
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 15 - LSL 12/12/03 ; Create 2 new entries in DENTAL PROGRAM OBJECTIVE File

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+15
PREINST^ADE60P12	PREINST+8
POST^ADE60P14	PREINST+18
^ADEADRVU	POST+11
^ADECD4	PREINST+9
^ADECD44	PREINST+13
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	ENV+21, INSTALLD+7
FILE^DICN	ADDRVU+14
$$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+7, PREINST+12, PREINST+17, POST+4, POST+8, POST+10, POST+12

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

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
$$ISAUT14	ENV+29
$$VCHK	ENV+17
ADDRVU	POST+7
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~, POST+6, ADDRVU+1
ADECOMP	VCHK~, VCHK+4, VCHK+5
ADED	POST+3~, POST+5*, ADDRVU+2, ADDRVU+7, ADDRVU+8
ADEPRE	VCHK~, VCHK+3, VCHK+4
ADEQUIT	VCHK~, VCHK+5
ADEV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
ADEVALUE	POST+3~, POST+7, ADDRVU+2*, ADDRVU+3, ADDRVU+7, ADDRVU+8
ADEVER	VCHK~, VCHK+4, VCHK+5
>> D	ENV+20, INSTALLD+6
DA	ENV+19~, ADDRVU+4!
DD	ADDRVU+13!
DIC	ENV+19~, ENV+20, ADDRVU+4!, ADDRVU+5, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14*
DIC("DR"	ADDRVU+9, ADDRVU+10, ADDRVU+11, ADDRVU+12
DIC(0	ENV+20, ADDRVU+6, INSTALLD+6*
DIFQ	SORRY+1!
>> DINUM	ADDRVU+7*
DO	ADDRVU+13!
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, ADDRVU+4!, ADDRVU+8, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5* , INSTALLD+10, INSTALLD+14
>> XPDQUIT	SORRY+2*
Y	ENV+22, ADDRVU+4!, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED	ENV+7