Routine: AMHLETR3

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Mental Health Social Services	5	$$LVD^AMHDPEE $$ALLOWCD^AMHLCD $$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 $$REPEAT^XLFSTR
IHS Patient	1	$$HRN^AUPNPAT

Package

Total

Call Graph

Mental Health Social Services

$$LVD^AMHDPEE $$ALLOWCD^AMHLCD $$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 $$REPEAT^XLFSTR

IHS Patient

$$HRN^AUPNPAT

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4
HOME^%ZIS	AMHLETR3+5
$$LVD^AMHDPEE	PRT2+7
$$ALLOWCD^AMHLCD	PROC1+1
$$ALLOWTP^AMHLETP	TP+7
$$ALLOWP^AMHUTIL	PROC1+5
DBHUSRP^AMHUTIL	AMHLETR3+14
$$DEMO^AMHUTIL1	PROC1+4
DEMOCHK^AMHUTIL1	DEMO+1
$$HRN^AUPNPAT	PRT2+4
^DIC	THER+5
^DIR	BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2, ZIS+1, HEAD+3
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	PRT2+5, PRT2+6
$$EXTSET^XBFUNC	HEAD1+9
EN^XBVK	XIT+1
$$REPEAT^XLFSTR	HEAD1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHLETR3+6
Function Call: WRITE	Prompt: "******** LIST CASES OPENED WITH NO TREATMENT PLAN IN PLACE ********",!! Line Location: AMHLETR3+7
Function Call: WRITE	Prompt: "This report will list all patients who have a case open date," Line Location: AMHLETR3+8
Function Call: WRITE	Prompt: !,"no case closed date and no treatment plan in place." Line Location: AMHLETR3+9
Function Call: WRITE	Prompt: ! Line Location: AMHLETR3+10
Function Call: WRITE	Prompt: !,"Please enter the date range during which the case was opened.",! 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 cases opened by one or all Programs",! Line Location: PROG+1
Function Call: WRITE	Prompt: ! Line Location: PROG+2
Function Call: WRITE	Prompt: !!,"You can limit the report output to cases opened by 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: $$CTR(X,80),! 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,"HRN",?31,"CASE OPEN",?41,"PROGRAM",?53,"PROVIDER",?70,"LAST VISIT" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !?31,"DATE",! Line Location: HEAD1+11
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",80),! Line Location: HEAD1+11
Routine Call	%ZIS Line Location: AMHLETR3+5
Routine Call	DIC Line Location: THER+5
Routine Call	DIR Line Location: BD+2 ED+1 PROG+2 PROG+5 THER+2 SORT+2 ZIS+1 HEAD+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	PROC+2, PROC1+2, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+11, P+1, N+1, C+1 , PRT2+3, PRT2+5
^AMHPTXP - [#9002011.56]	TP+5, TP+6, TP+8, TP+9, TP+10
^AMHPTXP("AC"	TP+1, TP+4
^AMHSITE - [#9002013]	AMHLETR3+11
^DIC(4 - [#4]	HEAD1+5
^DPT - [#2]	N+3, PRT2+4
^VA(200 - [#200]	P+2, HEAD1+4, HEAD1+8
^XTMP("AMHLETR3"	PROC1+17*, PRINT+3, PRINT+4, PRT2+1, DONE+1!

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHBD	BD+4*, ED+1, ED+4, PROC1+12
>> AMHBDD	ED+4*, HEAD1+7
>> AMHBT	PROC+1*
AMHBTH	PROC+1*, PROC1+17, PRINT+3, PRINT+4, PRT2+1, DONE+1!
AMHCASE	PROC+1, PROC+2, PROC+4!, PROC1+1, PROC1+2, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+11 , PROC1+17, P+1, N+1, C+1, PRT2+1*, PRT2+3, PRT2+5, PRT2+6
>> AMHCPRG	PROC1+9*, PROC1+10, PROC1+15
>> AMHCPRV	PROC1+8*, PROC1+15
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+4
>> AMHED	ED+3*, ED+4, PROC1+13
>> AMHEDD	ED+4*, HEAD1+7
>> AMHET	PROC+3*
AMHJOB	PROC+1*, PROC1+17, PRINT+3, PRINT+4, PRT2+1, DONE+1!
>> AMHOD	PROC1+11*, PROC1+12, PROC1+13, PROC1+15
>> AMHPG	PRINT+1, HEAD+1, HEAD1+1
>> AMHPROG	PROG+2, PROG+7, PROC1+10, HEAD1+9
>> AMHPROV	THER+2, THER+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+16
>> AMHSORTV	PROC1+17, P+1, P+2, P+3, N+3, N+4, C+1, C+2, PRINT+4, PRT2+1
>> AMHSORVT	N+2*
>> AMHTOT	PROC+1*
C	TP+2~
D	D~, D+1, D+2
DA	PROG+2!, PROG+5!, THER+2!, THER+5!, SORT+2!, ZIS+1!
DATE	TP~, TP+8, TP+9
DFN	XIT+2!, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+15, PRT2+3, PRT2+4, PRT2+7
DIC	THER+5*!
DIC("A"	THER+5*
DIC(0	THER+5*
DIR	BD+2!, ED+1!, PROG+2!, PROG+5!, THER+2!, SORT+2!, ZIS+1!, HEAD+3!
DIR("A"	BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2, ZIS+1*
DIR("B"	PROG+2, THER+2, SORT+2, ZIS+1
DIR(0	BD+2, ED+1, PROG+2, PROG+5, THER+2, SORT+2, ZIS+1, HEAD+3
>> DIRUT	BD+2, BD+3, ED+1, ED+2, PROG+3, PROG+6, THER+3, SORT+3, ZIS+2
>> DTOUT	HEAD+3
>> DUOUT	BD+2, ED+1
DUZ	AMHLETR3+11, PROC1+1, PROC1+5, TP+7, HEAD1+4
DUZ(2	AMHLETR3+11, PRT2+4, HEAD1+5
G	TP+2~, TP+3, TP+11, TP+13
IO	HEAD+3
IO(0	HEAD+3
IOF	AMHLETR3+5, AMHLETR3+6, HEAD1+2
IOM	CTR+1
IOSL	PRT2+2
IOST	HEAD+3
>> P	N+1*, N+2, N+3
PAT	TP~, TP+1, TP+4
PRG	TP~, TP+5
PROV	TP~, TP+6
U	PROC1+2, PROC1+6, PROC1+7, PROC1+8, PROC1+9, PROC1+11, TP+5, TP+6, TP+8, TP+9 , TP+10, P+1, P+2, N+1, N+3, C+1, PRT2+3, PRT2+4, PRT2+5, HEAD1+4 , HEAD1+5, HEAD1+8
X	ED+4, THER+6, TP+2~, TP+4, TP+5, TP+6, TP+7, TP+8, TP+9, TP+10 , CTR~, CTR+1, HEAD+2~, HEAD1+6, HEAD1+7, HEAD1+8, HEAD1+9*
>> 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, PROG+4, PROG+7, THER+4, THER+7, THER+8, SORT+4 , ZIS+3, CTR~, CTR+1, HEAD+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHLETR3

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: