Routine: BCHRC2P

Information

BCHRC2P ; 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	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",!! Line Location: START+3
Function Call: WRITE	Prompt: !?4,"TOTAL",?26,$J($FN(^XTMP("BCHRC2",BCHJOB,BCHBT,"TOTAL","FROM"),","),5),?32,"100%" Line Location: REF+4
Function Call: WRITE	Prompt: ?46,"TOTAL",?69,$J($FN(^XTMP("BCHRC2",BCHJOB,BCHBT,"TOTAL","TO"),","),5),?75,"100%" Line Location: REF+5
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+3
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+4
Function Call: WRITE	Prompt: !?20,"******** CHR REPORT NO. 4 ********" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !!?26,"NUMBER OF REFERRALS FROM/TO" Line Location: HEAD2+6
Function Call: WRITE	Prompt: !!?((80-X)/2),"PROGRAM: ",BCHPROGN Line Location: HEAD2+8
Function Call: WRITE	Prompt: !?((80-X)/2),"PROVIDER: ",BCHPROVN Line Location: HEAD2+10
Function Call: WRITE	Prompt: !?((80-X)/2),"PATIENTS: ",BCHREGN Line Location: HEAD2+12
Function Call: WRITE	Prompt: !?17,"REPORT DATES: ",BCHBDD," TO ",BCHEDD,! Line Location: HEAD2+13
Function Call: WRITE	Prompt: !,"REFERRALS TO CHR FROM",?25,"# REFERRALS",?44,"REFERRALS BY CHR TO",?69,"# REFERRALS" 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+7
^BCHTREF - [#90002.52]	REF+11, REF+12
^VA(200 - [#200]	HEAD2+3, HEAD2+9
^XTMP("BCHRC2"	START+3, REF+4, REF+5, REF+6, REF+7, REF+8, REF+9, DONE+2!

Name	Field # of Occurrence
^(0	REF+11, REF+12, HEAD2+7

Name	Field # of Occurrence
>> BCHBD	START+2
>> BCHBDD	START+2*, HEAD2+13
>> BCHBT	REF+4, REF+5, REF+6
BCHBTH	START+3, REF+7, REF+8, REF+9, DONE+2!
>> BCHCHR1	HEAD2+9
>> BCHDT	START+1*, HEAD2+3
>> BCHED	START+2
>> BCHEDD	START+2*, HEAD2+13
>> BCHF	REF+8*, REF+11
>> BCHFT	REF+6*, REF+11
BCHJOB	START+3, REF+4, REF+5, REF+6, REF+7, REF+8, REF+9, DONE+2!
>> BCHPG	START+4, HEAD2+1, HEAD2+3
>> BCHPRG	HEAD2+7
>> BCHPROGN	HEAD2+7*, HEAD2+8, HEAD2+9
>> BCHPROVN	HEAD2+9*, HEAD2+10
>> BCHPROVT	HEAD2+9
BCHQUIT	START+4!, REF+3, REF+7, REF+10, HEAD+1*
>> BCHREF	REF+7*, REF+8, REF+9, REF+11, REF+12
>> BCHREGN	HEAD2+11, HEAD2+12
>> BCHT	REF+9*, REF+12
>> BCHTT	REF+6*, REF+12
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD2+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	REF+3, REF+10
IOST	REF+1, HEAD+1
U	REF+11, REF+12, HEAD2+3, HEAD2+7, HEAD2+9
>> X	START+1, HEAD2+7, HEAD2+8, HEAD2+9, HEAD2+10, HEAD2+11*, HEAD2+12
>> Y	START+1, START+2, HEAD+1