Routine: BGP7CP

Package	Total	Call Graph
VA Fileman	2	COMMA^%DTC ^DIR
IHS Patient	1	$$DOD^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP7CL

Entry Points

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

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
$$DOD^AUPNPAT	LIST12+7
^DIR	HDR+2, EXIT+1, EOP+5
$$FMTE^XLFDT	HEADER1+3, HEADER1+6, HEADER+5, HEADER+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: HDR1+2
Function Call: WRITE	Prompt: !!,"TOTAL VISITS: ",$G(BGPCOUNT("L1",BGPIND)) Line Location: LIST1+7
Function Call: WRITE	Prompt: !!,"TOTAL VISITS THAT WILL BE EXCLUDED: ",($G(BGPCOUNT("L1",BGPIND))-$G(BGPCOUNT("L2",BGPIND))) Line Location: LIST1+8
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST2+2
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST2+4
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST2+7
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST2+11
Function Call: WRITE	Prompt: !!,"TOTAL VISITS: ",$G(BGPCOUNT("L2",BGPIND)) Line Location: LIST2+12
Function Call: WRITE	Prompt: !!?2,"Date of Death: ",$$DOD^AUPNPAT(DFN,"E") Line Location: LIST11+7
Function Call: WRITE	Prompt: !?2,$P(BGPVAL,U,12) Line Location: LIST11+10
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST12+5
Function Call: WRITE	Prompt: !?2,"Date of Death: ",$$DOD^AUPNPAT(DFN,"E") Line Location: LIST12+7
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST13+2
Function Call: WRITE	Prompt: !?1,BGPT," ",^XTMP("BGP7C1",BGPJ,BGPH,BGPORDER,BGPIND,"LIST 2",BGPNAME,DFN,BGPVSIT,BGPY,BGPT) Line Location: LIST13+3
Function Call: WRITE	Prompt: !,$P(^BGPCMSIA(BGPIND,0),U,3)," (con't)",! Line Location: LIST13+5
Function Call: WRITE	Prompt: !?3,$P(X,"qty: ",1),!?3,"qty: ",$P(X,"qty: ",2) Line Location: LIST13+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: L1H+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?25,"HRN",?32,"SEX",?36,"AGE",?40,"HOSP DATES",?60,"ADMISSION TYPE" Line Location: L1H+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: L1H+11
Function Call: WRITE	Prompt: !,"* Visits will be excluded from Visit List that has RPMS exclusion",!,"logic applied." Line Location: L1H+12
Function Call: WRITE	Prompt: !,$$CTR("PATIENT LIST",80) Line Location: L2H+1
Function Call: WRITE	Prompt: !,$$CTR("PLEASE NOTE: The patient's chart should be reviewed",80) Line Location: L2H+11
Function Call: WRITE	Prompt: !,$$CTR("to identify other data not listed here.",80) Line Location: L2H+12
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: L2H+13
Function Call: WRITE	Prompt: !,"PATIENT NAME",?25,"HRN",?32,"SEX",?36,"AGE",?40,"HOSP DATES",?60,"ADMISSION TYPE" Line Location: L2H+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: L2H+15
Function Call: WRITE	Prompt: ! Line Location: HDR+2
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 2007 CMS Hospital Quality Reporting Initiative *",80) Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80) Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+7
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: $$CTR("Cover Page",80) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$$CTR("* IHS 2007 CMS Hospital Quality Reporting Initiative *",80) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$$CTR("CRS 2007, Version 7.0",80) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$$CTR("Hospital: "_$P(^DIC(4,BGPHOSP,0),U),80) Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$$CTR("Report Generated by: "_$$USR,80) Line Location: HEADER+7
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER+8
Function Call: WRITE	Prompt: ! Line Location: HEADER+10
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: ENDTIME+2
Routine Call	DIR Line Location: HDR+2 EXIT+1 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPCMSIA - [#90532.01]	PRINT1+4, HDR1+1, HDR1+2, HDR1+3, LIST2+2, LIST2+3, LIST2+4, LIST2+5, LIST2+7, LIST2+11 , LIST12+5, LIST13+2, LIST13+5, L1H+1, L1H+3, L1H+5, L1H+7
^BGPCTRL - [#90241.01]	HEADER+12, HEADER+14
^BGPCTRL("B"	HEADER+11
^DIC(4 - [#4]	HEADER1+5, HEADER+6
^TMP($J	PRINT+1!, END+2!
^VA(200 - [#200]	HEADER1+3, USR+1
^XTMP("BGP7C1"	END+1!, PRINT1+1, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3 , LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8

Label References

Name	Line Occurrences
$$CTR	L2H+1, L2H+3, L2H+4, L2H+6, L2H+7, L2H+9, L2H+10, L2H+11, L2H+12, HEADER1+4 , HEADER1+5, HEADER1+6, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+7, HEADER+8, ENDTIME+2
$$USR	HEADER+7
END	PRINT+6
ENDTIME	HEADER+9
EXIT	END+3
HDR	PRINT1+3, PRINT1+5, HDR1+2, LIST1+2, LIST1+6, LIST2+2, LIST2+4, LIST2+7, LIST2+11, LIST11+5 , LIST12+5, LIST13+2, LIST13+5, L1H+2, L1H+6, HEADER+13
HDR1	PRINT1+6
HEADER	PRINT+5
HEADER1	HDR+1
L1H	LIST1+3, LIST1+6, LIST11+5
L2H	LIST2+8, LIST2+11, LIST12+5, LIST13+2, LIST13+5
LIST1	PRINT1+8
LIST11	LIST1+5
LIST12	LIST2+10
LIST13	LIST12+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
>> BGPBD	HEADER1+6, HEADER+8
>> BGPBT	ENDTIME+1
>> BGPC	LIST13+4*, LIST13+6, LIST13+8
>> BGPCOUNT("L1"	LIST1+7, LIST1+8
>> BGPCOUNT("L2"	LIST1+8, LIST2+12
>> BGPED	HEADER1+6, HEADER+8
>> BGPET	ENDTIME+1
>> BGPGPG	PRINT+3, HDR+1, HEADER1+1, HEADER1+3
>> BGPGUI	PRINT+2, HEADER1+2
>> BGPH	END+1, PRINT1+1, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3 , LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPHOSP	HEADER1+5, HEADER+6
>> BGPHR	ENDTIME+1*, ENDTIME+2
>> BGPIND	PRINT1+2*, PRINT1+4, HDR1+1, HDR1+2, HDR1+3, LIST1+7, LIST1+8, LIST2+2, LIST2+3, LIST2+4 , LIST2+5, LIST2+7, LIST2+11, LIST2+12, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2 , LIST12+3, LIST12+4, LIST12+5, LIST12+9, LIST13+1, LIST13+2, LIST13+3, LIST13+4, LIST13+5, LIST13+6 , LIST13+8, L1H+1, L1H+3, L1H+5, L1H+7, L2H+2, L2H+5, L2H+8
>> BGPIOSL	PRINT+2*, PRINT1+5, HDR1+2, LIST1+6, LIST2+4, LIST2+11, LIST11+5, LIST12+5, LIST13+2, LIST13+5 , L1H+2, L1H+6, HEADER+13
>> BGPJ	END+1, PRINT1+1, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3 , LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPL1P1	LIST1+3, LIST11+5, L1H+5
BGPL2	LIST1+1!, LIST2+1*
BGPL2P1	LIST2+2!, LIST2+7*!
>> BGPM	ENDTIME+2*
>> BGPNAME	LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3, LIST12+4, LIST12+9, LIST13+1 , LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPORDER	PRINT1+1*, PRINT1+2, LIST11+1, LIST11+2, LIST11+3, LIST11+4, LIST12+1, LIST12+2, LIST12+3, LIST12+4 , LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPQUIT	PRINT+4, PRINT+6, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+7, HDR1+1, HDR1+2, LIST1+2, LIST1+4 , LIST1+6, LIST1+9, LIST2+2, LIST2+3, LIST2+4, LIST2+7, LIST2+9, LIST2+11, LIST11+1, LIST11+3 , LIST11+5, LIST12+1, LIST12+3, LIST12+5, LIST12+9, LIST13+2, LIST13+4, LIST13+5, L1H+1, L1H+2 , L1H+5, L1H+6, HDR+2, HEADER+12, HEADER+13
>> BGPS	ENDTIME+2*
>> BGPT	LIST13+1*, LIST13+3, LIST13+4, LIST13+6, LIST13+8
>> BGPTS	ENDTIME+1, ENDTIME+2
>> BGPVAL	LIST11+4, LIST11+6, LIST11+8, LIST11+9, LIST11+10, LIST12+4, LIST12+6, LIST12+8
>> BGPVSIT	LIST11+3, LIST11+4, LIST12+3, LIST12+4, LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8
BGPX	HDR1+1, HDR1+3, LIST2+3, LIST2+5, L1H+1, L1H+3, L1H+5, L1H+7, HEADER+11*, HEADER+12 , HEADER+14, HEADER+16!
>> BGPY	LIST12+9, LIST13+1, LIST13+3, LIST13+4, LIST13+6, LIST13+8, HEADER+12, HEADER+14
>> DFN	LIST11+2, LIST11+3, LIST11+4, LIST12+2, LIST12+3, LIST12+4, LIST12+7, LIST12+9, LIST13+1, LIST13+3 , LIST13+4, LIST13+6, LIST13+8
DFOUT	EOP+4!
DIR	HDR+2!, EXIT+1!, EOP+3~
DIR("A"	EXIT+1*
DIR(0	HDR+2, EXIT+1, EOP+5*
DIRUT	EXIT+1*, EOP+4!
DLOUT	EOP+4!
DT	HEADER1+3, HEADER+5
DTOUT	HDR+2, EOP+4!
DUOUT	EXIT+1, EOP+4!
DUZ	HEADER1+3, USR+1
IO	HDR+2, EXIT+1
IO("S"	EOP+2
IO(0	HDR+2, EXIT+1
IOF	HEADER1+1, HEADER+1
IOSL	PRINT+2
IOST	HDR+2, EXIT+1, EOP+1
>> IOT	EOP+2
U	PRINT1+4, HDR1+2, LIST2+2, LIST2+4, LIST2+7, LIST2+11, LIST11+6, LIST11+8, LIST11+9, LIST11+10 , LIST12+5, LIST12+6, LIST12+8, LIST13+2, LIST13+5, HEADER1+3, HEADER1+5, HEADER+6, USR+1
X	LIST13+6, LIST13+7, HEADER1+6, C~, C+2, HEADER+8, ENDTIME+2, CTR~, CTR+1
X2	C~
X3	C~
Y	HDR+2, CTR~, CTR+1
>> ZTQUEUED	HDR+2, EXIT+1, EOP+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7CP

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: