Routine: BCHVD

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
Registration	2	EN^VALM (CLEAR,FULL)^VALM1
VA Fileman	2	^DIC ^DIR
IHS Patient	1	(,$$HRN)^AUPNPAT
IHS RPMS CHR System	1	$$PPNAME^BCHUTIL
IHS VA Utilities	1	$$VAL^XBDIQ1

Package

Total

Call Graph

Kernel

$$FMTE^XLFDT DISP^XQORM1

Registration

EN^VALM (CLEAR,FULL)^VALM1

^DIC ^DIR

(,$$HRN)^AUPNPAT

$$PPNAME^BCHUTIL

$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCH BROWSE PATIENT'S VISITS BCHUADD

Package

Total

Caller Graph

IHS RPMS CHR System

BCH BROWSE PATIENT'S VISITS BCHUADD

Entry Points

Name	Comments	DBIA/ICR reference
PAT	;
HELP	; -- help code
S1	;
EP(DFN)	;EP to list for one patient
EXPND	; -- expand code
FF	;EP
PRINT	;EP - called from xbdbque
HDR	; -- header code
PRINT1	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INIT	; -- init variables and list array
A	;all visits
END	;
D	;date range
L	;get patients last visit
S(Y,F,C,T)	;EP - set up array
N	;patients last N visits
START	;
WHICH	;
GATHER	;
EXIT	; -- exit code

External References

Name	Field # of Occurrence
^AUPNPAT	PAT+5, EP+8
$$HRN^AUPNPAT	GATHER+5
$$PPNAME^BCHUTIL	GATHER+10
^DIC	PAT+2
^DIR	WHICH+4, N+2, D+3, D+5, FF+1
EN^VALM	BROWSE+3
CLEAR^VALM1	BROWSE+5
FULL^VALM1	BROWSE+6, EP+2
$$VAL^XBDIQ1	GATHER+11, GATHER+12, GATHER+21, GATHER+22, GATHER+23, GATHER+26, GATHER+27
$$FMTE^XLFDT	GATHER+4, GATHER+10, FF+4
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("Browse CHR Visits",80) Line Location: START+5
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: PAT+3
Function Call: WRITE	Prompt: $$CTR("Browse CHR Visits",80) Line Location: EP+7
Function Call: WRITE	Prompt: !!,"No visits on file for this patient.",! Line Location: L+2
Function Call: WRITE	Prompt: ! Line Location: D+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: D+8
Function Call: WRITE	Prompt: ! Line Location: FF+1
Function Call: WRITE	Prompt: !!,$TR($J(" ",79)," ","*"),!,$P(^DPT($P(BCHR0,U,8),0),U),?32,"HRN: " Line Location: FF+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: BROWSE+3
Routine Call	DIC Line Location: PAT+2
Routine Call	DIR Line Location: WHICH+4 N+2 D+3 D+5 FF+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	FF+3
^BCHR - [#90002]	GATHER+9, GATHER+16, GATHER+17, GATHER+22, GATHER+23, GATHER+31, GATHER+32, GATHER+35, GATHER+36, GATHER+39 , GATHER+40
^BCHR("AE"	L+2, L+3, N+5, A+2, D+9
^BCHRPROB("AD"	GATHER+25
^BCHTREF - [#90002.52]	GATHER+16, GATHER+17
^DD(90002	GATHER+22, GATHER+23
^DPT - [#2]	WHICH+4, GATHER+4, FF+2, FF+4
^TMP("BCHVD"	BROWSE+1!, BROWSE+4!, PRINT+5!, PRINT1+3, PRINT1+5, GATHER+1!, S1+2*, INIT+1

Label References

Name	Line Occurrences
$$CTR	START+5, EP+7
@(	WHICH+7
D	D+7
FF	PRINT1+4
GATHER	BROWSE+2, PRINT+3
PAT	EP+5
PRINT1	PRINT+4
S	GATHER+4, GATHER+5, GATHER+6, GATHER+10, GATHER+11, GATHER+12, GATHER+18, GATHER+20, GATHER+21, GATHER+22 , GATHER+23, GATHER+24, GATHER+26, GATHER+27, GATHER+30, GATHER+32, GATHER+34, GATHER+36, GATHER+38, GATHER+40 , GATHER+42
S1	S+5, S+7, S+10
WHICH	EP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S+8, S+9
AUPNDAYS	START+1~, EP+1~
AUPNDOB	START+1~, EP+1~
AUPNDOD	START+1~, EP+1~
AUPNPAT	START+1~, EP+1~
AUPNSEX	START+1~, EP+1~
>> BCH1	GATHER+22, GATHER+23
BCHBD	START+1~, EP+1~, D+1!, D+3*, D+7, D+9
BCHC	GATHER+2~, GATHER+3, S1+1, S1+2
BCHD	GATHER+2~, GATHER+7, GATHER+8
BCHED	START+1~, EP+1~, D+1!, D+5*, D+7, D+9
>> BCHF	GATHER+22, GATHER+23
BCHI	GATHER+2~
BCHJ	GATHER+2~
BCHP	END+1!, GATHER+25*, GATHER+26, GATHER+27
BCHQUIT	WHICH+1, WHICH+7, END+1!, L+2, N+3, D+3, D+5, PRINT+1, PRINT1+3, PRINT1+4 , GATHER+31, GATHER+35, GATHER+39, FF+1*
BCHR0	START+1~, EP+1~, GATHER+9*, GATHER+10, GATHER+21, FF+2, FF+3, FF+4
BCHREFB	GATHER+15~
BCHREFB(	GATHER+16*, GATHER+19, GATHER+20
BCHREFT	GATHER+15~
BCHREFT(	GATHER+17*, GATHER+19, GATHER+20
BCHV	START+1~, START+3!, EP+1~, EP+4!, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12 , GATHER+16, GATHER+17, GATHER+21, GATHER+22, GATHER+23, GATHER+25, GATHER+31, GATHER+32, GATHER+35, GATHER+36 , GATHER+39, GATHER+40
BCHV(	L+4, N+5, A+2, D+9, GATHER+8
BCHW	WHICH+2, WHICH+6, WHICH+7, END+1!
BCHX	START+1~, EP+1~, PRINT1+2~, PRINT1+3, PRINT1+5, GATHER+2~, GATHER+31, GATHER+32, GATHER+35, GATHER+36 , GATHER+39, GATHER+40
BCHY	START+1~, EP+1~, GATHER+2~
BCHZ	GATHER+2~
C	N+5, GATHER+15~, GATHER+16, GATHER+17*, S~, S+7
D	START+2~, EP+3~, L+3, L+4, N+5, A+1, A+2, D+9*
DA	PAT+2!, WHICH+4!, N+2!
DFN	START+1~, PAT+1, PAT+4, PAT+5, WHICH+4, EP~, EP+5, EP+8, L+2, L+3 , N+5, A+2, D+9, GATHER+4, GATHER+5
DIADD	PAT+2!
DIC	PAT+2*!
DIC(0	PAT+2*
DIR	WHICH+4!, N+2!, D+2!, D+4!, FF+1!
DIR("A"	WHICH+4, N+2, D+2, D+4
DIR("B"	WHICH+4, N+2
DIR(0	WHICH+3, N+2, D+2, D+4, FF+1*
>> DIRUT	WHICH+5, N+3
DLAYGO	PAT+2!
DR	PAT+2!
>> DTOUT	FF+1
DUZ(2	GATHER+5, FF+3
>> E	D+9*
F	S~, S+1, S+5
>> H	FF+3*, FF+4
IO	FF+1
IO(0	FF+1
IOF	START+4, EP+6, PRINT1+1, FF+5
IOM	CTR+1
IOSL	PRINT1+4
IOST	FF+1, FF+2
>> L	S+7*
>> N	N+1, N+4, N+5
R	START+2~, EP+3~, L+3*, L+4
T	S~, S+2, S+7, S+8, S+9
U	WHICH+4, GATHER+4, GATHER+10, GATHER+16, GATHER+17, GATHER+21, GATHER+22, GATHER+23, FF+2, FF+3 , FF+4
>> V	N+5, A+1, A+2, D+9
>> VALMCNT	INIT+1*
X	GATHER+4, GATHER+5, GATHER+6, GATHER+10, GATHER+11, GATHER+12, GATHER+16, GATHER+17, GATHER+18, GATHER+19 , GATHER+20, GATHER+21, GATHER+22, GATHER+23, GATHER+24, GATHER+26, GATHER+27, GATHER+30, GATHER+32, GATHER+34* , GATHER+36, GATHER+38, GATHER+40, GATHER+42, CTR~, CTR+1, S+3~, S+5, S+6, S+8* , S+9, S1+2, HELP+1
Y	PAT+3, PAT+4, PAT+5, WHICH+6, EP+8, N+4, D+3, D+5, GATHER+20*, CTR~ , CTR+1, FF+1, S~, S+6, S+7, S+9

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHVD

Information

Source Information

Call Graph

Call Graph Total: 9

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

Local Variables

Legend: