Routine: AMHRP9

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

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "******** PATIENTS SEEN AT LEAST N NUMBER OF TIMES ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of patients who have been seen at least",!," N number of times in a date range specified by the user.",! Line Location: START+4
Function Call: WRITE	Prompt: !,"Please enter the date range during which the patient should be seen.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	%ZIS Line Location: START+1
Routine Call	DIR Line Location: BD+2 ED+1 NUM+1 ZIS+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC("AE"	PROC+3, VSTS+2, VSTS+3
^DPT - [#2]	VSTS+7
^XTMP("AMHRP9"	VSTS+7*

Name	Field # of Occurrence
AMH80D	XIT!
AMHBD	BD+4*, ED+1, ED+4, XIT!, VSTS+1
AMHBDD	ED+4*, XIT+1!
AMHBDO	XIT+1!, VSTS+1*, VSTS+2
AMHBT	XIT+1!, PROC+1*
AMHBTH	XIT!, PROC+1*, VSTS+7
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+1
AMHED	ED+3*, ED+4, XIT!, VSTS+1
AMHEDD	ED+4*, XIT+1!
AMHEDO	XIT+1!, VSTS+1*
>> AMHET	PROC+4*
AMHFOUN	XIT!
AMHFOUND	XIT+1!
AMHHIT	XIT+1!
AMHHRCN	XIT!
AMHID	XIT+1!
AMHJOB	XIT!, PROC+1*, VSTS+7
AMHLENG	XIT!
AMHLINE	XIT+1!
AMHNUM	NUM+4*, XIT!, VSTS+7
AMHP	XIT+1!
AMHPCNT	XIT!
AMHPG	XIT!
AMHPOV	XIT!
AMHPRNM	XIT+1!
AMHPRNT	XIT+1!
AMHPROB	XIT+1!
AMHPRV	XIT+1!
AMHR	XIT+1!, VSTS+1, VSTS+3, VSTS+4
AMHRA	XIT!
AMHRCNT	XIT+1!, VSTS+1, VSTS+5, VSTS+7
AMHRLOC	XIT+1!
AMHRX	XIT!
AMHRY	XIT!
AMHSD	ED+4, XIT+1!, VSTS+1, VSTS+2*, VSTS+3
AMHTOT	XIT+1!, PROC+1*
AMHX	XIT!
D	XIT!
DA	ZIS+1!
DFN	XIT!, PROC+1, PROC+3, PROC+5!, PROC1+1, VSTS+2, VSTS+3, VSTS+7
DIC	XIT!
DIR	BD+2!, ED+1!, NUM+1!, ZIS+1!, XIT!
DIR("A"	BD+2, ED+1, NUM+1, ZIS+1
DIR("B"	ZIS+1*
DIR(0	BD+2, ED+1, NUM+1, ZIS+1
DIRUT	BD+2, BD+3, ED+1, ED+2, NUM+1*, NUM+2, ZIS+2, XIT!
DTOUT	XIT!
DUOUT	BD+2, ED+1, NUM+1, XIT!
DUZ	PROC+3, VSTS+4
IO("Q"	XIT!
IOF	START+1, START+2
U	VSTS+7
>> X	ED+4
>> X1	ED+4*
>> X2	ED+4*
>> XBIOP	BROWSE+2*
XBNS	ZIS+4, XIT!, BROWSE+2
XBRC	ZIS+4, XIT!, BROWSE+2
XBRP	ZIS+4, XIT!, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
XBTX	XIT!
Y	BD+4, ED+1, ED+3, ED+4, NUM+3, NUM+4, ZIS+3, XIT!
ZTSK	XIT!