Routine: AMHRPEC

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 $$EXTSET^XBFUNC EN^XBVK
VA Fileman	4	DD^%DT (C,COMMA)^%DTC ^DIC ^DIR
Kernel	3	HOME^%ZIS ($$FMADD,$$FMDIFF)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
Mental Health Social Services	3	$$ALLOWCD^AMHLCD ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
IHS Patient	1	$$HRN^AUPNPAT

Package

Total

Call Graph

IHS VA Utilities

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

VA Fileman

DD^%DT (C,COMMA)^%DTC ^DIC ^DIR

Kernel

HOME^%ZIS ($$FMADD,$$FMDIFF)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR

Mental Health Social Services

$$ALLOWCD^AMHLCD ($$ALLOWP,DBHUSRP,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1

IHS Patient

$$HRN^AUPNPAT

Package	Total	Caller Graph
Mental Health Social Services	3	AMHGOM AMHPHQO AMHRGADO

Package

Total

Caller Graph

Mental Health Social Services

AMHGOM AMHPHQO AMHRGADO

Entry Points

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
DONE	;
D(D)	;EP
CD(O,C,WO,WC)	;
PRINT	;
PRINT1	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PIH
HEAD
ZIS	;
START	;
XIT	;
C(X,X2,X3)	;
WHICH	;
PROC1	;
HEAD1	;
PROV	;
PROG	;
PROC	;EP - entry point for processing
PAGE	;

External References

Name	Field # of Occurrence
DD^%DT	PRINT+2
C^%DTC	PRINT+1
COMMA^%DTC	C+1
HOME^%ZIS	START+1
$$ALLOWCD^AMHLCD	PROC1+1
$$ALLOWP^AMHUTIL	PROC1+10
DBHUSRP^AMHUTIL	START+16
XTMP^AMHUTIL	PROC+3
$$DEMO^AMHUTIL1	PROC1+11
DEMOCHK^AMHUTIL1	DEMO+1
$$HRN^AUPNPAT	PRINT1+4
^DIC	PROV+6
^DIR	DATES+2, DATES+4, WHICH+3, PROG+2, PROG+5, PROV+3, PAGE+1, DEMO+3, HEAD+1
^XBDBQUE	DEMO+7, BROWSE+2
$$VAL^XBDIQ1	PROC1+15, PRINT1+8, PRINT1+9
$$EXTSET^XBFUNC	HEAD1+7
EN^XBVK	XIT+1
$$FMADD^XLFDT	DATES+8
$$FMDIFF^XLFDT	PROC1+13, PROC1+16, PROC1+17
$$REPEAT^XLFSTR	PIH+2
$$STRIP^XLFSTR	C+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "******** DURATION OF CARE REPORT ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of all closed cases in a date" Line Location: START+4
Function Call: WRITE	Prompt: !,"range that you specify. In order to be included in this report" Line Location: START+5
Function Call: WRITE	Prompt: !,"the case must have both a case open and a case closed date." Line Location: START+6
Function Call: WRITE	Prompt: !,"The duration of care is calculated by counting the number of days" Line Location: START+7
Function Call: WRITE	Prompt: !,"from the case open date to the case closed date." Line Location: START+8
Function Call: WRITE	Prompt: !!,"Cases may be selected based on Open date, Closed date or both." Line Location: START+9
Function Call: WRITE	Prompt: !,"Only those cases falling within the specified time frame will be" Line Location: START+10
Function Call: WRITE	Prompt: !,"counted." Line Location: START+11
Function Call: WRITE	Prompt: !! Line Location: START+12
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: ! Line Location: PROV+1
Function Call: WRITE	Prompt: !!,"NO CASES TO REPORT" Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,"Total Number of Cases: ",AMHTOT,! Line Location: PRINT+17
Function Call: WRITE	Prompt: "Average Duration of Care: ",$J((AMHTDAYS/AMHTOT),8,2)," days",!! Line Location: PRINT+18
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?18,$$HRN^AUPNPAT(DFN,DUZ(2)) Line Location: PRINT1+4
Function Call: WRITE	Prompt: ?25,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?35,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?47,^XTMP("AMHRPEC",AMHJOB,AMHBTH,"CASES",AMHPROV,AMHDATE,AMHCASE)_" days" Line Location: PRINT1+7
Function Call: WRITE	Prompt: ?57,$$VAL^XBDIQ1(9002011.58,AMHCASE,.09) Line Location: PRINT1+8
Function Call: WRITE	Prompt: ?65,$E($$VAL^XBDIQ1(9002011.58,AMHCASE,.08),1,14) Line Location: PRINT1+9
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$$CTR(X,80) 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+5
Function Call: WRITE	Prompt: $$CTR(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,"CASE OPEN",?35,"CASE CLOSED",?47,"DURATION",?57,"POV",?65,"PROVIDER" Line Location: PIH+0
Function Call: WRITE	Prompt: !?18,"NUMBER",?25,"DATE",?35,"DATE" Line Location: PIH+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80),! Line Location: PIH+2
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PROV+6
Routine Call	DIR Line Location: DATES+2 DATES+4 WHICH+3 PROG+2 PROG+5 PROV+3 PAGE+1 DEMO+3 HEAD+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPCASE - [#9002011.58]	PROC+4, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+8, PRINT1+2
^AMHSITE - [#9002013]	START+13
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	PRINT1+4
^VA(200 - [#200]	HEAD1+3
^XTMP("AMHRPEC"	PROC1+16*, PRINT+5, PRINT+7, PRINT+10, PRINT+11, DONE+1!, PRINT1+7

Label References

Name	Line Occurrences
$$CD	PROC1+7
$$CTR	HEAD1+2, HEAD1+5, HEAD1+6, HEAD1+7
BROWSE	DEMO+5
DATES	DATES+6, WHICH+4
DONE	PRINT+5, PRINT+15
HEAD	PRINT+9, PRINT+12, PRINT+16, PRINT1+1
HEAD1	HEAD
PAGE	PROV+5
PRINT1	PRINT+11
PROC1	PROC+4
PROG	PROG+6, PROG+7
PROV	PROG+4, PROV+8, PAGE+2, DEMO+2
WHICH	PROG+3
XIT	START+17, DATES+2, DATES+4, PROV+4, DEMO+4, DEMO+5
ZIS	PROV+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMH80D	PRINT+3*
AMHBD	DATES!, DATES+2, DATES+6, DATES+8, CD+1, CD+2, PRINT+1, PRINT+2
>> AMHBDD	PRINT+2*, HEAD1+5
>> AMHBT	PROC+1*
AMHBTH	PROC+1*, PROC1+16, PRINT+5, PRINT+7, PRINT+10, PRINT+11, DONE+1!, PRINT1+7
AMHCASE	PROC+1, PROC+4, PROC+6!, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+8 , PROC1+15, PROC1+16, PRINT+11*, PRINT1+2, PRINT1+7, PRINT1+8, PRINT1+9
>> AMHCD	PROC1+6*, PROC1+7, PROC1+13, PROC1+16, PROC1+17
>> AMHCLOSE	WHICH+1, WHICH+6, WHICH+7*, PROC1+7
>> AMHCNT	PRINT+6, PRINT+8, PRINT+9
>> AMHDATE	PRINT+10*, PRINT+11, PRINT1+7
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+11
AMHED	DATES!, DATES+4, DATES+6, CD+1, CD+2, PRINT+1, PRINT+2
>> AMHEDD	PRINT+2*, HEAD1+5
>> AMHET	PROC+5*
AMHJOB	PROC+1*, PROC1+16, PRINT+5, PRINT+7, PRINT+10, PRINT+11, DONE+1!, PRINT1+7
>> AMHNPAG	PAGE+1, PAGE+3, PRINT+9
>> AMHOD	PROC1+5*, PROC1+7, PROC1+13, PROC1+16, PROC1+17
>> AMHOPEN	WHICH+1, WHICH+5, WHICH+7*, PROC1+7
>> AMHPG	PRINT+4, HEAD, HEAD1+1, HEAD1+3
>> AMHPROG	PROG+1, PROG+8, PROC1+4, HEAD1+7
>> AMHPROV	PROV+2, PROV+9, PROC1+3, PRINT+7*, PRINT+10, PRINT+11, PRINT+13, PRINT+14, PRINT1+7
AMHQ	PRINT+6!, PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+15, PRINT+16, PRINT1+1, HEAD+1*
>> AMHSD	DATES+8*
AMHSUB	PROC+2!, PRINT+8*
AMHSUB(	PROC1+17*, PRINT+13, PRINT+14
>> AMHSUBD(	PROC1+17*, PRINT+14
>> AMHTDAYS	PROC+1, PROC1+14, PRINT+18
>> AMHTOT	PROC+1, PROC1+12, PRINT+17, PRINT+18
>> AMHX	PROC1+15, PROC1+16, PROC1+17, PRINT1+2, PRINT1+3, PRINT1+5, PRINT1+6
C	CD~, CD+2
D	D~, D+1, D+2
DA	WHICH+3!, PROG+2!, PROG+5!, PROV+3!, PROV+7!, PAGE+1!, DEMO+3!
>> DFN	PROC1+8, PROC1+9, PROC1+10, PROC1+11, PRINT1+3, PRINT1+4
DIC	PROV+6*, PROV+7!
DIC("A"	PROV+6*
DIC(0	PROV+6*
DIR	DATES+1!, DATES+3!, WHICH+3!, PROG+2!, PROG+5!, PROV+3!, PAGE+1!, DEMO+3!, HEAD+1!
DIR("A"	DATES+1, DATES+3, WHICH+3, PROG+2, PROG+5, PROV+3, PAGE+1, DEMO+3
DIR("B"	WHICH+3, PROG+2, PROV+3, PAGE+1, DEMO+3*
DIR(0	DATES+1, DATES+3, WHICH+2, PROG+2, PROG+5, PROV+3, PAGE+1, DEMO+3, HEAD+1*
>> DIRUT	WHICH+4, PROG+3, PROG+6, PROV+4, PAGE+2, DEMO+4
DT	PRINT+1
>> DTOUT	HEAD+1
DUZ	START+13, PROC1+1, PROC1+10, HEAD1+3
DUZ(2	START+13, PRINT1+4, HEAD1+4
IO	HEAD+1
IO(0	HEAD+1
IOF	START+1, START+2, HEAD1+1
IOM	CTR+1
IOSL	PRINT+12, PRINT+16, PRINT1+1
IOST	HEAD+1
O	CD~, CD+1
U	PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+8, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6 , HEAD1+3, HEAD1+4
WC	CD~, CD+2
WO	CD~, CD+1
X	PROG+7, PROC1+13, PROC1+14, PRINT+1, HEAD1+2, HEAD1+5, HEAD1+6, HEAD1+7*, C~, C+2 , CTR~, CTR+1
>> X1	PRINT+1*
X2	PRINT+1*, C~
X3	C~
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+6, BROWSE+2
>> XBRC	DEMO+6, BROWSE+2
>> XBRP	DEMO+6, BROWSE+1
>> XBRX	DEMO+6, BROWSE+2
Y	DATES+2, DATES+4, WHICH+5, WHICH+6, WHICH+7, PROG+4, PROG+8, PROV+5, PROV+8, PROV+9 , PAGE+3, DEMO+5, PRINT+2, PRINT1+5, PRINT1+6*, HEAD+1, CTR~, CTR+1

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPEC

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: