Routine: APCLDV1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	3	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL ($$CLINIC,$$PRIMPROV)^APCLV
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$AGE,$$COMMRES)^AUPNPAT
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Patient Care Component Reports	4	APCLDV2 APCLDV3 APCLDV4 APCLDV5

Entry Points

Name	Comments	DBIA/ICR reference
DATES
LIST	;
LIST1	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DP	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y)	;EP - Center X in a field Y wide.
TALLY	;which items to tally
INFORM	;
SPRV(E)	;
DEMO	;
FAC	;
ZIS	;
COMM	;
PPV(V)	;
O	;EP one location
S	;EP all LOCATIONS within APCLSU su
XIT	;
EXCL	;
OC	;EP one COMMUNITY
PRVREF(R)	;
SC	;EP all communities within TAXONOMY
BHPPNAME(R)	;EP primary provider internal # from 200
PROC	;

External References

Name	Field # of Occurrence
XTMP^APCLOSUT	PROC+4
$$DEMO^APCLUTL	PROC+9, PROC+39, PROC+62
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	PROC+20
$$PRIMPROV^APCLV	PPV+2
$$AGE^AUPNPAT	PROC+24, PROC+46, PROC+69
$$COMMRES^AUPNPAT	PROC+10, PROC+11, PROC+40, PROC+41, PROC+63, PROC+64
^DIC	O+1, S+1, OC+1, SC+4
^DIR	DATES+3, DATES+5, TALLY+8, EXCL+5, FAC+4, COMM+5, LIST+3, LIST1+5, DP+3, EOP+7
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	S+1, PROC+23, PROC+24, PROC+25, PROC+28, PROC+45, PROC+46, PROC+48, PROC+68, PROC+69 , PROC+70, PROC+72, PROC+73, SPRV+2, SPRV+3, PRVREF+1
$$VALI^XBDIQ1	PROC+19, PROC+60
^XBFMK	XIT+2, SC+1
EN^XBVK	XIT+1
$$FMADD^XLFDT	PROC+51

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+1
Function Call: WRITE	Prompt: !,$$LOC() Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("TALLY AND LISTING OF PATIENT'S RECEIVING IPV SCREENING,INCLUDING REFUSALS",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally and optionally list all patients who have had " Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"IPV screening (Exam code 34) or a refusal documented in the time frame" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"specified by the user." Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"This report will tally the patients by age, gender, result, provider (either" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"exam provider, if available, or primary provider on the visit), and date of" Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"screening/refusal." Line Location: INFORM+9
Function Call: WRITE	Prompt: !," Notes: " Line Location: INFORM+10
Function Call: WRITE	Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient" Line Location: INFORM+11
Function Call: WRITE	Prompt: !?10," was screened more than once in the time period, only the latest" Line Location: INFORM+12
Function Call: WRITE	Prompt: !?10," is used in this report." Line Location: INFORM+13
Function Call: WRITE	Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral" Line Location: INFORM+14
Function Call: WRITE	Prompt: !?10," Health databases for evidence of screening/refusal" Line Location: INFORM+15
Function Call: WRITE	Prompt: ! Line Location: INFORM+16
Function Call: WRITE	Prompt: !!,"Exam code 34 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+19
Function Call: WRITE	Prompt: !,"Please enter the date range during which the screening was done.",!,"To get all screenings ever put in a long date range like 01/01/1980 ",!,"to the present date.",! Line Location: DATES+1
Function Call: WRITE	Prompt: ! Line Location: DATES+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+8
Function Call: WRITE	Prompt: !!,"Please select which items you wish to tally on this report:",! Line Location: TALLY+2
Function Call: WRITE	Prompt: !?3,"0) Do not include any Tallies",?40,"5) Primary Provider of Visit" Line Location: TALLY+3
Function Call: WRITE	Prompt: !?3,"1) Result of Screening",?40,"6) Designated Primary Care Provider" Line Location: TALLY+4
Function Call: WRITE	Prompt: !?3,"2) Gender",?40,"7) Clinic" Line Location: TALLY+5
Function Call: WRITE	Prompt: !?3,"3) Age of Patient",?40,"8) Date of Screening" Line Location: TALLY+6
Function Call: WRITE	Prompt: !?3,"4) Provider who Screened" Line Location: TALLY+7
Function Call: WRITE	Prompt: !!,"Would you like to include screenings done in the behavioral health clinics: " Line Location: EXCL+2
Function Call: WRITE	Prompt: !,"Mental Health (14); Alcohol and Substance Abuse (43); Medical" Line Location: EXCL+3
Function Call: WRITE	Prompt: !,"Social Services (48); Behavioral Health (C4) " Line Location: EXCL+4
Function Call: WRITE	Prompt: !!,"You can just include patients living in certain communities",!,"or include all patients regardless of where they live." Line Location: COMM+3
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST1+2
Function Call: WRITE	Prompt: ! Line Location: DP+2
Function Call: WRITE	Prompt: !!,"There are no communities in that taxonomy." Line Location: COM1+4
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIC Line Location: O+1 S+1 OC+1 SC+4
Routine Call	DIR Line Location: DATES+3 DATES+5 TALLY+8 EXCL+5 FAC+4 COMM+5 LIST+3 LIST1+5 DP+3 EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROC+55, PROC+56, PROC+59, PROC+60, PROC+61, PROC+72
^AMHREC("B"	PROC+52, PROC+53
^AMHRPROV - [#9002011.02]	BHPPNAME+2
^AMHRPROV("AD"	BHPPNAME+2
^ATXAX - [#9002226]	COM1+1, COM1+2
^AUPNPREF - [#9000022]	PROC+30, PROC+31, PROC+32, PROC+33, PROC+34, PROC+38, PRVREF+1
^AUPNVSIT - [#9000010]	PROC+14, PROC+18, PROC+19
^AUPNVXAM - [#9000010.13]	PROC+7, PROC+8, PROC+12, SPRV+2, SPRV+3
^AUPNVXAM("B"	PROC+6
^AUTTEXAM("C"	INFORM+18
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	BHPPNAME+2, USR+1
^XTMP("APCLDV1"	PROC+3!, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+42, PROC+46, PROC+47, PROC+48 , PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73*

Label References

Name	Line Occurrences
$$BHPPNAME	PROC+69
$$CTR	INFORM+1, INFORM+3
$$LOC	INFORM+2
$$PPV	PROC+24
$$PRVREF	PROC+47
$$SPRV	PROC+27
$$USR	INFORM+1
@(	FAC+8, COMM+9
COMM	FAC+7, COMM+10
DATES	DATES+7, TALLY+9, TALLY+10, EXCL+6, LIST+4
EXCL	FAC+5
FAC	FAC+9, COMM+6
LIST	COMM+8, LIST1+6, DP+4, DEMO+2
XIT	INFORM+17, INFORM+19, DEMO+5
ZIS	LIST+6

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BHPPNAME+1~, BHPPNAME+2, PPV+1~, PPV+2, PPV+3
%1	BHPPNAME+1~, BHPPNAME+2*, BHPPNAME+3
>> A	TALLY+12*
APCLBD	DATES!, DATES+3*, DATES+7, PROC+17, PROC+37, PROC+51, PROC+58
>> APCLBIEN	PROC+53*, PROC+55, PROC+56, PROC+59, PROC+60, PROC+61, PROC+68, PROC+69, PROC+70, PROC+71 , PROC+72
>> APCLCNT	PROC+1*
>> APCLCOMT	COMM+2, COMM+7, COMM+8, COMM+9, PROC+10, PROC+11, PROC+40, PROC+41, PROC+63, PROC+64
>> APCLCOMT("ONE"	OC+3*, PROC+10, PROC+40, PROC+63
>> APCLCOMT("SU"	SC+6*
>> APCLDATE	PROC+14, PROC+15, PROC+16, PROC+17, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+34 , PROC+35, PROC+36, PROC+37, PROC+42, PROC+46, PROC+47, PROC+48, PROC+54*, PROC+57, PROC+58 , PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9, PROC+39, PROC+62
>> APCLDP	DP+1, DP+5
APCLED	DATES!, DATES+5*, DATES+7, PROC+16, PROC+36, PROC+52, PROC+57
>> APCLEIEN	PROC+6*, PROC+7, PROC+8, PROC+12, PROC+23, PROC+24, PROC+27
>> APCLEXBH	EXCL+1, EXCL+7, PROC+20, PROC+50
>> APCLEXC	INFORM+18*, INFORM+19, PROC+6, PROC+33
>> APCLH	PROC+2*, PROC+3, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+42, PROC+46, PROC+47 , PROC+48, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
>> APCLJ	PROC+2*, PROC+3, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+42, PROC+46, PROC+47 , PROC+48, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
>> APCLLIST	LIST+1, LIST+5, LIST+6
>> APCLLOCT	FAC+2, FAC+6, FAC+7, FAC+8, PROC+18, PROC+19, PROC+59, PROC+60
>> APCLLOCT("ONE"	O+3*, PROC+18, PROC+59
>> APCLLOCT("SU"	S+3*, PROC+19, PROC+60
APCLQ	FAC+1!, FAC+9, COMM+1!, COMM+10, O+2, S+2, OC+2, SC+5, COM1+4*
>> APCLRES	PROC+23, PROC+24, PROC+45, PROC+46, PROC+68*, PROC+69
>> APCLRIEN	PROC+30*, PROC+31, PROC+32, PROC+33, PROC+34, PROC+38, PROC+45, PROC+46, PROC+47
>> APCLSD	PROC+51, PROC+52, PROC+53, PROC+54
>> APCLSORT	LIST1+1, LIST1+7
APCLTALL	TALLY+1!, TALLY+11*
APCLTALL(	TALLY+12*
>> APCLTAX	COM1+4
>> APCLTAX(	COM1+2*, PROC+11, PROC+41, PROC+64
>> APCLVIEN	PROC+12*, PROC+13, PROC+14, PROC+18, PROC+19, PROC+20, PROC+24, PROC+25, PROC+26
>> C	TALLY+12, PROC+20
DA	TALLY+8!, EXCL+5!, FAC+4!, COMM+5!, LIST+3!, LIST1+5!, DP+3!
>> DFN	PROC+8, PROC+9, PROC+10, PROC+11, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+38 , PROC+39, PROC+40, PROC+41, PROC+42, PROC+46, PROC+47, PROC+48, PROC+61*, PROC+62, PROC+63 , PROC+64, PROC+65, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73
DFOUT	EOP+5!
DIC	O+1!, S+1!, OC+1!, SC+2, SC+4!
DIC("A"	O+1, S+1, OC+1, SC+2
DIC("B"	S+1*
DIC("S"	SC+2*
DIC(0	O+1, S+1, OC+1, SC+2
DIR	DATES+2!, DATES+4!, TALLY+8!, EXCL+5!, FAC+4!, COMM+5!, LIST+3!, LIST1+5!, DP+3!, EOP+4~
DIR("A"	DATES+2, DATES+4, TALLY+8, EXCL+5, FAC+3, FAC+4, COMM+4, COMM+5, LIST+3, LIST1+4 , DP+3, EOP+7
DIR("B"	TALLY+8, EXCL+5, FAC+3, FAC+4, COMM+4, COMM+5, LIST+3, LIST1+4, DP+3*
DIR(0	DATES+2, DATES+4, TALLY+8, EXCL+5, FAC+3, COMM+4, LIST+3, LIST1+3, DP+3, EOP+7
DIRUT	TALLY+9, EXCL+6, FAC+5, COMM+6, LIST+4, LIST1+6, DP+4, EOP+5!
DLOUT	EOP+5!
DTOUT	EOP+5!
DUOUT	EOP+5!
DUZ	USR+1
DUZ(2	S+1, LOC+1
E	SPRV~, SPRV+2, SPRV+3
>> I	TALLY+12*
IO	EOP+2
IO("S"	EOP+3
IO(0	EOP+2
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+3
R	BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
U	COM1+2, PROC+8, PROC+12, PROC+14, PROC+18, PROC+19, PROC+24, PROC+25, PROC+26, PROC+27 , PROC+28, PROC+32, PROC+33, PROC+34, PROC+38, PROC+46, PROC+47, PROC+48, PROC+56, PROC+59 , PROC+60, PROC+61, PROC+69, PROC+70, PROC+71, PROC+72, PROC+73, BHPPNAME+2, SPRV+2, SPRV+3 , PRVREF+1, USR+1, LOC+1
V	PPV~, PPV+2
X	COM1, COM1+1, COM1+2, PROC+11, PROC+41, PROC+64*, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATES+3, DATES+5, TALLY+10, TALLY+11, TALLY+12, EXCL+7, FAC+6, COMM+7, LIST+5, LIST1+7 , DP+5, O+2, O+3, S+2, S+3, OC+2, OC+3, SC+5, SC+6, COM1+1 , COM1+2, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDV1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: