Routine: AMHRSR1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
Mental Health Social Services	3	PAUSE^AMHLEA ($$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
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
DATES
ZIS	;CALL TO XBDBQUE
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
LIST1	;
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)	;
DEMO	;
BHPPNAME(R)	;EP primary provider internal # from 200
EXCL	;
PROC	;
PRVREF(R)	;
DP	;
PPV(V)	;

External References

Name	Field # of Occurrence
PAUSE^AMHLEA	INFORM+22
$$ALLOWP^AMHUTIL	PROC+34, PROC+65
$$ALLOWPCC^AMHUTIL	PROC+38
$$ALLOWVI^AMHUTIL	PROC+12
DBHUSR^AMHUTIL	INFORM+23
XTMP^AMHUTIL	PROC+4
$$DEMO^AMHUTIL1	PROC+17, PROC+35
DEMOCHK^AMHUTIL1	DEMO+1
$$PRIMPROV^APCLV	PPV+2
$$AGE^AUPNPAT	PROC+21, PROC+47, PROC+70
^DIR	DATES+3, DATES+5, TALLY+9, EXCL+3, LIST+3, LIST1+5, DP+3, ZIS+1, EOP+7
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PROC+20, PROC+21, PROC+22, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+46, PROC+47 , PROC+48, PROC+51, PROC+52, PROC+53, PROC+54, PROC+69, PROC+70, PROC+72, PROC+73, PROC+74 , PROC+75, SPRV+1, PRVREF+1
^XBFMK	XIT+2
EN^XBVK	XIT+1
$$FMADD^XLFDT	PROC+6

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 SUICIDE RISK ",80),!,$$CTR("ASSESSMENT, 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: !,"a Suicide Risk Assessment or a refusal documented in the time frame" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"specified by the user. Suicide Risk Assessment is defined as any of the" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"following documented: " Line Location: INFORM+7
Function Call: WRITE	Prompt: !?10,"- Suicide Risk Assessment (Exam code 43)" Line Location: INFORM+8
Function Call: WRITE	Prompt: !?10,"- refusal of exam code 43" Line Location: INFORM+9
Function Call: WRITE	Prompt: !,"This report will tally the patients by age, gender, screening exam result, " Line Location: INFORM+10
Function Call: WRITE	Prompt: !,"provider (either exam provider, if available, or primary provider on the visit)," Line Location: INFORM+11
Function Call: WRITE	Prompt: !,"clinic, date of screening, designated PCP, MH Provider, SS Provider and A/SA" Line Location: INFORM+12
Function Call: WRITE	Prompt: !,"Provider." Line Location: INFORM+13
Function Call: WRITE	Prompt: !," Notes: " Line Location: INFORM+14
Function Call: WRITE	Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient" Line Location: INFORM+15
Function Call: WRITE	Prompt: !?10," was screened more than once in the time period, only the latest" Line Location: INFORM+16
Function Call: WRITE	Prompt: !?10," is used in this report." Line Location: INFORM+17
Function Call: WRITE	Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral" Line Location: INFORM+18
Function Call: WRITE	Prompt: !?10," Health databases for evidence of screening/refusal" Line Location: INFORM+19
Function Call: WRITE	Prompt: !?10,"- this is a tally of Patients, not visits or screenings" Line Location: INFORM+20
Function Call: WRITE	Prompt: ! Line Location: INFORM+21
Function Call: WRITE	Prompt: !!,"Exam code 43 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+26
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) Result of Assessment",?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 Suicide Risk Assessments documented in the PCC" 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: DP+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 DP+3 ZIS+1 EOP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROC+10, PROC+11, PROC+15, PROC+24
^AMHREC("B"	PROC+7, PROC+8
^AMHRPROV - [#9002011.02]	BHPPNAME+2
^AMHRPROV("AD"	BHPPNAME+2
^AUPNPREF - [#9000022]	PROC+56, PROC+57, PROC+58, PROC+59, PROC+60, PROC+64, PRVREF+1
^AUPNVSIT - [#9000010]	PROC+39
^AUPNVXAM - [#9000010.13]	PROC+32, PROC+33, PROC+36, SPRV+1
^AUPNVXAM("B"	PROC+31
^AUTTEXAM("C"	INFORM+25
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	BHPPNAME+2, USR+1
^XTMP("AMHRSR1"	PROC+3!, PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28, PROC+43 , PROC+47, PROC+48, PROC+49, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+66, PROC+70* , PROC+71, PROC+72, PROC+73, PROC+74, PROC+75*

Label References

Name	Line Occurrences
$$BHPPNAME	PROC+21
$$CTR	INFORM+1, INFORM+3
$$LOC	INFORM+2
$$PPV	PROC+47
$$PRVREF	PROC+71
$$SPRV	PROC+50
$$USR	INFORM+1
BROWSE	ZIS+3
DATES	DATES+7, TALLY+10, TALLY+11, EXCL+4, LIST+4
DEMO	LIST+6
LIST	LIST1+6, DP+4, DEMO+2
XIT	INFORM+24, INFORM+26, ZIS+2, ZIS+3, ZIS+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+13*
>> AMHDEMO	DEMO+1, DEMO+2, PROC+17, PROC+35
AMHRBD	DATES!, DATES+3*, DATES+7, PROC+6, PROC+14, PROC+42, PROC+63
>> AMHRBIEN	PROC+8*, PROC+10, PROC+11, PROC+12, PROC+15, PROC+20, PROC+21, PROC+22, PROC+23, PROC+24
>> AMHRCNT	PROC+1*
>> AMHRDATE	PROC+9, PROC+13, PROC+14, PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27 , PROC+28, PROC+39, PROC+40, PROC+41, PROC+42, PROC+43, PROC+47, PROC+48, PROC+49, PROC+50 , PROC+51, PROC+52, PROC+53, PROC+54, PROC+60*, PROC+61, PROC+62, PROC+63, PROC+66, PROC+70 , PROC+71, PROC+72, PROC+73, PROC+74, PROC+75
>> AMHRDP	DP+1, DP+5
AMHRED	DATES!, DATES+5*, DATES+7, PROC+7, PROC+13, PROC+41, PROC+62
>> AMHREIEN	PROC+31*, PROC+32, PROC+33, PROC+36, PROC+46, PROC+47, PROC+50
>> AMHREXC	INFORM+25*, INFORM+26, PROC+31, PROC+59
>> AMHREXPC	EXCL+1, EXCL+5, PROC+30
>> AMHRH	PROC+2*, PROC+3, PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28 , PROC+43, PROC+47, PROC+48, PROC+49, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+66 , PROC+70, PROC+71, PROC+72, PROC+73, PROC+74, PROC+75
>> AMHRJ	PROC+2*, PROC+3, PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28 , PROC+43, PROC+47, PROC+48, PROC+49, PROC+50, PROC+51, PROC+52, PROC+53, PROC+54, PROC+66 , PROC+70, PROC+71, PROC+72, PROC+73, PROC+74, PROC+75
>> AMHRLIST	LIST+1, LIST+5, LIST+6
>> AMHRRES	PROC+20, PROC+21, PROC+46, PROC+47, PROC+69*, PROC+70
>> AMHRRIEN	PROC+56*, PROC+57, PROC+58, PROC+59, PROC+60, PROC+64, PROC+69, PROC+70, PROC+71
>> AMHRSD	PROC+6, PROC+7, PROC+8, PROC+9
>> AMHRSORT	LIST1+1, LIST1+7
AMHRTALL	TALLY+1!, TALLY+12*
AMHRTALL(	TALLY+13*
>> AMHRVIEN	PROC+36*, PROC+37, PROC+38, PROC+39, PROC+47, PROC+48, PROC+49
>> C	TALLY+13*
DA	TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, DP+3!, ZIS+1!
>> DFN	PROC+15, PROC+16, PROC+17, PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27 , PROC+28, PROC+33, PROC+34, PROC+35, PROC+43, PROC+47, PROC+48, PROC+49, PROC+50, PROC+51 , PROC+52, PROC+53, PROC+54, PROC+64*, PROC+65, PROC+66, PROC+70, PROC+71, PROC+72, PROC+73 , PROC+74, PROC+75
DFOUT	EOP+5!
DIR	DATES+2!, DATES+4!, TALLY+9!, EXCL+3!, LIST+3!, LIST1+5!, DP+3!, ZIS+1!, EOP+4~
DIR("A"	DATES+2, DATES+4, TALLY+9, EXCL+3, LIST+3, LIST1+4, DP+3, ZIS+1, EOP+7*
DIR("B"	TALLY+9, EXCL+3, LIST+3, LIST1+4, DP+3, ZIS+1
DIR(0	DATES+2, DATES+4, TALLY+9, EXCL+3, LIST+3, LIST1+3, DP+3, ZIS+1, EOP+7*
DIRUT	TALLY+10, EXCL+4, LIST+4, LIST1+6, DP+4, ZIS+2, EOP+5!
DLOUT	EOP+5!
DTOUT	EOP+5!
DUOUT	EOP+5!
DUZ	PROC+12, PROC+34, PROC+38, PROC+65, 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+11, PROC+15, PROC+21, PROC+22, PROC+23, PROC+24, PROC+25, PROC+26, PROC+27, PROC+28 , PROC+33, PROC+36, PROC+39, PROC+47, PROC+48, PROC+49, PROC+50, PROC+51, PROC+52, PROC+53 , PROC+54, PROC+58, PROC+59, PROC+60, PROC+64, PROC+70, PROC+71, PROC+72, PROC+73, PROC+74 , PROC+75, BHPPNAME+2, SPRV+1, PRVREF+1, USR+1, LOC+1
V	PPV~, PPV+2
X	CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	DATES+3, DATES+5, TALLY+11, TALLY+12, TALLY+13, EXCL+5, LIST+5, LIST1+7, DP+5, ZIS+3 , CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRSR1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: