Routine: BGP0CP

Information

BGP0CP ; IHS/CMI/LAB - IHS gpra print 02 Jul 2009 9:06 AM ;

Call Graph

Call Graph Total: 8

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	Caller Graph
IHS GPRA Information System	12	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

Naked Globals

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: