Routine: BCHRC1P

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",!! Line Location: START+4
Function Call: WRITE	Prompt: !?4,"TOTAL",?28,$J($FN(BCHTOTS,",",0),6),?35,"100%",?41,$J($FN(BCHTOTT,",",0),5),?47,"100%",?54,$J($FN(BCHTOTC,",",0),5),?60,"100%",?67,$J($FN(BCHTOTA,",",0),5),?73,"100%",! Line Location: HA+5
Function Call: WRITE	Prompt: ! Line Location: HA+10
Function Call: WRITE	Prompt: ?35,$S(BCHTOTS:$J(((BCHCS/BCHTOTS)*100),3,0),1:$J("0",3,0)),"%" Line Location: HA+12
Function Call: WRITE	Prompt: ?35,$S(BCHTOTS:$J(((BCHCS/BCHTOTS)*100),3,0),1:$J("0",3,0)),"%" Line Location: HA+22
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: !?20,"******** CHR REPORT NO. ",BCHRPT," ********" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !?((80-($L(BCHCH)+47))/2),"TIME SPENT, ",$S(BCHRPT=3:"# SERVED",1:"SERVICE ACTIVITIES"),", AND SERVICES by ",BCHCH 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: !,"* SERVICES is equal to # of Lines of Assessment" Line Location: HEAD2+13
Function Call: WRITE	Prompt: !!?3,BCHCH,?31,"SERVICE",?44,"TRAVEL",?56,$S(BCHRPT=3:"NUMBER",1:"SERVICE"),?69,"SERVICES*" Line Location: HEAD2+14
Function Call: WRITE	Prompt: !?31,"HOURS",?44,"HOURS",?56,$S(BCHRPT=3:"SERVED",1:"ACTIVITIES") Line Location: HEAD2+15
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+16
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("BCHRC1"	START+4, HA+3, HA+6, HA+7, HA+18, HA+19, DONE+2!

Name	Field # of Occurrence
^(	HA+7, HA+19
^("TOTAL"	HA+3
^(0	HEAD2+6

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	START+3
>> BCHBDD	START+3*, HEAD2+12
BCHBTH	START+4, HA+3, HA+6, HA+7, HA+18, HA+19, DONE+2!
>> BCHCA	HA+7, HA+15, HA+19, HA+25
>> BCHCC	HA+7, HA+14, HA+19, HA+24
>> BCHCH	HEAD2+5, HEAD2+14
>> BCHCHR1	HEAD2+8
>> BCHCS	HA+7, HA+12, HA+19, HA+22
>> BCHCT	HA+7, HA+13, HA+19, HA+23
>> BCHDT	START+1*, HEAD2+2
>> BCHED	START+3
>> BCHEDD	START+3*, HEAD2+12
>> BCHHA	HA+6*, HA+7, HA+11, HA+18, HA+19
BCHJOB	START+4, HA+3, HA+6, HA+7, HA+18, HA+19, DONE+2!
>> 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+4, HA+6, HA+8, HA+18, HA+20, HEAD+1*
>> BCHREGN	HEAD2+10, HEAD2+11
>> BCHRPT	HEAD2+4, HEAD2+5, HEAD2+14, HEAD2+15
>> BCHSUB	HA+10, HA+16
>> BCHSUB1	HA+18*, HA+19, HA+21
>> BCHTOTA	HA+3*, HA+5, HA+15, HA+25
>> BCHTOTC	HA+3*, HA+5, HA+14, HA+24
>> BCHTOTS	HA+3*, HA+5, HA+12, HA+22
>> BCHTOTT	HA+3*, HA+5, HA+13, HA+23
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+4, HA+8, HA+20
IOST	HA+1, HEAD+1
U	HA+3, HA+7, HA+19, HEAD2+2, HEAD2+6, HEAD2+8
>> X	START+1, 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: BCHRC1P

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: