Routine: BGP0CP

Package	Total	Call Graph
IHS GPRA Information System	3	$$RPTVER^BGP0BAN $$DSCH^BGP0CU $$DATE^BGP0UTL
VA Fileman	2	COMMA^%DTC ^DIR
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

IHS GPRA Information System

$$RPTVER^BGP0BAN $$DSCH^BGP0CU $$DATE^BGP0UTL

VA Fileman

COMMA^%DTC ^DIR

IHS Patient

($$AGE,$$HRN)^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
IHS GPRA Information System	12	BGP0CL BGP0CP1 BGP0CP11 BGP0CP2 BGP0CP3 BGP0CP4 BGP0CP5 BGP0CP6 BGP0CPU BGP0CPU2 BGP0CPU3 BGP0CPU4

Package

Total

Caller Graph

IHS GPRA Information System

BGP0CL BGP0CP1 BGP0CP11 BGP0CP2 BGP0CP3 BGP0CP4 BGP0CP5 BGP0CP6
BGP0CPU BGP0CPU2 BGP0CPU3 BGP0CPU4

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;EP
END	;
HDR	;EP
HDR1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
EOP	;EP - End of page.
LIST1	;DISPLAY LIST 1
HEADER	;
USR()	;EP - Return name of current user from ^VA(200.
HEADER1	;
L1H	;EP - list one header
C(X,X2,X3)	;
PRINT	;
EXIT	;
ENDTIME	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
$$AGE^AUPNPAT	LIST1+21
$$HRN^AUPNPAT	LIST1+21
$$RPTVER^BGP0BAN	HEADER1+5, HEADER+5
$$DSCH^BGP0CU	LIST1+23, LIST1+27
$$DATE^BGP0UTL	LIST1+23, LIST1+27
^DIR	HDR+3, EXIT+1, EOP+5
$$VAL^XBDIQ1	LIST1+24, LIST1+26
$$FMTE^XLFDT	HEADER1+3, HEADER1+7, HEADER+6, HEADER+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: LIST1+6
Function Call: WRITE	Prompt: !!,"No Visits to report" Line Location: LIST1+11
Function Call: WRITE	Prompt: "*" Line Location: LIST1+20
Function Call: WRITE	Prompt: $S(BGPPEX[2!(BGPPEX[1):"*",1:"") Line Location: LIST1+23
Function Call: WRITE	Prompt: !!,"TOTAL VISITS: ",+$G(BGPCOUNT(BGPIND,BGPPLSTL)) Line Location: LIST1+32
Function Call: WRITE	Prompt: !!,"TOTAL VISITS THAT WOULD BE EXCLUDED: ",+$G(BGPEXCP(BGPIND,BGPPLSTL)) Line Location: LIST1+34
Function Call: WRITE	Prompt: !,"PATIENT NAME",?27,"HRN",?34,"SEX",?38,"AGE",?42,"HOSP DATES",?62,"ADMISSION TYPE" Line Location: L1H+3
Function Call: WRITE	Prompt: !,"PATIENT NAME",?27,"HRN",?34,"SEX",?38,"AGE",?42,"CLASS/BENEFICIARY",?64,"HOSP DATES" Line Location: L1H+4
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: L1H+5
Function Call: WRITE	Prompt: !,"*Indicates CRS would have excluded this patient based on this data if RPMS" Line Location: L1H+8
Function Call: WRITE	Prompt: !,"exclusion logic had been applied.",! Line Location: L1H+9
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: "ZZZZZZZ",! Line Location: HEADER1+2
Function Call: WRITE	Prompt: $P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPGPG,! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR("* IHS 2010 CMS Hospital Quality Reporting Initiative *",80) Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP0BAN,80) Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80) Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+9
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+11
Function Call: WRITE	Prompt: !,$P($G(^BGPCMSMT(BGPPLSTL,71)),U) Line Location: HEADER1+12
Function Call: WRITE	Prompt: !,$P($G(^BGPCMSMT(BGPPLSTL,71)),U,3) Line Location: HEADER1+13
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: $$CTR("Cover Page",80) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$$CTR("* IHS 2010 CMS Hospital Quality Reporting Initiative *",80) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP0BAN,80) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80) Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80) Line Location: HEADER+7
Function Call: WRITE	Prompt: !,$$CTR("Report Generated by: "_$$USR,80) Line Location: HEADER+8
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER+9
Function Call: WRITE	Prompt: ! Line Location: HEADER+11
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: ENDTIME+2
Routine Call	DIR Line Location: HDR+3 EXIT+1 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	LIST1+16
^AUPNVSIT - [#9000010]	LIST1+15
^BGPCMSIT - [#90379.01]	HEADER1+8
^BGPCMSMT - [#90379.07]	HDR1+2, HDR1+4, LIST1+2, LIST1+3, LIST1+5, LIST1+6, LIST1+22, LIST1+25, LIST1+29, LIST1+33 , L1H+3, L1H+4, L1H+7, HEADER1+9, HEADER1+10
^BGPCTRL - [#90241.01]	HEADER+13, HEADER+15
^BGPCTRL("B"	HEADER+12
^DIC(4 - [#4]	HEADER1+6, HEADER+7
^DPT - [#2]	LIST1+21
^TMP($J	PRINT+1!, END+2!
^VA(200 - [#200]	HEADER1+3, USR+1
^XTMP("BGP0C1"	END+1!, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19

Label References

Name	Line Occurrences
$$CTR	HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, HEADER+3, HEADER+4, HEADER+5 , HEADER+6, HEADER+7, HEADER+8, HEADER+9, ENDTIME+2
$$USR	HEADER+8
END	PRINT+6
ENDTIME	HEADER+10
EXIT	END+3
HDR	PRINT1+4, HDR1+3, LIST1+2, LIST1+4, LIST1+17, LIST1+31, L1H+1, HEADER+14
HDR1	PRINT1+6
HEADER	PRINT+5
HEADER1	HDR+2
L1H	LIST1+8, LIST1+17, LIST1+31
LIST1	PRINT1+9
PRINT1	PRINT+7

Name	Field # of Occurrence
^(0	USR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BGPAST	LIST1+10*
>> BGPBD	HEADER1+7, HEADER+9
>> BGPBT	ENDTIME+1
>> BGPCOUNT(	LIST1+28*, LIST1+32
>> BGPED	HEADER1+7, HEADER+9
>> BGPET	ENDTIME+1
>> BGPEXCP(	LIST1+20*, LIST1+34
>> BGPGPG	PRINT+3, HDR+2, HEADER1+1, HEADER1+3
>> BGPGUI	PRINT+2, HEADER1+2
>> BGPH	END+1, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19
>> BGPHOSP	HEADER1+6, HEADER+7
>> BGPHR	ENDTIME+1*, ENDTIME+2
>> BGPIND	PRINT1+1*, PRINT1+2, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19, LIST1+20, LIST1+23, LIST1+28 , LIST1+32, LIST1+34, HEADER1+8
>> BGPIOSL	PRINT+2*, HDR1+3, LIST1+4, LIST1+17, LIST1+31, L1H+1, HEADER+14
>> BGPJ	END+1, LIST1+11, LIST1+12, LIST1+13, LIST1+14, LIST1+19
>> BGPL1P1	PRINT1+3, PRINT1+8, HEADER1+15*
BGPL2	LIST1+1!
>> BGPM	ENDTIME+2*
>> BGPNAME	LIST1+12*, LIST1+13, LIST1+14, LIST1+19, LIST1+21
>> BGPPEX	LIST1+19*, LIST1+20, LIST1+23
>> BGPPLSTL	PRINT1+2*, HDR1+2, HDR1+4, LIST1+2, LIST1+3, LIST1+5, LIST1+6, LIST1+11, LIST1+12, LIST1+13 , LIST1+14, LIST1+19, LIST1+20, LIST1+22, LIST1+25, LIST1+28, LIST1+29, LIST1+32, LIST1+33, LIST1+34 , L1H+3, L1H+4, L1H+7, HEADER1+9, HEADER1+10
>> BGPPLSTL(	PRINT1+1, PRINT1+2
>> BGPQUIT	PRINT+4, PRINT+6, PRINT1+1, PRINT1+2, PRINT1+5, PRINT1+7, HDR1+2, HDR1+3, LIST1+3, LIST1+4 , LIST1+7, LIST1+9, LIST1+12, LIST1+13, LIST1+14, LIST1+17, LIST1+30, LIST1+31, L1H+1, HDR+3 , HEADER+13, HEADER+14
>> BGPS	ENDTIME+2*
>> BGPTEXD	HDR1+1, LIST1+2, HEADER+1
>> BGPTS	ENDTIME+1, ENDTIME+2
>> BGPVINP	LIST1+16*, LIST1+23, LIST1+24, LIST1+27
>> BGPVSIT	LIST1+14*, LIST1+15, LIST1+16, LIST1+19
>> BGPVSIT0	LIST1+15*, LIST1+21, LIST1+23, LIST1+27
BGPX	HDR1+2, HDR1+4, LIST1+3, LIST1+5, HEADER+12*, HEADER+13, HEADER+15, HEADER+17!
>> BGPY	HEADER+13*, HEADER+15
>> DFN	LIST1+13*, LIST1+14, LIST1+19, LIST1+21, LIST1+26
DFOUT	EOP+4!
DIR	HDR+3!, EXIT+1!, EOP+3~
DIR("A"	EXIT+1*
DIR(0	HDR+3, EXIT+1, EOP+5*
DIRUT	EXIT+1*, EOP+4!
DLOUT	EOP+4!
DT	HEADER1+3, HEADER+6
DTOUT	HDR+3, EOP+4!
DUOUT	EXIT+1, EOP+4!
DUZ	HEADER1+3, USR+1
DUZ(2	LIST1+21
IO	HDR+3, EXIT+1
IO("S"	EOP+2
IO(0	HDR+3, EXIT+1
IOF	HEADER1+1
IOSL	PRINT+2
IOST	HDR+3, EXIT+1, EOP+1
>> IOT	EOP+2
U	LIST1+21, LIST1+22, LIST1+23, LIST1+25, LIST1+27, LIST1+33, L1H+3, L1H+4, L1H+7, HEADER1+3 , HEADER1+6, HEADER1+8, HEADER1+9, HEADER1+10, HEADER+7, USR+1
X	HDR+1~, HEADER1+7, HEADER1+8, HEADER1+9, HEADER1+10, C~, C+2, HEADER+9, ENDTIME+2, CTR~ , CTR+1
X2	C~
X3	C~
Y	HDR+1~, HDR+3, CTR~, CTR+1
Z	HDR+1~
>> ZTQUEUED	HDR+3, EXIT+1, EOP+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP0CP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: