Routine: BMC4P3

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ENDR^%ZISS $$FMADD^XLFDT ($$CJ,$$LJ,$$RJ)^XLFSTR ($$NEWCP,$$VERSION,BMES,MES)^XPDUTL
VA Fileman	4	(,IX)^DIC $$GET1^DID ENALL^DIK $$GET1^DIQ
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
MailMan	1	^XMD
Referred Care Information System	1	$$INSTALLD^BMC4P0

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - From KIDS.
INTROE	; Intro text during KIDS Environment check.
AUDR	; Restore the file data audit values to their original values.
SINGLE(K)	; Get holders of a single key K.
RSLT(%)
VCHK(BMCPRE,BMCVER,BMCQUIT,BMCCOMP)	; Check versions needed. ;
INSTALLD(BMC)	; Determine if patch BMC was installed, where BMC is ; the name of the INSTALL. E.g "AVA93.212".
INTROI	; Intro text during KIDS Install.
GREET	;;To add to mail message.
INDX	;INDEX NEW INDECIES "BA", "BB" AND "CD"
SORRY(X)	;
MAIL	;
POST	;EP - From KIDS.
AUDS	;EP - From KIDS.

Name	Field # of Occurrence
HOME^%ZIS	BMC4P3+4
ENDR^%ZISS	BMC4P3+18
$$INSTALLD^BMC4P0	BMC4P3+27, INDX+1
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	BMC4P3+31, INSTALLD+7
$$GET1^DID	AUDR+6
ENALL^DIK	INDX+5, INDX+8, INDX+11
$$GET1^DIQ	BMC4P3+12
$$DIR^XBDIR	BMC4P3+42, BMC4P3+44
HELP^XBHELP	BMC4P3+41, BMC4P3+44
$$FMADD^XLFDT	AUDS+3
$$CJ^XLFSTR	BMC4P3+13, BMC4P3+14, BMC4P3+26, BMC4P3+33, BMC4P3+34, BMC4P3+37, BMC4P3+39, SORRY+3, VCHK+4
$$LJ^XLFSTR	AUDS+8, AUDR+6
$$RJ^XLFSTR	AUDS+8, AUDR+6
^XMD	MAIL+10
$$NEWCP^XPDUTL	PRE+1, POST+4, POST+8, POST+12
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	MAIL+1, AUDS+1, AUDR+1, INDX+2, INDX+6, INDX+9, INDX+12
MES^XPDUTL	MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: BMC4P3+6
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: BMC4P3+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BMC4P3+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM) Line Location: BMC4P3+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("And AICD Patch 7 installed",IOM) Line Location: BMC4P3+26
Function Call: WRITE	Prompt: !!,7,7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""BMC"" prefix.",IOM) Line Location: BMC4P3+33
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: BMC4P3+34
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: BMC4P3+37
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BMC4P3+39
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need "_$S(BMCCOMP="<":"at least ",1:"")_BMCPRE_" v "_BMCVER_"....."_BMCPRE_" v "_BMCV_" Present",IOM) Line Location: VCHK+4
Routine Call	%ZIS Line Location: BMC4P3+4
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIC Line Location: BMC4P3+31 INSTALLD+7

Name	Line Occurrences (* Changed, ! Killed)
^DD(	AUDS+7, AUDS+9, AUDR+5, AUDR+6
^DIC(9.4 - [#9.4]	BMC4P3+32
^TMP("BMC4P3"	MAIL+3!, MAIL+11!, RSLT
^XTMP("BMC4P3"	AUDS+3, AUDS+7, AUDS+8, AUDR+4, AUDR+5, AUDR+8!
^XTMP("XPDI"	MAIL+7, AUDS+6, AUDS+8
^XUSEC(	SINGLE+3, SINGLE+4

Name	Line Occurrences
$$VCHK	BMC4P3+20, BMC4P3+21, BMC4P3+22, BMC4P3+23, BMC4P3+24, BMC4P3+25, BMC4P3+26
RSLT	MAIL+4, MAIL+5, MAIL+7
SINGLE	MAIL+9
SORRY	BMC4P3+6, BMC4P3+8, BMC4P3+10, BMC4P3+27, BMC4P3+35, BMC4P3+42, BMC4P3+44, VCHK+5

Name	Field # of Occurrence
^(	MAIL+7, RSLT*
^(0	RSLT*

Name	Field # of Occurrence
%	POST+3, POST+4, POST+7, POST+8, POST+11, POST+12, MAIL+5, MAIL+6, MAIL+7, MAIL+9* , RSLT~
BMC	AUDS+4~, AUDS+5, AUDS+6, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3, AUDR+4, AUDR+5 , AUDR+6, INDX+1*, INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14
BMCCOMP	VCHK~, VCHK+4, VCHK+5
BMCPRE	VCHK~, VCHK+3, VCHK+4
BMCQUIT	BMC4P3+27*, VCHK~, VCHK+5
BMCV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
BMCVER	VCHK~, VCHK+4, VCHK+5
>> D	BMC4P3+30, INSTALLD+6
DA	BMC4P3+29~, INDX+13!
DIC	BMC4P3+29~, BMC4P3+30, INDX+13!, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14
DIC(0	BMC4P3+30, INSTALLD+6
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DIK	INDX+3*, INDX+13!
DIK(1	INDX+4, INDX+7, INDX+10*
DT	AUDS+3
DUZ	BMC4P3+6, BMC4P3+12, MAIL+8
DUZ(0	BMC4P3+8, BMC4P3+10
IOM	BMC4P3+4, BMC4P3+13, BMC4P3+14, BMC4P3+26, BMC4P3+33, BMC4P3+34, BMC4P3+37, BMC4P3+39, SORRY+3, VCHK+4
IORVOFF	BMC4P3+16~, BMC4P3+34, BMC4P3+37
IORVON	BMC4P3+16~, BMC4P3+34, BMC4P3+37
K	SINGLE~, SINGLE+3, SINGLE+4
X	BMC4P3+12, BMC4P3+13, BMC4P3+17, BMC4P3+30, SORRY~, SORRY+2, INDX+13!, INSTALLD+3~, INSTALLD+5, INSTALLD+10* , INSTALLD+14*
XMDUZ	MAIL+2~, MAIL+8*
XMSUB	MAIL+2~, MAIL+8*
XMTEXT	MAIL+2~, MAIL+8*
XMY	MAIL+2~
XMY(	MAIL+8, SINGLE+4
XMY(1	MAIL+8*
>> XPDA	MAIL+7, AUDS+6, AUDS+8
>> XPDBLD	MAIL+7
>> XPDDIQ("XPZ1"	BMC4P3+44, PRE+4
>> XPDDIQ("XPZ2"	BMC4P3+44, PRE+4
>> XPDENV	BMC4P3+44, PRE+4
>> XPDQUIT	BMC4P3+37, SORRY+2*
Y	BMC4P3+32, SINGLE+1~, SINGLE+2, SINGLE+4, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16
>> ZTQUEUED	BMC4P3+10