Routine: AMHRP8

Information

AMHRP8 ; IHS/CMI/LAB - ACTIVE CLIENT LIST ;

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

Package	Total	Caller Graph
Mental Health Social Services	1	AMHBHRP3
Patient Chart	1	BPCBHRP3

Name	Comments	DBIA/ICR reference
BD	;get beginning date
CHKPROV	;if 1 provider selected check for that provider
PROC1	;
ZIS	;
BROWSE	;
DEMO	;
ED	;get ending date
CHK	;check to see if patient meets criteria
START	;
GETDATES	;
XIT	;EP
PROV	;limit by provider
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 ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of patients who have been seen 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 in",!,"order to be considered active.",! 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	DIC Line Location: PROV+5
Routine Call	DIR Line Location: BD+2 ED+1 PROV+2 ZIS+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC("AE"	PROC+3, PROC1+2, CHK+4, CHKPROV+2
^AMHRPROV - [#9002011.02]	CHKPROV+3
^AMHRPROV("AD"	CHKPROV+3
^DPT - [#2]	CHK+7
^XTMP("AMHRP8"	CHK+7*

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