Routine: APCL3024

Package	Total	Call Graph
VA Fileman	4	(,IX)^DIC FILE^DICN ^DIE (,IX1)^DIK
Kernel	3	($$CJ,$$UP)^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	;
DRUG1	;
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	;
MEDTAX	;
OPTIONS	;
ZISH	;create entry in ZISH SEND PARAMETERS file

External References

Name	Field # of Occurrence
^APCL23	POST1+2
^DIC	DRUG1+4, CLTAX+5, INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DICN	ZISH+5
^DIE	ZISH+8
^DIK	ZISH+4, CLTAX+4
IX1^DIK	MEDTAX+10, DRUG1+7, DRUG1+24, CLTAX+11
^XBFMK	ZISH+1, CLTAX+8
$$CJ^XLFSTR	IMES+1, SORRY+4
$$UP^XLFSTR	MEDTAX+7
$$ADD^XPDMENU	OPTIONS+1, POST1+4, POST1+6
$$VERSION^XPDUTL	APCL3024+8, APCL3024+9
MES^XPDUTL	IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"version 2.0 of BJPC is required" Line Location: APCL3024+8
Function Call: WRITE	Prompt: !,"version 9.0 of BGP is required" Line Location: APCL3024+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: "Attempt to add aggregate report option failed." Line Location: POST1+7
Function Call: WRITE	Prompt: !,"Creating ",APCLX," Taxonomy..." Line Location: DRUG1+1
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING ",APCLX," TAX" Line Location: DRUG1+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: ZISH+8
Routine Call	DIC Line Location: DRUG1+4 CLTAX+5 INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIB(9888888.93 - [#9888888.93]	ZISH+2, ZISH+3
^ATXAX - [#9002226]	MEDTAX+5, MEDTAX+8, MEDTAX+9, DRUG1+6, DRUG1+9, DRUG1+11, DRUG1+13, DRUG1+14, DRUG1+15, DRUG1+17 , DRUG1+19, DRUG1+21, DRUG1+22, DRUG1+23, CLTAX+7, CLTAX+9
^ATXAX("B"	MEDTAX+3, DRUG1+2, DRUG1+12, DRUG1+20, CLTAX+2, CLTAX+4
^DIC(40.7 - [#40.7]	CLTAX+8
^PSDRUG - [#50]	MEDTAX+7, DRUG1+13, DRUG1+21

Label References

Name	Line Occurrences
$$INSTALLD	APCL3024+10
CLTAX	POST1+1
DRUG1	MEDTAX+2
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
MEDTAX	POST1+8
SORRY	APCL3024+8, APCL3024+9, APCL3024+10
ZISH	POST1+3

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	MEDTAX+5, DRUG1+9, DRUG1+17*
>> APCLC	MEDTAX+6, MEDTAX+9, DRUG1+10, DRUG1+15, DRUG1+18, DRUG1+23
>> APCLDA	CLTAX+4*
>> APCLNDCT	MEDTAX+2*, DRUG1+16, DRUG1+20
APCLSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> APCLTAX	MEDTAX+2*, DRUG1+8, DRUG1+12
>> APCLTEXT	CLTAX+8*
>> APCLTX	MEDTAX+3, MEDTAX+4, MEDTAX+5, MEDTAX+8, MEDTAX+9, MEDTAX+10, DRUG1+2, DRUG1+3, DRUG1+6, DRUG1+7 , DRUG1+9, DRUG1+11, DRUG1+14, DRUG1+15, DRUG1+17, DRUG1+19, DRUG1+22, DRUG1+23, DRUG1+24, CLTAX+7 , CLTAX+9, CLTAX+11
>> APCLX	MEDTAX+2, DRUG1+1, DRUG1+2, DRUG1+4, DRUG1+5, DRUG1+6, CLTAX+8, CLTAX+9
APCLY	ZISH+3, ZISH+4, INSTALLD+3~, INSTALLD+13, INSTALLD+15
>> ATXFLG	MEDTAX+1, CLTAX+1
>> B	MEDTAX+5, MEDTAX+6, DRUG1+9, DRUG1+10, DRUG1+11, DRUG1+17*, DRUG1+18, DRUG1+19
>> C	MEDTAX+7, DRUG1+13, DRUG1+21*
>> D	INSTALLD+5*
D0	ZISH+1!
DA	MEDTAX+10, DRUG1+4!, DRUG1+7, DRUG1+24, ZISH+4!, ZISH+7, CLTAX+4!, CLTAX+5!, CLTAX+11*
DD	ZISH+1!
DIADD	DRUG1+4!, ZISH+1!, CLTAX+5!, CLTAX+8!
DIC	DRUG1+4!, ZISH+1!, ZISH+5, CLTAX+5!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	DRUG1+4, ZISH+5, CLTAX+5, INSTALLD+5
>> DIE	ZISH+7*
DIFQ	SORRY+1!
DIK	MEDTAX+10, DRUG1+7, DRUG1+24, ZISH+4!, CLTAX+4!, CLTAX+11
DLAYGO	DRUG1+4!, ZISH+1!, CLTAX+5!, CLTAX+8!
DO	ZISH+1!
>> DR	ZISH+7*
DT	DRUG1+6, CLTAX+7
DUZ	CLTAX+7
I	DRUG1+4!, CLTAX+5!
IOM	IMES+1, SORRY+4
>> J	MEDTAX+7, MEDTAX+8, MEDTAX+9, DRUG1+13, DRUG1+14, DRUG1+15, DRUG1+21*, DRUG1+22, DRUG1+23
U	MEDTAX+7, MEDTAX+9, DRUG1+6, DRUG1+11, DRUG1+13, DRUG1+15, DRUG1+19, DRUG1+21, DRUG1+23, CLTAX+7 , CLTAX+9
X	APCL3024+7, OPTIONS+1, OPTIONS+2, POST1+4, POST1+5, POST1+6, POST1+7, DRUG1+4, ZISH+5, CLTAX+5* , CLTAX+8, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	APCL3024+7*
>> XPDDIQ("XPZ1"	APCL3024+6*
>> XPDDIQ("XPZ2"	APCL3024+6*
>> XPDENV	APCL3024+6
>> XPDQUIT	SORRY+2, SORRY+3
Y	DRUG1+3, DRUG1+5, DRUG1+6, 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
>> Z	DRUG1+12, DRUG1+13, DRUG1+20, DRUG1+21

Marked Items

Customize PDF page

Package: Patient Care Component Reports

Routine: APCL3024

Information

Source Information

Call Graph

Call Graph Total: 9

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