Routine: BCHRC6P

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: START+5
Function Call: WRITE	Prompt: !,"TOTAL" Line Location: START+10
Function Call: WRITE	Prompt: ?19,$J($FN(V1,",",0),7) Line Location: START+12
Function Call: WRITE	Prompt: ?26,$J($FN(V2,",",0),7) Line Location: START+13
Function Call: WRITE	Prompt: ?34,$J($FN(V3,",",0),7) Line Location: START+14
Function Call: WRITE	Prompt: ?42,$J($FN(V4,",",0),7) Line Location: START+15
Function Call: WRITE	Prompt: ?50,$J($FN(V5,",",0),7) Line Location: START+16
Function Call: WRITE	Prompt: ?58,$J($FN(V6,",",0),7) Line Location: START+17
Function Call: WRITE	Prompt: ?62,$J($FN(V7,",",0),7) Line Location: START+18
Function Call: WRITE	Prompt: ?109,$J($FN(V8,",",1),10) Line Location: START+19
Function Call: WRITE	Prompt: ?73,$J($FN(V9,",",0),7) Line Location: START+20
Function Call: WRITE	Prompt: ?19,$J($FN(V1,",",0),7) Line Location: PROV+5
Function Call: WRITE	Prompt: ?26,$J($FN(V2,",",0),7) Line Location: PROV+6
Function Call: WRITE	Prompt: ?34,$J($FN(V3,",",0),7) Line Location: PROV+7
Function Call: WRITE	Prompt: ?42,$J($FN(V4,",",0),7) Line Location: PROV+8
Function Call: WRITE	Prompt: ?109,$J($FN(V8,",",1),10) Line Location: PROV+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?56,"DATE GENERATED: ",BCHDT,?124,"Page ",BCHPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: $$CTR^BCHRLU($$LOC^BCHRLU),! Line Location: HEAD2+3
Function Call: WRITE	Prompt: !,$$CTR^BCHRLU(X,80) Line Location: HEAD2+4
Function Call: WRITE	Prompt: !!,$$CTR^BCHRLU(X,80) 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: !,$$CTR^BCHRLU(X,80) Line Location: HEAD2+10
Function Call: WRITE	Prompt: !!?20,"SERVICE",?28,"TRAVEL",?36,"LEAVE",?44,"TOTAL",?52,"0 NUM",?60,"1 NUM",?68,">1 NUM",?75,"TOT #" Line Location: HEAD2+11
Function Call: WRITE	Prompt: !,"PROVIDER",?20,"HOURS",?28,"HOURS",?36,"HOURS",?44,"HOURS",?52,"SERV",?60,"SERV",?68,"SERV",?74,"SERVED" Line Location: HEAD2+12
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+13
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^BCHTPROG - [#90002.51]	HEAD2+6
^VA(200 - [#200]	HEAD2+2
^XTMP("BCHRC6"	START+5, START+11, PROV+1, PROV+4, DONE+1!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BCHBD	START+1
>> BCHBDD	START+1*, HEAD2+10
BCHBT	START+5, START+11, PROV+1, PROV+4, DONE+1!
>> BCHDT	START+2*, HEAD2+2
>> BCHED	START+1
>> BCHEDD	START+1*, HEAD2+10
BCHJOB	START+5, START+11, PROV+1, PROV+4, DONE+1!
>> BCHPG	START+3, HEAD2+1, HEAD2+2
>> BCHPRG	HEAD2+6
>> BCHPROGN	HEAD2+6*, HEAD2+7
BCHQUIT	START+4!, START+9, PROV+1, PROV+2, HEAD+1*
>> BCHREGN	HEAD2+8, HEAD2+9
>> BCHX	PROV+1*, PROV+3, PROV+4
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+2
>> DTOUT	HEAD+1
DUZ	HEAD2+2
>> I	START+11, PROV+4
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+9, PROV+2
IOST	START+7, HEAD+1
U	START+11, PROV+4, HEAD2+2, HEAD2+6
>> V	START+11, PROV+4
>> V1	START+12, PROV+5
>> V2	START+13, PROV+6
>> V3	START+14, PROV+7
>> V4	START+15, PROV+8
>> V5	START+16, PROV+9
>> V6	START+17, PROV+10
>> V7	START+18, PROV+11
>> V9	START+20, PROV+13
>> X	HEAD2+4, HEAD2+5, HEAD2+6, HEAD2+7, HEAD2+8, HEAD2+9, HEAD2+10*
>> Y	START+1, START+2, HEAD+1

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHRC6P

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: