Routine: AMHRP5

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
Mental Health Social Services	2	^AMHEKL DONE^AMHLEIN
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIR

Mental Health Social Services

^AMHEKL DONE^AMHLEIN

IHS VA Utilities

^XBDBQUE

Kernel

HOME^%ZIS

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PROC1	;
ZIS	;
ED	;get ending date
GETDATES	;
XIT
PRINT	;EP
DONE
PROC	;EP - entry point for processing

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4, PRINT+1
C^%DTC	ED+4
HOME^%ZIS	AMHRP5+3
^AMHEKL	DONE
DONE^AMHLEIN	DONE
^DIR	BD+2, ED+1
^XBDBQUE	ZIS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: AMHRP5+4
Function Call: WRITE	Prompt: "******** TALLY CASE OPEN/ADMIT/CLOSED DATES ********",!! Line Location: AMHRP5+5
Function Call: WRITE	Prompt: "This report will count the total number of cases that were opened,",!,"admitted or closed during a date range you specify.",! Line Location: AMHRP5+6
Function Call: WRITE	Prompt: !,"Please enter the date range during which the case should have been",!,"opened, admitted or closed",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page 1 ",! Line Location: PRINT+5
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: PRINT+6
Function Call: WRITE	Prompt: ?20,"Date Range: ",AMHBDD," to ",AMHEDD,! Line Location: PRINT+7
Function Call: WRITE	Prompt: ?22,"TALLY OF CASES OPENED/ADMITTED/CLOSED",! Line Location: PRINT+8
Function Call: WRITE	Prompt: AMH80D,! Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: PRINT+10
Function Call: WRITE	Prompt: !?22,"CASES OPENED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"OPEN")):^("OPEN"),1:0) Line Location: PRINT+11
Function Call: WRITE	Prompt: !?22,"CASES ADMITTED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"ADMIT")):^("ADMIT"),1:0) Line Location: PRINT+12
Function Call: WRITE	Prompt: !?22,"CASES CLOSED: ",?39,$S($G(^TMP("AMHRP5",AMHJOB,AMHBTH,"CLOSED")):^("CLOSED"),1:0) Line Location: PRINT+13
Routine Call	%ZIS Line Location: AMHRP5+3
Routine Call	DIR Line Location: BD+2 ED+1

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	PROC+2, PROC1+1
^DIC(4 - [#4]	PRINT+6
^TMP("AMHRP5"	PROC1+2, PROC1+3, PROC1+4, PRINT+10, PRINT+11, PRINT+12, PRINT+13, DONE+1!
^VA(200 - [#200]	PRINT+5

Name	Line Occurrences
BD	ED+2
DONE	PRINT+10
PROC1	PROC+2
XIT	BD+3

Name	Field # of Occurrence
^("ADMIT"	PROC1+3*, PRINT+12
^("CLOSED"	PROC1+4*, PRINT+13
^("OPEN"	PROC1+2*, PRINT+11

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMH80D	XIT!, PRINT+2*, PRINT+9
AMHBD	BD+4*, ED+1, ED+4, XIT!, PROC1+2, PROC1+3, PROC1+4, PRINT+1
AMHBDD	ED+4, XIT+1!, PRINT+1, PRINT+7
AMHBDO	XIT+1!
AMHBT	XIT+1!, PROC+1*
AMHBTH	XIT!, PROC+1*, PROC1+2, PROC1+3, PROC1+4, PRINT+10, PRINT+11, PRINT+12, PRINT+13, DONE+1!
AMHED	ED+3*, ED+4, XIT!, PROC1+2, PROC1+3, PROC1+4, PRINT+1
AMHEDD	ED+4, XIT+1!, PRINT+1, PRINT+7
AMHEDO	XIT+1!
>> AMHET	PROC+3*
AMHFOUND	XIT+1!
AMHHIT	XIT+1!
AMHHRCN	XIT!
AMHID	XIT+1!
AMHJOB	XIT!, PROC+1*, PROC1+2, PROC1+3, PROC1+4, PRINT+10, PRINT+11, PRINT+12, PRINT+13, DONE+1!
AMHLENG	XIT!
AMHLINE	XIT+1!
AMHP	XIT+1!
AMHPCNT	XIT!
AMHPG	XIT!
AMHPRNM	XIT+1!
AMHPRNT	XIT+1!
AMHPROB	XIT+1!
AMHPROV	XIT!
AMHPRV	XIT+1!
AMHR	XIT+1!
AMHRCNT	XIT+1!
AMHRLOC	XIT+1!
AMHSD	ED+4*, XIT+1!
AMHTOT	XIT+1!, PROC+1*
AMHX	XIT!
D	XIT!
DFN	XIT!, PROC+1, PROC+2, PROC+4!, PROC1+1
DIC	XIT!
DIR	BD+2!, ED+1!, XIT!
DIR("A"	BD+2, ED+1
DIR(0	BD+2, ED+1
DIRUT	BD+2, BD+3, ED+1, ED+2, XIT!
DTOUT	XIT!
DUOUT	BD+2, ED+1, XIT!
DUZ	PRINT+5
DUZ(2	PRINT+6
IO("Q"	XIT!
IOF	AMHRP5+3, AMHRP5+4, PRINT+3
U	PROC1+2, PROC1+3, PROC1+4, PRINT+5, PRINT+6
>> X	ED+4, PROC1+1*, PROC1+2, PROC1+3, PROC1+4
>> X1	ED+4*
>> X2	ED+4*
XBNS	ZIS+1*, XIT!
XBRC	ZIS+1*, XIT!
XBRP	ZIS+1*, XIT!
>> XBRX	ZIS+1*
XBTX	XIT!
Y	BD+4, ED+1, ED+3, ED+4, XIT!, PRINT+1*
ZTSK	XIT!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRP5

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: