Routine: BCHULKUP

Package	Total	Call Graph
IHS RPMS CHR System	3	$$RBLK^BCHUARL $$PPNAME^BCHUTIL PAUSE^BCHUTIL1
VA Fileman	2	DD^%DT ^DIR
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCHUDISP BCHUEDT1

Entry Points

Name	Comments	DBIA/ICR reference
DISPRECS	;display records for selection by user
HEAD	;
EN	;
HEAD1	;
EOJ	;
COLLECT	;
GETPROB	;
SELECT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No records currently on file for ",$P(^VA(200,BCHPROV,0),U),".",! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,BCHDASH Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"CHR records for " Line Location: HEAD1+4
Function Call: WRITE	Prompt: Y Line Location: HEAD1+4
Function Call: WRITE	Prompt: Y Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,BCHDASH Line Location: HEAD1+5
Function Call: WRITE	Prompt: !," #",?5,"CHR/PROVIDER",?21,"HP SC MIN NARRATIVE",?53,"LOC",?60,"PATIENT NAME",!,BCHDASH Line Location: HEAD1+6
Function Call: WRITE	Prompt: ! Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"No Records selected." Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"Invalid selection!!" Line Location: SELECT+4
Function Call: WRITE	Prompt: ?25," --" Line Location: DISPRECS+6
Function Call: WRITE	Prompt: ?21,BCHX Line Location: DISPRECS+7
Function Call: WRITE	Prompt: ?60,$E($P(^DPT($P(^BCHR(BCHR,0),U,4),0),U),1,20) Line Location: DISPRECS+9
Function Call: WRITE	Prompt: ?60,$E($P(^BCHR(BCHR,11),U),1,20) Line Location: DISPRECS+10
Function Call: WRITE	Prompt: ?66,"<none>" Line Location: DISPRECS+11
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIR Line Location: HEAD+2 SELECT+2

Name	Line Occurrences (* Changed, ! Killed)
^AUTNPOV - [#9999999.27]	GETPROB+6
^BCHR - [#90002]	COLLECT+2, DISPRECS+3, DISPRECS+8, DISPRECS+9, DISPRECS+10
^BCHR("AA"	EN+5
^BCHR("B"	COLLECT+1, COLLECT+2
^BCHRPROB - [#90002.01]	GETPROB+2
^BCHRPROB("AD"	DISPRECS+6, GETPROB+2
^BCHTACTL - [#90002.56]	DISPRECS+8
^BCHTPROB - [#90002.53]	GETPROB+3
^BCHTSERV - [#90002.54]	GETPROB+4
^DPT - [#2]	DISPRECS+9
^VA(200 - [#200]	EN+5, HEAD1+4

Name	Field # of Occurrence
BCHDASH	EN+6*, EOJ+1!, HEAD1+3, HEAD1+5, HEAD1+6
>> BCHDATE	EN+5, HEAD1+4, COLLECT+1
BCHODAT	EOJ+1!, COLLECT+1*, COLLECT+2
BCHP	EOJ+1!, GETPROB+2*
BCHPG	EOJ+1!, HEAD+1, HEAD1+1, DISPRECS+1, DISPRECS+3*
>> BCHPREC	GETPROB+2*, GETPROB+3, GETPROB+4, GETPROB+5, GETPROB+6
>> BCHPROV	EN+5, HEAD1+4, COLLECT+3
BCHQUIT	EOJ+1!, HEAD+2*, COLLECT+1, COLLECT+2, DISPRECS+4
BCHR	EN+8, EN+9!, SELECT+1!, SELECT+5, COLLECT+1, COLLECT+2, COLLECT+4, DISPRECS+3*, DISPRECS+5, DISPRECS+6 , DISPRECS+8, DISPRECS+9, DISPRECS+10, GETPROB+2
BCHR0	EOJ+1!, COLLECT+2, COLLECT+3, DISPRECS+3
BCHRCNT	EN+8, EN+9, EOJ+1!, SELECT+2, COLLECT+1, COLLECT+4
BCHRECN	EOJ+1!, DISPRECS+3*, DISPRECS+5
BCHVRECS	EOJ+1!
BCHVRECS(	SELECT+4, SELECT+5, COLLECT+4*, DISPRECS+3
BCHVRECS(1	EN+8
BCHX	EOJ+1!, DISPRECS+7, GETPROB+1, GETPROB+8
DIR	HEAD+2!, SELECT+2!
DIR("A"	SELECT+2*
DIR(0	HEAD+2, SELECT+2
>> DIRUT	SELECT+2*, SELECT+3
>> DTOUT	HEAD+2
>> DUOUT	SELECT+2
IO	HEAD+2
IO(0	HEAD+2
IOF	EN+3, HEAD1+2
IOSL	DISPRECS+4
IOST	HEAD+2
U	EN+5, HEAD1+4, COLLECT+3, DISPRECS+8, DISPRECS+9, DISPRECS+10, GETPROB+3, GETPROB+4, GETPROB+5, GETPROB+6
>> X	GETPROB+3, GETPROB+4, GETPROB+5, GETPROB+6, GETPROB+7*, GETPROB+8
>> Y	HEAD+2, HEAD1+4*, SELECT+4, SELECT+5