Routine: AMHRP4P

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 $$EXTSET^XBFUNC
Mental Health Social Services	2	^AMHEKL DONE^AMHLEIN
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIR

IHS VA Utilities

$$VAL^XBDIQ1 $$EXTSET^XBFUNC

Mental Health Social Services

^AMHEKL DONE^AMHLEIN

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Mental Health Social Services	1	AMHRC1P

Package

Total

Caller Graph

Mental Health Social Services

AMHRC1P

Name	Comments	DBIA/ICR reference
PIH
VSTS	; process visits
HEAD1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PRN	;
HEAD
START	;
DFN	;
DONE
PRINT	;
LINE	;

Name	Field # of Occurrence
DD^%DT	START+2
C^%DTC	START+1
^AMHEKL	DONE
DONE^AMHLEIN	DONE
^DIR	HEAD+1
$$VAL^XBDIQ1	VSTS+22
$$EXTSET^XBFUNC	HEAD1+6
$$FMTE^XLFDT	VSTS+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: START+5
Function Call: WRITE	Prompt: !!,"Total Number of Patients: ",AMHPCNT,! Line Location: START+10
Function Call: WRITE	Prompt: "Total Number of Cases: ",AMHCCNT,! Line Location: START+11
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?18,AMHHRCN Line Location: PRN+3
Function Call: WRITE	Prompt: ?26,$P(^DPT(DFN,0),U,2) Line Location: PRN+5
Function Call: WRITE	Prompt: ?28,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRN+5
Function Call: WRITE	Prompt: ?38,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRN+6
Function Call: WRITE	Prompt: ?48,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRN+7
Function Call: WRITE	Prompt: ?60,AMHLINE(X),! Line Location: VSTS+20
Function Call: WRITE	Prompt: ?2,"Case Provider: ",$$VAL^XBDIQ1(9002011.58,AMHCASE,.08),?50,"Next Case Review: ",$S($P(AMHX,U,12)]"":$$FMTE^XLFDT($P(AMHX,U,12),"2E"),1:""),! Line Location: VSTS+22
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(X,80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?10,"ACTIVE CLIENT LIST (CASE OPEN DATE WITH NO CASE CLOSED DATE)" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,"PATIENT NAME",?18,"CHART",?25,"SEX",?31,"DOB",?38,"CASE OPEN",?48,"CASE ADMIT",?60,"PROVIDER",?72,"PROBLEM" Line Location: PIH+0
Function Call: WRITE	Prompt: !?18,"NUMBER",?38,"DATE",?48,"DATE",?60,"SEEN",?72,"CODES",!,AMH80D Line Location: PIH+1
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	PRN+4
^AMHPROB - [#9002012.2]	VSTS+11
^AMHREC - [#9002011]	VSTS+7
^AMHREC("AE"	VSTS+3, VSTS+4
^AMHRPRO - [#9002011.01]	VSTS+11
^AMHRPRO("AD"	VSTS+11
^AMHRPROV - [#9002011.02]	VSTS+9
^AMHRPROV("AD"	VSTS+9
^AUPNPAT - [#9000001]	PRN+2
^DIC(4 - [#4]	VSTS+7, HEAD1+4
^DPT - [#2]	PRN+3, PRN+5
^VA(200 - [#200]	VSTS+9, HEAD1+3
^XTMP("AMHRP4"	START+5, START+7, START+8, DONE+1!, DFN+1

Name	Line Occurrences
$$CTR	HEAD1+6
DFN	START+8
DONE	START+5, START+9
HEAD	START+4, PRN+1, VSTS+21
HEAD1	HEAD
LINE	VSTS+17, VSTS+19
PRN	DFN+1

Name	Field # of Occurrence
^(0	PRN+2, VSTS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH80D	START+3*, PIH+1
>> AMHBD	START+1*, START+2, VSTS+2
>> AMHBDD	START+2*
>> AMHBDO	VSTS+2*, VSTS+3
AMHBTH	START+5, START+7, START+8, DONE+1!, DFN+1
>> AMHCASE	DFN+1*, PRN+4, VSTS+22
>> AMHCCNT	START+11
>> AMHED	START+1*, START+2, VSTS+2
>> AMHEDD	START+2*
>> AMHEDO	VSTS+2*
>> AMHHRCN	PRN+2*, PRN+3
AMHJOB	START+5, START+7, START+8, DONE+1!, DFN+1
AMHLINE	VSTS+14!
AMHLINE(	VSTS+20, LINE+9, LINE+10, LINE+11*
AMHLINE(1	VSTS+15, LINE+3, LINE+7*, LINE+9, LINE+11
>> AMHNAME	START+7*, START+8, DFN+1
>> AMHP	VSTS+9, VSTS+11
>> AMHPCNT	START+10
>> AMHPG	START+4, HEAD, HEAD1+1, HEAD1+3
AMHPRNM	VSTS+14!, VSTS+16!, VSTS+18!, LINE+1
AMHPRNM(	VSTS+16, VSTS+18, LINE+4, LINE+8
AMHPRNM(1	LINE+6
AMHPRNT	VSTS+14!, LINE+1, LINE+2, LINE+3, LINE+6, LINE+7, LINE+8, LINE+10
AMHPROB	VSTS+1!
AMHPROB(	VSTS+11*, VSTS+18
>> AMHPROG	HEAD1+6
AMHPRV	VSTS+1!
AMHPRV(	VSTS+9*, VSTS+16
AMHQ	START+6!, START+7, START+8, START+9, DFN+1, PRN+1, VSTS+21, HEAD+1*
>> AMHR	VSTS+2, VSTS+4, VSTS+7, VSTS+9, VSTS+11
>> AMHRCNT	VSTS+2, VSTS+5
AMHRLOC	VSTS+1!
AMHRLOC(	VSTS+7*
>> AMHSD	VSTS+2, VSTS+3, VSTS+4
>> AMHX	PRN+4*, PRN+6, PRN+7, VSTS+22
>> C	VSTS+16, VSTS+18
>> DFN	START+6, START+8, DFN+1, PRN+2, PRN+3, PRN+5, VSTS+3, VSTS+4
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+1
>> DTOUT	HEAD+1
DUZ	HEAD1+3
DUZ(2	PRN+2, HEAD1+4
>> I	LINE+3, LINE+7, LINE+10, LINE+11
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOM	CTR+1
IOSL	PRN+1, VSTS+21
IOST	HEAD+1
>> J	LINE+3, LINE+7, LINE+10, LINE+11
>> K	VSTS+16, VSTS+18, LINE+3, LINE+7, LINE+9, LINE+10, LINE+11*
>> P	VSTS+9, VSTS+11
U	PRN+2, PRN+3, PRN+5, PRN+6, PRN+7, VSTS+7, VSTS+9, VSTS+11, VSTS+22, HEAD1+3 , HEAD1+4
X	START+1, VSTS+16, VSTS+18, VSTS+20, LINE+4, LINE+5, LINE+8, LINE+9, LINE+10, LINE+11* , HEAD1+6*, CTR~, CTR+1
>> X1	START+1*
>> X2	START+1*
Y	START+2, PRN+5, PRN+6, PRN+7, HEAD+1, CTR~, CTR+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRP4P

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: