Routine: AMHLETR

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

Package	Total	Caller Graph
Mental Health Social Services	1	AMHBHR1
Patient Chart	1	BPCBHR1

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHLETR+7
Function Call: WRITE	Prompt: "******** LIST TREATMENT PLANS BY RESOLVED BY DATE ********",!! Line Location: AMHLETR+8
Function Call: WRITE	Prompt: "This report will list all patients who have a treatment plan with an anticipated" Line Location: AMHLETR+9
Function Call: WRITE	Prompt: !,"completion date within a date range specified by the user." Line Location: AMHLETR+10
Function Call: WRITE	Prompt: !,"Please enter the desired date range.",! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: BD+3
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+4
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: ?13,"LISTING OF TREATMENT PLANS DUE TO BE RESOLVED",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?20,"Date Range: ",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: AMHLETR+6
Routine Call	DIC Line Location: THER+5
Routine Call	DIR Line Location: BD+3 ED+1 PROG+2 PROG+5 THER+2 HEAD+3

FileMan Files Accessed Via FileMan Db Call

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, PRINT+7
^AUPNPAT - [#9000001]	PRINT+10
^DIC(4 - [#4]	HEAD1+5
^DPT - [#2]	PRINT+10
^VA(200 - [#200]	PRINT+12, HEAD1+4, HEAD1+9
^XTMP("AMHLETR"	PROC1+8*, PRINT+4, PRINT+5, DONE+1!

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMH80D	XIT+1!, PRINT+2*, HEAD1+13
AMHBD	BD+5*, ED+1, ED+4, XIT+1!, PROC1+8, PRINT+1
AMHBDD	ED+4, XIT+1!, PRINT+1, HEAD1+7
>> AMHBT	PROC+1*
AMHBTH	XIT+1!, PROC+1*, PROC1+8, PRINT+4, PRINT+5, DONE+1!
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+4
AMHED	ED+3*, ED+4, XIT+1!, PROC1+8, PRINT+1
AMHEDD	ED+4, XIT+1!, PRINT+1, HEAD1+7
AMHET	XIT+1!, PROC+3*
AMHJOB	XIT+1!, PROC+1*, PROC1+8, PRINT+4, PRINT+5, DONE+1!
>> AMHPG	PRINT+2, HEAD+1, HEAD1+1
>> AMHPROG	PROG+1, PROG+8, PROC1+7, HEAD1+8
>> AMHQUIT	PRINT+2, PRINT+5, PRINT+6, HEAD+3
>> AMHSD	ED+4*
AMHTHER	THER+2!, THER+8*, XIT+1!, PROC1+6, HEAD1+9
>> AMHTOT	PROC+1*
AMHTP	XIT+1!, PROC+1, PROC+2, PROC+4!, PROC1+1, PROC1+5, PROC1+8, PRINT+5*, PRINT+7, PRINT+12
AMHTPR	XIT+1!, PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
>> AUPNDOB	PRINT+10
DA	PROG+2!, PROG+5!, THER+2!, THER+5!
DIC	THER+5*!
DIC("A"	THER+5*
DIC(0	THER+5*
DIR	BD+1!, BD+3!, ED+1!, PROG+2!, PROG+5!, THER+2!, HEAD+3!
DIR("A"	BD+3, ED+1, PROG+2, PROG+5, THER+2*
DIR("B"	PROG+2, THER+2
DIR(0	BD+3, ED+1, PROG+2, PROG+5, THER+2, HEAD+3
>> DIRUT	BD+3, BD+4, ED+1, ED+2, PROG+3, PROG+6, THER+3
>> DTOUT	HEAD+3
>> DUOUT	BD+3, ED+1
DUZ	PROC1+3, PROC1+5, HEAD1+4
DUZ(2	PRINT+10, HEAD1+5
IO	HEAD+3
IO(0	HEAD+3
IOF	AMHLETR+6, AMHLETR+7, HEAD1+2
IOM	CTR+1
IOSL	PRINT+6
IOST	HEAD+3
U	PROC1+2, PROC1+3, PROC1+4, PROC1+6, PROC1+7, PROC1+8, PRINT+8, PRINT+9, PRINT+10, PRINT+11 , PRINT+12, 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+8 , CTR~, CTR+1, HEAD+2~, HEAD1+8, HEAD1+9*
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+5, ED+1, ED+3, ED+4, PROG+4, PROG+8, THER+4, THER+7, THER+8, PRINT+1* , PRINT+9*, CTR~, CTR+1, HEAD+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLETR

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: