Routine: AMHRPPD

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
Mental Health Social Services	3	$$D^AMHLEIN ($$ALLOWP,$$ALLOWVI,$$PPNAME,DBHUSR,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,$$PRIMPOV,DEMOCHK)^AMHUTIL1
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS Patient	1	($$HRN,KILL)^AUPNPAT
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE $$VAL^XBDIQ1 EN^XBVK

Mental Health Social Services

$$D^AMHLEIN ($$ALLOWP,$$ALLOWVI,$$PPNAME,DBHUSR,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,$$PRIMPOV,DEMOCHK)^AMHUTIL1

DD^%DT C^%DTC ^DIR

($$HRN,KILL)^AUPNPAT

HOME^%ZIS

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SORT	;
HEAD
SET	;
PROC1	;
ZIS	;
HEAD1	;
PS	;
BROWSE	;
ED	;get ending date
PRINT1	;
GETDATES	;
XIT	;
D(D)	;
DEMO	;
PRINT	;
DONE	;
PROC	;EP - entry point for processing
PIH
SUB	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4, PRINT+1
C^%DTC	ED+4, PROC+4
HOME^%ZIS	AMHRPPD+3
$$D^AMHLEIN	PRINT1+2
$$ALLOWP^AMHUTIL	SET+9
$$ALLOWVI^AMHUTIL	SET+2
$$PPNAME^AMHUTIL	PRINT1+3
DBHUSR^AMHUTIL	AMHRPPD+7
DBHUSRP^AMHUTIL	AMHRPPD+7
XTMP^AMHUTIL	PROC+3
$$DEMO^AMHUTIL1	SET+3
$$PRIMPOV^AMHUTIL1	PRINT1+2
DEMOCHK^AMHUTIL1	DEMO+1
$$HRN^AUPNPAT	PRINT1+2
KILL^AUPNPAT	XIT+3
^DIR	BD+2, ED+1, SORT+2, ZIS+1, HEAD+1
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	SET+4, SET+6, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7
EN^XBVK	XIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHRPPD+4
Function Call: WRITE	Prompt: "******** PLACEMENTS IN PAST YEAR BY SITE/PATIENT ********",!! Line Location: AMHRPPD+5
Function Call: WRITE	Prompt: "This report will produce a list of patients who have had a placement disposition",!,"recorded in a date range specified by the user.",! Line Location: AMHRPPD+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: !!,"Subtotal by Placement Type:" Line Location: SUB+3
Function Call: WRITE	Prompt: !!,"Subtotal by Facility Referred to:" Line Location: SUB+9
Function Call: WRITE	Prompt: !!,"Total Number of Placements: ",AMHTOT Line Location: SUB+14
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,18),?20,$$HRN^AUPNPAT(DFN,DUZ(2)),?28,$$D^AMHLEIN($P(^AMHREC(AMHR,0),U)),?37,$$PRIMPOV^AMHUTIL1(AMHR,"C"),?44,$E($$VAL^XBDIQ1(9002011,AMHR,.17),1,14),?60,$E($$VAL^XBDIQ1(9002011,AMHR,.18),1,19) Line Location: PRINT1+2
Function Call: WRITE	Prompt: !?3,"Placement Made by: ",$$PPNAME^AMHUTIL(AMHR) Line Location: PRINT1+3
Function Call: WRITE	Prompt: !?3,"Designated MH Prov: ",$$VAL^XBDIQ1(9002011.55,DFN,.02) Line Location: PRINT1+5
Function Call: WRITE	Prompt: !?3,"Designated SS Prov: ",$$VAL^XBDIQ1(9002011.55,DFN,.03) Line Location: PRINT1+6
Function Call: WRITE	Prompt: !?3,"Designated A/SA/CD Prov: ",$$VAL^XBDIQ1(9002011.55,DFN,.04) Line Location: PRINT1+7
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: ?35,"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",?20,"HRN",?27,"DATE",?38,"POV",?44,"PLACEMENT",?59,"FACILITY REFERRED TO",!,?27,"PLACED",!,AMH80D Line Location: PIH+0
Routine Call	%ZIS Line Location: AMHRPPD+3
Routine Call	DIR Line Location: BD+2 ED+1 SORT+2 ZIS+1 HEAD+1

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
BD	ED+2, SORT+3
BROWSE	ZIS+3
DONE	PRINT+4, SUB+1, SUB+2, SUB+7, SUB+8, SUB+13
HEAD	PRINT+3, SUB+2, SUB+5, SUB+8, SUB+11, SUB+13, PRINT1+1
HEAD1	HEAD
PRINT1	PRINT+10, PS+4
PROC1	PROC+5
PS	PRINT+6
SET	PROC1+1
SORT	DEMO+2
SUB	PRINT+6
XIT	BD+3, ZIS+2, ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	XIT+1!
>> 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+10, SET+11, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, DONE+1!, PS+1 , PS+2, PS+3, PS+4
>> AMHDEMO	DEMO+1, DEMO+2, SET+3
>> AMHED	ED+3*, ED+4, PROC+5, PRINT+1
>> AMHEDD	ED+4, PRINT+1, HEAD1+6
>> AMHET	PROC+6*
>> AMHF	PRINT+7, PRINT+8, PRINT+9, PRINT+10, PS+3, PS+4
AMHJOB	PROC+1*, SET+10, SET+11, PRINT+4, PRINT+7, PRINT+8, PRINT+9, PRINT+10, DONE+1!, PS+1 , PS+2, PS+3, PS+4
>> AMHODAT	PROC+5*, PROC1+1
>> AMHPG	PRINT+3, HEAD, HEAD1+1, HEAD1+3
>> AMHPT	PRINT+8, PRINT+9, PRINT+10, PS+1, PS+2, PS+3, PS+4
AMHQ	PRINT+5!, PRINT+7, PRINT+8, PRINT+9, PRINT+10, SUB+1, SUB+2, SUB+4, SUB+5, SUB+7 , SUB+8, SUB+10, SUB+11, SUB+13, PRINT1+1, PS+1, PS+2, PS+3, PS+4, HEAD+1*
>> AMHR	PROC1+1, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+10, SET+11 , PRINT+5, PRINT+10, PRINT1+2, PRINT1+3, PS+4
>> AMHRCNT	PROC1+1*
>> AMHSD	ED+4, PROC+4, PROC+5
>> AMHSORT	SORT+1, SORT+4, SET+10, SET+11, PRINT+6
>> AMHTOT	PROC+1, SET+10, SET+11*, SUB+14
AMHTOTF	PROC+2!
AMHTOTF(	SET+13*, SUB+10, SUB+12
AMHTOTP	PROC+2!
AMHTOTP(	SET+12*, SUB+4, SUB+6
>> AMHX	SUB+4, SUB+6, SUB+10, SUB+12
B	XIT+1!
C	XIT+1!
D	XIT+1!, D~, D+1
DA	SORT+2!, ZIS+1!
>> DFN	PROC+1, SET+7, SET+8, SET+9, SET+10, SET+11, PRINT+9, PRINT+10, PRINT1+2, PRINT1+4 , PRINT1+5, PRINT1+6, PRINT1+7, PS+2, PS+3, PS+4
DIR	BD+2!, ED+1!, SORT+2!, ZIS+1!, HEAD+1!
DIR("A"	BD+2, ED+1, SORT+2, ZIS+1
DIR("B"	SORT+2, ZIS+1
DIR(0	BD+2, ED+1, SORT+2, ZIS+1, HEAD+1*
>> DIRUT	BD+2, BD+3, ED+1, ED+2, SORT+3, ZIS+2
>> DTOUT	HEAD+1
>> DUOUT	BD+2, ED+1
DUZ	SET+2, SET+9, HEAD1+3
DUZ(2	PRINT1+2, HEAD1+4
E	XIT+1!
F	XIT+1!
G	XIT+1!
H	XIT+1!
I	XIT+1!
IO	HEAD+1
IO(0	HEAD+1
IOF	AMHRPPD+3, AMHRPPD+4, HEAD1+1
IOSL	SUB+2, SUB+5, SUB+8, SUB+11, SUB+13, PRINT1+1
IOST	HEAD+1
J	XIT+1!
K	XIT+1!
L	XIT+1!
M	XIT+1!
N	XIT+1!
O	XIT+1!
P	XIT+1!, SET+6*, SET+10, SET+11
Q	XIT+1!
R	XIT+1!
S	XIT+1!, SET+4*, SET+12
>> S1	SET+5*, SET+10, SET+11, SET+13
T	XIT+1!
U	PROC1+1, SET+1, SET+3, SET+4, SET+5, SET+7, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+7 , HEAD1+3, HEAD1+4
V	XIT+1!
W	XIT+1!
X	ED+4, XIT+1!, PROC+4
>> 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, SORT+4, ZIS+3, XIT+1!, PRINT+1*, HEAD+1
Z	XIT+1!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPPD

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: