Routine: BCHRC2

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS RPMS CHR System	1	XTMP^BCHUTIL
IHS VA Utilities	1	^XBDBQUE

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

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PROG1	;enter program
CHRT	;
ZIS	;CALL TO XBDBQUE
CHR1	;
PROCESS	;
ED	;get ending date
ERR
INFORM	;
GETDATES	;
XIT	;
EOJ	;
PROG	;
D1	;
PROC	;EP - PROCESS REFERRAL REPORT
REG	;
D	; Run by date of service

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4, D+1
XTMP^BCHUTIL	PROC+1
^DIC	PROG1+1, CHR1+2
^DIR	BD+1, ED+1, PROG+2, CHRT+2, REG+2
^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: BCHRC2+4
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. 4 ********" Line Location: INFORM+2
Function Call: WRITE	Prompt: !!?26,"NUMBER OF REFERRALS FROM/TO",!!,"You must enter the time frame and the program for which the report",!,"will be run.",!! Line Location: INFORM+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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHR - [#90002]	D1+1, PROCESS+2, PROCESS+18, PROCESS+19, PROCESS+22, PROCESS+23
^BCHR("B"	D+2, D1+1
^BCHRPROB - [#90002.01]	PROCESS+14
^BCHRPROB("AD"	PROCESS+14
^BCHTREF - [#90002.52]	PROC+3
^BCHTSERV - [#90002.54]	PROCESS+14
^DPT - [#2]	PROCESS+7
^XTMP("BCHRC2"	PROC+3, PROC+4, PROCESS+21, PROCESS+25

Label References

Name	Line Occurrences
BD	ED+2, PROG+3
CHRT	PROG+4, CHR1+3, REG+3
D	PROC+5
D1	D+2
EOJ	PROC+5
INFORM	BCHRC2+6
PROCESS	D1+1
PROG	PROG1+1, CHRT+3
REG	CHRT+5
XIT	BD+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(0	D1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BCHBD	BD+3*, ED+1, ED+4, XIT+1!, D+1
BCHBDD	XIT+1!
BCHBT	XIT+1!, PROC+2*, PROC+3, PROC+4, PROCESS+21, PROCESS+25
BCHBTH	BCHRC2+5, XIT+1!, PROC+2
>> BCHC	PROCESS+14*, PROCESS+15
>> BCHCHR1	CHR1+4*, PROCESS+11
BCHDT	XIT+1!
BCHED	ED+3*, XIT+1!, D+2
BCHEDD	XIT+1!
BCHET	XIT+1!, EOJ+1*
BCHF	XIT+1!
BCHFT	XIT+1!
BCHJOB	BCHRC2+5, XIT+1!, PROC+2, PROC+3, PROC+4, PROCESS+21, PROCESS+25
>> BCHNRPAT	PROCESS+2, PROCESS+3, PROCESS+5, PROCESS+6
BCHODAT	XIT+1!, D+2*, D1+1
>> BCHPAT	PROCESS+1*, PROCESS+3, PROCESS+4, PROCESS+6, PROCESS+7
BCHPG	XIT+1!
BCHPRG	PROG+1, PROG+4, PROG1+2*, XIT+1!, PROCESS+9
BCHPROG	XIT+1!, PROCESS+8*, PROCESS+9
>> BCHPROV	PROCESS+10*, PROCESS+11
BCHPROVT	CHRT+1!, CHRT+4*, CHRT+5, PROCESS+11
BCHQUIT	XIT+1!
BCHR	XIT+1!, D1+1*, PROCESS+2, PROCESS+14, PROCESS+18, PROCESS+19, PROCESS+22, PROCESS+23
BCHR0	XIT+1!, D1+1*, PROCESS+1, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+21, PROCESS+25
>> BCHRCNT	D1+1*
BCHREF	XIT+1!, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+23, PROCESS+24, PROCESS+25
>> BCHREG	REG+1, REG+4, PROCESS+4, PROCESS+5
>> BCHREGN	REG+1, REG+4
BCHSD	ED+4, XIT+1!, D+1, D+2
BCHT	XIT+1!
BCHTT	XIT+1!
BCHX	XIT+1!, PROCESS+14*
DA	PROG1+1!, CHRT+2!, REG+2!
DD	PROG1+1!
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!
DIR("?"	PROG+2*
DIR("A"	BD+1, ED+1, PROG+2, CHRT+2, REG+2*
DIR("B"	ED+1, PROG+2, CHRT+2, REG+2
DIR(0	BD+1, ED+1, PROG+2, CHRT+2, REG+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+3, CHRT+3, REG+3
DR	PROG1+1!
>> DUOUT	BD+1, ED+1
DUZ(2	BCHRC2+4
IOF	INFORM+1
U	D1+1, PROCESS+1, PROCESS+2, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+19, PROCESS+21 , PROCESS+23, PROCESS+25
X	ED+4, PROG1+1!, XIT+2!, PROC+3, D+1, PROCESS+18, PROCESS+19, PROCESS+22*, PROCESS+23
>> X1	ED+4, D+1
>> X2	ED+4, D+1
>> 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 , XIT+2!
Y(0	REG+4

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRC2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: