Routine: AMHRC3

Package	Total	Call Graph
Mental Health Social Services	4	^AMHEKL DONE^AMHLEIN ($$ALLOWP,$$ALLOWVI,$$PPINT,DBHUSR,XTMP)^AMHUTIL ($$DEMO,DEMOCHK)^AMHUTIL1
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PIH
VSTS	; process visits
PROC1	;
ZIS	;
HEAD1	;
BROWSE	;
DEMO	;
DFN	;
HEAD
START	;
GETDATES	;
XIT
ED	;get ending date
PRINT	;
DONE
PROC	;EP - entry point for processing

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4, PRINT+2
C^%DTC	ED+4
HOME^%ZIS	START+1
^AMHEKL	DONE
DONE^AMHLEIN	DONE
$$ALLOWP^AMHUTIL	PROC1+6
$$ALLOWVI^AMHUTIL	PROC1+2
$$PPINT^AMHUTIL	PROC1+8
DBHUSR^AMHUTIL	START+5
XTMP^AMHUTIL	PROC+2
$$DEMO^AMHUTIL1	PROC1+7
DEMOCHK^AMHUTIL1	DEMO+1
^DIR	BD+2, ED+1, ZIS+1, HEAD+1
^XBDBQUE	ZIS+5, BROWSE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: "******** LISTING OF PATIENTS WHO HAVE SPENT TIME IN GROUP ********",!! Line Location: START+3
Function Call: WRITE	Prompt: "This report will produce a list of patients who have spent time in a group.",!,"It will list the patient, the primary provider, diagnoses and time",!,"spent in the group for a date range you enter.",!! Line Location: START+4
Function Call: WRITE	Prompt: !,"Please enter the date range during which the patient should be seen",!,"in a group.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,$E($P(^DPT(DFN,0),U),1,15),?18,AMHHRCN Line Location: DFN+3
Function Call: WRITE	Prompt: ?26,$P(^DPT(DFN,0),U,2) Line Location: DFN+4
Function Call: WRITE	Prompt: ?30,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3) Line Location: DFN+4
Function Call: WRITE	Prompt: ! Line Location: VSTS+3
Function Call: WRITE	Prompt: ! Line Location: VSTS+7
Function Call: WRITE	Prompt: ?49,$E($P(^VA(200,AMHPROV,0),U),1,15) Line Location: VSTS+9
Function Call: WRITE	Prompt: ?49,AMHPROV Line Location: VSTS+10
Function Call: WRITE	Prompt: !?10,"Total for patient ",$E($P(^DPT(DFN,0),U,1),1,20),?50,^XTMP("AMHRC3",AMHJOB,AMHBTH,"TOTAL",DFN) Line Location: VSTS+18
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: ?22,"PATIENTS SEEN IN GROUPS WITH TIME SPENT IN GROUP",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?20,"DATES: ",AMHBDD," TO ",AMHEDD,! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?18,"HRN",?25,"SEX",?30,"DOB",?40,"DATE",?49,"PROVIDER",?65,"PROBLEM",?74,"TIME",!,AMH80D Line Location: PIH+0
Routine Call	%ZIS Line Location: START+1
Routine Call	DIR Line Location: BD+2 ED+1 ZIS+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	VSTS+12
^AMHREC - [#9002011]	PROC1+3, PROC1+4, PROC1+5, PROC1+11
^AMHREC("B"	PROC+4, PROC1+1
^AMHRPRO - [#9002011.01]	PROC1+10
^AMHRPRO("AD"	PROC1+9
^AUPNPAT - [#9000001]	DFN+2
^DIC(4 - [#4]	HEAD1+4
^DPT - [#2]	PROC1+12, DFN+3, DFN+4, VSTS+18
^VA(200 - [#200]	VSTS+9, VSTS+16, HEAD1+3
^XTMP("AMHRC3"	PROC1+12, PROC1+13, PROC1+14*, PRINT+4, PRINT+6, PRINT+7, DONE+1!, VSTS+1, VSTS+5, VSTS+8 , VSTS+11, VSTS+13, VSTS+15, VSTS+16, VSTS+18

Label References

Name	Line Occurrences
BD	ED+2, DEMO+2
BROWSE	ZIS+3
DFN	PRINT+7
DONE	PRINT+4, PRINT+8
HEAD	PRINT+3, DFN+1
HEAD1	HEAD
PROC1	PROC+4
XIT	BD+3, ZIS+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(0	DFN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMH80D	XIT!, PRINT+1*, PIH
AMHBD	BD+4*, ED+1, ED+4, XIT!, PRINT+2
AMHBDD	ED+4, XIT+1!, PRINT+2, HEAD1+6
AMHBDO	XIT+1!
AMHBT	XIT+1!, PROC+1*
AMHBTH	XIT!, PROC+1*, PROC1+12, PROC1+13, PROC1+14, PRINT+4, PRINT+6, PRINT+7, DONE+1!, VSTS+1 , VSTS+5, VSTS+8, VSTS+11, VSTS+13, VSTS+15, VSTS+16, VSTS+18
>> AMHC	VSTS+5, VSTS+6, VSTS+7
>> AMHDATE	VSTS+1*, VSTS+4, VSTS+5, VSTS+8, VSTS+11, VSTS+13
>> AMHDEMO	DEMO+1, DEMO+2, PROC1+7
>> AMHDX	PROC1+9, PROC1+10, PROC1+12, VSTS+11*, VSTS+12, VSTS+13
AMHED	ED+3*, ED+4, XIT!, PROC+4, PRINT+2
AMHEDD	ED+4, XIT+1!, PRINT+2, HEAD1+6
AMHEDO	XIT+1!
>> AMHET	PROC+5*
AMHFOUN	XIT!
AMHFOUND	XIT+1!
AMHHIT	XIT+1!
AMHHRCN	XIT!, DFN+2*, DFN+3
AMHID	XIT+1!
AMHJOB	XIT!, PROC+1*, PROC1+12, PROC1+13, PROC1+14, PRINT+4, PRINT+6, PRINT+7, DONE+1!, VSTS+1 , VSTS+5, VSTS+8, VSTS+11, VSTS+13, VSTS+15, VSTS+16, VSTS+18
AMHLENG	XIT!
AMHLINE	XIT+1!
>> AMHNAME	PRINT+6*, PRINT+7, VSTS+1, VSTS+5, VSTS+8, VSTS+11, VSTS+13
AMHNUM	XIT!
AMHP	XIT+1!
AMHPCNT	XIT!
AMHPG	XIT!, PRINT+3, HEAD, HEAD1+1, HEAD1+3
AMHPOV	XIT!
AMHPRNM	XIT+1!
AMHPRNT	XIT+1!
AMHPROB	XIT+1!
>> AMHPROV	PROC1+8, PROC1+12, PROC1+13, VSTS+8, VSTS+9, VSTS+10, VSTS+11, VSTS+13, VSTS+15*, VSTS+16
AMHPRV	XIT+1!
AMHQ	PRINT+5!, PRINT+6, PRINT+7, PRINT+8, DFN+1, VSTS+1, VSTS+5, VSTS+14, VSTS+15, VSTS+17 , HEAD+1*
AMHR	XIT+1!, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+8, PROC1+9, PROC1+11, PROC1+12 , VSTS+5, VSTS+8, VSTS+11, VSTS+13
AMHRA	XIT!
>> AMHRC	VSTS+1, VSTS+2, VSTS+3
AMHRCNT	XIT+1!
AMHRLOC	XIT+1!
AMHRX	XIT!
AMHRY	XIT!
AMHSD	ED+4, XIT+1!, PROC+3, PROC+4*, PROC1+1, PROC1+12
AMHTOT	XIT+1!, PROC+1*
>> AMHTSG	PROC1+11*, PROC1+12, PROC1+13, PROC1+14
AMHX	XIT!
D	XIT!
DA	ZIS+1!
DFN	XIT!, PROC+1, PROC+6!, PROC1+5, PROC1+6, PROC1+7, PROC1+12, PROC1+13, PROC1+14, PRINT+5* , PRINT+7*, DFN+2, DFN+3, DFN+4, VSTS+1, VSTS+5, VSTS+8, VSTS+11, VSTS+13, VSTS+15 , VSTS+16, VSTS+18
DIC	XIT!
DIR	BD+2!, ED+1!, ZIS+1!, XIT!, HEAD+1!
DIR("A"	BD+2, ED+1, ZIS+1*
DIR("B"	ZIS+1*
DIR(0	BD+2, ED+1, ZIS+1, HEAD+1
DIRUT	BD+2, BD+3, ED+1, ED+2, ZIS+2, XIT!
DTOUT	XIT!, HEAD+1
DUOUT	BD+2, ED+1, XIT!
DUZ	PROC1+2, PROC1+6, HEAD1+3
DUZ(2	DFN+2, HEAD1+4
IO	HEAD+1
IO("Q"	XIT!
IO(0	HEAD+1
IOF	START+1, START+2, HEAD1+1
IOSL	DFN+1
IOST	HEAD+1
U	PROC1+3, PROC1+4, PROC1+5, PROC1+10, PROC1+11, PROC1+12, DFN+2, DFN+3, DFN+4, VSTS+9 , VSTS+12, VSTS+16, VSTS+18, HEAD1+3, HEAD1+4
>> X	ED+4
>> X1	ED+4*
>> X2	ED+4*
>> XBIOP	BROWSE+2*
XBNS	ZIS+4, XIT!, BROWSE+2
XBRC	ZIS+4, XIT!, BROWSE+2
XBRP	ZIS+4, XIT!, BROWSE+1
>> XBRX	ZIS+4, BROWSE+2
XBTX	XIT!
Y	BD+4, ED+1, ED+3, ED+4, ZIS+3, XIT!, PRINT+2, DFN+4, HEAD+1
ZTSK	XIT!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRC3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: