Routine: BJPC1P1

Package	Total	Call Graph
VA Fileman	4	(,IX)^DIC FILE^DICN ^DIE (,IX1)^DIK
Kernel	3	$$CJ^XLFSTR $$ADD^XPDMENU MES^XPDUTL
IHS VA Utilities	1	^XBFMK
Patient Care Component	1	^BJPC1T

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;
IMES	;
INSTALLD(BJPCSTAL)	;EP - Determine if patch BJPCSTAL was installed, where ; BJPCSTAL is the name of the INSTALL. E.g "AG6.011".
CLINICS	;
CLTAX	;
SORRY(X)	;
POST	;
ZISH	;create entry in ZISH SEND PARAMETERS file

Name	Line Occurrences
Function Call: WRITE	Prompt: "Attempt to add SURVEILLANCE ILI report option failed.." Line Location: POST+7
Function Call: WRITE	Prompt: !!,"error creating ZISH SEND PARAMETERS entry" Line Location: ZISH+5
Function Call: WRITE	Prompt: !!,"error updating ZISH SEND PARAMETERS entry" Line Location: ZISH+8
Function Call: WRITE	Prompt: !,"Creating Surveillance ILI Clinics taxonomy..." Line Location: CLTAX+2
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING SURVEILLANCE ILI CLINICS TAX" Line Location: CLTAX+5
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: ZISH+7
Routine Call	DIC Line Location: CLTAX+4 INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZIB(9888888.93 - [#9888888.93]	ZISH+2
^ATXAX - [#9002226]	CLTAX+6, CLTAX+8
^ATXAX("B"	CLTAX+3
^DIC(40.7 - [#40.7]	CLTAX+7

Name	Field # of Occurrence
^(0	CLTAX+6, CLTAX+8

Name	Field # of Occurrence
>> ATXFLG	CLTAX+1*
>> BDWY	ZISH+2*, ZISH+3
>> BJPCDA	CLTAX+3*
BJPCSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BJPCTEXT	CLTAX+7*
>> BJPCTX	CLTAX+6*, CLTAX+8, CLTAX+10
>> BJPCX	CLTAX+7*, CLTAX+8
BJPCY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
D0	ZISH+1!
DA	ZISH+3!, ZISH+6, CLTAX+3!, CLTAX+4!, CLTAX+10
DD	ZISH+1!
DIADD	ZISH+1!, CLTAX+4*!, CLTAX+7!
DIC	ZISH+1!, ZISH+4, CLTAX+4!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	ZISH+4, CLTAX+4, INSTALLD+5*
>> DIE	ZISH+6*
DIFQ	SORRY+1!
DIK	ZISH+3!, CLTAX+3!, CLTAX+10*
DLAYGO	ZISH+1!, CLTAX+4*!, CLTAX+7!
DO	ZISH+1!
>> DR	ZISH+6*
DT	CLTAX+6
DUZ	CLTAX+6
I	CLTAX+4!
IOM	IMES+1, SORRY+4
U	CLTAX+6, CLTAX+8
X	BJPC1P1+7, POST+6, POST+7, ZISH+4, CLTAX+4, CLTAX+7, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11 , SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	BJPC1P1+7*
>> XPDDIQ("XPZ1"	BJPC1P1+6*
>> XPDDIQ("XPZ2"	BJPC1P1+6*
>> XPDENV	BJPC1P1+6
>> XPDQUIT	SORRY+2, SORRY+3
Y	ZISH+5, ZISH+6, ZISH+8, CLTAX+5, CLTAX+6, CLTAX+7*, CLTAX+8, INSTALLD+3~, INSTALLD+7, INSTALLD+8 , INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Name	Field # of Occurrence
$T(@BJPCTEXT+BJPCX	CLTAX+7