Routine: ADE60P13

Package	Total	Call Graph
IHS Dental System	8	^ADE0602 ^ADE0603 ^ADE0608 ^ADE0610 ^ADE0611 ^ADECD4 ^ADECD44 ^ADECDT
Kernel	4	HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL
VA Fileman	2	(,IX)^DIC $$GET1^DIQ

Package

Total

Call Graph

HOME^%ZIS ENDR^%ZISS $$CJ^XLFSTR ($$VERSION,BMES)^XPDUTL

(,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)	;
ENV	;Environment check
PREINST	;Pre-install
POST	;Post-Install

Name	Field # of Occurrence
HOME^%ZIS	ENV+1
ENDR^%ZISS	ENV+15
^ADE0602	PREINST+4
^ADE0603	PREINST+4, PREINST+8
^ADE0608	PREINST+4, PREINST+8, PREINST+12, PREINST+16
^ADE0610	PREINST+4, PREINST+8, PREINST+12, PREINST+16, PREINST+20
^ADE0611	PREINST+4, PREINST+8, PREINST+12, PREINST+16, PREINST+20, PREINST+24
^ADECD4	PREINST+28
^ADECD44	POST+1
^ADECDT	PREINST+4, PREINST+8, PREINST+12
^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	PREINST+3, PREINST+7, PREINST+11, PREINST+15, PREINST+19, PREINST+23, PREINST+27

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

Name	Line Occurrences
$$INSTALLD	PREINST+1, PREINST+2, PREINST+6, PREINST+10, PREINST+14, PREINST+18, PREINST+22, PREINST+26
$$VCHK	ENV+17
SORRY	ENV+3, ENV+5, ENV+7, ENV+25, VCHK+5

Name	Field # of Occurrence
ADE	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14
ADECOMP	VCHK~, VCHK+4, VCHK+5
ADEPRE	VCHK~, VCHK+3, VCHK+4
ADEQUIT	VCHK~, VCHK+5
ADEV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
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
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

Information