Routine: APCLDE4

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	4	($$BHALCS,$$PCCALCS,$$REFUSAL)^APCLDE1 XTMP^APCLOSUT $$PRIMPROV^APCLV PAUSE^APCLVL01
VA Fileman	2	^DIC ^DIR

Name	Comments	DBIA/ICR reference
DATES
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
LIST1	;
STMP	;
TALLY	;which items to tally
LIST	;
USR()	;EP - Return name of current user from ^VA(200.
INFORM	;
CTR(X,Y)	;EP - Center X in a field Y wide.
EOP	;EP - End of page.
XIT	;
SPRV(E)	;
PRVREF(R)	;
BHPPNAME(R)	;EP primary provider internal # from 200
EXCL	;
PROC	;
DP	;
PPV(V)	;

Name	Field # of Occurrence
$$BHALCS^APCLDE1	PROC+8
$$PCCALCS^APCLDE1	PROC+9
$$REFUSAL^APCLDE1	PROC+11
XTMP^APCLOSUT	PROC+4
$$PRIMPROV^APCLV	PPV+2
PAUSE^APCLVL01	INFORM+29
^DIC	STMP+2
^DIR	DATES+3, DATES+5, TALLY+9, EXCL+4, LIST+3, LIST1+5, DP+3, EOP+7
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	SPRV+1, PRVREF+1
^XBFMK	XIT+2
EN^XBVK	XIT+1

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: !!,"*Please Note: This DEPRESSION report is intended for advanced RPMS users" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"who are experienced in building search templates and using Q-MAN." Line Location: INFORM+4
Function Call: WRITE	Prompt: !!,$$CTR("TALLY AND LISTING OF PATIENT'S RECEIVING DEPRESSION SCREENING, INCLUDING REFUSALS",80) Line Location: INFORM+5
Function Call: WRITE	Prompt: !,$$CTR("ONLY PATIENTS WHO ARE MEMBERS OF A USER DEFINED SEARCH TEMPLATE",80) Line Location: INFORM+6
Function Call: WRITE	Prompt: !,$$CTR("ARE INCLUDED IN THIS REPORT",80) Line Location: INFORM+7
Function Call: WRITE	Prompt: !!,"This report will tally and list all patients who are members of" Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"of a user defined search template. It will tally and list their latest" Line Location: INFORM+9
Function Call: WRITE	Prompt: !,"DEPRESSION screening or a refusal documented in the time frame specified by " Line Location: INFORM+10
Function Call: WRITE	Prompt: !,"the user. Depression Screening is defined as any of the following documented:" Line Location: INFORM+11
Function Call: WRITE	Prompt: !?5,"- Depression Screening Exam (Exam code 36)" Line Location: INFORM+12
Function Call: WRITE	Prompt: !?5,"- Measurements: PHQ2, PHQ9, PHQT" Line Location: INFORM+13
Function Call: WRITE	Prompt: !?5,"- Diagnoses V79.0 (there are no ICD10 codes), 14.1 (Behavioral Hlth Code)" Line Location: INFORM+14
Function Call: WRITE	Prompt: !?5,"- Education Topics: DEP-SCR" Line Location: INFORM+15
Function Call: WRITE	Prompt: !?5,"- refusal of exam code 36" Line Location: INFORM+16
Function Call: WRITE	Prompt: !,"This report will tally the patients by age, gender, screening exam result," Line Location: INFORM+17
Function Call: WRITE	Prompt: !,"provider (either exam provider, if available, or primary provider on the " Line Location: INFORM+18
Function Call: WRITE	Prompt: !,"visit), clinic, date of screening, designated PCP, MH Provider, SS Provider" Line Location: INFORM+19
Function Call: WRITE	Prompt: !,"and A/SA Provider." Line Location: INFORM+20
Function Call: WRITE	Prompt: !," Notes: " Line Location: INFORM+21
Function Call: WRITE	Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient" Line Location: INFORM+22
Function Call: WRITE	Prompt: !?10," was screened more than once in the time period, only the latest" Line Location: INFORM+23
Function Call: WRITE	Prompt: !?10," is used in this report." Line Location: INFORM+24
Function Call: WRITE	Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral" Line Location: INFORM+25
Function Call: WRITE	Prompt: !?10," Health databases for evidence of screening/refusal" Line Location: INFORM+26
Function Call: WRITE	Prompt: !?10,"- this is a tally of Patients, not visits or screenings" Line Location: INFORM+27
Function Call: WRITE	Prompt: ! Line Location: INFORM+28
Function Call: WRITE	Prompt: !!,"Exam code 36 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+32
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: ! Line Location: STMP+2
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,"6) Date of Screening" Line Location: TALLY+3
Function Call: WRITE	Prompt: !?3,"1) Type/Result of Screening",?40,"7) Primary Provider on Visit" Line Location: TALLY+4
Function Call: WRITE	Prompt: !?3,"2) Gender",?40,"8) Designated Primary Care Provider" Line Location: TALLY+5
Function Call: WRITE	Prompt: !?3,"3) Age of Patient" Line Location: TALLY+6
Function Call: WRITE	Prompt: !?3,"4) Provider who Screened" Line Location: TALLY+7
Function Call: WRITE	Prompt: !?3,"5) Clinic" Line Location: TALLY+8
Function Call: WRITE	Prompt: !!,"Would you like to include screenings recorded in the Behavioral Clinics" Line Location: EXCL+2
Function Call: WRITE	Prompt: !,"Mental Health (14); DEPRESSION and Substance Abuse (43), Medical Social" Line Location: EXCL+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: ! Line Location: EOP+6
Routine Call	DIC Line Location: STMP+2
Routine Call	DIR Line Location: DATES+3 DATES+5 TALLY+9 EXCL+4 LIST+3 LIST1+5 DP+3 EOP+7

Name	Line Occurrences (* Changed, ! Killed)
^AMHRPROV - [#9002011.02]	BHPPNAME+2
^AMHRPROV("AD"	BHPPNAME+2
^AUPNPREF - [#9000022]	PRVREF+1
^AUPNVXAM - [#9000010.13]	SPRV+1
^AUTTEXAM("C"	INFORM+31, PROC+11
^DIBT(	PROC+6
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	BHPPNAME+2, USR+1
^XTMP("APCLDE4"	PROC+3!, PROC+14*

Name	Line Occurrences
$$CTR	INFORM+1, INFORM+5, INFORM+6, INFORM+7
$$LOC	INFORM+2
$$USR	INFORM+1
DATES	DATES+7, STMP+3, TALLY+10, TALLY+11, EXCL+5, LIST+4
LIST	LIST1+6, DP+4
XIT	INFORM+30, INFORM+32, ZIS+3
ZIS	LIST+6

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+13*
>> APCALSC	PROC+8, PROC+10, PROC+12*, PROC+13, PROC+14
APCLBD	DATES!, DATES+3*, DATES+7, PROC+8, PROC+9, PROC+11
>> APCLCNT	PROC+1*
>> APCLDP	DP+1, DP+5
APCLED	DATES!, DATES+5*, DATES+7, PROC+8, PROC+9, PROC+11
>> APCLEFS	PROC+11*, PROC+12
>> APCLEXC	INFORM+31*, INFORM+32
>> APCLEXPC	EXCL+1, EXCL+6, PROC+8
>> APCLH	PROC+2*, PROC+3, PROC+14
>> APCLJ	PROC+2*, PROC+3, PROC+14
>> APCLLIST	LIST+1, LIST+5, LIST+6
>> APCLSEAT	STMP+1, STMP+4, PROC+6
>> APCLSORT	LIST1+1, LIST1+7
APCLTALL	TALLY+1!, TALLY+12*
APCLTALL(	TALLY+13*
>> APCPCALS	PROC+9*, PROC+10
>> APCPFI	PROC+8, PROC+10, PROC+12*, PROC+14
>> C	TALLY+13*
DA	STMP+2!, TALLY+9!, EXCL+4!, LIST+3!, LIST1+5!, DP+3!
>> DFN	PROC+6*, PROC+8, PROC+9, PROC+11, PROC+14
DFOUT	EOP+5!
DIC	STMP+2*!
DIC("A"	STMP+2*
DIC("S"	STMP+2*
DIC(0	STMP+2*
DICR	STMP+2!
DIR	DATES+2!, DATES+4!, TALLY+9!, EXCL+4!, LIST+3!, LIST1+5!, DP+3!, EOP+4~
DIR("A"	DATES+2, DATES+4, TALLY+9, EXCL+4, LIST+3, LIST1+4, DP+3, EOP+7
DIR("B"	TALLY+9, EXCL+4, LIST+3, LIST1+4, DP+3*
DIR(0	DATES+2, DATES+4, TALLY+9, EXCL+4, LIST+3, LIST1+3, DP+3, EOP+7
DIRUT	TALLY+10, EXCL+5, LIST+4, LIST1+6, DP+4, EOP+5!
DLOUT	EOP+5!
DR	STMP+2!
DTOUT	EOP+5!
DUOUT	EOP+5!
DUZ	USR+1
DUZ(2	LOC+1
E	SPRV~, SPRV+1
>> I	TALLY+13*
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	PROC+10, PROC+12, PROC+14, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V	PPV~, PPV+2
X	CTR~, CTR+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+3, DATES+5, STMP+3, STMP+4, TALLY+11, TALLY+12, TALLY+13, EXCL+6, LIST+5, LIST1+7 , DP+5, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDE4

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: