Routine: BCHRCHP

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	;
B	;
HEAD2	; if printer
HEAD1	; if terminal
ACT1
TOTALP	;
L	;
PROB	;
DONE
ACT	;
PRINT	;EP - PRINT TOP TEN RECORDS
TOTALA	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "NO DATA TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$P(^BCHTPROB(BCHY,0),U),?36,$J($FN(H,",",1),10),?58,$J(P,5,1) Line Location: PROB+8
Function Call: WRITE	Prompt: !,$P(^BCHTPROB(BCHY,0),U),?23,$J($FN(H,",",0),6) Line Location: PROB+9
Function Call: WRITE	Prompt: ?32 Line Location: PROB+10
Function Call: WRITE	Prompt: "*" Line Location: PROB+10
Function Call: WRITE	Prompt: !!,"ALL HEALTH PROBLEMS" Line Location: TOTALP+2
Function Call: WRITE	Prompt: ?36,$J($FN(BCHTH,",",1),10),?58,$J("100%",5) Line Location: TOTALP+3
Function Call: WRITE	Prompt: ?23,$J($FN(BCHTH,",",0),6) Line Location: TOTALP+4
Function Call: WRITE	Prompt: !! Line Location: TOTALP+6
Function Call: WRITE	Prompt: !,$P(^BCHTSERV(BCHY,0),U),?36,$J($FN(H,",",1),10),?58,$J(P,5,1) Line Location: ACT1+4
Function Call: WRITE	Prompt: !,$P(^BCHTSERV(BCHY,0),U),?23,$J($FN(H,",",0),6) Line Location: ACT1+5
Function Call: WRITE	Prompt: ?32 Line Location: ACT1+6
Function Call: WRITE	Prompt: "*" Line Location: ACT1+6
Function Call: WRITE	Prompt: !!,"ALL SERVICES" Line Location: TOTALA+2
Function Call: WRITE	Prompt: ?36,$J($FN(BCHTH,",",1),10),?58,$J("100%",5) Line Location: TOTALA+3
Function Call: WRITE	Prompt: ?23,$J($FN(BCHTH,",",0),6) Line Location: TOTALA+4
Function Call: WRITE	Prompt: !! Line Location: TOTALA+6
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"DATE PRINTED: ",BCHDT,?$S(BCHCHRT="L":72,1:121),"Page ",BCHPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+3
Function Call: WRITE	Prompt: !,"COMMUNITY HEALTH REPRESENTATIVE REPORT 13 -- HIGHLIGHTS" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !,"TOP ",BCHLNO," HEALTH PROBLEMS AND SERVICES" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,"PROGRAM: ",BCHPROGN Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,"PROVIDER: ",BCHPROVN Line Location: HEAD2+9
Function Call: WRITE	Prompt: !,"PATIENTS: ",BCHREGN Line Location: HEAD2+10
Function Call: WRITE	Prompt: !,"REPORTING PERIOD: ",BCHBDD," TO ",BCHEDD,! Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,$S(BCHPROC="P":"HEALTH PROBLEM",1:"SERVICE"),?35,"SERVICE & TRAVEL",?58,"% OF TOTAL",!?40,"HOURS" Line Location: L+2
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: L+3
Function Call: WRITE	Prompt: !,$S(BCHPROC="P":"HEALTH PROBLEM",1:"SERVICE"),?23," S+T" Line Location: B+2
Function Call: WRITE	Prompt: ?J,I,"%" Line Location: B+2
Function Call: WRITE	Prompt: !?23,"HOURS" Line Location: B+3
Function Call: WRITE	Prompt: ?J,"\|" Line Location: B+3
Routine Call	DIR Line Location: HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^BCHTPROB - [#90002.53]	PROB+8, PROB+9
^BCHTPROG - [#90002.51]	HEAD2+6
^BCHTSERV - [#90002.54]	ACT1+4, ACT1+5
^VA(200 - [#200]	HEAD2+8
^XTMP("BCHRCH"	PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2, DONE+1!

Name	Line Occurrences
@(	PROB+2, ACT+4
ACT1	ACT+3
B	HEAD2+13
DONE	PRINT+4, PROB+15, TOTALP+1, TOTALP+5, ACT+1, ACT+3, ACT1+11, TOTALA+1, TOTALA+5
HEAD	PRINT+4, PROB+7, TOTALP+1, TOTALP+5, ACT+3, ACT1+3, TOTALA+1, TOTALA+5
L	HEAD2+12

Name	Field # of Occurrence
^(	PROB+6, ACT1+2
^(0	HEAD2+6

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	PRINT+2
>> BCHBDD	PRINT+2*, HEAD2+11
BCHBT	PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2, DONE+1!
>> BCHCHR1	HEAD2+8
>> BCHCHRT	PROB+8, PROB+9, TOTALP+3, TOTALP+4, ACT+4, ACT1+4, ACT1+5, TOTALA+3, TOTALA+4, HEAD2+2 , HEAD2+12, HEAD2+13
>> BCHDT	PRINT+1*, HEAD2+2
>> BCHED	PRINT+2
>> BCHEDD	PRINT+2*, HEAD2+11
BCHJOB	PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2, DONE+1!
>> BCHLNO	PROB+4, ACT1, HEAD2+5
>> BCHPG	PRINT+3, HEAD2+1, HEAD2+2
>> BCHPRG	HEAD2+6
>> BCHPROC	PROB+1, ACT+2, L+1, L+2, B+1, B+2
>> BCHPROGN	HEAD2+6*, HEAD2+7, HEAD2+8
>> BCHPROVN	HEAD2+8*, HEAD2+9
>> BCHPROVT	HEAD2+8
>> BCHQUIT	PROB+4, PROB+5, PROB+7, PROB+15, TOTALP+1, TOTALP+5, ACT+1, ACT+3, ACT1, ACT1+1 , ACT1+3, ACT1+11, TOTALA+1, TOTALA+5, HEAD+2*
>> BCHREGN	HEAD2+10
>> BCHTH	PRINT+5*, TOTALP+3, TOTALP+4, TOTALA+3, TOTALA+4
>> BCHTT	PRINT+4, PRINT+5
>> BCHX	PROB+4, PROB+5, PROB+6, ACT1, ACT1+1, ACT1+2
>> BCHY	PROB+5, PROB+6, PROB+8, PROB+9, ACT1+1, ACT1+2, ACT1+4, ACT1+5, HEAD+2
>> C	PROB+4, PROB+5, ACT1, ACT1+1
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DUOUT	HEAD+2
>> H	PROB+6, PROB+8, PROB+9, ACT1+2, ACT1+4, ACT1+5
>> I	PROB+10, ACT1+6, B+2, B+3
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PROB+7, TOTALP+1, TOTALP+5, ACT+3, ACT1+3, TOTALA+1, TOTALA+5
IOST	PROB+2, HEAD+2
>> J	B+2, B+3
>> P	PROB+6, PROB+8, PROB+10, PROB+11, ACT1+2, ACT1+4, ACT1+6, ACT1+7
>> Q	PROB+10, ACT1+6
U	PROB+6, PROB+8, PROB+9, ACT1+2, ACT1+4, ACT1+5, HEAD2+6, HEAD2+8
>> X	PRINT+1, HEAD2+6, HEAD2+8
>> Y	PRINT+1, PRINT+2, HEAD+2

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRCHP

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: