Routine: AMHRPS

Package	Total	Call Graph
Mental Health Social Services	3	PAUSE^AMHLEA DBHUSR^AMHUTIL DEMOCHK^AMHUTIL1
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

Mental Health Social Services

PAUSE^AMHLEA DBHUSR^AMHUTIL DEMOCHK^AMHUTIL1

DD^%DT C^%DTC ^DIR

^XBDBQUE

HOME^%ZIS

Name	Comments	DBIA/ICR reference
BD	;get beginning date
BIN	;
SET
AGEGRP	;GET AGE GROUPS
SETBIN	;
INFORM	;inform user what this report is all about
BROWSE	;
ED	;get ending date
AGE	;
LIST	;
START	;
GETDATES	;
GC	;
CLOSE
XIT
RUN	;
DEMO	;
ZIS	;

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4
HOME^%ZIS	START+1
PAUSE^AMHLEA	INFORM+8
DBHUSR^AMHUTIL	INFORM+10
DEMOCHK^AMHUTIL1	DEMO+1
^DIR	BD+2, ED+1, BIN+2, AGE+2, GC+1, DEMO+4
^XBDBQUE	DEMO+8, BROWSE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @(IOF),!! Line Location: START+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Report type missing!",! Line Location: START+5
Function Call: WRITE	Prompt: !,"Please enter the date range during which the patient should have been seen ",!,"with one of these problems.",! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: AGEGRP+1
Function Call: WRITE	Prompt: !,"The Age Groups to be used are currently defined as:",! Line Location: BIN+1
Function Call: WRITE	Prompt: ! Line Location: RUN+1
Function Call: WRITE	Prompt: $C(7) Line Location: AGE+7
Function Call: WRITE	Prompt: !,"Make sure the age is higher the beginning age of the previous group.",! Line Location: AGE+7
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: GC+5
Function Call: WRITE	Prompt: !,$P(X,"-")," - ",$P(X,"-",2) Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+3
Function Call: WRITE	Prompt: !,$C(7),"This report should be printed on 132 column paper or on a printer with ",!,"condensed print.",! Line Location: DEMO+3
Function Call: WRITE	Prompt: !,AMHTITLE Line Location: INFORM+1
Function Call: WRITE	Prompt: !,"This report will present, by age and sex, the number of individual patients",!,"who were seen for the following Purpose of Visits (POV):",! Line Location: INFORM+6
Function Call: WRITE	Prompt: !?10,$P(^AMHPROB(AMHY,0),U)," - ",$P(^AMHPROB(AMHY,0),U,2) Line Location: INFORM+9
Routine Call	%ZIS Line Location: START+1
Routine Call	DIR Line Location: BD+2 ED+1 BIN+2 AGE+2 GC+1 DEMO+4

Name	Line Occurrences (* Changed, ! Killed)
^AMHPROB - [#9002012.2]	INFORM+9
^AMHPROB("B"	INFORM+7

Name	Line Occurrences
AGE	RUN+1
BD	ED+2, BIN+3
BIN	RUN+1, RUN+2, RUN+4
BROWSE	DEMO+6
CLOSE	RUN+2, GC+5
INFORM	START+6
LIST	BIN+1, RUN+3
RUN	AGE+7
SET	AGE+6
SETBIN	AGEGRP+2
XIT	BD+3, DEMO+2, DEMO+5, DEMO+6
ZIS	BIN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LIST+1*, LIST+2
AMH80D	XIT!
AMHBD	BD+4*, ED+1, ED+4, XIT!
AMHBDD	ED+4*, XIT+1!
AMHBDO	XIT+1!
AMHBT	XIT+1!
AMHBTH	XIT!
>> AMHDEMO	DEMO+1, DEMO+2
AMHED	ED+3*, ED+4, XIT!
AMHEDD	ED+4*, XIT+1!
AMHEDO	XIT+1!
AMHFOUND	XIT+1!
AMHHIT	XIT+1!
AMHHRCN	XIT!
AMHID	XIT+1!
AMHJOB	XIT!
AMHLENG	XIT!
AMHLINE	XIT+1!
AMHP	XIT+1!
AMHPCNT	XIT!
AMHPG	XIT!
AMHPRNM	XIT+1!
AMHPRNT	XIT+1!
AMHPROB	XIT+1!
AMHPROB(	INFORM+7
AMHPROV	XIT!
AMHPRV	XIT+1!
AMHQUIT	START+3!, START+5!, BIN+3, RUN+1!, RUN+2, AGE+3, GC+2*
AMHR	XIT+1!
>> AMHRA	RUN+1, AGE+6, SET, GC+4
>> AMHRBIN	GC+4, LIST+1, SETBIN+1
AMHRCNT	XIT+1!
AMHRLOC	XIT+1!
>> AMHRX	RUN+1, AGE+1, AGE+4, AGE+6, SET, SET+1, SET+2, GC+3*, GC+4
>> AMHRY	RUN+1, AGE+2, SET+1, SET+2, CLOSE, GC+4
AMHSD	ED+4*, XIT+1!
>> AMHTITLE	START+5, INFORM+1, INFORM+2
AMHTOT	XIT+1!
AMHX	XIT!, INFORM+7*
>> AMHY	INFORM+7*, INFORM+9
D	XIT!
DA	DEMO+4!
DFN	XIT!
DIC	XIT!
DIR	BD+2!, ED+1!, BIN+2!, AGE+2!, GC+1!, DEMO+4!, XIT!
DIR("A"	BD+2, ED+1, BIN+2, AGE+2, GC+1, DEMO+4
DIR("B"	DEMO+4*
DIR(0	BD+2, ED+1, BIN+2, AGE+2, GC+1, DEMO+4
DIRUT	BD+2, BD+3, ED+1, ED+2, BIN+3, AGE+2, GC+1, DEMO+5, XIT!
DTOUT	AGE+3, GC+2, XIT!
DUOUT	BD+2, ED+1, AGE+2, AGE+3, GC+1, GC+2, XIT!
DUZ(2	START+4
>> I	LIST+2*
IO("Q"	XIT!
IOF	START+1, START+2, INFORM+8
IOSL	INFORM+8
U	INFORM+9
>> X	ED+4, LIST+2*
>> X1	ED+4*
>> X2	ED+4*
>> XBIOP	BROWSE+2*
XBNS	DEMO+7, XIT!, BROWSE+2
XBRC	DEMO+7, XIT!, BROWSE+2
XBRP	DEMO+7, XIT!, BROWSE+1
>> XBRX	DEMO+7, BROWSE+2
XBTX	XIT!
Y	BD+4, ED+1, ED+3, ED+4, BIN+4, AGE+4, AGE+5, GC+3, DEMO+6, XIT!
ZTSK	XIT!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRPS

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: