Routine: AMHRE2

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
VA Fileman	3	DD^%DT C^%DTC ^DIR
Mental Health Social Services	2	$$LVD^AMHDPEE XTMP^AMHUTIL
IHS Patient	1	($$HRN,KILL)^AUPNPAT
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE $$VAL^XBDIQ1 EN^XBVK

VA Fileman

DD^%DT C^%DTC ^DIR

Mental Health Social Services

$$LVD^AMHDPEE XTMP^AMHUTIL

IHS Patient

($$HRN,KILL)^AUPNPAT

Kernel

HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PRINT1	;
HEAD
SET	;
PROC1	;
ZIS	;
HEAD1	;
BROWSE	;
ED	;get ending date
GETDATES	;
XIT	;
D(D)	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;
DONE	;
PROC	;EP - entry point for processing
PIH

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4, PRINT+1
C^%DTC	ED+4, PROC+4
HOME^%ZIS	AMHRE2+3
$$LVD^AMHDPEE	PRINT1+3
XTMP^AMHUTIL	PROC+3
$$HRN^AUPNPAT	PRINT1+3
KILL^AUPNPAT	XIT+2
^DIR	BD+2, ED+1, ZIS+1, HEAD+1
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	SET+3, PRINT1+3
EN^XBVK	XIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHRE2+4
Function Call: WRITE	Prompt: "******** RESIDENTIAL TREATMENT AFTERCARE REPORT ********",!! Line Location: AMHRE2+5
Function Call: WRITE	Prompt: "This report will produce a list of patients who have residential treatment ",!,"placement in a date range you specify.",! Line Location: AMHRE2+6
Function Call: WRITE	Prompt: !,"Please enter the date range during which the patient had a placement.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,DUZ(2)),?29,$E($$VAL^XBDIQ1(9002011.55,DFN,.02),1,15),?45,$E(AMHF,1,15),?62,$$D($P(^AMHREC(AMHR,0),U)),?72,$$D($$LVD^AMHDPEE(DFN,"ID")) Line Location: PRINT1+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",AMHPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR("RESIDENTIAL PLACEMENTS"),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?15,"PLACEMENT DATES: ",AMHBDD," TO ",AMHEDD,! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DESG PROV",?45,"REFERRED TO",?62,"DATE PL",?71,"LAST SEEN",!,AMH80D Line Location: PIH+0
Routine Call	%ZIS Line Location: AMHRE2+3
Routine Call	DIR Line Location: BD+2 ED+1 ZIS+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	PROC1+1, SET+1, SET+2, PRINT1+2, PRINT1+3
^AMHREC("B"	PROC+5, PROC1+1
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	PRINT1+3
^VA(200 - [#200]	HEAD1+3
^XTMP("AMHRE2"	SET+3*, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!

Name	Line Occurrences
$$CTR	HEAD1+5
$$D	PRINT1+3
BD	ED+2
BROWSE	ZIS+3
DONE	PRINT+4
HEAD	PRINT+3, PRINT1+1
HEAD1	HEAD
PRINT1	PRINT+8
PROC1	PROC+5
SET	PROC1+1
XIT	BD+3, ZIS+2, ZIS+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH80D	PRINT+2*, PIH
>> AMHBD	BD+4*, ED+1, ED+4, PROC+4, PRINT+1
>> AMHBDD	ED+4, PRINT+1, HEAD1+6
>> AMHBT	PROC+1*
AMHBTH	PROC+1*, SET+3, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHED	ED+3*, ED+4, PROC+5, PRINT+1
>> AMHEDD	ED+4, PRINT+1, HEAD1+6
>> AMHET	PROC+6*
>> AMHF	PRINT+6*, PRINT+7, PRINT+8, PRINT1+3
AMHJOB	PROC+1*, SET+3, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHNAME	PRINT+7*, PRINT+8
>> AMHODAT	PROC+5*, PROC1+1
>> AMHPG	PRINT+3, HEAD, HEAD1+1, HEAD1+3
AMHQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+8, PRINT1+1, HEAD+1*
>> AMHR	PROC1+1, SET+1, SET+2, SET+3, PRINT+5, PRINT+8*, PRINT1+2, PRINT1+3
>> AMHRCNT	PROC1+1*
>> AMHSD	ED+4, PROC+4, PROC+5
>> AMHTOT	PROC+1, SET+3
AMHTOTF	PROC+2!
AMHTOTP	PROC+2!
D	D~, D+1, D+2
DA	ZIS+1!
>> DFN	PROC+1, PRINT1+2, PRINT1+3
DIR	BD+2!, ED+1!, ZIS+1!, HEAD+1!
DIR("A"	BD+2, ED+1, ZIS+1*
DIR("B"	ZIS+1*
DIR(0	BD+2, ED+1, ZIS+1, HEAD+1
>> DIRUT	BD+2, BD+3, ED+1, ED+2, ZIS+2
>> DTOUT	HEAD+1
>> DUOUT	BD+2, ED+1
DUZ	HEAD1+3
DUZ(2	PRINT1+3, HEAD1+4
IO	HEAD+1
IO(0	HEAD+1
IOF	AMHRE2+3, AMHRE2+4, HEAD1+1
IOM	CTR+1
IOSL	PRINT1+1
IOST	HEAD+1
>> S1	SET+2*, SET+3
U	PROC1+1, SET+1, SET+2, PRINT1+2, PRINT1+3, HEAD1+3, HEAD1+4
X	ED+4, PROC+4, CTR~, CTR+1
>> X1	ED+4, PROC+4
>> X2	ED+4, PROC+4
>> 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+4, ED+1, ED+3, ED+4, ZIS+3, PRINT+1*, CTR~, CTR+1, HEAD+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRE2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: