Routine: BCHRL

Information

BCHRL ; IHS/CMI/LAB - CHR GENERAL RETRIEVAL DRIVER ;

Source Information

Source file <BCHRL.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS RPMS CHR System	5	(ADD,INFORM)^BCHRL01 (XIT,XIT1)^BCHRL1 (COUNT,SCREEN)^BCHRL3 (SHOW,SHOWP,SHOWR)^BCHRLS CALLDIE^BCHUTIL
VA Fileman	5	DD^%DT C^%DTC ^DIC ^DIK ^DIR
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
IHS RPMS CHR System	5	BCH P RECORD GEN RETRIEVAL BCHDL BCHDLA BCHDLN BCHRLP2

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
D11
D12
D13
S1	;EP
S0	;
DEL	;EP DELETE LOG ENTRY IF ONE EXISTS AND USER "^" OUT
ZIS	;call to XBDBQUE
S13
S12
TITLE	;
P11
P12
P13
COUNT	;count only or detailed report
P1	;if patient, no prev defined report used
D	;
ED	;get ending date
SCREEN	;
P	;patient lister
S	;--- search template
XIT	;
START	;
ADD	;
XIT1	;
GETDATES	;
SAVE	;
TYPE	;--- get type of report (patient, date range or search template)
D1	;if visit, no prev defined report used

External References

Name	Field # of Occurrence
DD^%DT	ED+1, ED+4
C^%DTC	ED+4
HOME^%ZIS	START+1
ADD^BCHRL01	ADD+1
INFORM^BCHRL01	TYPE+1
XIT^BCHRL1	XIT+1
XIT1^BCHRL1	XIT1+1
COUNT^BCHRL3	COUNT+1
SCREEN^BCHRL3	SCREEN+1
SHOW^BCHRLS	ZIS+3
SHOWP^BCHRLS	ZIS+3
SHOWR^BCHRLS	ZIS+3
CALLDIE^BCHUTIL	SAVE+10
^DIC	S0+1
^DIK	DEL+1
^DIR	TYPE+2, BD+1, ED+1, TITLE+2, TITLE+6, SAVE+4, SAVE+7
^XBDBQUE	ZIS+6

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+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"USER NOT SET IN DUZ - NOTIFY SITE MANAGER!!",!! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: S0+1
Routine Call	DIR Line Location: TYPE+2 BD+1 ED+1 TITLE+2 TITLE+6 SAVE+4 SAVE+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BCHTRPT - [#90002.42]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHTRPT - [#90002.42]	P+3, P11!, P12!, S12!, D11!, D12!, DEL+1

Label References

Name	Line Occurrences
@(	TYPE+5
ADD	P+1, S1+1, ED+6
BD	ED+2
COUNT	P12, S12, D12
D	ED+6, D11
D1	ED+7
D11	D12
D12	D13
DEL	P+1, P11, BD+2, ED+6, D11
GETDATES	P+6, P11+3
P1	P+2
P11	P12
P12	P13
S	S1+1, S12
S0	S+1
S12	S13
SAVE	P13+1, D13+1, SAVE+8
SCREEN	P11, D11
TITLE	P+7, P13, S13, ED+8, D13, TITLE+7
TYPE	P+1, P+7, P11, BD+2, ED+8
XIT	TYPE+3, TYPE+6, ZIS+7
XIT1	ZIS+4
ZIS	P+8, P13+2, S13+1, ED+9, D13+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	BD+3*, ED+1, ED+4
>> BCHBDD	P+3, ED+4*
>> BCHCAND	P+2, P+3, ED+7, SAVE+1
>> BCHCTYP	TITLE+1, SAVE+2, SAVE+10
>> BCHD	ED+4*
>> BCHDONE	ZIS+2*
>> BCHED	ED+3*, ED+4
>> BCHEDD	P+3, ED+4*
>> BCHEP1	SAVE+4, SAVE+10
>> BCHLENG	TITLE+5*, TITLE+6
>> BCHNAME	SAVE+9*, SAVE+10
>> BCHPACK	SAVE+10
>> BCHPTVS	TYPE+2, S0+1, SAVE+10
BCHQUIT	START+4!, P+1!, P+7!, P11!, P12!, P13!, S+2, S1+1, S12!, S13! , S0+2, ED+6!, ED+8!, D11!, D12!, D13!, TITLE+3
BCHRDTR	P+4*, P11!, P11+1, ED+5, D11!, SAVE+10
>> BCHRPT	P+3, P11, P12, S12, D11, D12, SAVE+10, DEL+1
>> BCHSAVE	SAVE+3*
>> BCHSEAT	S0+3*
>> BCHTCW	P12, S12, D12, TITLE+5, ZIS+1
>> BCHTITL	TITLE+8*
>> BCHTYPE	TYPE+4*, TYPE+5
DA	S0+1!, SAVE+10, DEL+1!
DIC	S0+1*!, DEL+1!
DIC("A"	S0+1*
DIC("S"	S0+1*
DIC(0	S0+1*
DICR	S0+1!
>> DIE	SAVE+10*
DIK	DEL+1*!
DIR	TYPE+2!, BD+1!, ED+1!, TITLE+2!, TITLE+6!, SAVE+4!, SAVE+7!
DIR("?"	TITLE+6*
DIR("A"	TYPE+2, BD+1, ED+1, TITLE+2, TITLE+6, SAVE+4, SAVE+7*
DIR("B"	ED+1, TITLE+2, SAVE+4*
DIR(0	TYPE+2, BD+1, ED+1, TITLE+2, TITLE+6, SAVE+4, SAVE+7*
>> DIRUT	TYPE+2, TYPE+3, P+3, BD+1, BD+2, ED+1, ED+2, TITLE+2, TITLE+3, TITLE+7 , SAVE+4, SAVE+5, SAVE+7, SAVE+8
DR	S0+1!, SAVE+10*
>> DUOUT	TYPE+2, BD+1, ED+1, TITLE+2, SAVE+4, SAVE+7
DUZ	START+3
DUZ(2	START+2
IOF	START+1
IOM	ZIS+1
U	P+3, DEL+1
X	TYPE+2!, BD+1!, ED+1!, ED+4, TITLE+2!, TITLE+6!, SAVE+4!, SAVE+7!
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5*
>> XBRP	ZIS+5*
>> XBRX	ZIS+5*
Y	TYPE+2!, TYPE+4, S0+2, S0+3, BD+1!, BD+3, ED+1!, ED+3, ED+4, TITLE+2! , TITLE+4, TITLE+6!, TITLE+8, SAVE+4!, SAVE+6, SAVE+7!, SAVE+9

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRL

Call Graph Total: 12

Caller Graph Total: 5