Routine: AMHRPSU1

Package	Total	Call Graph
IHS VA Utilities	5	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC EN^XBVK
VA Fileman	3	C^%DTC ^DIC ^DIR
Mental Health Social Services	2	($$DV4,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS Patient	1	KILL^AUPNPAT
IHS Patient Registration	1	$$RACE^AGUTL
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Package	Total	Caller Graph
Mental Health Social Services	3	AMHBHRP2 AMHRPSU2 AMHRPSU3
Patient Chart	1	BPCBHRP2

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
EOJ	;EP
RBLK(V,L)	;EP right blank fill
22	;;Substance Drugs if OTHER:
ETHN(P,F)	;EP
LABEL	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP called from xbdbque
24	;;Ethnicity:
25	;;Veteran's Status:
20	;;Contributing Factor if OTHER:
21	;;Substance Drugs:
LOC()	;EP - Return location name from file 4 based on DUZ(2).
23	;;Race:
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
3	;;Event logged by Provider:
1	;;Suicidal Behavior:
V1	;
V2	;
2	;;Event logged by Discipline:
5	;;Employed:
LBLK(V,L)	;left blank fill
7	;;Community of Residence:
DEMO	;
9	;;Education:
8	;;Relationship:
4	;;Sex:
HEAD	;EP
PAUSE	;
ZIS	;
XTMP(N,D)	;EP - set xtmp 0 node
ED	;
6	;;Tribe of Enrollment:
START	;
COMM	;
17	;;Disposition:
V	; Run by visit date
11	;;Method if Other:
10	;;Method:
13	;;Substance Use Involved:
12	;;Previous Attempts:
15	;;Other location of Act:
14	;;Location of Act:
HEAD1	;
16	;;Lethality:
19	;;Contributing Factors:
18	;;Disposition if OTHER:
SELF	;
GETDATES	;
PROC	;EP

External References

Name	Field # of Occurrence
C^%DTC	ED+5
$$RACE^AGUTL	V2+55
$$DV4^AMHUTIL	V2+45
DBHUSRP^AMHUTIL	START+9
$$DEMO^AMHUTIL1	V2+5
DEMOCHK^AMHUTIL1	DEMO+1
PEP^AMQQGTX0	COMM+10
KILL^AUPNPAT	EOJ+3
^DIC	COMM+6, COMM+9
^DIR	BD+1, ED+1, COMM+2, SELF+12, ZIS+1, PAUSE+1, DONE+1, HEAD+2, EOP+5
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	V2+8, V2+14, V2+24, V2+29, V2+32, V2+40, V2+43, V2+45, V2+62
$$VALI^XBDIQ1	V2+14, V2+24, V2+29, V2+32, V2+40, V2+43, V2+45
^XBFMK	EOJ+4
$$EXTSET^XBFUNC	V2+20, V2+27
EN^XBVK	EOJ+1
$$FMADD^XLFDT	XTMP+2
$$FMTE^XLFDT	HEAD1+2, HEAD1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IHS Aggregate Suicide Form Data - Standard" Line Location: START+4
Function Call: WRITE	Prompt: !!,"This report will tally the data items specific to the Suicide" Line Location: START+5
Function Call: WRITE	Prompt: !,"Form for a date range, community and type of suicidal behavior" Line Location: START+6
Function Call: WRITE	Prompt: !,"act as specified by the user." Line Location: START+7
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"All communities will be included in the report.",! Line Location: COMM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: COMM+9
Function Call: WRITE	Prompt: !?5,1,?10,"IDEATION WITH PLAN AND INTENT" Line Location: SELF+2
Function Call: WRITE	Prompt: !?5,2,?10,"ATTEMPT" Line Location: SELF+3
Function Call: WRITE	Prompt: !?5,3,?10,"COMPLETED SUICIDE" Line Location: SELF+4
Function Call: WRITE	Prompt: !?5,4,?10,"ATTEMPTED SUICIDE WITH HOMICIDE (INACTIVE)" Line Location: SELF+5
Function Call: WRITE	Prompt: !?5,5,?10,"COMPLETED SUICIDE WITH HOMICIDE (INACTIVE)" Line Location: SELF+6
Function Call: WRITE	Prompt: !?5,6,?10,"ATTEMPTED SUICIDE WITH ATTEMPTED HOMICIDE" Line Location: SELF+7
Function Call: WRITE	Prompt: !?5,7,?10,"ATTEMPTED SUICIDE WITH COMPLETED HOMICIDE" Line Location: SELF+8
Function Call: WRITE	Prompt: !?5,8,?10,"COMPLETED SUICIDE WITH ATTEMPTED HOMICIDE" Line Location: SELF+9
Function Call: WRITE	Prompt: !?5,9,?10,"COMPLETED SUICIDE WITH COMPLETED HOMICIDE" Line Location: SELF+10
Function Call: WRITE	Prompt: !?5,0,?10,"ALL OF THE ABOVE (ALSO INCLUDES BLANKS)" Line Location: SELF+11
Function Call: WRITE	Prompt: !! Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"No Suicide Forms to Report" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?1,$$LBLK(AMHL,28) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?72,$J(((X/T)*100),3,0)_"%",! Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"Age Range: ","ALL AGES",?30,"Total # of Suicide Forms: ",AMHTOT,!?63,"REPORT TOTALS" Line Location: PRINT+18
Function Call: WRITE	Prompt: !?1,$$LBLK(AMHL,28) Line Location: PRINT+21
Function Call: WRITE	Prompt: ?72,$J(((X/AMHTOT)*100),3,0)_"%",! Line Location: PRINT+25
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$$LOC,?35,$$FMTE^XLFDT(DT),?70,"Page ",AMHPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,?((80-$L(X))/2),X,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEAD1+6
Routine Call	DIC Line Location: COMM+6 COMM+9
Routine Call	DIR Line Location: BD+1 ED+1 COMM+2 SELF+12 ZIS+1 PAUSE+1 DONE+1 HEAD+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	V2+1, V2+2, V2+3, V2+7, V2+19, V2+20, V2+23, V2+27, V2+31, V2+35 , V2+36, V2+39, V2+42, V2+48, V2+49, V2+52, V2+54, V2+59
^AMHPSUIC("AD"	V+2, V1+1
^AMHTSBEH - [#9002014.72]	V2+15
^AMHTSCF - [#9002014.9]	V2+36
^AMHTSSU - [#9002014.71]	V2+49
^AUTTCOM - [#9999999.05]	HEAD1+5
^DIC(10.2 - [#10.2]	ETHN+9
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	ETHN+3, ETHN+6, ETHN+7
^VA(200 - [#200]	USR+1
^XTMP(	XTMP+2*
^XTMP("AMHRPSU1"	PROC+2!, V2+17, V2+21, V2+23, V2+25, V2+28, V2+30, V2+33, V2+37, V2+39 , V2+41, V2+44, V2+46, V2+50, V2+52, V2+58, V2+61, V2+64, PRINT+4, PRINT+7 , PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24, DONE+2!

Label References

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5
$$ETHN	V2+59
$$LBLK	PRINT+9, PRINT+21
$$LOC	HEAD1+2
BROWSE	ZIS+3
COMM	COMM+5, COMM+11
DONE	PRINT+3, PRINT+16
ED	ED+3
EOJ	START+2, BD+2, ED+2, ZIS+2, ZIS+3, ZIS+6
GETDATES	COMM+3, COMM+9
HEAD	PRINT+3, PRINT+5, PRINT+8, PRINT+17, PRINT+20
HEAD1	HEAD+1
SELF	COMM+4, COMM+5, DEMO+2
V1	V+2
V2	V1+1
XTMP	PROC+3

Naked Globals

Name	Field # of Occurrence
^(	V2+17, V2+21, V2+23, V2+25, V2+28, V2+30, V2+33, V2+37, V2+39, V2+41 , V2+44, V2+46, V2+50, V2+52, V2+58, V2+61, V2+64*
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
>> A	V2+8*, V2+9
>> AMHAGEG	V2+9, V2+10, V2+17, V2+21, V2+23, V2+25, V2+28, V2+30, V2+33, V2+37 , V2+39, V2+41, V2+44, V2+46, V2+50, V2+52, V2+58, V2+61, V2+64, PRINT+4 , PRINT+6, PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+13
>> AMHANS	SELF+13*, SELF+14, V2+1
>> AMHBD	BD+3*, ED+3, ED+5, V2+45, HEAD1+4
>> AMHC	SELF+13, V2+12, V2+13, V2+17, V2+19, V2+21, V2+24, V2+25, V2+27, V2+28 , V2+29, V2+30, V2+32, V2+33, V2+35, V2+37, V2+40, V2+41, V2+43, V2+44 , V2+45, V2+46, V2+48, V2+50, V2+52, V2+55, V2+58, V2+59, V2+61, V2+62 , V2+64
AMHCOMM	COMM+1!, COMM+5, COMM+11, COMM+12!, V2+7, HEAD1+5
AMHCOMM(	COMM+8*, V2+7
AMHCOMM("*"	COMM+12
AMHCOMM(0	HEAD1+5
AMHCS	V+1!*
>> AMHDEMO	DEMO+1, DEMO+2, V2+5
>> AMHED	ED+4*, V+2, HEAD1+4
>> AMHH	PROC+1*, PROC+2, V2+17, V2+21, V2+23, V2+25, V2+28, V2+30, V2+33, V2+37 , V2+39, V2+41, V2+44, V2+46, V2+50, V2+52, V2+58, V2+61, V2+64, PRINT+4 , PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24, DONE+2
>> AMHI	SELF+13*
AMHIA	V+1!*
>> AMHJ	PROC+1*, PROC+2, V2+17, V2+21, V2+23, V2+25, V2+28, V2+30, V2+33, V2+37 , V2+39, V2+41, V2+44, V2+46, V2+50, V2+52, V2+58, V2+61, V2+64, PRINT+4 , PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24, DONE+2
>> AMHL	PRINT+9, PRINT+21
>> AMHPG	PRINT+1, HEAD+1, HEAD1+1, HEAD1+2
AMHQUIT	PAUSE+2, PRINT+2!, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+16, PRINT+17 , PRINT+19, PRINT+20, PRINT+22, PRINT+23, HEAD+2
>> AMHR	V1+1*, V2+1, V2+2, V2+3, V2+7, V2+8, V2+14, V2+19, V2+20, V2+23 , V2+24, V2+27, V2+29, V2+31, V2+32, V2+35, V2+36, V2+39, V2+40, V2+42 , V2+43, V2+45, V2+48, V2+49, V2+52, V2+54, V2+59
>> AMHSD	ED+5, V+2, V1+1
AMHSELF	SELF+1!
AMHSELF(	SELF+13, SELF+14, V2+2
>> AMHSUC	V2+7*
AMHTOT	V+1!, V2+6, PRINT+3, PRINT+18, PRINT+25
AMHTOT(	V2+10*, PRINT+6, PRINT+13
>> AMHV	PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24
>> AMHX	V2+12, V2+14, V2+15, PRINT+11, PRINT+12, PRINT+13, PRINT+23*, PRINT+24, PRINT+25
>> AMHY	PRINT+10, PRINT+11, PRINT+12, PRINT+22, PRINT+23, PRINT+24
B	EOJ+2!
D	XTMP~, XTMP+2
DA	ED+1!, COMM+2!, COMM+9!, SELF+12!, ZIS+1!, PAUSE+1!
DFOUT	EOP+4!
DIC	COMM+6!, COMM+9!
DIC("A"	COMM+6*
DIC("S"	COMM+9*
DIC(0	COMM+6, COMM+9
DIR	BD+1!, ED+1!, COMM+2!, SELF+12!, ZIS+1!, PAUSE+1!, DONE+1!, HEAD+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, COMM+2, SELF+12, ZIS+1, PAUSE+1, DONE+1*
DIR("B"	COMM+2, SELF+12, ZIS+1*
DIR(0	BD+1, ED+1, COMM+2, SELF+12, ZIS+1, PAUSE+1, DONE+1, HEAD+2, EOP+5*
DIRUT	BD+1, BD+2, ED+1, ED+2, COMM+3, ZIS+2, PAUSE+2, DONE+1*, EOP+4!
DLOUT	EOP+4!
DT	HEAD1+2, XTMP+2
DTOUT	HEAD+2, EOP+4!
DUOUT	BD+1, ED+1, DONE+1, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
E	ETHN+4~, ETHN+5, ETHN+6, ETHN+9, ETHN+11
F	ETHN~, ETHN+2*, ETHN+11, ETHN+12
I	ETHN+4~, ETHN+5, ETHN+7, ETHN+8, ETHN+9, ETHN+12, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
IO	DONE+1, HEAD+2
IO("S"	EOP+2
IO(0	DONE+1, HEAD+2
IOF	START+1, START+3, PAUSE+3, HEAD1+1
IOM	CTR+1
IOSL	PRINT+8, PRINT+20
IOST	DONE+1, HEAD+2, EOP+1
>> IOT	EOP+2
L	EOJ+2!, LBLK~, LBLK+2, RBLK~, RBLK+2
M	EOJ+2!
N	XTMP~, XTMP+1, XTMP+2
P	V2+3, V2+5, V2+54, V2+55, V2+62, ETHN~, ETHN+1, ETHN+3, ETHN+6, ETHN+7
S	EOJ+2!
T	EOJ+2!, PRINT+13*
U	V2+1, V2+2, V2+3, V2+7, V2+15, V2+20, V2+23, V2+27, V2+31, V2+36 , V2+39, V2+42, V2+49, V2+52, V2+54, V2+56, V2+59, ETHN+7, ETHN+9, HEAD1+5 , USR+1, LOC+1
V	LBLK~, LBLK+2, LBLK+3, RBLK~, RBLK+2, RBLK+3
X	ED+5, COMM+9, SELF+14, EOJ+2!, V2+14, V2+15, V2+16, V2+17, V2+20, V2+21* , V2+23, V2+24, V2+25, V2+27, V2+28, V2+29, V2+30, V2+32, V2+33, V2+36 , V2+37, V2+39, V2+40, V2+41, V2+43, V2+44, V2+45, V2+46, V2+49, V2+50 , V2+52, V2+55, V2+56, V2+57, V2+58, V2+59, V2+60, V2+61, V2+62, V2+63 , V2+64, PRINT+12, PRINT+13, PRINT+24, PRINT+25, HEAD1+3, HEAD1+4, HEAD1+5*, CTR~, CTR+1
X1	ED+5*, EOJ+2!
X2	ED+5*, EOJ+2!
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	BD+3, ED+3, ED+4, COMM+4, COMM+5, COMM+7, COMM+8, COMM+9, COMM+10, SELF+13 , ZIS+3, EOJ+2!, V2+14, V2+15, V2+16, V2+17, V2+20, V2+21, V2+23, V2+24* , V2+25, V2+27, V2+28, V2+29, V2+30, V2+32, V2+33, V2+36, V2+37, V2+39 , V2+40, V2+41, V2+43, V2+44, V2+45, V2+46, V2+49, V2+50, V2+52, V2+56 , V2+57, V2+58, V2+59, V2+60, V2+61, V2+62, V2+63*, V2+64, HEAD+2, CTR~ , CTR+1
Z	EOJ+2!, V2+19, V2+20, V2+23, V2+35, V2+36, V2+39, V2+48, V2+49, V2+52 , ETHN+4~, ETHN+6, ETHN+7, LBLK+2, RBLK+2
>> ZTQUEUED	EOP+2

Marked Items

Name	Field # of Occurrence
$T(@AMHV	PRINT+9, PRINT+21

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPSU1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items