Routine: AMHRSU5

Package	Total	Call Graph
VA Fileman	4	DD^%DT COMMA^%DTC ^DIC ^DIR
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Kernel	3	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT ($$REPEAT,$$RJ,$$STRIP)^XLFSTR
Mental Health Social Services	2	XTMP^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS Patient	1	$$AGE^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
FEMV	;FEMALE VISITSA
FEMP	;FEMALE PATS
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE
D(D)	;
PRINT	;EP - called from xbdbque
PRINT1	;
SUICC(V,C)	;
PRINT2	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
INFORM	;inform user what this report is all about
MALEP	;MALE PATS
CTR(X,Y)	;EP - Center X in a field Y wide.
AG(A)	;
MALEV	;MALE VISITS
1	;;1-4 yrs
SETT(P,A,D)	;
3	;;10-14 yrs
2	;;5-9 yrs
5	;;20-24 yrs
4	;;15-19 yrs
7	;;35-44 yrs
6	;;25-34 yrs
9	;;55-64 yrs
8	;;45-54 yrs
OPRV	;one PROVIDER
11	;;75-84 yrs
HEAD	;EP;HEADER
PAGEHEAD	;
ZIS	;call xbdbque
DRIVER	;EP entry point for taskman
START	;
XIT	;
C(X,X2,X3)	;
SUICPOV(V)	;
10	;;65-74 yrs
13	;;TOTAL
12	;;85+ yrs
HEAD1	;
PROCESS	;
SPRV	;taxonomy of PROVIDERS
PROG	;

Name	Field # of Occurrence
DD^%DT	PRINT+1
COMMA^%DTC	C+1
HOME^%ZIS	START+2
XTMP^AMHUTIL	PROCESS+1
$$DEMO^AMHUTIL1	PROCESS+13
DEMOCHK^AMHUTIL1	DEMO+1
PEP^AMQQGTX0	SPRV+2
$$AGE^AUPNPAT	PROCESS+16
^DIC	OPRV+1, SPRV+1
^DIR	DATES+2, DATES+4, PROG+2, PROG+5, DONE+2, HEAD+2, EOP+5
^XBDBQUE	ZIS+2
^XBFMK	XIT+3
EN^XBVK	XIT+2
$$FMADD^XLFDT	DATES+8
$$FMTE^XLFDT	HEAD1+2
$$REPEAT^XLFSTR	HEAD1+4, HEAD1+6, HEAD1+14
$$RJ^XLFSTR	PRINT1+7, PRINT1+12, PRINT1+17, PRINT1+22, PRINT1+27, MALEV+7, MALEV+12, MALEV+17, MALEV+22, MALEV+27 , FEMV+7, FEMV+12, FEMV+17, FEMV+22, FEMV+27, PRINT2+7, PRINT2+12, PRINT2+17, PRINT2+22, PRINT2+27 , MALEP+7, MALEP+12, MALEP+17, MALEP+22, MALEP+27, FEMP+8, FEMP+13, FEMP+18, FEMP+23, FEMP+28
$$STRIP^XLFSTR	C+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): ",AMHDVH,".",AMHDVM,".",AMHDVS Line Location: DONE+1
Function Call: WRITE	Prompt: ?22,"0.0" Line Location: PRINT1+9
Function Call: WRITE	Prompt: ?20,$J(((N/D)*100),5,1) Line Location: PRINT1+10
Function Call: WRITE	Prompt: ?35,"0.0" Line Location: PRINT1+14
Function Call: WRITE	Prompt: ?34,$J(((N/D)*100),5,1) Line Location: PRINT1+15
Function Call: WRITE	Prompt: ?48,"0.0" Line Location: PRINT1+19
Function Call: WRITE	Prompt: ?47,$J(((N/D)*100),5,1) Line Location: PRINT1+20
Function Call: WRITE	Prompt: ?64,"0.0" Line Location: PRINT1+24
Function Call: WRITE	Prompt: ?62,$J(((N/D)*100),5,1) Line Location: PRINT1+25
Function Call: WRITE	Prompt: ?77,"0.0" Line Location: PRINT1+29
Function Call: WRITE	Prompt: ?74,$J(((N/D)*100),5,1) Line Location: PRINT1+30
Function Call: WRITE	Prompt: ?22,"0.0" Line Location: MALEV+9
Function Call: WRITE	Prompt: ?20,$J(((N/D)*100),5,1) Line Location: MALEV+10
Function Call: WRITE	Prompt: ?35,"0.0" Line Location: MALEV+14
Function Call: WRITE	Prompt: ?34,$J(((N/D)*100),5,1) Line Location: MALEV+15
Function Call: WRITE	Prompt: ?48,"0.0" Line Location: MALEV+19
Function Call: WRITE	Prompt: ?47,$J(((N/D)*100),5,1) Line Location: MALEV+20
Function Call: WRITE	Prompt: ?64,"0.0" Line Location: MALEV+24
Function Call: WRITE	Prompt: ?61,$J(((N/D)*100),5,1) Line Location: MALEV+25
Function Call: WRITE	Prompt: ?77,"0.0" Line Location: MALEV+29
Function Call: WRITE	Prompt: ?77,$J(((N/D)*100),5,1) Line Location: MALEV+30
Function Call: WRITE	Prompt: ?22,"0.0" Line Location: FEMV+9
Function Call: WRITE	Prompt: ?20,$J(((N/D)*100),5,1) Line Location: FEMV+10
Function Call: WRITE	Prompt: ?35,"0.0" Line Location: FEMV+14
Function Call: WRITE	Prompt: ?34,$J(((N/D)*100),5,1) Line Location: FEMV+15
Function Call: WRITE	Prompt: ?48,"0.0" Line Location: FEMV+19
Function Call: WRITE	Prompt: ?47,$J(((N/D)*100),5,1) Line Location: FEMV+20
Function Call: WRITE	Prompt: ?64,"0.0" Line Location: FEMV+24
Function Call: WRITE	Prompt: ?61,$J(((N/D)*100),5,1) Line Location: FEMV+25
Function Call: WRITE	Prompt: ?77,"0.0" Line Location: FEMV+29
Function Call: WRITE	Prompt: ?77,$J(((N/D)*100),5,1) Line Location: FEMV+30
Function Call: WRITE	Prompt: ?22,"0.0" Line Location: PRINT2+9
Function Call: WRITE	Prompt: ?20,$J(((N/D)*100),5,1) Line Location: PRINT2+10
Function Call: WRITE	Prompt: ?35,"0.0" Line Location: PRINT2+14
Function Call: WRITE	Prompt: ?34,$J(((N/D)*100),5,1) Line Location: PRINT2+15
Function Call: WRITE	Prompt: ?48,"0.0" Line Location: PRINT2+19
Function Call: WRITE	Prompt: ?47,$J(((N/D)*100),5,1) Line Location: PRINT2+20
Function Call: WRITE	Prompt: ?64,"0.0" Line Location: PRINT2+24
Function Call: WRITE	Prompt: ?61,$J(((N/D)*100),5,1) Line Location: PRINT2+25
Function Call: WRITE	Prompt: ?77,"0.0" Line Location: PRINT2+29
Function Call: WRITE	Prompt: ?77,$J(((N/D)*100),5,1) Line Location: PRINT2+30
Function Call: WRITE	Prompt: ?22,"0.0" Line Location: MALEP+9
Function Call: WRITE	Prompt: ?20,$J(((N/D)*100),5,1) Line Location: MALEP+10
Function Call: WRITE	Prompt: ?35,"0.0" Line Location: MALEP+14
Function Call: WRITE	Prompt: ?34,$J(((N/D)*100),5,1) Line Location: MALEP+15
Function Call: WRITE	Prompt: ?48,"0.0" Line Location: MALEP+19
Function Call: WRITE	Prompt: ?47,$J(((N/D)*100),5,1) Line Location: MALEP+20
Function Call: WRITE	Prompt: ?64,"0.0" Line Location: MALEP+24
Function Call: WRITE	Prompt: ?61,$J(((N/D)*100),5,1) Line Location: MALEP+25
Function Call: WRITE	Prompt: ?77,"0.0" Line Location: MALEP+29
Function Call: WRITE	Prompt: ?77,$J(((N/D)*100),5,1) Line Location: MALEP+30
Function Call: WRITE	Prompt: ?22,"0.0" Line Location: FEMP+10
Function Call: WRITE	Prompt: ?20,$J(((N/D)*100),5,1) Line Location: FEMP+11
Function Call: WRITE	Prompt: ?35,"0.0" Line Location: FEMP+15
Function Call: WRITE	Prompt: ?34,$J(((N/D)*100),5,1) Line Location: FEMP+16
Function Call: WRITE	Prompt: ?48,"0.0" Line Location: FEMP+20
Function Call: WRITE	Prompt: ?47,$J(((N/D)*100),5,1) Line Location: FEMP+21
Function Call: WRITE	Prompt: ?64,"0.0" Line Location: FEMP+25
Function Call: WRITE	Prompt: ?61,$J(((N/D)*100),5,1) Line Location: FEMP+26
Function Call: WRITE	Prompt: ?77,"0.0" Line Location: FEMP+30
Function Call: WRITE	Prompt: ?77,$J(((N/D)*100),5,1) Line Location: FEMP+31
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(DT),?70,"Page: ",AMHPG Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?29,"Behavioral Health" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR($$REPEAT^XLFSTR("*",35),80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("* SUICIDE PURPOSE OF VISIT REPORT *",80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR($$REPEAT^XLFSTR("*",35),80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: HEAD1+9
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,"AGE GROUP",?13,"# Encs",?27,"# w POV 39",?42,"w/ POV 40",?54,"w/ POV 41",?68,"w/ 39/40/41/" Line Location: HEAD1+11
Function Call: WRITE	Prompt: !?27,"V62.84/R45.851",?42,"& T14.91",?68,"V62.84/R45.851" Line Location: HEAD1+12
Function Call: WRITE	Prompt: !?15,"#",?22,"%",?29,"#",?36,"%",?43,"#",?50,"%",?56,"#",?63,"%",?70,"#",?77,"%" Line Location: HEAD1+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HEAD1+14
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+1
Function Call: WRITE	Prompt: !!,$$CTR("BEHAVIORAL HEALTH SUICIDE PURPOSE OF VISIT REPORT") Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This report will display the Suicide POVs (39,40,41,V62.84, R45.851, T14.91)" Line Location: INFORM+3
Function Call: WRITE	Prompt: !," as a percentage of the total number of Behavioral Health encounter" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"records (Encs). Any records containing the ICD-9 code v62.84," Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"Suicidal Ideation or ICD-10 code R45.851 will be included in " Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"the tallies for Problem code 39. Any records with ICD-10 Code T14.91" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"will be included in the tallies for Problem code 40. A display by " Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"age and gender is also included." Line Location: INFORM+9
Function Call: WRITE	Prompt: ! Line Location: INFORM+10
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SPRV+1
Function Call: WRITE	Prompt: !!,"** all PROVIDERS will be included **",! Line Location: SPRV+4
Routine Call	%ZIS Line Location: START+2
Routine Call	DIC Line Location: OPRV+1 SPRV+1
Routine Call	DIR Line Location: DATES+2 DATES+4 PROG+2 PROG+5 DONE+2 HEAD+2 EOP+5

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	SUICPOV+5, SUICPOV+6, SUICC+5, SUICC+6
^AMHREC - [#9002011]	PROCESS+9, PROCESS+11, PROCESS+14
^AMHREC("B"	PROCESS+7, PROCESS+8
^AMHRPRO - [#9002011.01]	SUICPOV+3, SUICPOV+4, SUICC+3, SUICC+4
^AMHRPRO("AD"	PROCESS+15, SUICPOV+2, SUICC+2
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	SETT+2, SETT+3, SETT+5, SETT+6, SETT+10, SETT+11, SETT+13, SETT+14
^VA(200 - [#200]	USR+1
^XTMP("AMHRSU5"	SETT+7, SETT+8*

Name	Line Occurrences
$$AG	PROCESS+17
$$C	PRINT1+7, PRINT1+12, PRINT1+17, PRINT1+22, PRINT1+27, MALEV+7, MALEV+12, MALEV+17, MALEV+22, MALEV+27 , FEMV+7, FEMV+12, FEMV+17, FEMV+22, FEMV+27, PRINT2+7, PRINT2+12, PRINT2+17, PRINT2+22, PRINT2+27 , MALEP+7, MALEP+12, MALEP+17, MALEP+22, MALEP+27, FEMP+8, FEMP+13, FEMP+18, FEMP+23, FEMP+28
$$CTR	HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8, HEAD1+9, HEAD1+10, INFORM+1, INFORM+2
$$LOC	INFORM+1
$$SUICC	PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26
$$SUICPOV	PROCESS+19
DATES	DATES+6, PROG+3
DEMO	PROG+4
HEAD	PRINT1+2, PRINT1+5, MALEV+3, MALEV+5, FEMV+3, FEMV+5, PRINT2+3, PRINT2+5, MALEP+3, MALEP+5 , FEMP+3, FEMP+6
HEAD1	HEAD+1
INFORM	START+4
PRINT1	PRINT+4
PROCESS	DRIVER+1
PROG	PROG+6, PROG+7, DEMO+2
SETT	PROCESS+18, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26
XIT	START+1, DATES+2, DATES+4, ZIS+3, SPRV+1

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PROCESS+17*, PROCESS+18, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, SETT~ , SETT+4, SETT+5, SETT+6, SETT+12, SETT+13, SETT+14, AG~, AG+1, AG+2, AG+3 , AG+4, AG+5, AG+6, AG+7, AG+8, AG+9, AG+10, AG+11, AG+12
>> AMHAGE	PROCESS+16*, PROCESS+17
AMHALLP	PROCESS+3!
AMHALLP(	PROCESS+4, SETT+12, PRINT2+7, PRINT2+8, PRINT2+12, PRINT2+13, PRINT2+17, PRINT2+18, PRINT2+22, PRINT2+23 , PRINT2+27, PRINT2+28
AMHALLP(13	SETT+9*, PRINT2+8
AMHALLV	PROCESS+3!
AMHALLV(	PROCESS+4, SETT+4, PRINT1+7, PRINT1+8, PRINT1+12, PRINT1+13, PRINT1+17, PRINT1+18, PRINT1+22, PRINT1+23 , PRINT1+27, PRINT1+28
AMHALLV(13	SETT+1*, PRINT1+8
AMHBD	DATES!, DATES+2*, DATES+6, DATES+8, PROCESS+5, PRINT+1
>> AMHBDD	PRINT+1*, HEAD1+7
>> AMHBT	PROCESS+2*, DONE
>> AMHBTH	PROCESS+2*, SETT+7, SETT+8
>> AMHDEMO	DEMO+1, DEMO+2, PROCESS+13
>> AMHDVH	DONE*, DONE+1
>> AMHDVM	DONE+1*
>> AMHDVS	DONE+1*
>> AMHDVTS	DONE, DONE+1
AMHED	DATES!, DATES+4*, DATES+6, PROCESS+7, PRINT+1
>> AMHEDD	PRINT+1*, HEAD1+7
>> AMHET	DRIVER+2, PROCESS+29, DONE
AMHFEMP	PROCESS+3!
AMHFEMP(	PROCESS+4, SETT+14, FEMP+8, FEMP+9, FEMP+13, FEMP+14, FEMP+18, FEMP+19, FEMP+23, FEMP+24 , FEMP+28, FEMP+29
AMHFEMP(13	SETT+11*, FEMP+9
AMHFEMV	PROCESS+3!
AMHFEMV(	PROCESS+4, SETT+6, FEMV+7, FEMV+8, FEMV+12, FEMV+13, FEMV+17, FEMV+18, FEMV+22, FEMV+23 , FEMV+27, FEMV+28
AMHFEMV(13	SETT+3*, FEMV+8
>> AMHGRTA	PROCESS+6*
>> AMHJOB	PROCESS+2*, SETT+7, SETT+8
AMHMALEP	PROCESS+3!
AMHMALEP(	PROCESS+4, SETT+13, MALEP+7, MALEP+8, MALEP+12, MALEP+13, MALEP+17, MALEP+18, MALEP+22, MALEP+23 , MALEP+27, MALEP+28
AMHMALEP(13	SETT+10*, MALEP+8
AMHMALEV	PROCESS+3!
AMHMALEV(	PROCESS+4, SETT+5, MALEV+7, MALEV+8, MALEV+12, MALEV+13, MALEV+17, MALEV+18, MALEV+22, MALEV+23 , MALEV+27, MALEV+28
AMHMALEV(13	SETT+2*, MALEV+8
>> AMHPG	PRINT+2, HEAD+1, HEAD1+1, HEAD1+2
AMHPRAT	PROCESS+6!
>> AMHPROG	PROG+1, PROG+8, PROCESS+14
AMHPRVS	SPRV+3, SPRV+4!
AMHPRVS(	OPRV+3*
AMHPRVS("*"	SPRV+4
>> AMHPRVT	SPRV+4*
>> AMHQ	OPRV+2, SPRV+3
AMHQUIT	PRINT+3!, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, MALEV+1, MALEV+3, MALEV+4, MALEV+5, FEMV+1 , FEMV+3, FEMV+4, FEMV+5, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+5, MALEP+1, MALEP+3, MALEP+4 , MALEP+5, FEMP+1, FEMP+4, FEMP+5, FEMP+6, HEAD+2*
>> AMHRCNT	PROCESS+7*
>> AMHSD	DATES+8, PROCESS+5, PROCESS+7*, PROCESS+8
>> AMHSUBH	PRINT1+1, MALEV+2, FEMV+2, PRINT2+1, MALEP+2, FEMP+2, HEAD1+8
>> AMHV0	PROCESS+9*, PROCESS+10, PROCESS+16
>> AMHVIEN	PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+11, PROCESS+14, PROCESS+15, PROCESS+19, PROCESS+21, PROCESS+22, PROCESS+23 , PROCESS+24, PROCESS+25, PROCESS+26
>> AMHX	PRINT1+3, PRINT1+7, PRINT1+8, PRINT1+12, PRINT1+13, PRINT1+17, PRINT1+18, PRINT1+22, PRINT1+23, PRINT1+27 , PRINT1+28, MALEV+4, MALEV+7, MALEV+8, MALEV+12, MALEV+13, MALEV+17, MALEV+18, MALEV+22, MALEV+23 , MALEV+27, MALEV+28, FEMV+4, FEMV+7, FEMV+8, FEMV+12, FEMV+13, FEMV+17, FEMV+18, FEMV+22 , FEMV+23, FEMV+27, FEMV+28, PRINT2+4, PRINT2+7, PRINT2+8, PRINT2+12, PRINT2+13, PRINT2+17, PRINT2+18 , PRINT2+22, PRINT2+23, PRINT2+27, PRINT2+28, MALEP+4, MALEP+7, MALEP+8, MALEP+12, MALEP+13, MALEP+17 , MALEP+18, MALEP+22, MALEP+23, MALEP+27, MALEP+28, FEMP+5, FEMP+8, FEMP+9, FEMP+13, FEMP+14 , FEMP+18, FEMP+19, FEMP+23, FEMP+24, FEMP+28, FEMP+29
C	SUICC~, SUICC+7
D	SETT~, SETT+2, SETT+3, SETT+5, SETT+6, SETT+7, SETT+8, SETT+10, SETT+11, SETT+13 , SETT+14, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+13, PRINT1+14, PRINT1+15, PRINT1+18, PRINT1+19, PRINT1+20 , PRINT1+23, PRINT1+24, PRINT1+25, PRINT1+28, PRINT1+29, PRINT1+30, MALEV+8, MALEV+9, MALEV+10, MALEV+13* , MALEV+14, MALEV+15, MALEV+18, MALEV+19, MALEV+20, MALEV+23, MALEV+24, MALEV+25, MALEV+28, MALEV+29 , MALEV+30, FEMV+8, FEMV+9, FEMV+10, FEMV+13, FEMV+14, FEMV+15, FEMV+18, FEMV+19, FEMV+20 , FEMV+23, FEMV+24, FEMV+25, FEMV+28, FEMV+29, FEMV+30, PRINT2+8, PRINT2+9, PRINT2+10, PRINT2+13 , PRINT2+14, PRINT2+15, PRINT2+18, PRINT2+19, PRINT2+20, PRINT2+23, PRINT2+24, PRINT2+25, PRINT2+28, PRINT2+29 , PRINT2+30, MALEP+8, MALEP+9, MALEP+10, MALEP+13, MALEP+14, MALEP+15, MALEP+18, MALEP+19, MALEP+20 , MALEP+23, MALEP+24, MALEP+25, MALEP+28, MALEP+29, MALEP+30, FEMP+9, FEMP+10, FEMP+11, FEMP+14 , FEMP+15, FEMP+16, FEMP+19, FEMP+20, FEMP+21, FEMP+24, FEMP+25, FEMP+26, FEMP+29*, FEMP+30 , FEMP+31, D~, D+1, D+2
DA	PROG+2!, PROG+5!, SPRV+1!
>> DFN	PROCESS+11*, PROCESS+12, PROCESS+13, PROCESS+16, PROCESS+18, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24 , PROCESS+25, PROCESS+26
DFOUT	EOP+4!
DIC	OPRV+1!, SPRV+1!
DIC("A"	OPRV+1*
DIC("S"	SPRV+1*
DIC(0	OPRV+1, SPRV+1
DIR	DATES+1!, DATES+3!, PROG+2!, PROG+5!, XIT+1!, DONE+2!, HEAD+2!, EOP+3~
DIR("A"	DATES+1, DATES+3, PROG+2, PROG+5, DONE+2, EOP+5
DIR("B"	PROG+2*
DIR(0	DATES+1, DATES+3, PROG+2, PROG+5, DONE+2, HEAD+2, EOP+5*
DIRUT	PROG+3, PROG+6, EOP+4!
DLOUT	EOP+4!
DT	HEAD1+2
DTOUT	HEAD+2, EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
>> G	SUICPOV+1, SUICPOV+7, SUICPOV+9, SUICC+1, SUICC+7, SUICC+9
IO	DONE+2, HEAD+2
IO("S"	EOP+2
IO(0	DONE+2, HEAD+2
IOF	START+2, START+3, DONE+3, HEAD1+1
IOM	CTR+1
IOSL	PRINT1+5, MALEV+5, FEMV+5, PRINT2+5, MALEP+5, FEMP+6
IOST	DONE+2, HEAD+2, EOP+1
>> IOT	EOP+2
>> N	PRINT1+8, PRINT1+10, PRINT1+13, PRINT1+15, PRINT1+18, PRINT1+20, PRINT1+23, PRINT1+25, PRINT1+28, PRINT1+30 , MALEV+8, MALEV+10, MALEV+13, MALEV+15, MALEV+18, MALEV+20, MALEV+23, MALEV+25, MALEV+28, MALEV+30 , FEMV+8, FEMV+10, FEMV+13, FEMV+15, FEMV+18, FEMV+20, FEMV+23, FEMV+25, FEMV+28, FEMV+30 , PRINT2+8, PRINT2+10, PRINT2+13, PRINT2+15, PRINT2+18, PRINT2+20, PRINT2+23, PRINT2+25, PRINT2+28, PRINT2+30 , MALEP+8, MALEP+10, MALEP+13, MALEP+15, MALEP+18, MALEP+20, MALEP+23, MALEP+25, MALEP+28, MALEP+30 , FEMP+9, FEMP+11, FEMP+14, FEMP+16, FEMP+19, FEMP+21, FEMP+24, FEMP+26, FEMP+29, FEMP+31
P	SETT~, SETT+1, SETT+2, SETT+3, SETT+4, SETT+5, SETT+6, SETT+7, SETT+8, SETT+9 , SETT+10, SETT+11, SETT+12, SETT+13, SETT+14
U	PROCESS+11, PROCESS+14, PROCESS+16, SETT+1, SETT+2, SETT+3, SETT+4, SETT+5, SETT+6, SETT+7 , SETT+8, SETT+9, SETT+10, SETT+11, SETT+12, SETT+13, SETT+14, SUICPOV+4, SUICPOV+6, SUICC+4 , SUICC+6, PRINT1+7, PRINT1+8, PRINT1+12, PRINT1+13, PRINT1+17, PRINT1+18, PRINT1+22, PRINT1+23, PRINT1+27 , PRINT1+28, MALEV+7, MALEV+8, MALEV+12, MALEV+13, MALEV+17, MALEV+18, MALEV+22, MALEV+23, MALEV+27 , MALEV+28, FEMV+7, FEMV+8, FEMV+12, FEMV+13, FEMV+17, FEMV+18, FEMV+22, FEMV+23, FEMV+27 , FEMV+28, PRINT2+7, PRINT2+8, PRINT2+12, PRINT2+13, PRINT2+17, PRINT2+18, PRINT2+22, PRINT2+23, PRINT2+27 , PRINT2+28, MALEP+7, MALEP+8, MALEP+12, MALEP+13, MALEP+17, MALEP+18, MALEP+22, MALEP+23, MALEP+27 , MALEP+28, FEMP+8, FEMP+9, FEMP+13, FEMP+14, FEMP+18, FEMP+19, FEMP+23, FEMP+24, FEMP+28 , FEMP+29, USR+1, LOC+1
V	SUICPOV~, SUICPOV+2, SUICC~, SUICC+2
X	PROG+7, PROCESS+4, SUICPOV+2, SUICPOV+3, SUICPOV+4, SUICC+2, SUICC+3, SUICC+4, HEAD1+7, HEAD1+8* , HEAD1+9, HEAD1+10, C~, C+2, CTR~, CTR+1, SPRV+1*
X2	C~
X3	C~
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+2, DATES+4, PROG+4, PROG+8, SUICPOV+4, SUICPOV+5, SUICPOV+6, SUICPOV+7, SUICC+4, SUICC+5 , SUICC+6, SUICC+7, PRINT+1*, HEAD+2, CTR~, CTR+1, OPRV+2, OPRV+3, SPRV+1, SPRV+2
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRSU5

Information

Source Information

Call Graph

Call Graph Total: 14

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