Routine: BCHRC5P

Package	Total	Call Graph
IHS RPMS CHR System	2	($$CTR,$$LOC)^BCHRLU DONE^BCHUTIL1
VA Fileman	2	DD^%DT ^DIR

Package

Total

Call Graph

($$CTR,$$LOC)^BCHRLU DONE^BCHUTIL1

DD^%DT ^DIR

Name	Comments	DBIA/ICR reference
HEAD	;
HEAD2	; if printer
HEAD1	; if terminal
START	;
DONE
HA	;

Name	Field # of Occurrence
DD^%DT	START+1, START+2
$$CTR^BCHRLU	HEAD2+3, HEAD2+4, HEAD2+5, HEAD2+12
$$LOC^BCHRLU	HEAD2+3
DONE^BCHUTIL1	DONE
^DIR	HEAD+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: START+6
Function Call: WRITE	Prompt: !,"TOTAL",?8,$J(BCHTM,5),?14,$J(BCHTF,5) Line Location: HA+5
Function Call: WRITE	Prompt: ?J,$J(F,5) Line Location: HA+9
Function Call: WRITE	Prompt: ?8,$J(M,5),?14,$J(F,5) Line Location: HA+14
Function Call: WRITE	Prompt: ?J,$J(M,5) Line Location: HA+15
Function Call: WRITE	Prompt: ?J,$J(F,5) Line Location: HA+15
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?30,"DATE GENERATED: ",BCHDT,?70,"Page ",BCHPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+3
Function Call: WRITE	Prompt: ! Line Location: HEAD2+4
Function Call: WRITE	Prompt: $$CTR^BCHRLU(X,80) Line Location: HEAD2+4
Function Call: WRITE	Prompt: ! Line Location: HEAD2+5
Function Call: WRITE	Prompt: $$CTR^BCHRLU(X,80) Line Location: HEAD2+5
Function Call: WRITE	Prompt: !!?((80-X)/2),"PROGRAM: ",BCHPROGN Line Location: HEAD2+7
Function Call: WRITE	Prompt: !?((80-X)/2),"PROVIDER: ",BCHPROVN Line Location: HEAD2+9
Function Call: WRITE	Prompt: !?((80-X)/2),"PATIENTS: ",BCHREGN Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,$$CTR^BCHRLU(X,80) Line Location: HEAD2+12
Function Call: WRITE	Prompt: !!,"HEALTH",?12,"-ALL AGES-" Line Location: HEAD2+13
Function Call: WRITE	Prompt: ?J,K Line Location: HEAD2+13
Function Call: WRITE	Prompt: !,"PROBLEM",?12,"M F" Line Location: HEAD2+14
Function Call: WRITE	Prompt: ?J,"M F" Line Location: HEAD2+14
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+15
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^BCHTPROB - [#90002.53]	HA+13
^BCHTPROG - [#90002.51]	HEAD2+6
^VA(200 - [#200]	HEAD2+2, HEAD2+8
^XTMP("BCHRC5"	START+6, HA+6, HA+7, HA+11, HA+14, HA+15, DONE+1!

Name	Line Occurrences
@(	HA+1
DONE	START+6, HA+3
HEAD	HA+3, HA+12

Name	Field # of Occurrence
^("F"	HA+14, HA+15
^("M"	HA+14, HA+15
^(0	HEAD2+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	START+1
>> BCHBDD	START+1*, HEAD2+12
BCHBT	START+6, HA+6, HA+7, HA+11, HA+14, HA+15, DONE+1!
>> BCHCHR1	HEAD2+8
>> BCHDT	START+2*, HEAD2+2
>> BCHED	START+1
>> BCHEDD	START+1*, HEAD2+12
BCHJOB	START+6, HA+6, HA+7, HA+11, HA+14, HA+15, DONE+1!
>> BCHPG	START+4, HEAD2+1, HEAD2+2
>> BCHPRG	HEAD2+6
>> BCHPROGN	HEAD2+6*, HEAD2+7, HEAD2+8
>> BCHPROVN	HEAD2+8*, HEAD2+9
>> BCHPROVT	HEAD2+8
BCHQUIT	START+5!, HA+3, HA+6, HA+11, HA+12, HEAD+1*
>> BCHRBIN	HA+15, HEAD2+13, HEAD2+14
>> BCHREGN	HEAD2+10, HEAD2+11
>> BCHTF	HA+5
>> BCHTM	HA+5
BCHX	HA+6, HA+7, HA+11, HA+13, HA+14, HA+15, DONE+1!
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+2
>> DTOUT	HEAD+1
DUZ	HEAD2+2
>> F	HA+7, HA+9, HA+14, HA+15*
>> I	HA+15, HEAD2+13, HEAD2+14*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	HA+3, HA+12
IOST	HA+1, HEAD+1
>> J	HA+6, HA+9, HA+15, HEAD2+13, HEAD2+14*
>> K	HEAD2+13*
>> M	HA+7, HA+9, HA+14, HA+15*
U	HA+13, HEAD2+2, HEAD2+6, HEAD2+8
>> X	HEAD2+4, HEAD2+5, HEAD2+6, HEAD2+7, HEAD2+8, HEAD2+9, HEAD2+10, HEAD2+11, HEAD2+12
>> Y	START+1, START+2, HEAD+1

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRC5P

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: