Routine: BCHRP2P

Information

BCHRP2P ; 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: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !?28,"CHR/PCC ACTIVITY REPORT" Line Location: HEAD2+3
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?58,BCHDT,?72,"Page ",BCHPG,! Line Location: HEAD2+4
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! 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+9
Function Call: WRITE	Prompt: !?17,"REPORT DATES: ",BCHBDD," TO ",BCHEDD,! Line Location: HEAD2+10
Function Call: WRITE	Prompt: !?45,"# Activities",?60,"ACT TIME (hrs)" Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+12
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^BCHTPROG - [#90002.51]	HEAD2+6
^VA(200 - [#200]	HEAD2+4
^XTMP("BCHRP2"	PROG+1, DONE+2!, LOC+1, PROV+1, ACT+1, ACT+3

Name	Line Occurrences
@(	START+4
ACT	PROV+5
HEAD	PROG+3, PROG+7, LOC+3, LOC+7, PROV+3, PROV+7, ACT+2
LOC	PROG+5
PROV	LOC+5

Name	Field # of Occurrence
^(	ACT+3
^(0	HEAD2+6

Name	Field # of Occurrence
>> BCHACT	ACT+1*, ACT+3, ACT+4
>> BCHAT	ACT+3*, ACT+4, ACT+6
>> BCHATOT	START+3*
>> BCHATOT("AT"	PROG+2, PROG+10, ACT+6
>> BCHATOT("P"	PROG+2, ACT+7
>> BCHATOT("R"	PROG+2, PROG+10, ACT+5
>> BCHBD	START+2
>> BCHBDD	START+2*, HEAD2+10
>> BCHBT	ACT+3
BCHBTH	PROG+1, DONE+2!, LOC+1, PROV+1, ACT+1
>> BCHDT	START+1*, HEAD2+4
>> BCHED	START+2
>> BCHEDD	START+2*, HEAD2+10
>> BCHFTOT	START+3*
BCHJOB	PROG+1, DONE+2!, LOC+1, PROV+1, ACT+1, ACT+3
>> BCHLOC	LOC+1*, LOC+4, PROV+1, ACT+1, ACT+3
>> BCHLTOT("AT"	LOC+2, LOC+9, ACT+6
>> BCHLTOT("P"	LOC+2, ACT+7
>> BCHLTOT("R"	LOC+2, LOC+9, ACT+5
>> BCHPAT	ACT+3*, ACT+7
>> BCHPG	START+3, HEAD2+1, HEAD2+4
>> BCHPRG	HEAD2+6
>> BCHPROG	PROG+1*, PROG+4, LOC+1, PROV+1, ACT+1, ACT+3
>> BCHPROGN	HEAD2+6*, HEAD2+7
>> BCHPROV	PROV+1*, PROV+4, ACT+1, ACT+3
>> BCHPTOT	START+3*
>> BCHPTOT("AT"	PROV+2, PROV+9, ACT+6
>> BCHPTOT("P"	PROV+2, ACT+7
>> BCHPTOT("R"	PROV+2, PROV+9, ACT+5
BCHQUIT	START+5!, PROG+1, PROG+3, PROG+6, PROG+7, LOC+1, LOC+3, LOC+6, LOC+7, PROV+1 , PROV+3, PROV+6, PROV+7, ACT+1, ACT+2, HEAD+1*
>> BCHREC	ACT+3*, ACT+4, ACT+5
>> BCHREGN	HEAD2+8, HEAD2+9
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD2+4
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PROG+3, PROG+7, LOC+3, LOC+7, PROV+3, PROV+7, ACT+2
IOST	START+4, HEAD+1
U	ACT+3, HEAD2+4, HEAD2+6
>> X	START+1, HEAD2+6, HEAD2+7, HEAD2+8, HEAD2+9
>> Y	START+1, START+2, HEAD+1