Routine: BCHRC8

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 8 BCH P CHRIS II REPORT 8

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PROG1	;enter program
ZIS	;CALL TO XBDBQUE
ERR
PROCESS	;
ED	;get ending date
PR	;
INFORM	;
PROC	;EP - PROCESS REFERRAL REPORT
GETDATES	;
XIT	;
PG	;
EOJ	;
PROG	;IHS/CMI/LAB - added program screen
D1	;
TYPE	;
REG	;
D	; Run by date of service

External References

Name	Field # of Occurrence
^%DT	PROCESS+12
DD^%DT	ED+1, PROCESS+12
C^%DTC	ED+4, D+1
XTMP^BCHUTIL	PROC+1
^DIC	PROG1+1
^DIR	BD+1, ED+1, TYPE+2, PROG+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: BCHRC8+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. 8 ********" Line Location: INFORM+2
Function Call: WRITE	Prompt: !!?20,"HOURS (SERVICE+TRAVEL) BY MONTH",!!,"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
Routine Call	DIR Line Location: BD+1 ED+1 TYPE+2 PROG+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
^BCHR("B"	D+2, D1+1
^DPT - [#2]	PROCESS+7
^XTMP("BCHRC8"	PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19

Label References

Name	Line Occurrences
@(	TYPE+5
BD	ED+2
D	PROC+3
D1	D+2
EOJ	PROC+3
GETDATES	TYPE+3
INFORM	BCHRC8+6
PROCESS	D1+1
PROG	PROG1+1, REG+3
REG	PROG+4
TYPE	PROG+3
XIT	BD+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(	PROCESS+14*
^("TOTAL"	PROCESS+17*
^(0	D1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	PROCESS+12*
BCHBD	BD+3*, ED+1, ED+4, XIT+1!, D+1
BCHBDD	XIT+1!
BCHBRK	XIT+1!
BCHBT	XIT+1!, PROC+2*, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
BCHBTH	BCHRC8+5, XIT+1!, PROC+2
BCHCH	XIT+1!, PG+1, PR+1
>> BCHDATE	PROCESS+12*
BCHDT	XIT+1!
BCHED	ED+3*, XIT+1!, D+2
BCHEDD	XIT+1!
BCHEOJ	XIT+1!
BCHET	XIT+1!, EOJ+1*
BCHF	XIT+1!
BCHFT	XIT+1!
BCHIDAT	XIT+1!, PROCESS+12*, PROCESS+14, PROCESS+15, PROCESS+16
BCHITEM	XIT+1!, PROCESS+10, PROCESS+11, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
BCHJOB	BCHRC8+5, XIT+1!, PROC+2, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
BCHMON	XIT+1!, PROCESS+12*, PROCESS+14, PROCESS+15, PROCESS+16
BCHNAME	XIT+1!
BCHNONE	XIT+1!
>> BCHNRPAT	PROCESS+2, PROCESS+5, PROCESS+6
BCHODAT	XIT+1!, D+2*, D1+1
>> BCHPAT	PROCESS+1*, 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, PROCESS+11
BCHQUIT	XIT+1!
BCHR	XIT+1!, D1+1*, PROCESS+2
BCHR0	XIT+1!, D1+1*, PROCESS+1, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+13
>> BCHRCNT	D1+1*
BCHREF	XIT+1!
>> BCHREG	REG+1, REG+4, PROCESS+4, PROCESS+5
>> BCHREGN	REG+1, REG+4
BCHRN	XIT+1!, PG+1, PR+1
BCHRPT	TYPE+1, TYPE+4, XIT+1!, PROCESS+10, PROCESS+11
>> BCHS	PROCESS+13*, PROCESS+15, PROCESS+18
BCHSD	ED+4, XIT+1!, D+1, D+2
BCHT	XIT+1!, PROCESS+13*, PROCESS+16, PROCESS+19
BCHTOT	XIT+1!, PROCESS+13*, PROCESS+14, PROCESS+17
BCHX	XIT+1!
DA	TYPE+2!, PROG1+1!, REG+2!
DD	PROG1+1!
DIC	PROG1+1!*
DIC("A"	PROG1+1*
DIC(0	PROG1+1*
DIR	BD+1!, ED+1!, TYPE+2!, PROG+2!, REG+2!
DIR("?"	PROG+2*
DIR("A"	BD+1, ED+1, TYPE+2, PROG+2, REG+2*
DIR("B"	ED+1, TYPE+2, PROG+2, REG+2
DIR(0	BD+1, ED+1, TYPE+2, PROG+2, REG+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, TYPE+3, PROG+3, REG+3
DR	PROG1+1!
>> DUOUT	BD+1, ED+1
DUZ(2	BCHRC8+4
I	XIT+2!
IOF	INFORM+1
M	XIT+2!
R	XIT+2!
U	D1+1, PROCESS+1, PROCESS+2, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16 , PROCESS+17, PROCESS+18, PROCESS+19
V	XIT+2!
X	ED+4, PROG1+1!, XIT+2!, XIT+3!, D+1, PROCESS+12*
>> 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, TYPE+4, TYPE+5, PROG+4, PROG1+1!, PROG1+2, REG+4, XIT+2! , XIT+3!, PROCESS+12
Y(0	REG+4

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRC8

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: