Routine: AMHRP3

Information

AMHRP3 ; IHS/CMI/LAB - All visit report driver ;

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Mental Health Social Services	2	DBHUSR^AMHUTIL DEMOCHK^AMHUTIL1
IHS VA Utilities	1	^XBDBQUE

Package	Total	Caller Graph
Mental Health Social Services	1	AMHBHRP7
Patient Chart	1	BPCBHRP7

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PS	;
ZIS	;CALL TO XBDBQUE
PRV	;
INFORM	;
BROWSE	;
ED	;get ending date
ERR
START	;
GETDATES	;
XIT	;EP
DEMO	;
PROG	;select program to run report for

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,"**** ACTIVITY BY PRIMARY PUPOSE REPORT ****",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report will tally PRIMARY problems by service unit, facility, and by ",!,"provider and activity.",! Line Location: INFORM+3
Routine Call	DIC Line Location: PRV+5
Routine Call	DIR Line Location: BD+1 ED+1 PROG+2 PRV+1 PS+2 ZIS+1

Name	Field # of Occurrence
AMHACT	XIT+1!
AMHACTOT	XIT+2!
AMHAREA	XIT+1!
AMHAT	XIT+1!
AMHATOT	XIT+1!, XIT+2!
AMHBD	BD+3*, ED+1, ED+4, XIT+1!
AMHBDD	XIT+1!
AMHBT	XIT+1!
AMHBTH	START+2*, XIT+1!
>> AMHDEMO	DEMO+1, DEMO+2
AMHDISC	XIT+1!
AMHDT	XIT+1!
AMHED	ED+3*, XIT+1!
AMHEDD	XIT+1!
AMHET	XIT+1!
AMHFTOT	XIT+1!
AMHJOB	START+2*, XIT+1!
AMHLENG	XIT+1!
AMHLOC	XIT+1!
AMHLTOT	XIT+1!
AMHODAT	XIT+1!
AMHPAT	XIT+1!
AMHPG	XIT+1!
AMHPNAME	XIT+1!
AMHPROG	PROG+1, PROG+4, XIT+1!
AMHPROV	XIT+1!
AMHPRV	PRV+4, PRV+5, XIT+2!
AMHPSP	PS+1, PS+4, XIT+2!
AMHPTOT	XIT+1!
AMHQUIT	XIT+1!
AMHR	XIT+1!
AMHR0	XIT+1!
AMHRCNT	XIT+1!
AMHREC	XIT+1!
>> AMHS	PRV+3*, PRV+5
AMHSD	ED+4*, XIT+1!
AMHSITE	START+1!, XIT+1!
AMHSTOT	XIT+1!
AMHSU	XIT+2!
AMHX	XIT+2!
DA	PS+2!, ZIS+1!
>> DIC	PRV+5*
>> DIC("A"	PRV+5*
>> DIC(0	PRV+5*
DIR	BD+1!, ED+1!, PROG+2!, PRV+1!, PS+2!, ZIS+1!, XIT+3!
DIR("A"	BD+1, ED+1, PROG+2, PRV+1, PS+2, ZIS+1
DIR("B"	PROG+2, PRV+1, PS+2, ZIS+1
DIR(0	BD+1, ED+1, PROG+2, PRV+1, PS+2, ZIS+1
DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+2, PROG+3, PRV+1, PRV+2, PS+3, ZIS+2 , XIT+3!
DTOUT	XIT+3!
DUOUT	BD+1, ED+1, PROG+2, PRV+1, XIT+3!
DUZ(2	START+1
IOF	INFORM+1
X	ED+4, XIT+3!
X1	ED+4*, XIT+3!
X2	ED+4*, XIT+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+1*, ED+3, PROG+4, PRV+3, PRV+5, PS+4, ZIS+3, XIT+3!