Routine: BCHRU1P

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

Package

Total

Call Graph

DD^%DT NOW^%DTC ^DIR

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

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",!! Line Location: START+4
Function Call: WRITE	Prompt: !?4,"TOTAL",?28,$J($FN(BCHTOTA,",",0),6),?35,"100%",?41,$J($FN(BCHTOTC,",",0),5),?47,"100%",?54,$J($FN(BCHTOTT,",",0),5),?60,"100%",?67,$J($FN(BCHTOTS,",",0),5),?73,"100%",! Line Location: HA+8
Function Call: WRITE	Prompt: ! Line Location: HA+13
Function Call: WRITE	Prompt: ?73,$S(BCHTOTS:$J(((BCHCS/BCHTOTS)*100),3,0),1:$J("0",3,0)),"%" Line Location: HA+18
Function Call: WRITE	Prompt: ?35,$S(BCHTOTA:$J(((BCHCA/BCHTOTA)*100),3,0),1:$J("0",3,0)),"%" Line Location: HA+25
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?58,BCHDT,?72,"Page ",BCHPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+3
Function Call: WRITE	Prompt: !,$$CTR^BCHRLU(X,80) Line Location: HEAD2+4
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: !?17,"REPORT DATES: ",BCHBDD," TO ",BCHEDD,! Line Location: HEAD2+12
Function Call: WRITE	Prompt: !!?3,BCHCH,?31,"# PATIENTS",?44,"# FEMALES",?56,"# MALES",?69,"SERVICE" Line Location: HEAD2+13
Function Call: WRITE	Prompt: !?69,"HOURS" 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)
^BCHTPROG - [#90002.51]	HEAD2+6
^VA(200 - [#200]	HEAD2+2, HEAD2+8
^XTMP("BCHRU1"	START+4, HA+9, HA+10, HA+21, HA+22, DONE+2!

Name	Line Occurrences
@(	HA+1
DONE	START+4, HA+7
HEAD	START+4, HA+7, HA+11, HA+23

Name	Field # of Occurrence
^(	HA+10, HA+22
^(0	HEAD2+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	START+3
>> BCHBDD	START+3*, HEAD2+12
BCHBTH	START+4, HA+9, HA+10, HA+21, HA+22, DONE+2!
>> BCHCA	HA+10, HA+15, HA+22, HA+25
>> BCHCC	HA+10, HA+16, HA+22, HA+26
>> BCHCH	HEAD2+5, HEAD2+13
>> BCHCHR1	HEAD2+8
>> BCHCS	HA+10, HA+18, HA+22, HA+28
>> BCHCT	HA+10, HA+17, HA+22, HA+27
>> BCHDT	START+1*, HEAD2+2
>> BCHED	START+3
>> BCHEDD	START+3*, HEAD2+12
>> BCHHA	HA+9*, HA+10, HA+14, HA+21, HA+22
BCHJOB	START+4, HA+9, HA+10, HA+21, HA+22, DONE+2!
>> BCHPATS	HA+4
>> BCHPATS("F"	HA+5
>> BCHPATS("M"	HA+6
>> BCHPATS("ST"	HA+3
>> BCHPG	START+2, HEAD2+1, HEAD2+2
>> BCHPRG	HEAD2+6
>> BCHPROGN	HEAD2+6*, HEAD2+7, HEAD2+8
>> BCHPROVN	HEAD2+8*, HEAD2+9
>> BCHPROVT	HEAD2+8
BCHQUIT	START+2!, HA+7, HA+9, HA+11, HA+21, HA+23, HEAD+1*
>> BCHREGN	HEAD2+10, HEAD2+11
>> BCHRPT	HEAD2+4
>> BCHSUB	HA+13, HA+19
>> BCHSUB1	HA+21*, HA+22, HA+24
>> BCHTOTA	HA+4*, HA+8, HA+15, HA+25
>> BCHTOTC	HA+5*, HA+8, HA+16, HA+26
>> BCHTOTS	HA+3*, HA+8, HA+18, HA+28
>> BCHTOTT	HA+6*, HA+8, HA+17, HA+27
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD2+2
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	HA+7, HA+11, HA+23
IOST	HA+1, HEAD+1
U	HA+10, HA+22, HEAD2+2, HEAD2+6, HEAD2+8
>> X	START+1, HEAD2+4, HEAD2+5, HEAD2+6, HEAD2+7, HEAD2+8, HEAD2+9, HEAD2+10*, HEAD2+11
>> Y	START+1, START+3, HEAD+1

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRU1P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: