Routine: AMHRC1

Call Graph

Package	Total	Call Graph
Mental Health Social Services	4	$$ALLOWCD^AMHLCD PAUSE^AMHLEA ($$ALLOWP,$$ALLOWVI,DBHUSR,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS VA Utilities	2	^XBDBQUE EN^XBVK
Kernel	2	HOME^%ZIS $$FMDIFF^XLFDT
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT

Name	Comments	DBIA/ICR reference
PROC1	;
ZIS	;
BROWSE	;
DEMO	;
DAYS	;
START	;
XIT	;
CHKVISIT	;chk for last visit date less than amhdays - set amhseen if seen
PROV	;
PROG	;
GETV(P)	;return null or patients last visit date
PROC	;EP - entry point for processing

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "***** CLIENTS WITH CASE OPEN DATE BUT NOT SEEN IN N DAYS) *****",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of patients who have a case open date,",!,"no closed date, and have not been seen in N days.",! Line Location: START+4
Function Call: WRITE	Prompt: "The user will determine the number of days to use.",! Line Location: START+5
Function Call: WRITE	Prompt: !,"Bye..." Line Location: DAYS+3
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: PROG+3 PROG+6 PROV+2 DAYS+2 ZIS+1

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

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	PROC+4, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+10
^AMHREC - [#9002011]	GETV+7
^AMHREC("AE"	GETV+2, GETV+4, GETV+5
^AMHSITE - [#9002013]	START+6
^DPT - [#2]	PROC1+13
^XTMP("AMHRC1"	PROC1+13*
^XTMP("AMHRP4"	PROC1+12*

Name	Line Occurrences
$$GETV	CHKVISIT+2
BROWSE	ZIS+3
CHKVISIT	PROC1+11
DAYS	PROV+4, DEMO+2
PROC1	PROC+4
PROG	PROG+7, PROG+8
PROV	PROG+5, PROV+7
XIT	PROG+1, PROG+4, PROV+3, DAYS+3, DAYS+4, ZIS+2, ZIS+3

Name	Field # of Occurrence
>> AMHBT	PROC+2*
>> AMHBTH	PROC+2*, PROC1+12, PROC1+13
AMHCASE	PROC+2, PROC+4, PROC+6!, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+10 , PROC1+13
>> AMHCCNT	PROC+1, PROC1+13
>> AMHD	PROC1+13, CHKVISIT+1, CHKVISIT+2, CHKVISIT+3, CHKVISIT+4
>> AMHDAYS	DAYS+1, DAYS+5, CHKVISIT+4
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+9
>> AMHET	PROC+5*
>> AMHJOB	PROC+2*, PROC1+12, PROC1+13
>> AMHPCNT	PROC+1, PROC1+12
>> AMHPROG	PROG+2, PROG+9, PROC1+4
>> AMHPROV	PROV+1, PROV+8, PROC1+10
AMHR	GETV+1~, GETV+2, GETV+5, GETV+6, GETV+7
>> AMHSEEN	PROC1+11, CHKVISIT+5
D	GETV+1~, GETV+4*, GETV+5
DA	PROG+3!, PROG+6!, PROV+2!, PROV+6!, DAYS+2!, ZIS+1!
>> DFN	PROC1+6*, PROC1+7, PROC1+8, PROC1+9, PROC1+12, PROC1+13, CHKVISIT+2
DIC	PROV+5*, PROV+6!
DIC("A"	PROV+5*
DIC(0	PROV+5*
DIR	PROG+3!, PROG+6!, PROV+2!, DAYS+2!, ZIS+1!
DIR("A"	PROG+3, PROG+6, PROV+2, DAYS+2, ZIS+1*
DIR("B"	PROG+3, PROV+2, ZIS+1*
DIR(0	PROG+3, PROG+6, PROV+2, DAYS+2, ZIS+1*
>> DIRUT	PROG+4, PROG+7, PROV+3, DAYS+3, ZIS+2
DT	CHKVISIT+4
DUZ	START+6, PROC1+1, PROC1+8, GETV+6
DUZ(2	START+6
>> G	GETV+1, GETV+4, GETV+5, GETV+7, GETV+8
IOF	START+1, START+2
P	GETV~, GETV+2, GETV+4, GETV+5
U	PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+10, PROC1+13, GETV+7
>> X	PROG+8
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
>> Y	PROG+5, PROG+9, PROV+4, PROV+7, PROV+8, DAYS+4, DAYS+5, ZIS+3