Routine: BCHVDO

Information

BCHVDO ; IHS/CMI/LAB - BROWSE VISITS ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
IHS RPMS CHR System	3	$$CTR^BCHRLU GETPAT^BCHULV $$PPNAME^BCHUTIL
IHS Patient	1	($$DOB,$$HRN,KILL)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS RPMS CHR System	1	BCH LIST VISITS ONE PATIENT

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
A	;all visits
PAT	;
ZIS	;call to XBDBQUE
HEADER	;EP
L	;get patients last visit
N	;patients last N visits
START	;
GETPROB	;
HEADER1	;
XIT	;
WHICH	;
PRINT	;
D	;date range

External References

Name	Field # of Occurrence
$$DOB^AUPNPAT	HEADER1+11
$$HRN^AUPNPAT	HEADER1+9
KILL^AUPNPAT	XIT+2
$$CTR^BCHRLU	START+5, HEADER1+2, HEADER1+8, HEADER1+10, HEADER1+12, HEADER1+17, HEADER1+19, HEADER1+21
GETPAT^BCHULV	PAT+1
$$PPNAME^BCHUTIL	PRINT1+3
^DIR	WHICH+4, HEADER+2, N+2, D+3, D+5
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	HEADER1+20
^XBFMK	XIT+3
EN^XBVK	XIT+1
$$FMTE^XLFDT	HEADER1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR^BCHRLU("List One Patient's Visits",80) Line Location: START+5
Function Call: WRITE	Prompt: !!,"Patient had no CHR visits in the time period." Line Location: PRINT+3
Function Call: WRITE	Prompt: !,$E($P(BCHR0,U),4,5),"/",$E($P(BCHR0,U),6,7),"/",(1700+($E($P(BCHR0,U),1,3))) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?11,$E($$PPNAME^BCHUTIL(BCHR),1,20) Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?32,BCHSFAC Line Location: PRINT1+7
Function Call: WRITE	Prompt: ?45," --" Line Location: PRINT1+8
Function Call: WRITE	Prompt: ! Condition for execution: BCHC Line Location: PRINT1+9
Function Call: WRITE	Prompt: ?45,BCHX Line Location: PRINT1+9
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$$CTR^BCHRLU(X,80),! Line Location: HEADER1+2
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?($S(80=132:120,1:72)),"Page ",BCHPG Line Location: HEADER1+3
Function Call: WRITE	Prompt: !?(80-$L(BCHTEXT)/2),BCHTEXT Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","=") Line Location: HEADER1+22
Function Call: WRITE	Prompt: !," DATE",?11,"CHR",?32,"LOCATION",?45,"ASSESSMENTS - POVS" Line Location: HEADER1+23
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEADER1+24
Function Call: WRITE	Prompt: !!,"No visits on file for this patient.",! Line Location: L+4
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
Routine Call	DIR Line Location: WHICH+4 HEADER+2 N+2 D+3 D+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNPOV - [#9999999.27]	GETPROB+5
^AUTTLOC - [#9999999.06]	PRINT1+5
^BCHR - [#90002]	PRINT+7, L+4, L+5, N+7, A+4, D+11
^BCHR("AE"	L+5
^BCHRPAT - [#90002.11]	WHICH+4, HEADER1+16, HEADER1+18
^BCHRPROB - [#90002.01]	PRINT1+9
^BCHRPROB("AD"	PRINT1+8, PRINT1+9
^BCHTACTL - [#90002.56]	PRINT1+4
^BCHTPROB - [#90002.53]	GETPROB+2
^BCHTSERV - [#90002.54]	GETPROB+3
^DIC(4 - [#4]	HEADER1+3
^DPT - [#2]	WHICH+4, HEADER1+7

Label References

Name	Line Occurrences
@(	WHICH+7
D	D+7
GETPROB	PRINT1+9
HEADER	PRINT+3, PRINT+4, PRINT1+1
HEADER1	HEADER+1
PRINT1	PRINT+8
XIT	PAT+2, ZIS+3, PRINT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUPNDAYS	START+1~
AUPNDOB	START+1~
AUPNDOD	START+1~
AUPNPAT	START+1~
AUPNSEX	START+1~
>> BCHACTL	PRINT1+4*, PRINT1+6
BCHBD	START+1~, D+1!, D+3*, D+7, D+11
>> BCHC	PRINT1+9*
>> BCHD	PRINT+5*, PRINT+6
BCHED	START+1~, D+1!, D+5*, D+7, D+11
>> BCHNRPAT	PAT+2, WHICH+4, HEADER1+15, HEADER1+16, HEADER1+18, HEADER1+20, L+3, N+6, A+3, D+10
>> BCHP	PRINT1+9*
>> BCHPAT	PAT+2, WHICH+4, HEADER1+6, HEADER1+7, HEADER1+9, HEADER1+11, L+2, N+5, A+2, D+9
>> BCHPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+3
>> BCHPREC	PRINT1+9*, GETPROB+2, GETPROB+3, GETPROB+4, GETPROB+5
BCHQUIT	WHICH+1, WHICH+7, PRINT+2!, PRINT+5, PRINT+6, PRINT1+1, HEADER+2, L+4, N+3, D+3* , D+5*
>> BCHR	PRINT+6*, PRINT+7, PRINT1+3, PRINT1+8, PRINT1+9
BCHR0	START+1~, PRINT+7*, PRINT1+2, PRINT1+4, PRINT1+5
>> BCHSFAC	PRINT1+5, PRINT1+6, PRINT1+7
>> BCHTEXT	HEADER1+4*, HEADER1+5
BCHV	START+1~, START+3!, PRINT+3
BCHV(	PRINT+5, PRINT+6, L+6, N+7, A+4, D+11
>> BCHW	WHICH+2, WHICH+6, WHICH+7
BCHX	START+1~, PRINT1+9, GETPROB+1, GETPROB+7
BCHY	START+1~
>> C	N+7*
D	START+2~, L+5, L+6, N+7, A+1, A+4, D+11*
DA	WHICH+4!, N+2!
DFN	START+1~
DIR	WHICH+4!, HEADER+2!, N+2!, D+2!, D+4!
DIR("A"	WHICH+4, N+2, D+2, D+4
DIR("B"	WHICH+4, N+2
DIR(0	WHICH+3, HEADER+2, N+2, D+2, D+4*
>> DIRUT	WHICH+5, N+3
>> DTOUT	HEADER+2
DUZ(2	HEADER1+3, HEADER1+9
>> E	D+11*
IO	HEADER+2
IO(0	HEADER+2
IOF	START+4, HEADER1+1
IOSL	PRINT1+1
IOST	HEADER+2
>> N	GETPROB+5, GETPROB+6, N+1, N+4*, N+7
>> P	L+2, L+3, L+4, L+5, N+5, N+6, N+7, A+2, A+3, A+4 , D+9, D+10, D+11
R	START+2~, L+5*, L+6
U	WHICH+4, PRINT1+2, PRINT1+4, PRINT1+5, GETPROB+2, GETPROB+3, GETPROB+4, GETPROB+5, HEADER1+3, HEADER1+7 , HEADER1+16, HEADER1+18
>> V	N+7, A+1, A+4, D+11
>> X	GETPROB+2, GETPROB+3, GETPROB+4, GETPROB+6, GETPROB+7, HEADER1+2, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10 , HEADER1+11, HEADER1+12, HEADER1+16, HEADER1+17, HEADER1+18, HEADER1+19, HEADER1+20, HEADER1+21, L+2, L+3* , L+4, L+5, N+5, N+6, N+7, A+2, A+3, A+4, D+9, D+10 , D+11
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
>> Y	WHICH+6, HEADER+2, N+4, D+3, D+5

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHVDO

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: