Routine: AMHRPSI

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHRPSI+4
Function Call: WRITE	Prompt: !,"PATIENTS WITH SUICIDE IDEATION, NOT SEEN IN N DAYS" Line Location: AMHRPSI+5
Function Call: WRITE	Prompt: "This report will produce a list of patients who have had a suicide ideation POV",!,"who haven't been seen in N days since their last ",!,"suicide diagnosis.",! Line Location: AMHRPSI+6
Function Call: WRITE	Prompt: !,"Please enter the date range during which the patient had the Suicide Ideation POV.",! 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: PRINT+11
Function Call: WRITE	Prompt: !!,"Subtotal by Facility Referred to:" Line Location: PRINT+17
Function Call: WRITE	Prompt: !!,"Total Number of Placements: ",AMHTOT Line Location: PRINT+22
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,DUZ(2)),?29,$$D($P(^AMHREC(AMHR,0),U)),?40,$E($$VAL^XBDIQ1(9002011,AMHR,.18),1,24),?66,$E($$VAL^XBDIQ1(9002011,AMHR,.17),1,14) 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: ?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",?22,"HRN",?29,"DATE PLACE",?40,"FACILITY REFERRED TO",?66,"PLACEMENT",!,AMH80D Line Location: PIH+0
Routine Call	%ZIS Line Location: AMHRPSI+3
Routine Call	DIR Line Location: BD+2 ED+1 DAYS+2 ZIS+1 HEAD+1

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$D	PRINT1+3
BD	ED+2
BROWSE	ZIS+3
DONE	PRINT+4, PRINT+9, PRINT+10, PRINT+15, PRINT+16, PRINT+21
GETDATES	DAYS+3
HEAD	PRINT+3, PRINT+10, PRINT+13, PRINT+16, PRINT+19, PRINT+21, PRINT1+1
HEAD1	HEAD
PRINT1	PRINT+8
PROC1	PROC+5
SET	PROC1+14
XIT	BD+3, ZIS+2, ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH80D	PRINT+2*, PIH
>> AMHBD	BD+4*, ED+1, ED+4, PROC1+9, PRINT+1
>> AMHBDD	ED+4, PRINT+1, HEAD1+6
>> AMHBT	PROC+1*
AMHBTH	PROC+1*, SET+1, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHDAYS	DAYS+1, DAYS+4, PROC1+14
>> AMHED	ED+3*, ED+4, PROC1+10, PRINT+1
>> AMHEDD	ED+4, PRINT+1, HEAD1+6
>> AMHET	PROC+6*
>> AMHF	PRINT+6*, PRINT+7, PRINT+8
AMHG	PROC+5!, PROC1+1, PROC1+11, PROC1+13, PROC1+14, SET+1
AMHJOB	PROC+1*, SET+1, PRINT+4, PRINT+6, PRINT+7, PRINT+8, DONE+1!
>> AMHP	PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+11, PRINT+7, PRINT+8
>> AMHPG	PRINT+3, HEAD, HEAD1+1, HEAD1+3
>> AMHPROB	PROC+4*, PROC1+4
AMHQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+16 , PRINT+18, PRINT+19, PRINT+21, PRINT1+1, HEAD+1*
>> AMHR	PRINT+5, PRINT+8, PRINT1+2, PRINT1+3
>> AMHSD	ED+4*
>> AMHTOT	PROC+1, SET+1, PRINT+22
AMHTOTF	PROC+2!
AMHTOTF(	PRINT+18, PRINT+20
AMHTOTP	PROC+2!
AMHTOTP(	PRINT+12, PRINT+14
>> AMHX	PRINT+12, PRINT+14, PRINT+18, PRINT+20
D	PROC1+8*, PROC1+9, PROC1+10, PROC1+11, D~, D+1
DA	DAYS+2!, ZIS+1!
>> DFN	PROC+1, PROC+5, PROC1+2, SET+1, PRINT1+2*, PRINT1+3
DIR	BD+2!, ED+1!, DAYS+2!, ZIS+1!, HEAD+1!
DIR("A"	BD+2, ED+1, DAYS+2, ZIS+1
DIR("B"	DAYS+2, ZIS+1
DIR(0	BD+2, ED+1, DAYS+2, ZIS+1, HEAD+1*
>> DIRUT	BD+2, BD+3, ED+1, ED+2, DAYS+3, ZIS+2
DT	PROC1+14
>> 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	AMHRPSI+3, AMHRPSI+4, HEAD1+1
IOSL	PRINT+10, PRINT+13, PRINT+16, PRINT+19, PRINT+21, PRINT1+1
IOST	HEAD+1
U	PROC1+4, PROC1+5, PROC1+8, PROC1+11, PROC1+14, PRINT1+2, PRINT1+3, HEAD1+3, HEAD1+4
>> V	PROC1+5*, PROC1+6, PROC1+7, PROC1+8
>> X	ED+4
>> X1	ED+4*
>> X2	ED+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, DAYS+4, ZIS+3, PRINT+1*, HEAD+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPSI

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: