Routine: AMHRP4

Package	Total	Call Graph
Mental Health Social Services	3	$$ALLOWCD^AMHLCD ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS VA Utilities	2	^XBDBQUE EN^XBVK
VA Fileman	2	^DIC ^DIR
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

$$ALLOWCD^AMHLCD ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1

^XBDBQUE EN^XBVK

^DIC ^DIR

HOME^%ZIS

Name	Comments	DBIA/ICR reference
PROC1	;
ZIS	;
BROWSE	;
DEMO	;
START	;
XIT	;
PROV	;
PROG	;
PROC	;EP - entry point for processing

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "******** ACTIVE CLIENT LIST (USING CASE OPEN DATE) ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of patients who have a case open date without a",!,"case closed date.",! Line Location: START+4
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 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
^AMHSITE - [#9002013]	START+5
^DPT - [#2]	PROC1+10
^XTMP("AMHRP4"	PROC1+9, PROC1+10

Name	Field # of Occurrence
AMHBD	XIT+1!
>> AMHBT	PROC+2*
>> AMHBTH	PROC+2*, PROC1+9, PROC1+10
AMHCASE	PROC+2, PROC+4, PROC+6!, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+10
>> AMHCCNT	PROC+2, PROC1+10
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+8
AMHED	XIT+1!
>> AMHET	PROC+5*
>> AMHJOB	PROC+2*, PROC1+9, PROC1+10
>> AMHPCNT	PROC+1, PROC1+9
>> AMHPROG	PROG+2, PROG+9, PROC1+3
>> AMHPROV	PROV+1, PROV+8, PROC1+4
>> AMHTOT	PROC+2*
DA	PROG+3!, PROG+6!, PROV+2!, PROV+6!, ZIS+1!
>> DFN	PROC1+5*, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+10
DIC	PROV+5*, PROV+6!
DIC("A"	PROV+5*
DIC(0	PROV+5*
DIR	PROG+3!, PROG+6!, PROV+2!, ZIS+1!
DIR("A"	PROG+3, PROG+6, PROV+2, ZIS+1
DIR("B"	PROG+3, PROV+2, ZIS+1*
DIR(0	PROG+3, PROG+6, PROV+2, ZIS+1
>> DIRUT	PROG+4, PROG+7, PROV+3, ZIS+2
DUZ	START+5, PROC1+1, PROC1+7
DUZ(2	START+5
IO("Q"	XIT+1!
IOF	START+1, START+2
U	PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+10
>> 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, ZIS+3, XIT+1!
ZTSK	XIT+1!

Information