Routine: AMHRAGS

Package	Total	Call Graph
Mental Health Social Services	4	^AMHEKL DONE^AMHLEIN COVPAGE^AMHRPTCP XTMP^AMHUTIL
VA Fileman	3	DD^%DT NOW^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;
BIN
HEAD
GETAGE	;
RUN	;
SETA	;
HEAD1	;
PREPROC	;
AGE	;
LIST	;
SETBIN	;
ATT	;
SET
XIT	;
GC	;
CLOSE
PRINT	;EP ;PRINT RECORD BY AGE/SEX
DONE	;
PI	;EP ;age/sex record counts interactive print ?
SETTMP	;

External References

Name	Field # of Occurrence
DD^%DT	PRINT+2
NOW^%DTC	PRINT+2
^AMHEKL	DONE+1
DONE^AMHLEIN	DONE+1
COVPAGE^AMHRPTCP	PRINT+3
XTMP^AMHUTIL	PREPROC+1
^DIR	HEAD+1, BIN+2, AGE+2, GC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT+6
Function Call: WRITE	Prompt: ?J,$J(K,6) Line Location: SORT+6
Function Call: WRITE	Prompt: !,"TOTAL:" Line Location: SORT+11
Function Call: WRITE	Prompt: ?J,$J(K,6) Line Location: SORT+11
Function Call: WRITE	Prompt: ?J,$J(T,6) Line Location: SORT+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?37,"BEHAVIORAL HEALTH RECORD/ENCOUNTER COUNTS",?100,AMHRDT,?123,"Page ",AMHRPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?((132-AMHRLENG)/2),AMHTITL," BY AGE AND SEX",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?43,"ENCOUNTER DATES: ",AMHBDD," TO ",AMHEDD,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?61,"SEX: ",$S(AMHRSEX="M":"MALE",AMHRSEX="F":"FEMALE",1:"BOTH") Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,AMHHD1 Line Location: HEAD1+7
Function Call: WRITE	Prompt: ?J,K Line Location: HEAD1+7
Function Call: WRITE	Prompt: ?J,"TOTAL" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,AMHR132S Line Location: HEAD1+9
Function Call: WRITE	Prompt: !! Line Location: PI+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
Routine Call	DIR Line Location: HEAD+1 BIN+2 AGE+2 GC+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHRPRO("AD"	SETTMP+3
^DPT - [#2]	GETAGE+1, GETAGE+2
^XTMP("AMHRAGS"	SETA+4, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+12, SETTMP+13, SETTMP+14, SETTMP+15, PRINT+6 , PRINT+7, DONE+3!, SORT+3, SORT+5, SORT+6, SORT+7, SORT+11
^XTMP("AMHRPT"	DONE+2!

Label References

Name	Line Occurrences
@(	SETTMP+7
AGE	RUN+1
BIN	RUN+1, RUN+2
CLOSE	RUN+2, GC+5
DONE	PRINT+6
GETAGE	SETTMP+4
HEAD	PRINT+6, SORT+1, SORT+4, SORT+10
HEAD1	HEAD
LIST	BIN+1, RUN+3
RUN	AGE+7
SET	AGE+6
SETA	PREPROC+2
SETBIN	BIN
SORT	PRINT+7
XIT	BIN+3, BIN+4, RUN+4

Naked Globals

Name	Field # of Occurrence
^(	SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+12, SETTMP+13, SETTMP+14, SORT+6, SORT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LIST+1*, LIST+2
>> AMHBDD	HEAD1+5
AMHBTH	SETA+4, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+12, SETTMP+13, SETTMP+14, SETTMP+15, PRINT+6 , PRINT+7, DONE+2, DONE+3!, SORT+3, SORT+5, SORT+6, SORT+7, SORT+11
>> AMHEDD	HEAD1+5
>> AMHHD1	HEAD1+7
AMHJOB	SETA+4, SETTMP+8, SETTMP+9, SETTMP+10, SETTMP+11, SETTMP+12, SETTMP+13, SETTMP+14, SETTMP+15, PRINT+6 , PRINT+7, DONE+2, DONE+3!, SORT+3, SORT+5, SORT+6, SORT+7, SORT+11
>> AMHPPOV	SETTMP+3*
AMHQUIT	PRINT+5!, PRINT+7, SORT+1, SORT+3, SORT+4, SORT+9, SORT+10, HEAD+1, BIN+3, RUN+1! , RUN+2, AGE+3, GC+2
>> AMHR	SETTMP+3
>> AMHR0	SETTMP+1, SETTMP+8, SETTMP+15, GETAGE+1, GETAGE+2
>> AMHR132S	PRINT+1*, HEAD1+9
AMHRA	PREPROC+2, PREPROC+3, SETA+2, SETA+3, ATT+1, XIT+1!, RUN+1, AGE+6, SET*, GC+4
>> AMHRAGE	SETTMP+4, SETTMP+5, SETTMP+9, SETTMP+10, SETTMP+12, SETTMP+13, ATT+1
>> AMHRBIN	PREPROC+2, SORT+6, SORT+11, HEAD1+7, GC+4, LIST+1, SETBIN+1
>> AMHRDOB	GETAGE+1*, ATT+1
>> AMHRDOBS	PREPROC+3*
>> AMHRDT	PRINT+2*, HEAD1+3
>> AMHRLENG	HEAD1+4*
>> AMHRNN	PREPROC+2, ATT+1
>> AMHRPG	PRINT+4, HEAD, HEAD1+1, HEAD1+3
>> AMHRPROC	SETTMP+7
>> AMHRSEX	SETTMP+6, SETTMP+9, SETTMP+10, SETTMP+11, GETAGE+2, PRINT+4, PRINT+7*, SORT+3, SORT+5, SORT+6 , SORT+7, SORT+11, HEAD1+6
>> AMHRSRT2	SORT+5*
AMHRX	PREPROC+2, SETA+1, ATT+1, XIT+1!, RUN+1, AGE+1, AGE+4, AGE+6, SET, SET+1 , SET+2, GC+3*, GC+4
AMHRY	SETA+1, SETA+3, ATT+1, XIT+1!, RUN+1, AGE+2, SET+1, SET+2, CLOSE, GC+4
>> AMHRZ	SETA+1*, SETA+3
>> AMHSORT	SETTMP+8, SETTMP+9, SETTMP+11, SETTMP+12, SETTMP+14, SETTMP+15, PRINT+4, SORT+2, SORT+3*, SORT+5 , SORT+6, SORT+7
>> AMHTITL	HEAD1+4
DIR	HEAD+1!, BIN+2!, AGE+2!, GC+1!
DIR("A"	BIN+2, AGE+2, GC+1*
DIR(0	HEAD+1, BIN+2, AGE+2, GC+1
>> DIRUT	BIN+3, AGE+2, GC+1
DT	SETA+3
>> DTOUT	HEAD+1, AGE+3, GC+2
>> DUOUT	AGE+2, AGE+3, GC+1, GC+2
I	PREPROC+2, SETA+4, ATT+1, SORT+6~, SORT+11, HEAD1+7, LIST+2
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	SORT+4, SORT+10
IOST	HEAD+1
J	SORT+6~, SORT+7, SORT+11, SORT+12, HEAD1+7*, HEAD1+8
K	SORT+6~, SORT+11, HEAD1+7*
>> T	SORT+11*, SORT+12
U	SETTMP+1, SETTMP+8, SETTMP+15, GETAGE+1, GETAGE+2
>> X	PRINT+2, LIST+2*
>> Y	PRINT+2*, HEAD+1, BIN+4, AGE+4, AGE+5, GC+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRAGS

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: