Routine: BCHRC5

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCH P CHR REPORT 5 BCH P CHRIS II REPORT 5

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SETBIN	;
CHR1	;
AGE	;
REG	;
BIN
SET
ERR
INFORM	;
CLOSE
PI	;EP ;age/sex record counts interactive print ?
PROG1	;enter program
GETAGE	;
ZIS	;CALL TO XBDBQUE
ED	;get ending date
START	;
XIT	;
CHRT	;
RUN	;
LIST	;
GETDATES	;
PROG	;
GC	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
^DIC	PROG1+1, CHR1+2
^DIR	BD+1, ED+1, PROG+2, CHRT+2, REG+2, BIN+2, AGE+3, GC+1
^XBDBQUE	ZIS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: !?20,"******** CHR REPORT NO. 5 ********" Line Location: INFORM+2
Function Call: WRITE	Prompt: !!?2,"NUMBER OF SERVICES (LINES OF ASSESSMENT) BY HEALTH PROBLEM, AGE AND SEX",!!,"You must enter the time frame and the program for which the report",!,"will be run." Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"You can also define your own age groups, if you so desire.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: "If you do, Please LIMIT the # of age groups to 5" Line Location: INFORM+5
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: !!,BCHRACNT," Age groups selected so far, no more than 5 are allowed.",! Line Location: AGE+2
Function Call: WRITE	Prompt: $C(7) Line Location: AGE+8
Function Call: WRITE	Prompt: !,"Make sure the age is higher than the beginning age of the previous group.",! Line Location: AGE+8
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	DIC Line Location: PROG1+1 CHR1+2
Routine Call	DIR Line Location: BD+1 ED+1 PROG+2 CHRT+2 REG+2 BIN+2 AGE+3 GC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BCHTPROG - [#90002.51]	Classic Fileman Calls

Label References

Name	Line Occurrences
AGE	RUN+1
BD	ED+2, PROG+3
BIN	RUN+1, RUN+2
CHRT	PROG+4, CHR1+3
CLOSE	RUN+2, GC+5
GETAGE	CHRT+5, REG+3
INFORM	START+3
LIST	BIN+1, RUN+3
PI	GETAGE+2
PROG	PROG1+1, CHRT+3, GETAGE+3
RUN	AGE+8
SET	AGE+7
SETBIN	BIN
XIT	BD+2, ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LIST+1*, LIST+2
A	XIT+2!
BCHBD	BD+3*, ED+1, ED+4, XIT+1!
BCHBDD	XIT+1!
BCHBT	XIT+1!
BCHBTH	START+2*, XIT+1!
BCHC	XIT+1!
>> BCHCHR1	CHR1+4*
BCHDOBS	XIT+1!
BCHDT	XIT+1!
BCHED	ED+3*, XIT+1!
BCHEDD	XIT+1!
BCHET	XIT+1!
BCHJOB	START+2*, XIT+1!
BCHODAT	XIT+1!
BCHPG	XIT+1!
BCHPRG	PROG+1, PROG+4, PROG1+2*, XIT+1!
BCHPROB	XIT+1!
BCHPROBN	XIT+1!
BCHPROG	XIT+1!
BCHPROVT	CHRT+1!, CHRT+4*, CHRT+5
BCHQUIT	GETAGE+1!, GETAGE+3, XIT+1!, BIN+3, RUN+1!, RUN+2, AGE+4, GC+2*
BCHR	XIT+1!
BCHR0	XIT+1!
BCHR11	XIT+2!
BCHRA	XIT+2!, RUN+1, AGE+2, AGE+7, SET, GC+4
>> BCHRACNT	RUN+1, AGE+2, SET+2
BCHRAGE	XIT+1!
BCHRBIN	XIT+1!, GC+4, LIST+1, SETBIN+1
BCHRDOBS	XIT+2!
>> BCHREG	REG+1, REG+4
>> BCHREGN	REG+1, REG+4
BCHRNN	XIT+1!
BCHRPT	XIT+1!
BCHRX	XIT+1!, RUN+1, AGE+1, AGE+5, AGE+7, SET, SET+1, SET+2, GC+3*, GC+4
BCHRY	XIT+1!, RUN+1, AGE+3, SET+1, SET+2, CLOSE, GC+4
BCHRZ	XIT+1!
BCHSD	ED+4*, XIT+1!
BCHTF	XIT+1!
BCHTM	XIT+2!
BCHTOTC	XIT+1!
BCHX	XIT+1!
DA	PROG1+1!, CHRT+2!, REG+2!
DD	PROG1+1!
DFN	XIT+2!
DIC	PROG1+1!, CHR1+1!, CHR1+2
DIC("A"	PROG1+1, CHR1+2
DIC(0	PROG1+1, CHR1+2
DIR	BD+1!, ED+1!, PROG+2!, CHRT+2!, REG+2!, BIN+2!, AGE+3!, GC+1!
DIR("?"	PROG+2*
DIR("A"	BD+1, ED+1, PROG+2, CHRT+2, REG+2, BIN+2, AGE+3, GC+1
DIR("B"	ED+1, PROG+2, CHRT+2, REG+2, BIN+2*
DIR(0	BD+1, ED+1, PROG+2, CHRT+2, REG+2, BIN+2, AGE+3, GC+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+3, CHRT+3, REG+3, BIN+3, AGE+3, GC+1
DOB	XIT+2!
DR	PROG1+1!
>> DTOUT	AGE+4, GC+2
>> DUOUT	BD+1, ED+1, AGE+3, AGE+4, GC+1, GC+2
DUZ(2	START+1
F	XIT+2!
I	XIT+2!, LIST+2*
IOF	INFORM+1
M	XIT+2!
SEX	XIT+2!
X	ED+4, PROG1+1!, LIST+2*
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+3, ED+1*, ED+3, PROG+4, PROG1+1!, PROG1+2, CHRT+4, CHR1+3, CHR1+4, REG+4 , BIN+4, AGE+5, AGE+6, GC+3
Y(0	REG+4

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRC5

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: