Routine: AMHLETR2

Package	Total	Call Graph
Mental Health Social Services	5	^AMHEKL DONE^AMHLEIN $$ALLOWTP^AMHLETP ($$ALLOWP,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Kernel	2	HOME^%ZIS $$FMTE^XLFDT
IHS Patient	1	^AUPNPAT

Package

Total

Call Graph

Mental Health Social Services

^AMHEKL DONE^AMHLEIN $$ALLOWTP^AMHLETP ($$ALLOWP,DBHUSRP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1

IHS VA Utilities

^XBDBQUE $$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK

VA Fileman

DD^%DT C^%DTC ^DIC ^DIR

Kernel

HOME^%ZIS $$FMTE^XLFDT

IHS Patient

^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SORT	;
HEAD	;
PROC1	;
ZIS	;
HEAD1	;EP
ED	;get ending date
PRINT	;EP
PRT2	;
N	;
P	;
CTR(X,Y)	;EP - Center X in a field Y wide.
GETDATES	;
XIT	;
DEMO	;
PROG	;
DONE
PROC	;EP - entry point for processing
THER	;
D	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4
HOME^%ZIS	AMHLETR2+6
^AMHEKL	DONE
DONE^AMHLEIN	DONE
$$ALLOWTP^AMHLETP	PROC1+5
$$ALLOWP^AMHUTIL	PROC1+3
DBHUSRP^AMHUTIL	AMHLETR2+10
$$DEMO^AMHUTIL1	PROC1+4
DEMOCHK^AMHUTIL1	DEMO+1
^AUPNPAT	PRT2+4
^DIC	THER+5
^DIR	BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2, HEAD+3
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PRT2+7
$$EXTSET^XBFUNC	HEAD1+8
EN^XBVK	XIT+1
$$FMTE^XLFDT	PRT2+5, PRT2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHLETR2+7
Function Call: WRITE	Prompt: "******** LIST TREATMENT PLANS ********",!! Line Location: AMHLETR2+8
Function Call: WRITE	Prompt: "This report will list all patients who have a treatment plan on file." Line Location: AMHLETR2+9
Function Call: WRITE	Prompt: !,"Please enter the date range during which the treatment plan was established.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"You can limit the report output to treatment plans for one or all Providers",! Line Location: THER+1
Function Call: WRITE	Prompt: ! Line Location: THER+2
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page 1 ",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?20,"Date Established: ",AMHBDD," to ",AMHEDD,! Line Location: HEAD1+7
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+8
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?23,"DOB",?33,"CHART #",?41,"DATE",?54,"REVIEW DATE",?68,"ANTICIPATED" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !?41,"ESTABLISHED",?68,"COMPLETION",!?68,"DATE" Line Location: HEAD1+11
Function Call: WRITE	Prompt: ! Line Location: HEAD1+12
Function Call: WRITE	Prompt: AMH80D,! Line Location: HEAD1+13
Routine Call	%ZIS Line Location: AMHLETR2+6
Routine Call	DIC Line Location: THER+5
Routine Call	DIR Line Location: BD+2 ED+1 PROG+2 PROG+5 THER+2 SORT+2 HEAD+3

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPTXP - [#9002011.56]	PROC+2, PROC1+1, N+1, D+1, PRT2+3
^AUPNPAT - [#9000001]	PRT2+5
^DIC(4 - [#4]	HEAD1+5
^DPT - [#2]	N+3, PRT2+5
^VA(200 - [#200]	P+2, PRT2+7, HEAD1+4, HEAD1+9
^XTMP("AMHLETR2"	PROC1+9*, PRINT+3, PRINT+4, PRT2+1, DONE+1!

Label References

Name	Line Occurrences
$$CTR	HEAD1+6, HEAD1+8, HEAD1+9
@(	PROC1+8
BD	ED+2
DONE	PRINT+3, PRINT+5
GETDATES	PROG+3
HEAD	PRINT+2, PRT2+2
HEAD1	HEAD+1
PROC1	PROC+2
PROG	PROG+6, PROG+7
PRT2	PRINT+4
SORT	THER+4
THER	PROG+4, THER+6, THER+7, SORT+3, DEMO+2
XIT	BD+3, THER+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH80D	PRINT+1*, HEAD1+13
>> AMHBD	BD+4*, ED+1, ED+4, PROC1+9
>> AMHBDD	ED+4*, HEAD1+7
>> AMHBT	PROC+1*
AMHBTH	PROC+1*, PROC1+9, PRINT+3, PRINT+4, PRT2+1, DONE+1!
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+4
>> AMHED	ED+3*, ED+4, PROC1+9
>> AMHEDD	ED+4*, HEAD1+7
>> AMHET	PROC+3*
AMHJOB	PROC+1*, PROC1+9, PRINT+3, PRINT+4, PRT2+1, DONE+1!
>> AMHPG	PRINT+1, HEAD+1, HEAD1+1
>> AMHPROG	PROG+1, PROG+8, PROC1+7, HEAD1+8
>> AMHQUIT	PRINT+1, PRINT+4, PRT2+1, PRT2+2, HEAD+3
>> AMHSD	ED+4*
>> AMHSORT	SORT+1, SORT+4, PROC1+8
>> AMHSORTV	PROC1+9, P+1, P+2, P+3, N+3, N+4, D+1, D+2, PRINT+4, PRT2+1
>> AMHSORVT	N+2*
AMHTHER	THER+2!, THER+8*, PROC1+6, HEAD1+9
>> AMHTOT	PROC+1*
AMHTP	PROC+1, PROC+2, PROC+4!, PROC1+1, PROC1+5, PROC1+9, N+1, D+1, PRT2+1*, PRT2+3 , PRT2+7
>> AMHTPR	PRT2+3*, PRT2+4, PRT2+5, PRT2+6, PRT2+7
>> AUPNDOB	PRT2+5
DA	PROG+2!, PROG+5!, THER+2!, THER+5!, SORT+2!
DIC	THER+5*!
DIC("A"	THER+5*
DIC(0	THER+5*
DIR	BD+2!, ED+1!, PROG+2!, PROG+5!, THER+2!, SORT+2!, HEAD+3!
DIR("A"	BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2
DIR("B"	PROG+2, THER+2, SORT+2*
DIR(0	BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2, HEAD+3*
>> DIRUT	BD+2, BD+3, ED+1, ED+2, PROG+3, PROG+6, THER+3, SORT+3
>> DTOUT	HEAD+3
>> DUOUT	BD+2, ED+1
DUZ	PROC1+3, PROC1+5, HEAD1+4
DUZ(2	PRT2+5, HEAD1+5
IO	HEAD+3
IO(0	HEAD+3
IOF	AMHLETR2+6, AMHLETR2+7, HEAD1+2
IOM	CTR+1
IOSL	PRT2+2
IOST	HEAD+3
>> P	N+1*, N+2, N+3
U	PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+7, PROC1+9, P+1, P+2, N+1, N+3 , D+1, PRT2+4, PRT2+5, PRT2+6, PRT2+7, HEAD1+4, HEAD1+5, HEAD1+9
X	ED+4, PROG+7, THER+6, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+7, PROC1+9 , P+1, CTR~, CTR+1, HEAD+2~, HEAD1+6, HEAD1+8, HEAD1+9
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+4, ED+1, ED+3, ED+4, PROG+4, PROG+8, THER+4, THER+7, THER+8, SORT+4 , PRT2+4*, CTR~, CTR+1, HEAD+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLETR2

Information

Source Information