Routine: BCHRC8P

Information

BCHRC8P ; IHS/CMI/LAB - print all visit report ;

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

Name	Comments	DBIA/ICR reference
PR	;
HEAD	;I 'BCHPG G HEAD1
HEAD2	; if printer
HEAD1	; if terminal
START	;
EOP	; pause OR form feed between pages of report for terminal/printer
DONE	;
PG	;
PROG	; process for each program, monthly numbers

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",!! Line Location: START+3
Function Call: WRITE	Prompt: !?3,R Line Location: PROG+8
Function Call: WRITE	Prompt: ?(I*20),$J($FN(V,",",0),10) Line Location: PROG+8
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. ",BCHRN," ********" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !!?17,"HOURS (SERVICE+TRAVEL) BY MONTH AND ",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),"PATIENTS: ",BCHREGN Line Location: HEAD2+10
Function Call: WRITE	Prompt: !?17,"REPORT DATES: ",BCHBDD," TO ",BCHEDD,! Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,"MONTH/YEAR",?20,"TOTAL HOURS",?40,"SERVICE HOURS",?60,"TRAVEL HOURS" Line Location: HEAD2+12
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+13
Function Call: WRITE	Prompt: !!?((80-X)/2),"PROGRAM: ",BCHPROGN Line Location: PG+3
Function Call: WRITE	Prompt: !!?((80-X)/2),"PROVIDER: ",$P(^VA(200,BCHPROG,0),U) Line Location: PR+2
Function Call: WRITE	Prompt: @IOF Line Location: EOP+1
Function Call: WRITE	Prompt: ! Line Location: EOP+2
Routine Call	DIR Line Location: HEAD+1 EOP+2

Name	Line Occurrences (* Changed, ! Killed)
^BCHTPROG - [#90002.51]	HEAD2+6, PG+2
^VA(200 - [#200]	HEAD2+2, PR+2
^XTMP("BCHRC8"	START+3, PROG+1, PROG+4, PROG+7, PROG+8, PROG+11, DONE+2!

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

Name	Field # of Occurrence
>> BCHBD	START+2
>> BCHBDD	START+2*, HEAD2+11
>> BCHBT	PROG+1, PROG+4, PROG+7, PROG+8, PROG+11
BCHBTH	START+3, DONE+2!
>> BCHCH	HEAD2+5
>> BCHDT	START+1*, HEAD2+2
>> BCHED	START+2
>> BCHEDD	START+2*, HEAD2+11
BCHJOB	START+3, PROG+1, PROG+4, PROG+7, PROG+8, PROG+11, DONE+2!
>> BCHNAME	PR+2*
>> BCHNONE	START+3*, PG+1, PR+1
>> BCHPG	START+3, START+4, HEAD2+1*, HEAD2+2
>> BCHPRG	HEAD2+6
>> BCHPROG	PROG+1*, PROG+4, PROG+7, PROG+8, PROG+11, PG+2, PR+2
>> BCHPROGN	HEAD2+6, HEAD2+7, PG+2, PG+3
BCHQUIT	START+4!, PROG+1, PROG+3, PROG+4, PROG+5, PROG+10, HEAD+1, EOP+2
>> BCHREGN	HEAD2+9, HEAD2+10
>> BCHRN	HEAD2+4
>> BCHRPT	HEAD2+6, HEAD2+7, HEAD2+8
DIR	HEAD+1!, EOP+2!
DIR(0	HEAD+1, EOP+2
>> DIRUT	EOP+2*
>> DTOUT	HEAD+1
>> DUOUT	EOP+2
DUZ	HEAD2+2
>> I	PROG+8*
IO	HEAD+1
IO("S"	EOP+1
IO(0	HEAD+1
IOF	HEAD1+1, EOP+1
IOSL	PROG+5
IOST	PROG+2, HEAD+1, EOP+1
>> M	PROG+4*, PROG+7, PROG+8
>> R	PROG+7*, PROG+8
U	PROG+8, HEAD2+2, HEAD2+6, PG+2, PR+2
>> V	PROG+8*
>> X	START+1, HEAD2+6, HEAD2+7, HEAD2+9, HEAD2+10, PG+2, PG+3, PR+2
>> Y	START+1, START+2, HEAD+1