Routine: APCLAL1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	3	$$PCCSCR^APCLAL2 ($$CLINIC,$$PRIMPROV)^APCLV PAUSE^APCLVL01
VA Fileman	2	^%DT ^DIR
IHS Patient	1	$$AGE^AUPNPAT
Kernel	1	$$FMADD^XLFDT
Mental Health Social Services	1	XTMP^AMHUTIL
Taxonomy	1	$$ICD^ATXAPI

Package	Total	Caller Graph
Patient Care Component Reports	3	APCLAL2 APCLAL31 APCLAL4

Entry Points

Name	Comments	DBIA/ICR reference
DATES
BHALCS(P,BDATE,EDATE)	;EP - pass back last BH screening
LIST1	;
SCRNPCC(T)	;get screening provider based on v file
USR()	;EP - Return name of current user from ^VA(200.
PCCALCS(P,BDATE,EDATE)	;EP - get alcohol screening from pcc
DP	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
TALLY	;which items to tally
BHRT(V,TYPE,RES,PAT,PROVSCRN,COMMENT)	;EP
INFORM	;
SPRV(E)	;
ZIS	;
PPV(V)	;
PCCV(S,PAT)	;EP
XIT	;
EXCL	;
LIST	;
EOP	;EP - End of page.
REFUSAL(PAT,F,I,B,E)	;EP
PRVREF(R)	;
BHPPNAME(R)	;EP primary provider internal # from 200
PROC	;

External References

Name	Field # of Occurrence
^%DT	REFUSAL+6, REFUSAL+7
XTMP^AMHUTIL	PROC+4
$$PCCSCR^APCLAL2	PCCALCS+19
$$CLINIC^APCLV	PCCALCS+16
$$PRIMPROV^APCLV	PPV+2, PCCV+9
PAUSE^APCLVL01	INFORM+26
$$ICD^ATXAPI	BHALCS+35
$$AGE^AUPNPAT	BHRT+7, REFUSAL+12, PCCV+6
^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, BHALCS+14, BHALCS+19, BHALCS+23, BHALCS+26, BHALCS+30, BHALCS+36, BHRT+9, BHRT+11 , BHRT+12, BHRT+13, BHRT+14, REFUSAL+10, REFUSAL+13, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV+8 , PCCV+10, PCCV+11, PCCV+12, PCCV+13, SCRNPCC+4
$$VALI^XBDIQ1	BHALCS+15, BHALCS+22, BHALCS+23, BHALCS+27, BHALCS+31, BHALCS+34
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMADD^XLFDT	BHALCS+7, PCCALCS+8

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 PATIENTS RECEIVING ALCOHOL 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: !,"ALCOHOL screening or a refusal documented in the time frame specified by " Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"the user. Alcohol Screening is defined as any of the following documented:" Line Location: INFORM+6
Function Call: WRITE	Prompt: !?5,"- Alcohol Screening Exam (Exam code 35)" Line Location: INFORM+7
Function Call: WRITE	Prompt: !?5,"- Measurements: AUDC, AUDT, CRFT" Line Location: INFORM+8
Function Call: WRITE	Prompt: !?5,"- Health Factor with Alcohol/Drug Category (CAGE)" Line Location: INFORM+9
Function Call: WRITE	Prompt: !?5,"- Diagnoses V79.1 (there are no ICD10 codes), 29.1 (Behavioral Hlth Code)" Line Location: INFORM+10
Function Call: WRITE	Prompt: !?5,"- Education Topics: AOD-SCR, CD-SCR" Line Location: INFORM+11
Function Call: WRITE	Prompt: !?5,"- CPT Codes: 99408, 99409, G0396, G0397, H0049" Line Location: INFORM+12
Function Call: WRITE	Prompt: !?5,"- refusal of exam code 35" Line Location: INFORM+13
Function Call: WRITE	Prompt: !,"This report will tally the patients by age, gender, screening exam result," Line Location: INFORM+14
Function Call: WRITE	Prompt: !,"provider (either exam provider, if available, or primary provider on the " Line Location: INFORM+15
Function Call: WRITE	Prompt: !,"visit), clinic, date of screening, designated PCP, MH Provider, SS Provider" Line Location: INFORM+16
Function Call: WRITE	Prompt: !,"and A/SA Provider." Line Location: INFORM+17
Function Call: WRITE	Prompt: !," Notes: " Line Location: INFORM+18
Function Call: WRITE	Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient" Line Location: INFORM+19
Function Call: WRITE	Prompt: !?10," was screened more than once in the time period, only the latest" Line Location: INFORM+20
Function Call: WRITE	Prompt: !?10," is used in this report." Line Location: INFORM+21
Function Call: WRITE	Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral" Line Location: INFORM+22
Function Call: WRITE	Prompt: !?10," Health databases for evidence of screening/refusal" Line Location: INFORM+23
Function Call: WRITE	Prompt: !?10,"- this is a tally of Patients, not visits or screenings" Line Location: INFORM+24
Function Call: WRITE	Prompt: ! Line Location: INFORM+25
Function Call: WRITE	Prompt: !!,"Exam code 35 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+29
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,"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 MH Provider" Line Location: TALLY+5
Function Call: WRITE	Prompt: !?3,"3) Age of Patient",?40,"9) Designated SS Provider" Line Location: TALLY+6
Function Call: WRITE	Prompt: !?3,"4) Provider who Screened",?40,"10) Designated ASA/CD Provider" Line Location: TALLY+7
Function Call: WRITE	Prompt: !?3,"5) Clinic",?40,"11) Designated Primary Care Provider" 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	DIR Line Location: DATES+3 DATES+5 TALLY+9 EXCL+4 LIST+3 LIST1+5 DP+3 EOP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AHHREC("AVISIT"	PCCALCS+17
^AMHREC - [#9002011]	BHALCS+10, BHALCS+18, BHALCS+19, BHRT+4
^AMHREC("AE"	BHALCS+8, BHALCS+9
^AMHREDU - [#9002011.05]	BHALCS+31
^AMHREDU("AD"	BHALCS+29
^AMHRHF - [#9002011.08]	BHALCS+23
^AMHRHF("AD"	BHALCS+21
^AMHRMSR - [#9002011.12]	BHALCS+15
^AMHRMSR("AD"	BHALCS+13
^AMHRPRO("AD"	BHALCS+25
^AMHRPROC("AD"	BHALCS+33
^AMHRPROV - [#9002011.02]	BHPPNAME+2
^AMHRPROV("AD"	BHPPNAME+2
^ATXAX("B"	BHALCS+35
^AUPNPAT - [#9000001]	PROC+6
^AUPNPREF - [#9000022]	PRVREF+1, REFUSAL+8
^AUPNPREF("AA"	REFUSAL+8
^AUPNVSIT - [#9000010]	PCCALCS+11, PCCALCS+13, PCCALCS+14
^AUPNVSIT("AA"	PCCALCS+9, PCCALCS+10
^AUPNVXAM - [#9000010.13]	SPRV+1
^AUTTEXAM("C"	INFORM+28, PROC+11
^AUTTHF - [#9999999.64]	BHALCS+23
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	BHRT+6, REFUSAL+11, PCCV+5
^VA(200 - [#200]	BHPPNAME+2, USR+1, BHRT+8
^XTMP("APCLAL1"	PROC+3!, PROC+14*

Label References

Name	Line Occurrences
$$BHALCS	PROC+8
$$BHPPNAME	BHRT+10
$$BHRT	BHALCS+15, BHALCS+19, BHALCS+23, BHALCS+27, BHALCS+31, BHALCS+36
$$CTR	INFORM+1, INFORM+3
$$LOC	INFORM+2
$$PCCALCS	PROC+9
$$REFUSAL	PROC+11
$$SCRNPCC	PCCV+7
$$USR	INFORM+1
DATES	DATES+7, TALLY+10, TALLY+11, EXCL+5, LIST+4
LIST	LIST1+6, DP+4
XIT	INFORM+27, INFORM+29, ZIS+3
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
%DT	REFUSAL+6~, REFUSAL+7
>> A	TALLY+13*
>> APCALSC	PROC+8, PROC+10, PROC+12*, PROC+13, PROC+14
>> APCLALSC	PROC+8*
>> APCLEXBH	EXCL+1, EXCL+6, PROC+8, PCCALCS+16, PCCALCS+17
>> APCPCALS	PROC+9*, PROC+10
>> APCPFI	PROC+8, PROC+10, PROC+12*, PROC+14
APCRBD	DATES!, DATES+3*, DATES+7, PROC+8, PROC+9, PROC+11
>> APCRCNT	PROC+1*
APCRDATE	PCCALCS+6~, PCCALCS+13*
>> APCRDP	DP+1, DP+5
APCRED	DATES!, DATES+5*, DATES+7, PROC+8, PROC+9, PROC+11
>> APCREFS	PROC+11*, PROC+12
>> APCREXC	INFORM+28*, INFORM+29
>> APCREXPC	EXCL+7*, PROC+9, PROC+11
>> APCRH	PROC+2*, PROC+3, PROC+14
>> APCRJ	PROC+2*, PROC+3, PROC+14
>> APCRLIST	LIST+1, LIST+5, LIST+6
>> APCRSORT	LIST1+1, LIST1+7
APCRTALL	TALLY+1!, TALLY+12*
APCRTALL(	TALLY+13*
B	REFUSAL~, REFUSAL+4, REFUSAL+6*, REFUSAL+8
BDATE	BHALCS~, BHALCS+2, BHALCS+8, PCCALCS~, PCCALCS+2, PCCALCS+9
>> C	TALLY+13, PCCALCS+16
COMMENT	BHRT~, BHRT+2*, BHRT+16
D	BHALCS+5~, BHRT+3~, BHRT+4, BHRT+7, REFUSAL+8, REFUSAL+9, REFUSAL+12
DA	TALLY+9!, EXCL+4!, LIST+3!, LIST1+5!, DP+3!
>> DFN	PROC+6, PROC+8, PROC+9, PROC+11, PROC+14, PCCALCS+14, PCCALCS+15
DFOUT	EOP+5!
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!
DTOUT	EOP+5!
DUOUT	EOP+5!
DUZ	USR+1
DUZ(2	LOC+1
E	SPRV~, SPRV+1, BHALCS+5~, BHALCS+18, BHALCS+19, REFUSAL~, REFUSAL+5, REFUSAL+7, REFUSAL+8
EDATE	BHALCS~, BHALCS+3, BHALCS+7, PCCALCS~, PCCALCS+3, PCCALCS+8
F	REFUSAL~, REFUSAL+2, REFUSAL+8, SCRNPCC+1~, SCRNPCC+2, SCRNPCC+3, SCRNPCC+4
I	TALLY+13*, REFUSAL~, REFUSAL+3, REFUSAL+8
IO	EOP+2
IO("S"	EOP+3
IO(0	EOP+2
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+3
M	BHALCS+5~, BHALCS+14, BHALCS+15, BHALCS+22, BHALCS+23, BHALCS+26, BHALCS+27, BHALCS+30, BHALCS+31, BHALCS+34* , BHALCS+35
P	BHALCS~, BHALCS+1, BHALCS+8, BHALCS+9, BHALCS+15, BHALCS+19, BHALCS+23, BHALCS+27, BHALCS+31, BHALCS+36 , PCCALCS~, PCCALCS+1, PCCALCS+9, PCCALCS+10
PAT	BHRT~, BHRT+6, BHRT+7, BHRT+11, BHRT+12, BHRT+13, BHRT+14, BHRT+17, REFUSAL~, REFUSAL+1 , REFUSAL+8, REFUSAL+11, REFUSAL+12, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV~, PCCV+5, PCCV+6 , PCCV+10, PCCV+11, PCCV+12, PCCV+13, PCCV+15
PROVSCRN	BHRT~, BHRT+1*, BHRT+8
R	BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1, BHALCS+5~, BHALCS+6, BHALCS+8, BHALCS+9, BHALCS+13, BHALCS+15 , BHALCS+16, BHALCS+19, BHALCS+20, BHALCS+21, BHALCS+23, BHALCS+24, BHALCS+25, BHALCS+27, BHALCS+28, BHALCS+29 , BHALCS+31, BHALCS+32, BHALCS+33, BHALCS+36, BHALCS+37, BHALCS+38, PCCALCS+6~, PCCALCS+7, PCCALCS+9, PCCALCS+10 , PCCALCS+19*, PCCALCS+20
RES	BHRT~, BHRT+5
S	PCCV~, PCCV+3, PCCV+4, PCCV+6, PCCV+7, PCCV+8, PCCV+9, PCCV+14, SCRNPCC+1~, SCRNPCC+4* , SCRNPCC+5
SDATE	BHALCS+5~, BHALCS+7, BHALCS+8, BHALCS+9, PCCALCS+6~, PCCALCS+8, PCCALCS+9, PCCALCS+10
T	BHRT+3~, BHRT+4, BHRT+5, BHRT+6, BHRT+7, BHRT+8, BHRT+9, BHRT+10, BHRT+11, BHRT+12* , BHRT+13, BHRT+14, BHRT+15, BHRT+16, BHRT+17, BHRT+18, BHRT+19, PCCALCS+4~, REFUSAL+6~, REFUSAL+8* , REFUSAL+9, REFUSAL+10, REFUSAL+11, REFUSAL+12, REFUSAL+13, REFUSAL+14, REFUSAL+15, REFUSAL+16, REFUSAL+17, REFUSAL+18 , REFUSAL+19, REFUSAL+20, PCCV+1~, PCCV+2, PCCV+3, PCCV+4, PCCV+5, PCCV+6, PCCV+7, PCCV+8 , PCCV+9, PCCV+10, PCCV+11, PCCV+12, PCCV+13, PCCV+14, PCCV+15, PCCV+16, PCCV+17, SCRNPCC~ , SCRNPCC+3, SCRNPCC+4
TYPE	BHRT~, BHRT+5
U	PROC+10, PROC+12, PROC+14, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1, BHALCS+15, BHALCS+18 , BHALCS+19, BHALCS+23, BHALCS+31, BHRT+4, BHRT+5, BHRT+6, BHRT+7, BHRT+8, BHRT+9, BHRT+10 , BHRT+11, BHRT+12, BHRT+13, BHRT+14, BHRT+15, BHRT+16, BHRT+17, BHRT+18, PCCALCS+13, PCCALCS+14 , REFUSAL+8, REFUSAL+10, REFUSAL+11, REFUSAL+12, REFUSAL+13, REFUSAL+14, REFUSAL+15, REFUSAL+16, REFUSAL+17, REFUSAL+18 , REFUSAL+19, PCCV+3, PCCV+4, PCCV+5, PCCV+6, PCCV+7, PCCV+8, PCCV+9, PCCV+10, PCCV+11 , PCCV+12, PCCV+13, PCCV+14, PCCV+15, PCCV+16, SCRNPCC+3, SCRNPCC+4
V	PPV~, PPV+2, BHALCS+5~, BHALCS+9, BHALCS+10, BHALCS+13, BHALCS+15, BHALCS+18, BHALCS+19, BHALCS+21 , BHALCS+23, BHALCS+25, BHALCS+27, BHALCS+29, BHALCS+31, BHALCS+33, BHALCS+36, BHRT~, BHRT+4, BHRT+9 , BHRT+10, BHRT+15, PCCALCS+6~, PCCALCS+10, PCCALCS+11, PCCALCS+13, PCCALCS+14, PCCALCS+16, PCCALCS+17, PCCALCS+19
X	CTR~, CTR+1, BHALCS+5~, BHALCS+13, BHALCS+14, BHALCS+15, BHALCS+21, BHALCS+22, BHALCS+23, BHALCS+25* , BHALCS+26, BHALCS+27, BHALCS+29, BHALCS+30, BHALCS+31, BHALCS+33, BHALCS+34, BHALCS+36, REFUSAL+6~, REFUSAL+7 , REFUSAL+8*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+3, DATES+5, TALLY+11, TALLY+12, TALLY+13, EXCL+6, LIST+5, LIST1+7, DP+5, CTR~ , CTR+1, REFUSAL+6~, REFUSAL+7, REFUSAL+8*, REFUSAL+10, REFUSAL+13
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAL1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: