Routine: BCHRNRL

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
IHS RPMS CHR System	2	($$CTR,$$LOC)^BCHRLU XTMP^BCHUTIL
Kernel	1	$$FMADD^XLFDT

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE $$VAL^XBDIQ1 EN^XBVK

VA Fileman

DD^%DT NOW^%DTC ^DIR

IHS RPMS CHR System

($$CTR,$$LOC)^BCHRLU XTMP^BCHUTIL

Kernel

$$FMADD^XLFDT

Package	Total	Caller Graph
IHS RPMS CHR System	1	BCH NON REG PT LIST

Package

Total

Caller Graph

IHS RPMS CHR System

BCH NON REG PT LIST

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LASTV(P,D)	;EP
HEAD	;
ZIS	;CALL TO XBDBQUE
ERR
INFORM	;
START	;
GETDATES	;
XIT	;
HEAD1	;
PRINT	;EP
DONE	;
PROC	;
DATE(D)	;EP
HEAD2	;

Name	Field # of Occurrence
DD^%DT	PRINT+2, PRINT+4
NOW^%DTC	PRINT+2
$$CTR^BCHRLU	HEAD2+3, HEAD2+4, HEAD2+5
$$LOC^BCHRLU	HEAD2+3
XTMP^BCHUTIL	PRINT+1
^DIR	BD+5, DONE+1, HEAD+2
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	PROC+6, PROC+7, PROC+8
EN^XBVK	XIT+1
$$FMADD^XLFDT	BD+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please enter the number of years to determine if the patient should be" Line Location: BD+2
Function Call: WRITE	Prompt: !,"listed on the report. For example, if you want all patients who have" Line Location: BD+3
Function Call: WRITE	Prompt: !,"been seen in the past 5 years enter 5.",! Line Location: BD+4
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,"******** NON-REGISTERED PATIENT LIST ********" Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This report will list all Non-Registered Patients in the CHR Non-Registered" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"patient file who have been seen in the last N number of years you indicate." Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"The list will be sorted by DOB, NAME, TRIBE, COMMUNITY",!! Line Location: INFORM+5
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT",!! Line Location: PRINT+5
Function Call: WRITE	Prompt: ?32,$$DATE(BCHD) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?42,$E(BCHS) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?46,$E(BCHT,1,15) Line Location: PRINT+15
Function Call: WRITE	Prompt: ?63,$E(BCHC,1,15) Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?58,BCHDT,?72,"Page ",BCHPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+3
Function Call: WRITE	Prompt: !,$$CTR^BCHRLU(X,80) Line Location: HEAD2+4
Function Call: WRITE	Prompt: !,$$CTR^BCHRLU(X,80) Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,"NAME",?32,"DOB",?41,"SEX",?46,"TRIBE",?63,"COMMUNITY" Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HEAD2+7
Routine Call	DIR Line Location: BD+5 DONE+1 HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^BCHR("ANRE"	LASTV+3, LASTV+4
^BCHRPAT - [#90002.11]	PROC+2, PROC+4, PROC+9
^VA(200 - [#200]	HEAD2+2
^XTMP("BCHRNRL"	PROC+9*, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, DONE+2!

Name	Line Occurrences
$$DATE	PRINT+13
$$LASTV	PROC+3
DONE	PRINT+5
HEAD	PRINT+5, PRINT+6
HEAD2	HEAD+1
INFORM	START+1
XIT	BD+6, ZIS+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	BD+8*, PROC+3, PRINT+4
>> BCHBDD	PRINT+4*, HEAD2+5
>> BCHC	PRINT+11*, PRINT+16
>> BCHD	PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+13
>> BCHDT	PRINT+2*, HEAD2+2
BCHH	PROC+1*, PROC+9, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, DONE+2!
BCHJ	PROC+1*, PROC+9, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, DONE+2!
>> BCHN	PRINT+8*, PRINT+9, PRINT+10, PRINT+11, PRINT+12
>> BCHPG	PRINT+3, HEAD+1, HEAD2+1, HEAD2+2
BCHQUIT	PRINT+3!, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, HEAD+2*
>> BCHS	PRINT+9*, PRINT+10, PRINT+11, PRINT+14
>> BCHT	PRINT+10*, PRINT+11, PRINT+15
>> BCHX	PROC+2*, PROC+3, PROC+4, PROC+6, PROC+7, PROC+8, PROC+9
>> BCHYEARS	BD+1, BD+7, BD+8
>> C	PROC+8*, PROC+9
D	PROC+5*, PROC+9, LASTV~, LASTV+5, DATE~, DATE+1, DATE+2
DA	BD+5!
DIR	BD+5!, DONE+1!, HEAD+2!
DIR("A"	BD+5, DONE+1
DIR("B"	BD+5*
DIR(0	BD+5, DONE+1, HEAD+2*
>> DIRUT	BD+6, DONE+1*
DT	BD+8
>> DTOUT	HEAD+2
>> DUOUT	DONE+1
DUZ	HEAD2+2
G	LASTV+1~, LASTV+2, LASTV+3, LASTV+4, LASTV+6, LASTV+7
IO	DONE+1, HEAD+2
IO(0	DONE+1, HEAD+2
IOF	INFORM+1, HEAD1+1
IOST	DONE+1, HEAD+2
>> N	PROC+4*, PROC+5
P	LASTV~, LASTV+3, LASTV+4
>> S	PROC+6*, PROC+9
>> T	PROC+7*, PROC+9
U	PROC+5, PROC+9, HEAD2+2
X	LASTV+1~, LASTV+3, LASTV+4, LASTV+5, PRINT+2, HEAD2+4, HEAD2+5*
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+7, LASTV+1~, LASTV+4, PRINT+2, PRINT+4*, HEAD+2
Z	LASTV+1~

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRNRL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: