Routine: AMHRC4

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK
Mental Health Social Services	4	$$ALLOWCD^AMHLCD PAUSE^AMHLEA ($$ALLOWP,$$ALLOWVI,$$PPNAME,DBHUSR,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
Kernel	3	HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
VS(P,BD,ED,R,W)	;
DONE	;
D(D)	;
PRINT	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PRN	;
HEAD
ZIS	;
START	;
XIT	;
PROC1	;
PROC2	;
HEAD1	;
PROV	;
DAYS	;
NS(V)	;
PROG	;
PROC	;EP - entry point for processing
LASTDX(V)	;

External References

Name	Field # of Occurrence
HOME^%ZIS	START+1
$$ALLOWCD^AMHLCD	PROC2+16
PAUSE^AMHLEA	START+14
$$ALLOWP^AMHUTIL	PROC2+6
$$ALLOWVI^AMHUTIL	PROC2+2, VS+9
$$PPNAME^AMHUTIL	PRN+9
DBHUSR^AMHUTIL	START+14
DBHUSRP^AMHUTIL	START+14
XTMP^AMHUTIL	PROC+3
$$DEMO^AMHUTIL1	PROC2+7
DEMOCHK^AMHUTIL1	DEMO+1
KILL^AUPNPAT	XIT+2
^DIC	PROV+5
^DIR	DATES+2, DATES+4, PROG+5, PROV+2, DAYS+2, ZIS+1, HEAD+1
^XBDBQUE	ZIS+5, BROWSE+2
$$VAL^XBDIQ1	LASTDX+5
$$EXTSET^XBFUNC	HEAD1+7
EN^XBVK	XIT+1
$$FMADD^XLFDT	DATES+8, VS+4
$$FMTE^XLFDT	HEAD1+6
$$CJ^XLFSTR	HEAD1+5, HEAD1+6
$$REPEAT^XLFSTR	HEAD1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "***** CLIENTS SEEN AT LEAST X TIMES WITH NO CASE OPEN DATE *****",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of patients, in a date range specified" Line Location: START+4
Function Call: WRITE	Prompt: !,"by the user, who have been seen a certain number of times but do not" Line Location: START+5
Function Call: WRITE	Prompt: !,"have open cases. The user, based on their program's standards" Line Location: START+6
Function Call: WRITE	Prompt: !,"of care, specifies when a case is to be opened. For example," Line Location: START+7
Function Call: WRITE	Prompt: !,"a case will be opened if a patient has been seen at least (3) times." Line Location: START+8
Function Call: WRITE	Prompt: ! Line Location: START+9
Function Call: WRITE	Prompt: ! Line Location: DATES+1
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+7
Function Call: WRITE	Prompt: !,"Bye..." Line Location: DAYS+3
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Total Number of Patients: ",AMHPCNT,! Line Location: PRINT+8
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+4
Function Call: WRITE	Prompt: ?28,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRN+4
Function Call: WRITE	Prompt: ?38,$P(^XTMP("AMHRC4",AMHJOB,AMHBTH,"HITS",AMHNAME,DFN),U,1) Line Location: PRN+5
Function Call: WRITE	Prompt: ?45,$$D($P(^XTMP("AMHRC4",AMHJOB,AMHBTH,"HITS",AMHNAME,DFN),U,3)) Line Location: PRN+6
Function Call: WRITE	Prompt: ?56,$$LASTDX(V) Line Location: PRN+8
Function Call: WRITE	Prompt: ?65,$E($$PPNAME^AMHUTIL(V),1,14) Line Location: PRN+9
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: $$CJ^XLFSTR(X,80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CJ^XLFSTR(X,80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,"PATIENT NAME",?18,"CHART",?25,"SEX",?31,"DOB",?38,"#",?45,"LAST VISIT",?56,"LAST",?63,"PROVIDER" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !?18,"NUMBER",?38,"VISITS",?56,"DX" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80),! Line Location: HEAD1+10
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: DATES+2 DATES+4 PROG+5 PROV+2 DAYS+2 ZIS+1 HEAD+1

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)
^AMHPCASE - [#9002011.58]	PROC2+17
^AMHPCASE("C"	PROC2+15
^AMHPROB - [#9002012.2]	NS+4, NS+5, NS+6, NS+7, NS+8, NS+9
^AMHREC - [#9002011]	PROC2+1, PROC2+4, VS+8
^AMHREC("AF"	VS+5, VS+6
^AMHREC("B"	PROC+4, PROC1+1
^AMHREC("C"	VS+1
^AMHRPRO - [#9002011.01]	NS+4, NS+5, NS+6, NS+7, NS+8, NS+9
^AMHRPRO("AD"	NS+3, LASTDX+3
^AMHRPROV - [#9002011.02]	VS+12
^AMHRPROV("AD"	VS+12
^AMHSITE - [#9002013]	START+11
^AUPNPAT - [#9000001]	PRN+2
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	PROC2+21, PRN+3, PRN+4
^VA(200 - [#200]	HEAD1+3
^XTMP("AMHRC4"	PROC2+8, PROC2+21, PROC2+22, PRINT+3, PRINT+5, PRINT+6, DONE+1!, PRN+5, PRN+6, PRN+7

Label References

Name	Line Occurrences
$$CTR	HEAD1+7
$$D	PRN+6
$$LASTDX	PRN+8
$$NS	VS+7
$$VS	PROC2+9
BROWSE	ZIS+3
DATES	DATES+6, PROG+6, PROG+7
DAYS	PROV+4, DEMO+2
DONE	PRINT+3, PRINT+7
HEAD	PRINT+2, PRN+1
HEAD1	HEAD
PRN	PRINT+6
PROC1	PROC+4
PROC2	PROC1+1
PROV	PROV+7
XIT	DATES+2, DATES+4, PROV+3, DAYS+3, DAYS+4, ZIS+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(0	PRN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	VS+2~, VS+12*
>> AMH80D	PRINT+1*
AMHBD	DATES!, DATES+2*, DATES+6, DATES+8, PROC2+9, HEAD1+6
>> AMHBT	PROC+2*
AMHBTH	PROC+2*, PROC2+8, PROC2+21, PROC2+22, PRINT+3, PRINT+5, PRINT+6, DONE+1!, PRN+5, PRN+6 , PRN+7
AMHCASE	PROC+6!
>> AMHCCNT	PROC+1*
>> AMHCV	PROC2+14*, PROC2+21
>> AMHDAYS	DAYS+1, DAYS+5, PROC2+10, HEAD1+5
>> AMHDEMO	DEMO+1, DEMO+2, PROC2+7
AMHED	DATES!, DATES+4*, DATES+6, PROC+4, PROC2+9, HEAD1+6
>> AMHET	PROC+5*
>> AMHHRCN	PRN+2*, PRN+3
AMHJOB	PROC+2*, PROC2+8, PROC2+21, PROC2+22, PRINT+3, PRINT+5, PRINT+6, DONE+1!, PRN+5, PRN+6 , PRN+7
>> AMHLASTD	PROC2+12*, PROC2+17, PROC2+21
>> AMHLASTV	PROC2+13*, PROC2+21
>> AMHNAME	PRINT+5*, PRINT+6, PRN+5, PRN+6, PRN+7
>> AMHODAT	PROC+4*, PROC1+1
>> AMHPCNT	PROC+1, PROC2+21, PRINT+8
>> AMHPG	PRINT+2, HEAD, HEAD1+1, HEAD1+3
>> AMHPROG	PROG+1, PROG+8, PROC2+9, HEAD1+7
>> AMHPROV	PROV+1, PROV+8, PROC2+9
AMHQ	PRINT+4!, PRINT+5, PRINT+6, PRINT+7, PRN+1, HEAD+1*
>> AMHSD	DATES+8*, PROC+4
>> AMHVIEN	PROC1+1*, PROC2+1, PROC2+2, PROC2+4
B	VS+2~
BD	VS~, VS+4
C	VS+2~, VS+3, VS+13, VS+16
D	D~, D+1, D+2
DA	PROG+5!, PROV+2!, PROV+6!, DAYS+2!, ZIS+1!
>> DFN	PROC2+4, PROC2+5, PROC2+6, PROC2+7, PROC2+8, PROC2+9, PROC2+15, PROC2+21, PROC2+22, PRINT+4 , PRINT+6*, PRN+2, PRN+3, PRN+4, PRN+5, PRN+6, PRN+7
DIC	PROV+5*, PROV+6!
DIC("A"	PROV+5*
DIC(0	PROV+5*
DIR	DATES+1!, DATES+3!, PROG+5!, PROV+2!, DAYS+2!, ZIS+1!, HEAD+1!
DIR("A"	DATES+1, DATES+3, PROG+5, PROV+2, DAYS+2, ZIS+1
DIR("B"	PROV+2, ZIS+1
DIR(0	DATES+1, DATES+3, PROG+5, PROV+2, DAYS+2, ZIS+1, HEAD+1*
>> DIRUT	PROG+6, PROV+3, DAYS+3, ZIS+2
DNKA	NS+1~, NS+2, NS+3, NS+4, NS+5, NS+6, NS+7, NS+8, NS+9*, NS+11
>> DTOUT	HEAD+1
DUZ	START+11, PROC2+2, PROC2+6, PROC2+16, VS+9, HEAD1+3
DUZ(2	START+11, PRN+2, HEAD1+4
ED	VS~, VS+5
>> G	PROC2+15, PROC2+18, PROC2+20, VS+10, VS+11, VS+12
H	NS+1~, NS+3*, NS+4, NS+5, NS+6, NS+7, NS+8, NS+9
I	NS+1~
IO	HEAD+1
IO(0	HEAD+1
IOF	START+1, START+2, HEAD1+1
IOM	CTR+1
IOSL	PRN+1
IOST	HEAD+1
J	NS+1~
K	NS+1~
P	VS~, VS+1, VS+5, VS+6
R	VS~, VS+8
S	VS+2~, VS+4, VS+5, VS+6, VS+13
U	PROC2+4, PROC2+10, PROC2+12, PROC2+13, PROC2+14, PROC2+17, PROC2+21, VS+8, VS+12, VS+16 , NS+4, NS+5, NS+6, NS+7, NS+8, NS+9, PRN+2, PRN+3, PRN+4, PRN+5 , PRN+6, PRN+7, HEAD1+3, HEAD1+4
V	NS~, NS+3, PRN+7*, PRN+8, PRN+9, LASTDX~, LASTDX+3
W	VS~, VS+10, VS+12
X	PROG+7, PROC2+9, PROC2+10, PROC2+12, PROC2+13, PROC2+14, PROC2+15, PROC2+16, PROC2+17, VS+2~ , VS+6, VS+7, VS+8, VS+9, VS+12, VS+13, LASTDX+2~, LASTDX+3, LASTDX+4, LASTDX+5 , HEAD1+5, HEAD1+6, HEAD1+7*, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+4, BROWSE+2
>> XBRC	ZIS+4, BROWSE+2
>> XBRP	ZIS+4, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
Y	DATES+2, DATES+4, PROG+8, PROV+4, PROV+7, PROV+8, DAYS+4, DAYS+5, ZIS+3, VS+2~ , VS+3, VS+13, VS+16, PRN+4*, HEAD+1, CTR~, CTR+1
Z	VS+2~, VS+3, VS+13, VS+16

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRC4

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: