Routine: AMHRAS2

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
Mental Health Social Services	4	PAUSE^AMHLEA ($$BHRT,$$PCCV)^AMHRAS1 ($$ALLOWP,$$ALLOWPCC,$$ALLOWVI,DBHUSR,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS Patient	1	$$AGE^AUPNPAT
Kernel	1	$$FMADD^XLFDT
Patient Care Component Reports	1	$$PRIMPROV^APCLV
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^DIR

Package	Total	Caller Graph
Mental Health Social Services	2	AMHRAS1 AMHRAS5

Entry Points

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

External References

Name	Field # of Occurrence
PAUSE^AMHLEA	INFORM+24
$$BHRT^AMHRAS1	BHSCR+7, BHSCR+11, BHSCR+16, BHSCR+21, BHSCR+26, BHSCR+32
$$PCCV^AMHRAS1	PCCSCR+10, PCCSCR+17, PCCSCR+24, PCCSCR+31, PCCSCR+38, PCCSCR+45
$$ALLOWP^AMHUTIL	PROC+16, PCC+13, PCC+30
$$ALLOWPCC^AMHUTIL	PCC+8
$$ALLOWVI^AMHUTIL	PROC+11
DBHUSR^AMHUTIL	INFORM+24
XTMP^AMHUTIL	PROC+4
$$DEMO^AMHUTIL1	PROC+17, PCC+14, PCC+31
DEMOCHK^AMHUTIL1	DEMO+1
$$PRIMPROV^APCLV	PPV+2
$$ICD^ATXCHK	BHSCR+31, PCCSCR+43
$$AGE^AUPNPAT	PCC+38
^DIR	DATES+3, DATES+5, TALLY+9, EXCL+3, LIST+3, LIST1+5, EOP+7
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PCC+36, PCC+39, PCC+42, PCC+43, PCC+44, PCC+45, BHSCR+6, BHSCR+11, BHSCR+16, BHSCR+20 , BHSCR+25, BHSCR+32, PCCSCR+7, PCCSCR+9, PCCSCR+14, PCCSCR+16, PCCSCR+23, PCCSCR+28, PCCSCR+35, SPRV+1 , PRVREF+1
$$VALI^XBDIQ1	BHSCR+7, BHSCR+15, BHSCR+16, BHSCR+21, BHSCR+26, BHSCR+30, PCCSCR+21, PCCSCR+42
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMADD^XLFDT	PROC+6, PCC+2

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 ALL VISITS W/ALCOHOL SCREENING",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally and optionally list all visits on which ALCOHOL" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"screening or a refusal was documented in the time frame specified by the" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"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, 29.1" 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 visits by age, gender, screening 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,"- this report will optionally, look at both PCC and the Behavioral" Line Location: INFORM+19
Function Call: WRITE	Prompt: !?10," Health databases for evidence of screening/refusal" Line Location: INFORM+20
Function Call: WRITE	Prompt: !?10,"- this is a tally of visits with a screening done, if a patient had" Line Location: INFORM+21
Function Call: WRITE	Prompt: !?10," multiple screenings during the time period, all will be counted" Line Location: INFORM+22
Function Call: WRITE	Prompt: ! Line Location: INFORM+23
Function Call: WRITE	Prompt: !!,"Exam code 35 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+27
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 ALCOHOL Screenings documented in the PCC clinical" Line Location: EXCL+2
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST1+2
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIR Line Location: DATES+3 DATES+5 TALLY+9 EXCL+3 LIST+3 LIST1+5 EOP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROC+10, PROC+14, BHSCR+4, BHSCR+10, BHSCR+11
^AMHREC("AVISIT"	PCC+7
^AMHREC("B"	PROC+7, PROC+8
^AMHREDU - [#9002011.05]	BHSCR+26
^AMHREDU("AD"	BHSCR+24
^AMHRHF - [#9002011.08]	BHSCR+16
^AMHRHF("AD"	BHSCR+14
^AMHRMSR - [#9002011.12]	BHSCR+7
^AMHRMSR("AD"	BHSCR+5
^AMHRPRO("AD"	BHSCR+19
^AMHRPROC("AD"	BHSCR+29
^AMHRPROV - [#9002011.02]	BHPPNAME+2
^AMHRPROV("AD"	BHPPNAME+2
^ATXAX("B"	BHSCR+31, PCCSCR+43
^AUPNPREF - [#9000022]	PCC+21, PCC+22, PCC+23, PCC+24, PCC+25, PCC+29, PRVREF+1
^AUPNVCPT("AD"	PCCSCR+41
^AUPNVHF("AD"	PCCSCR+20
^AUPNVMSR("AD"	PCCSCR+6
^AUPNVPED("AD"	PCCSCR+34
^AUPNVPOV("AD"	PCCSCR+27
^AUPNVSIT - [#9000010]	PCC+6, PCC+11, PCCSCR+4, PCCSCR+5
^AUPNVSIT("B"	PCC+3, PCC+4
^AUPNVXAM - [#9000010.13]	SPRV+1
^AUPNVXAM("AD"	PCCSCR+13
^AUTTEXAM("C"	INFORM+26
^AUTTHF - [#9999999.64]	BHSCR+16, PCCSCR+22
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PCC+37
^VA(200 - [#200]	BHPPNAME+2, USR+1
^XTMP("AMHRAS2"	PROC+3!, PROC+21, PROC+22, PCC+18, PCC+19, PCC+32, PCC+34, PCC+48

Label References

Name	Line Occurrences
$$BHSCR	PROC+18
$$CTR	INFORM+1, INFORM+3
$$LOC	INFORM+2
$$PCCSCR	PCC+15
$$USR	INFORM+1
DATES	DATES+7, TALLY+10, TALLY+11, EXCL+4, LIST+4
DEMO	LIST+6
LIST	LIST1+6, DEMO+2
XIT	INFORM+25, INFORM+27, ZIS+3

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+13*
>> AMHDEMO	DEMO+1, DEMO+2, PROC+17, PCC+14, PCC+31
AMHRBD	DATES!, DATES+3*, DATES+7, PROC+6, PROC+13, PCC+2, PCC+10, PCC+28
>> AMHRBIEN	PROC+8, PROC+10, PROC+11, PROC+14, PROC+18, PCC+4, PCC+6, PCC+7, PCC+8, PCC+11 , PCC+15
>> AMHRCNT	PROC+1, PROC+20, PROC+22, PCC+17, PCC+19, PCC+33, PCC+48
>> AMHRDATE	PROC+9, PROC+12, PROC+13, PROC+21, PCC+5, PCC+9, PCC+10, PCC+18, PCC+25*, PCC+26 , PCC+27, PCC+28, PCC+32, PCC+34, PCC+35, PCC+38
AMHRED	DATES!, DATES+5*, DATES+7, PROC+7, PROC+12, PCC+3, PCC+9, PCC+27
>> AMHREXC	INFORM+26*, INFORM+27, PCC+24
>> AMHREXPC	EXCL+1, EXCL+5, PCC+1
>> AMHRH	PROC+2*, PROC+3, PROC+21, PROC+22, PCC+18, PCC+19, PCC+32, PCC+34, PCC+48
>> AMHRJ	PROC+2*, PROC+3, PROC+21, PROC+22, PCC+18, PCC+19, PCC+32, PCC+34, PCC+48
>> AMHRLIST	LIST+1, LIST+5, LIST+6
>> AMHRRIEN	PCC+21*, PCC+22, PCC+23, PCC+24, PCC+25, PCC+29, PCC+36, PCC+39
>> AMHRSD	PROC+6, PROC+7, PROC+8, PROC+9, PCC+2, PCC+3, PCC+4, PCC+5
>> AMHRSORT	LIST1+1, LIST1+7
AMHRTALL	TALLY+1!, TALLY+12*
AMHRTALL(	TALLY+13*
>> AMHSCR	PROC+18, PROC+19, PROC+22, PCC+15, PCC+16, PCC+19
>> C	TALLY+13*
>> D	PCCSCR+5*, PCCSCR+9, PCCSCR+16, PCCSCR+23, PCCSCR+30, PCCSCR+37, PCCSCR+44
DA	TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!
>> DFN	PROC+14, PROC+15, PROC+16, PROC+17, PROC+21, PCC+11, PCC+12, PCC+13, PCC+14, PCC+18 , PCC+29*, PCC+30, PCC+31, PCC+32, PCC+34, PCC+37, PCC+38, PCC+42, PCC+43, PCC+44 , PCC+45, PCC+46
DFOUT	EOP+5!
DIR	DATES+2!, DATES+4!, TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, EOP+4~
DIR("A"	DATES+2, DATES+4, TALLY+9, EXCL+3, LIST+3, LIST1+4, EOP+7*
DIR("B"	TALLY+9, EXCL+3, LIST+3, LIST1+4
DIR(0	DATES+2, DATES+4, TALLY+9, EXCL+3, LIST+3, LIST1+3, EOP+7*
DIRUT	TALLY+10, EXCL+4, LIST+4, LIST1+6, EOP+5!
DLOUT	EOP+5!
DTOUT	EOP+5!
DUOUT	EOP+5!
DUZ	PROC+11, PROC+16, PCC+8, PCC+13, PCC+30, USR+1
DUZ(2	LOC+1
E	BHSCR+2~, BHSCR+10*, BHSCR+11, PCCSCR+2~, 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
M	BHSCR+2~, BHSCR+6, BHSCR+7, BHSCR+15, BHSCR+16, BHSCR+20, BHSCR+21, BHSCR+25, BHSCR+26, BHSCR+30* , BHSCR+31, PCCSCR+2~, PCCSCR+7, PCCSCR+8, PCCSCR+9, PCCSCR+14, PCCSCR+15, PCCSCR+16, PCCSCR+21, PCCSCR+22 , PCCSCR+28, PCCSCR+29, PCCSCR+30, PCCSCR+35, PCCSCR+36, PCCSCR+37, PCCSCR+42, PCCSCR+43, PCCSCR+44
P	BHSCR+2~, BHSCR+4, BHSCR+7, BHSCR+11, BHSCR+16, BHSCR+21, BHSCR+26, BHSCR+32, PCCSCR+2~, PCCSCR+4 , PCCSCR+10, PCCSCR+17, PCCSCR+24, PCCSCR+31, PCCSCR+38, PCCSCR+45
R	BHSCR+2~, BHSCR+3, BHSCR+7, BHSCR+8, BHSCR+11, BHSCR+12, BHSCR+16, BHSCR+17, BHSCR+21, BHSCR+22 , BHSCR+26, BHSCR+27, BHSCR+32, BHSCR+33, BHSCR+34, PCCSCR+2~, PCCSCR+3, PCCSCR+10, PCCSCR+11, PCCSCR+17 , PCCSCR+18, PCCSCR+24, PCCSCR+25, PCCSCR+31, PCCSCR+32, PCCSCR+38, PCCSCR+39, PCCSCR+45, PCCSCR+46, PCCSCR+47 , BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
>> T	PCC+35, PCC+36, PCC+37, PCC+38, PCC+39, PCC+40, PCC+41, PCC+42, PCC+43, PCC+44 , PCC+45, PCC+46, PCC+47, PCC+48, PCCSCR+9, PCCSCR+10, PCCSCR+16, PCCSCR+17, PCCSCR+23, PCCSCR+24 , PCCSCR+30, PCCSCR+31, PCCSCR+37, PCCSCR+38, PCCSCR+44*, PCCSCR+45
U	PROC+14, PCC+11, PCC+23, PCC+24, PCC+25, PCC+29, PCC+36, PCC+37, PCC+38, PCC+39 , PCC+40, PCC+41, PCC+42, PCC+43, PCC+44, PCC+45, PCC+46, PCC+47, BHSCR+4, BHSCR+7 , BHSCR+10, BHSCR+11, BHSCR+16, BHSCR+26, PCCSCR+4, PCCSCR+5, PCCSCR+9, PCCSCR+16, PCCSCR+22, PCCSCR+23 , PCCSCR+30, PCCSCR+37, PCCSCR+44, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V	BHSCR~, BHSCR+4, BHSCR+5, BHSCR+7, BHSCR+10, BHSCR+11, BHSCR+14, BHSCR+16, BHSCR+19, BHSCR+21 , BHSCR+24, BHSCR+26, BHSCR+29, BHSCR+32, PCCSCR~, PCCSCR+4, PCCSCR+5, PCCSCR+6, PCCSCR+9, PCCSCR+13 , PCCSCR+16, PCCSCR+20, PCCSCR+23, PCCSCR+27, PCCSCR+30, PCCSCR+34, PCCSCR+37, PCCSCR+41, PCCSCR+44, PPV~ , PPV+2
X	BHSCR+2~, BHSCR+5, BHSCR+6, BHSCR+7, BHSCR+14, BHSCR+15, BHSCR+16, BHSCR+19, BHSCR+20, BHSCR+21 , BHSCR+24, BHSCR+25, BHSCR+26, BHSCR+29, BHSCR+30, BHSCR+32, PCCSCR+2~, PCCSCR+6, PCCSCR+7, PCCSCR+9 , PCCSCR+13, PCCSCR+14, PCCSCR+16, PCCSCR+20, PCCSCR+21, PCCSCR+23, PCCSCR+27, PCCSCR+28, PCCSCR+30, PCCSCR+34 , PCCSCR+35, PCCSCR+37, PCCSCR+41*, PCCSCR+42, PCCSCR+44, CTR~, CTR+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+3, DATES+5, TALLY+11, TALLY+12, TALLY+13, EXCL+5, LIST+5, LIST1+7, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRAS2

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: