Routine: AMHRAS31

Package	Total	Call Graph
Mental Health Social Services	3	$$PCCV^AMHRAS1 ($$ALLOWP,$$ALLOWPCC,$$ALLOWVI,XTMP)^AMHUTIL $$DEMO^AMHUTIL1
VA Fileman	2	^%DT ^DIR
IHS Patient	1	($$AGE,$$SEX)^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMADD^XLFDT
Patient Care Component Reports	1	$$PRIMPROV^APCLV
Taxonomy	1	$$ICD^ATXCHK

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
PPV(V)	;
BHHF
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
PRVREF(R)	;
USR()	;EP - Return name of current user from ^VA(200.
BHRT(V,TYPE,RES,PAT,PROVSCRN,COMMENT)	;
PCCSCR(V)	;is there a screening? return in R
PCCV(S,PAT)	;
PCCALCS(P,BDATE,EDATE)	;EP - get alcohol screening from pcc
REFUSAL(PAT,F,I,B,E)	;EP
SPRV(E)	;
BHPPNAME(R)	;EP primary provider internal # from 200
BHALCS(P,BDATE,EDATE)	;
SCRNPCC(T)	;get screening provider based on v file
PROC	;
BHPPIN(R)	;

Name	Field # of Occurrence
^%DT	REFUSAL+6, REFUSAL+7
$$PCCV^AMHRAS1	PCCSCR+27, PCCSCR+44, PCCSCR+58, PCCSCR+65, PCCSCR+72, PCCSCR+79
$$ALLOWP^AMHUTIL	PROC+9, PCCALCS+16
$$ALLOWPCC^AMHUTIL	PCCALCS+12
$$ALLOWVI^AMHUTIL	BHALCS+11
XTMP^AMHUTIL	PROC+4
$$DEMO^AMHUTIL1	PROC+10
$$PRIMPROV^APCLV	PCCALCS+23, PCCV+9, PPV+2
$$ICD^ATXCHK	BHHF+24, PCCSCR+77
$$AGE^AUPNPAT	BHALCS+13, BHRT+7, PCCALCS+17, REFUSAL+12, PCCV+6
$$SEX^AUPNPAT	BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, PCCSCR+22, PCCSCR+23, PCCSCR+24, PCCSCR+25
^DIR	EOP+7
$$VAL^XBDIQ1	BHALCS+25, BHALCS+49, BHALCS+60, BHHF+10, BHHF+11, BHHF+12, BHHF+15, BHHF+19, BHHF+25, BHRT+9 , BHRT+11, BHRT+12, BHRT+13, BHRT+14, PCCSCR+7, PCCSCR+26, PCCSCR+31, PCCSCR+43, PCCSCR+55, PCCSCR+56 , PCCSCR+57, PCCSCR+62, PCCSCR+69, REFUSAL+10, REFUSAL+13, REFUSAL+16, REFUSAL+17, REFUSAL+18, REFUSAL+19, PCCV+8 , PCCV+10, PCCV+11, PCCV+12, PCCV+13, SCRNPCC+4, SPRV+1, PRVREF+1
$$VALI^XBDIQ1	BHALCS+44, BHHF+2, BHHF+12, BHHF+16, BHHF+20, BHHF+23, PCCSCR+48, PCCSCR+76
$$FMADD^XLFDT	BHALCS+7, PCCALCS+8

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIR Line Location: EOP+7

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	PROC+12, PROC+13, PROC+14
^AMHREC - [#9002011]	BHALCS+10, BHALCS+12, BHALCS+17, BHALCS+47, BHALCS+56, BHALCS+60, BHRT+4
^AMHREC("AE"	BHALCS+8, BHALCS+9
^AMHREDU - [#9002011.05]	BHHF+20
^AMHREDU("AD"	BHHF+18
^AMHRHF - [#9002011.08]	BHHF+5, BHHF+12
^AMHRHF("AD"	BHHF+1
^AMHRMSR - [#9002011.12]	BHALCS+27, BHALCS+32, BHALCS+44
^AMHRMSR("AD"	BHALCS+24
^AMHRPRO("AD"	BHHF+14
^AMHRPROC("AD"	BHHF+22
^AMHRPROV - [#9002011.02]	BHPPIN+2, BHPPNAME+2
^AMHRPROV("AD"	BHPPIN+2, BHPPNAME+2
^ATXAX("B"	BHHF+24, PCCSCR+77
^AUPNPAT - [#9000001]	PROC+6
^AUPNPREF - [#9000022]	REFUSAL+8, PRVREF+1
^AUPNPREF("AA"	REFUSAL+8
^AUPNVCPT("AD"	PCCSCR+75
^AUPNVHF - [#9000010.23]	PCCSCR+50
^AUPNVHF("AD"	PCCSCR+47
^AUPNVMSR - [#9000010.01]	PCCSCR+9, PCCSCR+14
^AUPNVMSR("AD"	PCCSCR+6
^AUPNVPED("AD"	PCCSCR+68
^AUPNVPOV("AD"	PCCSCR+61
^AUPNVSIT - [#9000010]	PCCALCS+11, PCCALCS+13, PCCALCS+14, PCCALCS+21, PCCSCR+4, PCCSCR+5
^AUPNVSIT("AA"	PCCALCS+9, PCCALCS+10
^AUPNVXAM - [#9000010.13]	PCCSCR+33, PCCSCR+38, SPRV+1
^AUPNVXAM("AD"	PCCSCR+30
^AUTTEXAM("C"	PROC+18
^AUTTHF - [#9999999.64]	BHHF+3, PCCSCR+49
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+7, PROC+8, PROC+11, BHRT+6, REFUSAL+11, PCCV+5
^VA(200 - [#200]	BHRT+8, BHPPNAME+2, USR+1
^XTMP("AMHRAS3"	PROC+3!, PROC+21*

Name	Line Occurrences
$$BHALCS	PROC+15
$$BHPPIN	BHALCS+19
$$BHPPNAME	BHRT+10
$$BHRT	BHALCS+44, BHALCS+60, BHHF+12, BHHF+16, BHHF+20, BHHF+25
$$PCCALCS	PROC+16
$$PCCSCR	PCCALCS+27
$$REFUSAL	PROC+18
$$SCRNPCC	PCCV+7
BHHF	BHALCS+48, BHALCS+50, BHALCS+51, BHALCS+52, BHALCS+53, BHALCS+54, BHALCS+55, BHALCS+57, BHALCS+58, BHALCS+59

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BHPPIN+1~, BHPPIN+2, BHPPNAME+1~, BHPPNAME+2, PPV+1~, PPV+2*, PPV+3
%1	BHPPIN+1~, BHPPIN+2, BHPPIN+3, BHPPNAME+1~, BHPPNAME+2, BHPPNAME+3
%DT	REFUSAL+6~, REFUSAL+7
>> AMHALSC	PROC+15, PROC+17, PROC+19*, PROC+20, PROC+21
>> AMHDEMO	PROC+10
>> AMHPCALS	PROC+16*, PROC+17
>> AMHPFI	PROC+15, PROC+17, PROC+19*, PROC+21
>> AMHRAGET	BHALCS+14, BHALCS+15, PCCALCS+18, PCCALCS+19
>> AMHRBD	PROC+15, PROC+16, PROC+18
>> AMHRCDP	PROC+14
>> AMHRCLNT	BHALCS+17, PCCALCS+21
>> AMHRCLNT(	BHALCS+17, PCCALCS+21
>> AMHRCNT	PROC+1*
AMHRDATE	BHALCS+12, BHALCS+13, PCCALCS+6~, PCCALCS+13, PCCALCS+17
>> AMHRDESP	PROC+12
>> AMHRED	PROC+15, PROC+16, PROC+18
>> AMHREFS	PROC+18*, PROC+19
>> AMHREXPC	PROC+16, PROC+18
>> AMHRH	PROC+2*, PROC+3, PROC+21
>> AMHRJ	PROC+2*, PROC+3, PROC+21
>> AMHRPPUN	BHALCS+22, PCCALCS+26
>> AMHRPROV	BHALCS+20, BHALCS+21, PCCALCS+24, PCCALCS+25
>> AMHRPROV(	BHALCS+21, PCCALCS+25
>> AMHRRES	BHALCS+49*, BHALCS+50, BHALCS+51, BHALCS+52, BHALCS+53, BHALCS+54, BHALCS+55
>> AMHRREST(1	BHALCS+34, BHALCS+37, BHALCS+40, BHALCS+41, BHALCS+50, BHHF+10, PCCSCR+16, PCCSCR+19, PCCSCR+22, PCCSCR+23 , PCCSCR+40, PCCSCR+55
>> AMHRREST(2	BHALCS+35, BHALCS+38, BHALCS+42, BHALCS+43, BHALCS+51, BHHF+11, PCCSCR+17, PCCSCR+20, PCCSCR+24, PCCSCR+25 , PCCSCR+41, PCCSCR+56
>> AMHRREST(3	BHALCS+52
>> AMHRREST(4	BHALCS+53
>> AMHRREST(5	BHALCS+54, PCCSCR+42
>> AMHRREST(6	BHALCS+33, BHALCS+36, BHALCS+39, BHALCS+55, BHHF+14, BHHF+18, BHHF+22, PCCSCR+15, PCCSCR+18, PCCSCR+21 , PCCSCR+39, PCCSCR+61, PCCSCR+68, PCCSCR+75
>> AMHRSEX	PROC+11
>> AMHRSPRV	BHALCS+28, BHALCS+29, BHALCS+57, BHALCS+58, BHHF+6, BHHF+7, PCCSCR+10, PCCSCR+11, PCCSCR+34, PCCSCR+35 , PCCSCR+51, PCCSCR+52
>> AMHRSPRV(	BHALCS+29, BHALCS+58, BHHF+7, PCCSCR+11, PCCSCR+35, PCCSCR+52
>> AMHRSPUN	BHALCS+30, BHALCS+59, BHHF+8, PCCSCR+12, PCCSCR+36, PCCSCR+53
>> AMHRSSP	PROC+13
B	REFUSAL~, REFUSAL+4, REFUSAL+6*, REFUSAL+8
BDATE	BHALCS~, BHALCS+2, BHALCS+8, PCCALCS~, PCCALCS+2, PCCALCS+9
COMMENT	BHRT~, BHRT+2*, BHRT+16
D	BHALCS+5~, BHRT+3~, BHRT+4, BHRT+7, PCCSCR+5, PCCSCR+26, PCCSCR+43, PCCSCR+57, PCCSCR+64, PCCSCR+71 , PCCSCR+78, REFUSAL+8*, REFUSAL+9, REFUSAL+12
>> DFN	PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+15 , PROC+16, PROC+18, PROC+21, BHALCS+13, PCCALCS+14, PCCALCS+15, PCCALCS+16, PCCALCS+17
DFOUT	EOP+5!
DIR	EOP+4~
DIR("A"	EOP+7*
DIR(0	EOP+7*
DIRUT	EOP+5!
DLOUT	EOP+5!
DTOUT	EOP+5!
DUOUT	EOP+5!
DUZ	PROC+9, BHALCS+11, PCCALCS+12, PCCALCS+16, USR+1
DUZ(2	LOC+1
E	BHALCS+5~, BHALCS+27, BHALCS+28, BHALCS+29, BHALCS+30, BHALCS+32, BHALCS+33, BHALCS+34, BHALCS+35, BHALCS+36 , BHALCS+37, BHALCS+38, BHALCS+39, BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, BHALCS+47, BHALCS+48, BHALCS+56 , BHALCS+57, BHALCS+58, BHALCS+59, BHHF+5, BHHF+6, BHHF+7, BHHF+8, PCCSCR+2~, PCCSCR+9, PCCSCR+10 , PCCSCR+11, PCCSCR+12, PCCSCR+14, PCCSCR+15, PCCSCR+16, PCCSCR+17, PCCSCR+18, PCCSCR+19, PCCSCR+20, PCCSCR+21 , PCCSCR+22, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+33, PCCSCR+34, PCCSCR+35, PCCSCR+36, PCCSCR+38, PCCSCR+39 , PCCSCR+40, PCCSCR+41, PCCSCR+42, PCCSCR+50, PCCSCR+51, PCCSCR+52, PCCSCR+53, REFUSAL~, REFUSAL+5, REFUSAL+7* , REFUSAL+8, SPRV~, SPRV+1
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	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+25, BHALCS+26, BHALCS+33, BHALCS+34, BHALCS+35, BHALCS+36, BHALCS+37, BHALCS+38, BHALCS+39 , BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, BHALCS+44, BHHF+2, BHHF+3, BHHF+15, BHHF+16, BHHF+19 , BHHF+20, BHHF+23, BHHF+24, PCCSCR+2~, PCCSCR+7, PCCSCR+8, PCCSCR+15, PCCSCR+16, PCCSCR+17, PCCSCR+18 , PCCSCR+19, PCCSCR+20, PCCSCR+21, PCCSCR+22, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+26, PCCSCR+31, PCCSCR+32 , PCCSCR+43, PCCSCR+48, PCCSCR+49, PCCSCR+62, PCCSCR+63, PCCSCR+64, PCCSCR+69, PCCSCR+70, PCCSCR+71, PCCSCR+76* , PCCSCR+77, PCCSCR+78
P	BHALCS~, BHALCS+1, BHALCS+8, BHALCS+9, BHALCS+40, BHALCS+41, BHALCS+42, BHALCS+43, BHALCS+44, BHALCS+60 , BHHF+12, BHHF+16, BHHF+20, BHHF+25, PCCALCS~, PCCALCS+1, PCCALCS+9, PCCALCS+10, PCCSCR+2~, PCCSCR+4* , PCCSCR+22, PCCSCR+23, PCCSCR+24, PCCSCR+25, PCCSCR+27, PCCSCR+44, PCCSCR+58, PCCSCR+65, PCCSCR+72, PCCSCR+79
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	BHALCS+5~, BHALCS+6, BHALCS+8, BHALCS+9, BHALCS+24, BHALCS+44, BHALCS+45, BHALCS+60, BHALCS+61, BHHF+1 , BHHF+12, BHHF+13, BHHF+14, BHHF+16, BHHF+17, BHHF+18, BHHF+20, BHHF+21, BHHF+22, BHHF+25* , BHHF+26, BHHF+27, PCCALCS+6~, PCCALCS+7, PCCALCS+9, PCCALCS+10, PCCALCS+27, PCCALCS+28, PCCSCR+2~, PCCSCR+3* , PCCSCR+27, PCCSCR+28, PCCSCR+44, PCCSCR+45, PCCSCR+58, PCCSCR+59, PCCSCR+65, PCCSCR+66, PCCSCR+72, PCCSCR+73 , PCCSCR+79, PCCSCR+80, PCCSCR+81, BHPPIN~, BHPPIN+2, BHPPNAME~, BHPPNAME+2, PRVREF~, PRVREF+1
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~, PCCSCR+26, PCCSCR+27 , PCCSCR+43, PCCSCR+44, PCCSCR+57, PCCSCR+58, PCCSCR+64, PCCSCR+65, PCCSCR+71, PCCSCR+72, PCCSCR+78, PCCSCR+79 , 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+8, PROC+11, PROC+12, PROC+13, PROC+14, PROC+17, PROC+19, PROC+21, BHALCS+12, BHALCS+17 , BHALCS+27, BHALCS+32, BHALCS+44, BHALCS+47, BHALCS+56, BHALCS+60, BHHF+3, BHHF+5, BHHF+12, BHHF+20 , 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, PCCALCS+21, PCCSCR+4, PCCSCR+5 , PCCSCR+9, PCCSCR+14, PCCSCR+26, PCCSCR+33, PCCSCR+38, PCCSCR+43, PCCSCR+49, PCCSCR+50, PCCSCR+57, PCCSCR+64 , PCCSCR+71, PCCSCR+78, 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, BHPPIN+2 , BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V	BHALCS+5~, BHALCS+9, BHALCS+10, BHALCS+11, BHALCS+12, BHALCS+17, BHALCS+19, BHALCS+24, BHALCS+44, BHALCS+47 , BHALCS+49, BHALCS+56, BHALCS+60, BHHF+1, BHHF+5, BHHF+12, BHHF+14, BHHF+16, BHHF+18, BHHF+20 , BHHF+22, BHHF+25, BHRT~, BHRT+4, BHRT+9, BHRT+10, BHRT+15, PCCALCS+6~, PCCALCS+10, PCCALCS+11 , PCCALCS+12, PCCALCS+13, PCCALCS+14, PCCALCS+21, PCCALCS+23, PCCALCS+27, PCCSCR~, PCCSCR+4, PCCSCR+5, PCCSCR+6 , PCCSCR+26, PCCSCR+30, PCCSCR+43, PCCSCR+47, PCCSCR+57, PCCSCR+61, PCCSCR+64, PCCSCR+68, PCCSCR+71, PCCSCR+75 , PCCSCR+78, PPV~, PPV+2
X	BHALCS+5~, BHALCS+13, BHALCS+14, BHALCS+15, BHALCS+17, BHALCS+19, BHALCS+20, BHALCS+21, BHALCS+22, BHALCS+24 , BHALCS+25, BHALCS+27, BHALCS+32, BHALCS+44, BHHF+1, BHHF+2, BHHF+10, BHHF+11, BHHF+12, BHHF+14 , BHHF+15, BHHF+16, BHHF+18, BHHF+19, BHHF+20, BHHF+22, BHHF+23, BHHF+25, PCCALCS+17, PCCALCS+18 , PCCALCS+19, PCCALCS+21, PCCALCS+23, PCCALCS+24, PCCALCS+25, PCCALCS+26, PCCSCR+2~, PCCSCR+6, PCCSCR+7, PCCSCR+9 , PCCSCR+14, PCCSCR+26, PCCSCR+30, PCCSCR+31, PCCSCR+33, PCCSCR+38, PCCSCR+43, PCCSCR+47, PCCSCR+48, PCCSCR+50 , PCCSCR+55, PCCSCR+56, PCCSCR+57, PCCSCR+61, PCCSCR+62, PCCSCR+64, PCCSCR+68, PCCSCR+69, PCCSCR+71, PCCSCR+75* , PCCSCR+76, PCCSCR+78, REFUSAL+6~, REFUSAL+7, REFUSAL+8*, CTR~, CTR+1
Y	REFUSAL+6~, REFUSAL+7, REFUSAL+8*, REFUSAL+10, REFUSAL+13, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRAS31

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: