Routine: BMC4P10

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

Package	Total	Caller Graph
Referred Care Information System	1	BMC4P10

Entry Points

Name	Comments	DBIA/ICR reference
AUDR	; Restore the file data audit values to their original values.
SINGLE(K)	; Get holders of a single key K.
P10COM	;Clean up of comments file
INSTALLD(BMC)	; Determine if patch BMC was installed, where BMC is ; the name of the INSTALL. E.g "AVA93.212".
GREET	;;To add to mail message.
PCCLNK
AUDS	;EP - From KIDS.
PRE	;EP - From KIDS.
INTROE	; Intro text during KIDS Environment check.
INTROI	; Intro text during KIDS Install.
P10	;Patch 10
P10VR	;Clean up clinic stop in V Referral file
P8	;Adding new Report menu option for TOC and Edit option for TOC
P6	;FX CHS PO'S WITH FY 00 INSTEAD OF FY 10
P7	;Adding new Report menu option for the printed C32
RSLT(%)
P5	;Add Menu option for Vendor
VCHK(BMCPRE,BMCVER,BMCQUIT,BMCCOMP)	; Check versions needed. ;
P9	;Add Report menu options
POST	;EP - From KIDS. ; --- Restore dd audit settings.
INDX	;INDEX NEW INDECIES "BA", "BB" AND "CD" ;Patch 2
SORRY(X)	;
MAIL	;

External References

Name	Field # of Occurrence
HOME^%ZIS	BMC4P10+4
ENDR^%ZISS	BMC4P10+18
$$INSTALLD^BMC4P0	INDX+1, P5+1, P6+1, P7+1, P8+1, P9+1
$$VCHK^BMC4P10	BMC4P10+23
^DIC	INSTALLD+11, INSTALLD+15
IX^DIC	BMC4P10+40, INSTALLD+7
FILE^DICN	PCCLNK+12
$$GET1^DID	AUDR+6
^DIE	PCCLNK+6, P10+5, P10VR+6
ENALL^DIK	INDX+5, INDX+8, INDX+11, PCCLNK+2
$$GET1^DIQ	BMC4P10+12
^DIR	BMC4P10+32, BMC4P10+35
$$DIR^XBDIR	BMC4P10+49, BMC4P10+50
HELP^XBHELP	BMC4P10+48, BMC4P10+50
$$FMADD^XLFDT	AUDS+3
$$CJ^XLFSTR	BMC4P10+13, BMC4P10+14, BMC4P10+42, BMC4P10+43, BMC4P10+46, BMC4P10+47, SORRY+3, VCHK+5, VCHK+7, INSTALLD+17 , INSTALLD+18
$$LJ^XLFSTR	AUDS+8, AUDR+6
$$RJ^XLFSTR	AUDS+8, AUDR+6
^XMD	MAIL+10
$$ADD^XPDMENU	P5+3, P6+11, P7+3, P8+3, P8+5, P9+3, P9+4, P9+5, P9+6
$$NEWCP^XPDUTL	PRE+1, POST+3, POST+7, POST+11, POST+15, POST+19, POST+23, POST+27, POST+31, POST+35 , POST+39, POST+43
$$VERSION^XPDUTL	VCHK+3
BMES^XPDUTL	MAIL+1, AUDS+1, AUDR+1, INDX+2, INDX+6, INDX+9, INDX+12, P5+2, P6+10, P7+2 , P8+2, P8+4, PCCLNK+8, P10+6, P10VR+7, P10COM+22
MES^XPDUTL	MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9, P5+3, P5+4, P6+2, P6+11 , P6+12, P7+3, P7+4, P8+3, P8+5, P8+6, P9+2, P9+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: BMC4P10+6
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: BMC4P10+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: BMC4P10+13
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM),! Line Location: BMC4P10+14
Function Call: WRITE	Prompt: !! Line Location: BMC4P10+31
Function Call: WRITE	Prompt: ! Line Location: BMC4P10+34
Function Call: WRITE	Prompt: ! Line Location: BMC4P10+36
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: BMC4P10+42
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM) Line Location: BMC4P10+43
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(IORVON_"You will need to update package(s) before proceeding."_IORVOFF,IOM),!!,7,7,*7 Line Location: BMC4P10+46
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: BMC4P10+47
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....Need to update package!",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+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_"....."_BMC_" Present",IOM) Line Location: INSTALLD+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_".....",IOM) Line Location: INSTALLD+18
Routine Call	%ZIS Line Location: BMC4P10+4
Routine Call	DIE Line Location: PCCLNK+6 P10+5 P10VR+6
Routine Call	DIC Line Location: INSTALLD+11 INSTALLD+15
Routine Call	DIR Line Location: BMC4P10+32 BMC4P10+35
Routine Call	DIC Line Location: BMC4P10+40 INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AUPNVREF - [#9000010.59]	Classic Fileman Calls
^BMCREF - [#90001]	Classic Fileman Calls
^BMCTSORT - [#90001.81]	Classic Fileman Calls
^APCDLINK - [#9001002]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDLINK("B"	PCCLNK+3, PCCLNK+4, PCCLNK+7
^AUPNVREF - [#9000010.59]	P10VR+5
^BMCCOM - [#90001.03]	P10COM+7, P10COM+8, P10COM+10, P10COM+11, P10COM+12, P10COM+13!, P10COM+19, P10COM+20
^BMCCOM("B"	P10COM+4, P10COM+6
^BMCCOMT(	P10COM+11, P10COM+12, P10COM+15, P10COM+16, P10COM+20
^BMCREF - [#90001]	P6+5, P6+6, P6+8, P6+9
^BMCREF("B"	P6+3, P6+4
^DD(	AUDS+7, AUDS+9, AUDR+5, AUDR+6
^DIC(9.4 - [#9.4]	BMC4P10+41
^TMP("BMC4P10"	MAIL+3!, MAIL+11!, RSLT
^XTMP("BMC4P10"	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

Label References

Name	Line Occurrences
$$INSTALLD	BMC4P10+24, BMC4P10+25, BMC4P10+26, BMC4P10+27, BMC4P10+28, BMC4P10+29, BMC4P10+33, BMC4P10+36
$$VCHK	BMC4P10+20, BMC4P10+21, BMC4P10+22, BMC4P10+30
RSLT	MAIL+4, MAIL+5, MAIL+7
SINGLE	MAIL+9
SORRY	BMC4P10+6, BMC4P10+8, BMC4P10+10, BMC4P10+24, BMC4P10+25, BMC4P10+26, BMC4P10+27, BMC4P10+28, BMC4P10+29, BMC4P10+33 , BMC4P10+36, BMC4P10+44, BMC4P10+49, BMC4P10+50, VCHK+6, VCHK+8

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	POST+2, POST+3, POST+6, POST+7, POST+10, POST+11, POST+14, POST+15, POST+18, POST+19 , POST+22, POST+23, POST+26, POST+27, POST+30, POST+31, POST+34, POST+35, POST+38, POST+39 , POST+42, POST+43, MAIL+5, MAIL+6, MAIL+7, MAIL+9*, RSLT~
BEGDT	P10COM+3, P10COM+4, P10COM+6, P10COM+21!
BMC	INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18, AUDS+4~, AUDS+5, AUDS+6, AUDS+7 , AUDS+8, AUDS+9, AUDR+2~, AUDR+3, AUDR+4, AUDR+5, AUDR+6, INDX+1, P5+1, P6+1* , P6+3, P6+4, P7+1, P8+1, P9+1
>> BMC1	P6+4*, P6+5, P6+6, P6+8, P6+9
>> BMC2	P6+5*, P6+6, P6+8, P6+9
BMCCOM	P10COM+16*, P10COM+17, P10COM+19, P10COM+21!
BMCCOMP	VCHK~, VCHK+5, VCHK+7, VCHK+8
BMCDA	P10COM+12, P10COM+14, P10COM+15*, P10COM+16, P10COM+21!
BMCDA2	P10COM+14, P10COM+19, P10COM+20, P10COM+21!
>> BMCPO	P6+6*, P6+7, P6+8
BMCPRE	VCHK~, VCHK+3, VCHK+5, VCHK+7
BMCQUIT	BMC4P10+24, BMC4P10+25, BMC4P10+26, BMC4P10+27, BMC4P10+28, BMC4P10+29, BMC4P10+33, BMC4P10+36, VCHK~, VCHK+6 , VCHK+8
BMCV	VCHK+2~, VCHK+3*, VCHK+4, VCHK+5, VCHK+7, VCHK+8
BMCVER	VCHK~, VCHK+5, VCHK+7, VCHK+8
CT	P10COM+21!
>> D	BMC4P10+39, INSTALLD+6
DA	BMC4P10+38~, INDX+13!, PCCLNK+4, PCCLNK+6!, P10+3~, P10+4, P10VR+2~, P10VR+3, P10VR+5, P10COM+2~ , P10COM+5, P10COM+6, P10COM+7, P10COM+8, P10COM+10, P10COM+11, P10COM+12, P10COM+13, P10COM+15, P10COM+16 , P10COM+19, P10COM+20
DA(1	P10COM+8, P10COM+10, P10COM+11, P10COM+12
DD	PCCLNK+9~
DIC	BMC4P10+38~, BMC4P10+39, INSTALLD+3~, INSTALLD+6, INSTALLD+10, INSTALLD+14, INSTALLD+16, INDX+13!, PCCLNK+9~, PCCLNK+10* , P10+3~, P10VR+2~, P10COM+2~
DIC("DR"	PCCLNK+11*
DIC(0	BMC4P10+39, INSTALLD+6, PCCLNK+10*
DIE	PCCLNK+5, PCCLNK+6!, P10+3~, P10+4, P10VR+2~, P10VR+4*, P10COM+2~
DIFQ	SORRY+1!
DIFROM	MAIL+2~
DIK	INDX+3, INDX+13!, PCCLNK+2!
DIK(1	INDX+4, INDX+7, INDX+10, PCCLNK+2
>> DIR("A"	BMC4P10+32, BMC4P10+35
>> DIR(0	BMC4P10+32, BMC4P10+35
DLAYGO	PCCLNK+9~, PCCLNK+10*
DO	PCCLNK+9~
DR	PCCLNK+5, PCCLNK+6!, P10+3~, P10+4, P10VR+2~, P10VR+4*, P10COM+2~
DT	AUDS+3
DUZ	BMC4P10+6, BMC4P10+12, MAIL+8
DUZ(0	BMC4P10+8, BMC4P10+10
FLG	P10COM+8*, P10COM+9, P10COM+21!
>> I	P10COM+18*
IOM	BMC4P10+4, BMC4P10+13, BMC4P10+14, BMC4P10+42, BMC4P10+43, BMC4P10+46, BMC4P10+47, SORRY+3, VCHK+5, VCHK+7 , INSTALLD+17, INSTALLD+18
IORVOFF	BMC4P10+16~, BMC4P10+43, BMC4P10+46
IORVON	BMC4P10+16~, BMC4P10+43, BMC4P10+46
K	SINGLE~, SINGLE+3, SINGLE+4
L	P10COM+17*, P10COM+18, P10COM+21!
LGHT2	P10COM+21!
LGTH	P10COM+18, P10COM+19, P10COM+21!
>> LGTH2	P10COM+18, P10COM+19
P	INSTALLD+3~, INSTALLD+16*
U	P6+6, P6+8, P6+9, P10VR+5, P10COM+20
X	BMC4P10+12, BMC4P10+13, BMC4P10+17, BMC4P10+39, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5, INSTALLD+10, INSTALLD+14 , INSTALLD+16, INDX+13!, PCCLNK+9~, PCCLNK+12*
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"	BMC4P10+50, PRE+4
>> XPDDIQ("XPZ2"	BMC4P10+50, PRE+4
>> XPDENV	BMC4P10+50, PRE+4
>> XPDQUIT	BMC4P10+46, SORRY+2*
Y	BMC4P10+33, BMC4P10+36, BMC4P10+41, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16, INSTALLD+17 , INSTALLD+18, INSTALLD+19, SINGLE+1~, SINGLE+2, SINGLE+4*, PCCLNK+9~
>> ZTQUEUED	BMC4P10+10

Marked Items

Name	Field # of Occurrence
$T(	BMC4P10+14, MAIL+8, AUDS+3
$T(GREET+%	MAIL+5
$T(GREET+%+1	MAIL+5

Customize PDF page

Package: Referred Care Information System

Routine: BMC4P10

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items