Routine: BCHRP4

Information

BCHRP4 ; IHS/CMI/LAB - All visit report driver 26 Apr 2007 10:51 AM ;

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	4	DD^%DT (C,COMMA)^%DTC ^DIC ^DIR
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
IHS RPMS CHR System	2	($$CTR,$$LOC)^BCHRLU DONE^BCHUTIL1
Kernel	2	$$FMTE^XLFDT $$STRIP^XLFSTR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS RPMS CHR System	1	BCH RECORDS PATIENTS BY TRIBE

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PROG1	;enter program
HEAD	;
VD	; Run by visit date
ZIS	;CALL TO XBDBQUE
ERR
INFORM	;
ED	;get ending date
PROC1	;
V1	;
START	;
DONE	;
GETDATES	;
XIT	;
C(X,X2,X3)	;
HEAD1	; if terminal
PROG	;IHS/CMI/LAB - added program screen
PRINT	;EP
PROC	;EP - called from xbdbque
REG	;
HEAD2	; if printer

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4, VD+1
COMMA^%DTC	C+1
$$CTR^BCHRLU	HEAD2+4, HEAD2+5
$$LOC^BCHRLU	HEAD2+4
DONE^BCHUTIL1	DONE+2
^DIC	PROG1+1
^DIR	BD+1, ED+1, PROG+2, REG+2, HEAD+2
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PROC1+10, PROC1+11
EN^XBVK	XIT+1
$$FMTE^XLFDT	HEAD2+3, HEAD2+10
$$STRIP^XLFSTR	C+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: !,"**** REPORT OF # OF CHR PCCs/PATIENTS BY TRIBE ****",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report will tally records and patients seen by Tribe",! Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: !!?3,"ALL TRIBES/TOTAL",?50,$$C(BCHTOTR,0,8),?65,$$C(BCHTOTP,0,8) Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?33,$$FMTE^XLFDT(DT),?70,"Page ",BCHPG,! Line Location: HEAD2+3
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+4
Function Call: WRITE	Prompt: $$CTR^BCHRLU(X,80),! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?((80-X)/2),"PROGRAM: ",BCHPROGN,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: ?((80-X)/2),"PATIENTS: ",BCHREGN,! Line Location: HEAD2+9
Function Call: WRITE	Prompt: ?17,"REPORT DATES: ",$$FMTE^XLFDT(BCHBD)," TO ",$$FMTE^XLFDT(BCHED),! Line Location: HEAD2+10
Function Call: WRITE	Prompt: !?50,"# CHR PCCs",?65,"# PATIENTS",! Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+12
Routine Call	DIC Line Location: PROG1+1
Routine Call	DIR Line Location: BD+1 ED+1 PROG+2 REG+2 HEAD+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHR - [#90002]	V1+1, PROC1+2
^BCHR("B"	VD+4, V1+1
^BCHTPROG - [#90002.51]	HEAD2+6
^DPT - [#2]	PROC1+7
^TMP($J	XIT+2!, VD+2!, PROC1+15, PROC1+16, PROC1+18, PROC1+19
^VA(200 - [#200]	HEAD2+3

Label References

Name	Line Occurrences
$$C	PRINT+6, PRINT+10
BD	ED+2, PROG+3
DONE	PRINT+9
HEAD	PRINT+2, PRINT+3, PRINT+5, PRINT+8
HEAD1	HEAD+1
INFORM	START+3
PROC1	V1+1
PROG	PROG1+1, REG+3
REG	PROG+4
V1	VD+4
XIT	BD+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(0	V1+1, HEAD2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	BD+3*, ED+1, ED+4, VD+1, HEAD2+10
>> BCHBTH	START+2*
>> BCHED	ED+3*, VD+4, HEAD2+10
BCHET	DONE+1!
>> BCHJOB	START+2*
>> BCHNRPAT	PROC1+2, PROC1+3, PROC1+5, PROC1+6, PROC1+11, PROC1+17, PROC1+18, PROC1+19
>> BCHODAT	VD+4*, V1+1
>> BCHPAT	PROC1+1*, PROC1+3, PROC1+4, PROC1+6, PROC1+7, PROC1+10, PROC1+14
>> BCHPG	PRINT+1, HEAD+1, HEAD2+1, HEAD2+3
>> BCHPRG	PROG+1, PROG+4, PROG1+2*, PROC1+9, HEAD2+6
>> BCHPROG	PROC1+8*, PROC1+9
>> BCHPROGN	HEAD2+6*, HEAD2+7
>> BCHQUIT	PRINT+1, PRINT+4, PRINT+5, PRINT+9, HEAD+2
>> BCHR	V1+1*, PROC1+2
>> BCHR0	V1+1*, PROC1+1, PROC1+8
>> BCHREG	REG+1, REG+4, PROC1+4, PROC1+5
>> BCHREGN	REG+1, REG+4, HEAD2+8, HEAD2+9
>> BCHSD	ED+4, VD+1, VD+4
BCHSITE	START+1!
>> BCHT	PRINT+4*, PRINT+6
BCHTOT	VD+2!, PRINT+2
BCHTOT(	PROC1+13, PROC1+16, PROC1+19*, PRINT+4, PRINT+6
>> BCHTOTP	VD+3, PROC1+16, PROC1+19*, PRINT+10
>> BCHTOTR	VD+3, PROC1+13, PRINT+10
DA	PROG1+1!, REG+2!
DD	PROG1+1!
>> DFN	V1+1*, PROC1+15, PROC1+16
DIC	PROG1+1!*
DIC("A"	PROG1+1*
DIC(0	PROG1+1*
DIR	BD+1!, ED+1!, PROG+2!, REG+2!, HEAD+2!
DIR("?"	PROG+2*
DIR("A"	BD+1, ED+1, PROG+2, REG+2
DIR("B"	ED+1, PROG+2, REG+2*
DIR(0	BD+1, ED+1, PROG+2, REG+2, HEAD+2*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, PROG+3, REG+3
DR	PROG1+1!
DT	HEAD2+3
>> DTOUT	HEAD+2
>> DUOUT	BD+1, ED+1
DUZ	HEAD2+3
DUZ(2	START+1
IO	HEAD+2
IO(0	HEAD+2
IOF	INFORM+1, HEAD1+1
IOSL	PRINT+5, PRINT+8
IOST	HEAD+2
>> T	PROC1+10, PROC1+11, PROC1+12*, PROC1+13, PROC1+16, PROC1+19
U	V1+1, PROC1+1, PROC1+2, PROC1+8, PROC1+13, PROC1+16, PROC1+19, PRINT+6, HEAD2+3, HEAD2+6
X	ED+4, PROG1+1!, VD+1, C~, C+2, HEAD2+5, HEAD2+6, HEAD2+7, HEAD2+8*, HEAD2+9
>> X1	ED+4, VD+1
X2	ED+4, VD+1, C~
X3	C~
>> 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, REG+4, HEAD+2
Y(0	REG+4

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRP4

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: