Routine: BCHRP3P

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
LOC	;
HEAD	;I 'BCHPG G HEAD1
HEAD2	; if printer
HEAD1	; if terminal
PROV	;
START	;
DONE	;
ACT	;
PROG	;
PROB	;

External References

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

Interaction Calls

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: !,$P(^VA(200,DUZ,0),U,2),?33,BCHDT,?70,"Page ",BCHPG,! Line Location: HEAD2+3
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?24,"ACTIVITY REPORT BY HEALTH PROBLEM",! 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: !?52,"# Activities",?66,"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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRP3P

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: