Routine: BGP8CP

Package	Total	Call Graph
IHS GPRA Information System	3	$$RPTVER^BGP8BAN $$DSCH^BGP8CU $$DATE^BGP8UTL
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^BGP8BAN $$DSCH^BGP8CU $$DATE^BGP8UTL

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	BGP8CL BGP8CP1 BGP8CP11 BGP8CP2 BGP8CP3 BGP8CP4 BGP8CP5 BGP8CP6 BGP8CPU BGP8CPU2 BGP8CPU3 BGP8CPU4

Package

Total

Caller Graph

IHS GPRA Information System

BGP8CL BGP8CP1 BGP8CP11 BGP8CP2 BGP8CP3 BGP8CP4 BGP8CP5 BGP8CP6
BGP8CPU BGP8CPU2 BGP8CPU3 BGP8CPU4

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^BGP8BAN	HEADER1+5, HEADER+5
$$DSCH^BGP8CU	LIST1+23, LIST1+27
$$DATE^BGP8UTL	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 2008 CMS Hospital Quality Reporting Initiative *",80) Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP8BAN,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(^BGPCMSME(BGPPLSTL,71)),U) Line Location: HEADER1+12
Function Call: WRITE	Prompt: !,$P($G(^BGPCMSME(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 2008 CMS Hospital Quality Reporting Initiative *",80) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP8BAN,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
^BGPCMSIE - [#90535.01]	HEADER1+8
^BGPCMSME - [#90535.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("BGP8C1"	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, HEADER+2
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: BGP8CP

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: