Routine: APCL3023

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

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"version 2.0 of BJPC is required" Line Location: APCL3023+8
Function Call: WRITE	Prompt: !,"version 9.0 of BGP is required" Line Location: APCL3023+9
Function Call: WRITE	Prompt: "Attempt to add APCL EDIT SURV ILI STOP DATE option failed.." Line Location: OPTIONS+2
Function Call: WRITE	Prompt: !!,"ILI CONTROL FILE ENTRY MISSING. NOTIFY PROGRAMMER." Line Location: OPTIONS+4
Function Call: WRITE	Prompt: "Attempt to add SURVEILLANCE ILI report option failed.." Line Location: POST1+5
Function Call: WRITE	Prompt: !!,"error creating ZISH SEND PARAMETERS entry" Line Location: ZISH+6
Function Call: WRITE	Prompt: !!,"error updating ZISH SEND PARAMETERS entry" Line Location: ZISH+9
Function Call: WRITE	Prompt: !,"Creating Surveillance ILI Clinics taxonomy..." Line Location: CLTAX+3
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING SURVEILLANCE ILI CLINICS TAX" Line Location: CLTAX+6
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: OPTIONS+7 ZISH+8
Routine Call	DIC Line Location: CLTAX+5 INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

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

Name	Field # of Occurrence
^(0	CLTAX+7, CLTAX+9

Name	Field # of Occurrence
>> APCLDA	CLTAX+4*
APCLSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> APCLTEXT	CLTAX+8*
>> APCLTX	CLTAX+7*, CLTAX+9, CLTAX+11
>> APCLX	CLTAX+8*, CLTAX+9
APCLY	ZISH+3, ZISH+4, INSTALLD+3~, INSTALLD+13, INSTALLD+15
>> ATXFLG	CLTAX+1*
>> D	INSTALLD+5*
D0	ZISH+1!
DA	OPTIONS+3, OPTIONS+4!, OPTIONS+5, OPTIONS+8!, ZISH+4!, ZISH+7, CLTAX+4!, CLTAX+5!, CLTAX+11*
DD	ZISH+1!
DIADD	ZISH+1!, CLTAX+5*!, CLTAX+8!
DIC	ZISH+1!, ZISH+5, CLTAX+5!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	ZISH+5, CLTAX+5, INSTALLD+5*
DIE	OPTIONS+6, OPTIONS+8!, ZISH+7
DIFQ	SORRY+1!
DIK	ZISH+4!, CLTAX+4!, CLTAX+11*
DLAYGO	ZISH+1!, CLTAX+5*!, CLTAX+8!
DO	ZISH+1!
>> DR	OPTIONS+6, ZISH+7
DT	CLTAX+7
DUZ	CLTAX+7
I	CLTAX+5!
IOM	IMES+1, SORRY+4
U	OPTIONS+5, CLTAX+7, CLTAX+9
X	APCL3023+7, OPTIONS+1, OPTIONS+2, POST1+4, POST1+5, ZISH+5, CLTAX+5, CLTAX+8, INSTALLD+3~, INSTALLD+4* , INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	APCL3023+7*
>> XPDDIQ("XPZ1"	APCL3023+6*
>> XPDDIQ("XPZ2"	APCL3023+6*
>> XPDENV	APCL3023+6
>> XPDQUIT	SORRY+2, SORRY+3
Y	ZISH+6, ZISH+7, ZISH+9, CLTAX+6, CLTAX+7, CLTAX+8*, CLTAX+9, INSTALLD+3~, INSTALLD+7, INSTALLD+8 , INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Name	Field # of Occurrence
$T(@APCLTEXT+APCLX	CLTAX+8