Routine: AMHRPSU2

Package	Total	Call Graph
Mental Health Social Services	6	DEL^AMHRL ^AMHRL4 $$ETHN^AMHRPSU1 COVPAGE^AMHRPTCP ($$DV4,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS VA Utilities	5	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC EN^XBVK
VA Fileman	3	(C,YX)^%DTC ^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
IHS Patient Registration	1	$$RACE^AGUTL
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
DEMO	;
RBLK(V,L)	;EP right blank fill
22	;;Substance Drugs if OTHER:
LABEL	;
SINGLE	;
EOP	;EP - End of page.
DONE	;
PRINT	;EP called from xbdbque
MULT	;
24	;;Ethnicity:
1	;;Suicidal Behavior:
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:
SCREENS	;
V1	;
V2	;
2	;;Event logged by Discipline:
5	;;Employed:
LBLK(V,L)	;left blank fill
7	;;Community of Residence:
EOJ	;
9	;;Education:
8	;;Relationship:
4	;;Sex:
HEAD	;EP
PAUSE	;
ZIS	;
XTMP(N,D)	;EP - set xtmp 0 node
ED	;
SCREEN	;
6	;;Tribe of Enrollment:
START	;
ADD	;EP
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:
USR()	;EP - Return name of current user from ^VA(200.
25	;;Veteran's Status
PROC	;EP

External References

Name	Field # of Occurrence
C^%DTC	ED+5
YX^%DTC	ADD+1
$$RACE^AGUTL	V2+51
DEL^AMHRL	SCREEN+1, EOJ+1
^AMHRL4	SCREEN+1
$$ETHN^AMHRPSU1	V2+55
COVPAGE^AMHRPTCP	PRINT+4
$$DV4^AMHUTIL	V2+42
DBHUSRP^AMHUTIL	START+7
$$DEMO^AMHUTIL1	V2+4
DEMOCHK^AMHUTIL1	DEMO+1
KILL^AUPNPAT	EOJ+4
^DIC	ADD+1
^DIR	BD+1, ED+1, ZIS+1, PAUSE+1, DONE+1, HEAD+2, EOP+5
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	V2+9, V2+13, V2+21, V2+26, V2+29, V2+37, V2+40, V2+42, V2+58
$$VALI^XBDIQ1	V2+13, V2+21, V2+26, V2+29, V2+37, V2+40, V2+42
^XBFMK	EOJ+5
$$EXTSET^XBFUNC	V2+17, V2+24
EN^XBVK	START+1, EOJ+2
$$FMADD^XLFDT	XTMP+2
$$FMTE^XLFDT	HEAD1+2, HEAD1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Aggregate Suicide Data Report - Selected Variables" Line Location: START+3
Function Call: WRITE	Prompt: !!,"This report will tally the data items selected by the user for Suicide",!,"Forms in a date range.",!! Line Location: START+4
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !! Line Location: ZIS+4
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!" Line Location: ADD+1
Function Call: WRITE	Prompt: !!,"No Suicide Forms to Report" Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"Total # of Suicide Forms: ",AMHTOT,!?63,"REPORT TOTALS" Line Location: PRINT+8
Function Call: WRITE	Prompt: !?1,$$LBLK(AMHL,28) Line Location: PRINT+11
Function Call: WRITE	Prompt: ?72,$J(((X/T)*100),3,0)_"%",! Line Location: PRINT+15
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: $TR($J("",80)," ","-"),! Line Location: HEAD1+5
Routine Call	DIC Line Location: ADD+1
Routine Call	DIR Line Location: BD+1 ED+1 ZIS+1 PAUSE+1 DONE+1 HEAD+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHTRPT - [#9002013.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	V2+1, V2+8, V2+16, V2+17, V2+20, V2+24, V2+28, V2+32, V2+33, V2+36 , V2+39, V2+45, V2+46, V2+49, V2+50, V2+55
^AMHPSUIC("AD"	V+3, V1+1
^AMHSORT - [#9002013.3]	SCREENS+3, SINGLE+3, MULT+2
^AMHTRPT - [#9002013.8]	SCREEN+1!, ADD+5!, SCREENS+2, SINGLE+5, MULT+4
^AMHTSCF - [#9002014.9]	V2+33
^AMHTSSU - [#9002014.71]	V2+46
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	ADD+1, USR+1
^XTMP(	XTMP+2*
^XTMP("AMHRPSU2"	PROC+2!, V2+14, V2+18, V2+20, V2+22, V2+25, V2+27, V2+30, V2+34, V2+36 , V2+38, V2+41, V2+43, V2+47, V2+49, V2+54, V2+57, V2+60, PRINT+9, PRINT+12 , PRINT+13, PRINT+14, DONE+2!

Label References

Name	Line Occurrences
$$CTR	HEAD1+4
$$LBLK	PRINT+11
$$LOC	HEAD1+2
ADD	ED+7
BD	DEMO+2
BROWSE	ZIS+3
DONE	PRINT+5, PRINT+6
ED	ED+3
EOJ	BD+2, ED+2, ED+6, SCREEN+1, ZIS+2, ZIS+3, ZIS+6
HEAD	PRINT+5, PRINT+7, PRINT+10
HEAD1	HEAD+1
MULT	SCREENS+4
SCREENS	V2+5
SINGLE	SCREENS+3
V1	V+3
V2	V1+1
XTMP	PROC+3

Naked Globals

Name	Field # of Occurrence
^(	V2+14, V2+18, V2+20, V2+22, V2+25, V2+27, V2+30, V2+34, V2+36, V2+38 , V2+41, V2+43, V2+47, V2+49, V2+54, V2+57, V2+60*
^(0	USR+1, LOC+1
^(1	SINGLE+3, MULT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
>> %H	ADD+1*
>> A	V2+9*
>> AMHBD	BD+3*, ED+3, ED+5, V2+42, HEAD1+4
>> AMHC	V2+11, V2+12, V2+14, V2+16, V2+18, V2+21, V2+22, V2+24, V2+25, V2+26 , V2+27, V2+29, V2+30, V2+32, V2+34, V2+37, V2+38, V2+40, V2+41, V2+42* , V2+43, V2+45, V2+47, V2+51, V2+54, V2+55, V2+57, V2+58, V2+60
AMHCNTL	SCREEN+1*!
>> AMHCOMM	V2+8
>> AMHCOMM(	V2+8
AMHCS	V+1!*
>> AMHDEMO	DEMO+1, DEMO+2, V2+4
>> AMHED	ED+4*, V+3, HEAD1+4
AMHFOUN	MULT+1!, MULT+4*, MULT+5
>> AMHH	PROC+1*, PROC+2, V2+14, V2+18, V2+20, V2+22, V2+25, V2+27, V2+30, V2+34 , V2+36, V2+38, V2+41, V2+43, V2+47, V2+49, V2+54, V2+57, V2+60, PRINT+9 , PRINT+12, PRINT+13, PRINT+14, DONE+2
>> AMHI	SCREENS+2*, SCREENS+3, SINGLE+3, SINGLE+5, MULT+2, MULT+4
AMHIA	V+1!*
>> AMHJ	PROC+1*, PROC+2, V2+14, V2+18, V2+20, V2+22, V2+25, V2+27, V2+30, V2+34 , V2+36, V2+38, V2+41, V2+43, V2+47, V2+49, V2+54, V2+57, V2+60, PRINT+9 , PRINT+12, PRINT+13, PRINT+14, DONE+2
>> AMHL	PRINT+11*
>> AMHPCNT	ED+8*
>> AMHPG	PRINT+1, HEAD+1, HEAD1+1, HEAD1+2
>> AMHPTTS	SCREEN+1*
>> AMHPTTX	SCREEN+1*
>> AMHPTVS	ED+9*
AMHQUIT	ED+6, SCREEN+1, ADD+1, PAUSE+2, PRINT+2!, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+12 , PRINT+13, HEAD+2*
>> AMHR	V1+1*, V2+1, V2+8, V2+9, V2+13, V2+16, V2+17, V2+20, V2+21, V2+24 , V2+26, V2+28, V2+29, V2+32, V2+33, V2+36, V2+37, V2+39, V2+40, V2+42 , V2+45, V2+46, V2+49, V2+50, V2+55
>> AMHR0	V2+1*, V2+2
AMHRDTR	SCREEN+1!
>> AMHRPT	SCREEN+1, ADD+2*, ADD+5, SCREENS+2, SINGLE+5, MULT+4
>> AMHRPTC	ED+10*
>> AMHSD	ED+5, V+3, V1+1
AMHSKIP	V2+6, SCREENS+1!, SCREENS+2, SINGLE+4, SINGLE+5, MULT+1!, MULT+3, MULT+5
AMHSPEC	SINGLE+1!, SINGLE+5
>> AMHSUC	V2+8*
>> AMHSUIC	PRINT+3*
>> AMHTCW	ED+8*
AMHTOT	V+1!, V2+7, PRINT+5, PRINT+8, PRINT+15
>> AMHTYPE	SCREEN+1*
>> AMHV	PRINT+9*, PRINT+12, PRINT+13, PRINT+14
>> AMHX	V2+11, V2+13, SINGLE+2, MULT+1, PRINT+13, PRINT+14, PRINT+15
>> AMHXREF	ED+9*
>> AMHY	PRINT+12*, PRINT+13, PRINT+14
B	EOJ+3!
D	XTMP~, XTMP+2
DA	ED+1!, ZIS+1!, ADD+1!, ADD+3!, PAUSE+1!
DD	ADD+3!
>> DFN	V2+2*, V2+4
DFOUT	EOP+4!
DIADD	ADD+1*!, ADD+3!
DIC	ADD+1*!, ADD+3!
DIC(0	ADD+1*
DINUM	ADD+3!
DIR	BD+1!, ED+1!, ZIS+1!, PAUSE+1!, DONE+1!, HEAD+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, ZIS+1, PAUSE+1, DONE+1*
DIR("B"	ZIS+1*
DIR(0	BD+1, ED+1, ZIS+1, PAUSE+1, DONE+1, HEAD+2, EOP+5*
DIRUT	BD+1, BD+2, ED+1, ED+2, ZIS+2, PAUSE+2, DONE+1*, EOP+4!
DLAYGO	ADD+1*!, ADD+3!
DLOUT	EOP+4!
DR	ADD+1!, ADD+3!
DT	HEAD1+2, XTMP+2
DTOUT	HEAD+2, EOP+4!
DUOUT	BD+1, ED+1, DONE+1, EOP+4!
DUZ	ADD+1, USR+1
DUZ(2	LOC+1
I	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+2, PAUSE+3, HEAD1+1
IOM	CTR+1
IOSL	PRINT+10
IOST	DONE+1, HEAD+2, EOP+1
>> IOT	EOP+2
L	EOJ+3!, LBLK~, LBLK+2, RBLK~, RBLK+2
M	EOJ+3!
N	XTMP~, XTMP+1, XTMP+2
>> P	V2+50*, V2+51, V2+58
S	EOJ+3!
T	EOJ+3!, PRINT+15*
U	ADD+1, V2+2, V2+8, V2+17, V2+20, V2+24, V2+28, V2+33, V2+36, V2+39 , V2+46, V2+49, V2+50, V2+52, V2+55, SCREENS+3, USR+1, LOC+1
V	LBLK~, LBLK+2, LBLK+3, RBLK~, RBLK+2, RBLK+3
X	ED+5, ADD+1, ADD+3!, EOJ+3!, V2+13, V2+14, V2+17, V2+18, V2+20, V2+21* , V2+22, V2+24, V2+25, V2+26, V2+27, V2+29, V2+30, V2+33, V2+34, V2+36 , V2+37, V2+38, V2+40, V2+41, V2+42, V2+43, V2+46, V2+47, V2+49, V2+51 , V2+52, V2+53, V2+54, V2+55, V2+56, V2+57, V2+58, V2+59, V2+60, SINGLE+2* , SINGLE+4, SINGLE+5, MULT+1!, MULT+3, PRINT+14, PRINT+15, HEAD1+3, HEAD1+4, CTR~, CTR+1
X(	MULT+4
X1	ED+5*, EOJ+3!
X2	ED+5*, EOJ+3!
>> 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, ZIS+3, ADD+1, ADD+2, ADD+3!, EOJ+3!, V2+13, V2+14 , V2+17, V2+18, V2+20, V2+21, V2+22, V2+24, V2+25, V2+26, V2+27, V2+29 , V2+30, V2+33, V2+34, V2+36, V2+37, V2+38, V2+40, V2+41, V2+42, V2+43 , V2+46, V2+47, V2+49, V2+52, V2+53, V2+54, V2+55, V2+56, V2+57, V2+58 , V2+59, V2+60, MULT+4, HEAD+2, CTR~, CTR+1
Z	EOJ+3!, V2+16, V2+17, V2+20, V2+32, V2+33, V2+36, V2+45, V2+46, V2+49 , LBLK+2, RBLK+2*
>> ZTQUEUED	EOP+2

Marked Items

Name	Field # of Occurrence
$T(@AMHV	PRINT+11

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPSU2

Information

Source Information

Call Graph

Call Graph Total: 17

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