Routine: BCHUAR

Call Graph

Package	Total	Call Graph
IHS RPMS CHR System	3	GATHER^BCHUARL (,EN)^BCHUEKL ^BCHUIN
Registration	3	EN^VALM TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1
VA Fileman	2	(,DD)^%DT ^DIR
IHS VA Utilities	1	EN^XBVK
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
IHS RPMS CHR System	8	BCH ENTER ABBREVIATED FORM BCH UPDATE RECORDS BCHEGR BCHHS BCHUADD BCHUDEL BCHUDISP BCHUEDT

Name	Comments	DBIA/ICR reference
HELP	; -- help code
ABB	;EP
EN	; EP -- main entry point for BCH UPDATE ACTIVITY RECORDS
HDR	; EP -- header code
GETPROV	;EP - GET PROVIDER
EOJ	;EOJ CLEANUP
START1
EXPND	; -- expand code
TEXT	;
START	; Write Header
INIT	; -- init variables and list array
EXIT	; -- exit code
TEST	;EP
GETPROG	;
RNS	;EP
GETDATE	;EP GET DATE OF ENCOUNTER
UP1	;

Name	Field # of Occurrence
^%DT	GETDATE+4, TEST+3
DD^%DT	GETDATE+7, TEST+6
GATHER^BCHUARL	INIT+1
^BCHUEKL	EOJ+1
EN^BCHUEKL	START+1, RNS+1, UP1+1, ABB+2
^BCHUIN	START1+4
^DIR	GETDATE+2, TEST+1, GETPROV+1, GETPROG+2
EN^VALM	EN+3
TERM^VALM0	EN+1
$$FTIME^VALM1	HDR+2
CLEAR^VALM1	EN+4
FULL^VALM1	START1+6
EN^XBVK	START+2, RNS+2, UP1+2, ABB+1
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: START1+1
Function Call: WRITE	Prompt: !! Line Location: START1+3
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+5
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: TEST+4
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3
Routine Call	DIR Line Location: GETDATE+2 TEST+1 GETPROV+1 GETPROG+2

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	HDR+3

Name	Line Occurrences
EN	START1+6
EOJ	START1+7
EXIT	START1+6
GETDATE	START1+6, GETDATE+4, GETDATE+5, TEST+3, TEST+4
GETPROG	START1+6
GETPROV	START1+6
START1	RNS+4, UP1+4, ABB+4
TEST	GETDATE+1

Name	Field # of Occurrence
>> %DT	GETDATE+4, TEST+3
>> BCHDASH	HDR+1, HDR+4
>> BCHDATE	START1+6, GETDATE+2, GETDATE+6, TEST+1, TEST+5*, HDR+2
>> BCHF2	UP1+3*
>> BCHPROG	START1+6, GETPROG+1, GETPROG+4*
>> BCHPROG(0	GETPROG+4*, HDR+2
>> BCHPROV	START1+6, GETPROV+1, GETPROV+4*, HDR+3
BCHRCNT	HDR+5*, INIT+2, EXIT+1!
BCHRNS	RNS+3*, EOJ+2!
>> BCHUABFO	ABB+3*
BCHVRECS	HDR+5!, EXIT+1!
BCHVRECS(1	HDR+5
DA	GETPROG+2!
DIR	GETDATE+2!, TEST+1!, GETPROV+1!, GETPROG+2!
DIR("A"	GETDATE+2, TEST+1, GETPROV+1, GETPROG+2
DIR(0	GETDATE+2, TEST+1, GETPROV+1, GETPROG+2
>> DIRUT	GETDATE+2, GETDATE+3, TEST+1, TEST+2, GETPROV+1, GETPROV+2, GETPROG+2, GETPROG+3
DT	GETDATE+2, GETDATE+5, TEST+4
>> DUOUT	GETDATE+2, TEST+1, GETPROV+1, GETPROG+2
IOF	START1
J	START1+1*, START1+2!
U	GETPROG+4, HDR+3
VALMBCK	EXIT+2!
VALMCC	EN+2*, EXIT+2!
VALMCNT	INIT+2*, EXIT+2!
VALMHDR	EXIT+2!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4*
VALMHDR(5	HDR+5, HDR+6
X	START1+1, START1+2!, GETDATE+5!, TEST+4!, GETPROG+2!, HELP+1
Y	GETDATE+4, GETDATE+5, GETDATE+6, TEST+3, TEST+4, TEST+5, GETPROV+3, GETPROV+4, GETPROG+2!, GETPROG+4
Y(0	GETPROG+4