Routine: AMHRC2

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Mental Health Social Services	3	$$ALLOWCD^AMHLCD ($$ALLOWP,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PROC1	;
ZIS	;
BROWSE	;
PROV	;
START	;
PROC	;EP - entry point for processing
GETDATES	;
XIT	;
ED	;get ending date
PROG	;
DEMO	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "***** TALLY OF CASES OPENED, ADMITTED, CLOSED IN A TIME FRAME *****",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a tally of the case open, admit and closed dates",! Line Location: START+4
Function Call: WRITE	Prompt: "in a time period.",! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: BD+1 ED+1 PROG+2 PROG+5 PROV+2 DEMO+3

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

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	PROC+3, PROC1+2, PROC1+3, PROC1+4
^AMHPOCM - [#9002012.8]	PROC1+10
^AMHSITE - [#9002013]	START+6

Name	Field # of Occurrence
AMH80D	XIT+1!
AMHADMIT	XIT+1!, PROC+1, PROC1+8
AMHBD	BD+3*, ED+1, ED+4, XIT+1!, PROC1+7, PROC1+8, PROC1+9
AMHBT	XIT+1!, PROC+1*
AMHCASE	XIT+1!, PROC+2, PROC+3, PROC+5!, PROC1+1, PROC1+2, PROC1+3, PROC1+4
AMHCLOSE	XIT+1!, PROC+1, PROC1+9
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+6
AMHDISP	XIT+1!, PROC+1!
AMHDISP(	PROC1+10*
AMHED	ED+3*, XIT+1!, PROC1+7, PROC1+8, PROC1+9
>> AMHET	PROC+4*
AMHOPEN	XIT+1!, PROC+1, PROC1+7
AMHPG	XIT+1!
>> AMHPROG	PROG+1, PROG+8, PROC1+2
AMHPROV	PROV+1, PROV+8, XIT+1!, PROC1+3
>> AMHR	PROC1+4*, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+10
AMHSD	ED+4*, XIT+1!
AMHX	XIT+1!
DA	PROG+2!, PROG+5!, PROV+2!, PROV+6!, DEMO+3!
DIC	PROV+5*, PROV+6!
DIC("A"	PROV+5*
DIC(0	PROV+5*
DIR	BD+1!, ED+1!, PROG+2!, PROG+5!, PROV+2!, DEMO+3!
DIR("A"	BD+1, ED+1, PROG+2, PROG+5, PROV+2, DEMO+3
DIR("B"	PROG+2, PROV+2, DEMO+3*
DIR(0	BD+1, ED+1, PROG+2, PROG+5, PROV+2, DEMO+3
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+3, PROG+6, PROV+3, DEMO+4
>> DUOUT	BD+1, ED+1
DUZ	START+6, PROC1+1, PROC1+5
DUZ(2	START+6
IOF	START+1, START+2
U	PROC1+2, PROC1+3, PROC1+5, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+10
>> X	ED+4, PROG+7, PROC1+10*
>> X1	ED+4*
>> X2	ED+4*
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+6, BROWSE+2
>> XBRC	DEMO+6, BROWSE+2
>> XBRP	DEMO+6, BROWSE+1
>> XBRX	DEMO+6, BROWSE+2
>> Y	BD+3, ED+1*, ED+3, PROG+4, PROG+8, PROV+4, PROV+7, PROV+8, DEMO+5