Routine: AMHRP7

Package	Total	Call Graph
Mental Health Social Services	5	$$LVD^AMHDPEE ^AMHEKL DONE^AMHLEIN ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
PIH
HEAD
END
ZIS
HEAD1	;
START	;
BROWSE	;
DEMO	;
DFN	;
M	;
PRINT	;
PRV	;
DONE
PROG	;select program to run report for
FT	;
PROC	;
PROCP	;

External References

Name	Field # of Occurrence
$$LVD^AMHDPEE	PROCP+10
^AMHEKL	DONE
DONE^AMHLEIN	DONE
$$ALLOWP^AMHUTIL	M+4
DBHUSRP^AMHUTIL	AMHRP7+5
XTMP^AMHUTIL	M+2
$$DEMO^AMHUTIL1	M+5
DEMOCHK^AMHUTIL1	DEMO+1
^DIC	PRV+9
^DIR	PROG+2, PRV+1, ZIS+1, FT+2, HEAD+1
^XBDBQUE	ZIS+5, BROWSE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: AMHRP7+4
Function Call: WRITE	Prompt: !!?20,"DESIGNATED PROVIDER LIST",!! Line Location: AMHRP7+4
Function Call: WRITE	Prompt: !!,"You will only see a list of patients for which you are the designated",!,"provider, regardless of how you answer the questions below.",!! Line Location: AMHRP7+6
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: START+4
Function Call: WRITE	Prompt: !!,"PROVIDER: ",$P(^VA(200,AMHPN,0),U),! Line Location: DFN+3
Function Call: WRITE	Prompt: !!,"PROVIDER: ",AMHPN Line Location: DFN+4
Function Call: WRITE	Prompt: !?57,"SUB-TOTAL: ",AMHPCNT Line Location: DFN+9
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),U) Line Location: PROCP+3
Function Call: WRITE	Prompt: ?26,AMHHRCN Line Location: PROCP+5
Function Call: WRITE	Prompt: ?37,$P(^DPT(DFN,0),U,2) Line Location: PROCP+6
Function Call: WRITE	Prompt: ?41,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PROCP+7
Function Call: WRITE	Prompt: ?52,$E($P($G(^AUPNPAT(DFN,11)),U,18),1,11) Line Location: PROCP+8
Function Call: WRITE	Prompt: ?65,$E(D,4,5),"/",$E(D,6,7),"/",$E(D,2,3) Line Location: PROCP+9
Function Call: WRITE	Prompt: ?65,D Line Location: PROCP+10
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: ?((80-AMHLENG)/2),"DESIGNATED ",AMHPROGN," PROVIDER LIST" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"PATIENT NAME",?25,"CHART #",?37,"SEX",?43,"DOB",?52,"COMMUNITY",?64,"LAST VISIT",!,AMH80D Line Location: PIH+0
Routine Call	DIC Line Location: PRV+9
Routine Call	DIR Line Location: PROG+2 PRV+1 ZIS+1 FT+2 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	M+3, M+6, M+7
^AMHSITE - [#9002013]	AMHRP7+6, PRV+4
^AUPNPAT - [#9000001]	PROCP+4, PROCP+8
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	PROC+2, PROCP+3, PROCP+6, PROCP+7
^VA(200 - [#200]	DFN+3, HEAD1+3, HEAD1+6, HEAD1+7
^XTMP("AMHRP7"	PROC+2*, START+4, START+6, DONE+1!, DFN+5, DFN+6

Label References

Name	Line Occurrences
BROWSE	ZIS+3
DEMO	PRV+4
DFN	START+6
DONE	START+4, START+7
END	PROG+3, ZIS+2, ZIS+3
FT	PRV+8
HEAD	START+3, DFN+1, DFN+8, PROCP+2
HEAD1	HEAD
PROC	M+6, M+7
PROCP	DFN+6
PROG	PRV+2, PRV+10
PRV	DEMO+2

Naked Globals

Name	Field # of Occurrence
^(0	PROCP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMH80D	END!, START+2*, PIH
AMHBD	END!
AMHBTH	END!, M+1*, PROC+2, START+4, START+6, DONE+1, DFN+5, DFN+6
AMHCL	END!
>> AMHDEMO	DEMO+1, DEMO+2, M+5
AMHED	END!
AMHHRCN	END!, PROCP+4*, PROCP+5
AMHJOB	END!, M+1*, PROC+2, START+4, START+6, DONE+1, DFN+5, DFN+6
AMHLENG	END!, HEAD1+5, HEAD1+6, HEAD1+7
>> AMHNAME	DFN+5*, DFN+6
AMHPCNT	END!, DFN+2, DFN+9, PROCP+1
AMHPG	END!, START+3, HEAD, HEAD1+1, HEAD1+3
AMHPN	END!, START+5, START+6, DFN+3, DFN+4, DFN+5, DFN+6
AMHPROG	PROG+1, PROG+4, PRV+8, END!, M+6, M+7, DFN+3, DFN+4
AMHPROGN	PROG+4*, END!, HEAD1+5
AMHPRV	PRV+4, PRV+5, PRV+9, PRV+10, END!, FT+1, FT+4*, PROC+1, HEAD1+6, HEAD1+7
AMHQ	START+5!, START+6, START+7, DFN+1, DFN+5, DFN+6, DFN+7, DFN+8, PROCP+2, HEAD+1*
AMHS	PRV+3*, PRV+7, PRV+10, END!
AMHX	END!, M+6, M+7, PROC+1, PROC+2, START+1!
D	END!, PROCP+10*
DA	ZIS+1!, FT+2!
DFN	END!, M+3, M+4, M+5, M+6, M+7, PROC+2, DFN+6, PROCP+3, PROCP+4 , PROCP+6, PROCP+7, PROCP+8, PROCP+10
DIC	PRV+9*, END!
DIC(0	PRV+9*
DIR	PROG+2!, PRV+1!, ZIS+1!, END!, FT+2!, HEAD+1!
DIR("A"	PROG+2, PRV+1, ZIS+1, FT+2
DIR("B"	PROG+2, PRV+1, ZIS+1*
DIR(0	PROG+2, PRV+1, ZIS+1, FT+2, HEAD+1*
DIRUT	PROG+2, PROG+3, PRV+1, PRV+2, ZIS+2, END!, FT+3
DTOUT	END!, HEAD+1
DUOUT	PROG+2, PRV+1, END!
DUZ	AMHRP7+6, PRV+4, PRV+5, M+4, HEAD1+3
DUZ(2	AMHRP7+6, PRV+4, PROCP+4, HEAD1+4
IO	HEAD+1
IO("Q"	END!
IO(0	HEAD+1
IOF	AMHRP7+4, HEAD1+1
IOSL	DFN+1, DFN+8, PROCP+2
IOST	HEAD+1
U	M+6, M+7, PROC+2, DFN+3, PROCP+3, PROCP+4, PROCP+6, PROCP+7, PROCP+8, HEAD1+3 , HEAD1+4, HEAD1+6, HEAD1+7
>> XBIOP	BROWSE+2*
XBNS	ZIS+4, END!, BROWSE+2
XBRC	ZIS+4, END!, BROWSE+2
XBRP	ZIS+4, END!, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
XBTX	END!
Y	PROG+4, PRV+3, PRV+9, ZIS+3, END!, FT+4, PROCP+7*, HEAD+1
Y(0	PROG+4
ZTSK	END!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRP7

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: