Routine: BCHRC9P

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

Package

Total

Call Graph

DD^%DT NOW^%DTC ^DIR

($$CTR,$$LOC)^BCHRLU DONE^BCHUTIL1

Name	Comments	DBIA/ICR reference
HEAD	;
HEAD2	; if printer
HEAD1	; if terminal
PROV	;
START	;
DONE	;
TOTAL	;

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",!! Line Location: START+4
Function Call: WRITE	Prompt: !,"TOTAL" Line Location: TOTAL+4
Function Call: WRITE	Prompt: ?J,$J($FN(X,",",0),10) Line Location: TOTAL+4
Function Call: WRITE	Prompt: ?J,$J($FN(X,",",0),10) Line Location: TOTAL+5
Function Call: WRITE	Prompt: ! Line Location: TOTAL+6
Function Call: WRITE	Prompt: ?J,$J($FN(X,",",0),10) Line Location: PROV+3
Function Call: WRITE	Prompt: ?J,$J($FN(X,",",0),10) Line Location: PROV+4
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. 9 ********" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !!?28,"DATA SUMMARY BY PROVIDER" 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: !,"**Note: S&T HRS stands for Service and Travel Hours" Line Location: HEAD2+11
Function Call: WRITE	Prompt: !," ADM Service is defined as service codes AM, LT and OT" Line Location: HEAD2+12
Function Call: WRITE	Prompt: !!?25,"TOT NUM OF",?36," NUMBER",?47," S&T HRS",?58," S&T HRS",?69," S&T HRS" Line Location: HEAD2+13
Function Call: WRITE	Prompt: !,"PROVIDER",?25,"SERVICES",?36," SERVED",?47," ALL SRVS",?58," NON-ADM",?69," ADM SRV" 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+6
^VA(200 - [#200]	HEAD2+2
^XTMP("BCHRC9"	START+4, TOTAL+4, TOTAL+5, PROV+1, PROV+3, PROV+4, DONE+2!

Name	Line Occurrences
@(	TOTAL+1
DONE	START+4, TOTAL+3
HEAD	TOTAL+3, PROV+2

Name	Field # of Occurrence
^(0	HEAD2+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	START+3
>> BCHBDD	START+3*, HEAD2+10
>> BCHBT	TOTAL+4, TOTAL+5, PROV+1, PROV+3, PROV+4
BCHBTH	START+4, DONE+2!
>> BCHDT	START+1*, HEAD2+2
>> BCHED	START+3
>> BCHEDD	START+3*, HEAD2+10
BCHJOB	START+4, TOTAL+4, TOTAL+5, PROV+1, PROV+3, PROV+4, DONE+2!
>> BCHPG	START+2, HEAD2+1, HEAD2+2
>> BCHPRG	HEAD2+6
>> BCHPROGN	HEAD2+6*, HEAD2+7
>> BCHPROV	PROV+1*, PROV+3, PROV+4
BCHQUIT	START+2!, TOTAL+3, PROV+1, PROV+2, HEAD+1*
>> BCHREGN	HEAD2+8, HEAD2+9
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD2+2
>> I	TOTAL+4, TOTAL+5, PROV+3, PROV+4
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	TOTAL+3, PROV+2
IOST	TOTAL+1, HEAD+1
>> J	TOTAL+4, TOTAL+5, PROV+3, PROV+4
U	TOTAL+4, TOTAL+5, PROV+3, PROV+4, HEAD2+2, HEAD2+6
>> X	START+1, TOTAL+4, TOTAL+5, PROV+3, PROV+4, HEAD2+6, HEAD2+7, HEAD2+8, HEAD2+9
>> Y	START+1, START+3, HEAD+1

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRC9P

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: