Routine: BGP4DG

Package	Total	Call Graph
IHS GPRA Information System	5	^BGP4D1 ^BGP4DP PT^BGP4DSL TAXCHK^BGP4TXCH ($$D,$$RZERO,EXCELGS,GS,REPORT)^BGP4UTL
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	3	^DIC ^DIK ^DIR
IHS Patient	1	KILL^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
CHKY	;
SUM	;display summary of this report
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
EXPORT	;export to area or not?
TSKMN	;EP ENTRY POINT FROM TASKMAN
HOME	;
BY	;get baseline year
NODEV	;
OLD	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y)	;EP - Center X in a field Y wide.
TP	;get time period
EISSEX	;
ZIS	;call to XBDBQUE
F	;fiscal year
DRIVER	;
XIT	;
NODEV1	;
GI	;gather all gpra indicators
LISTS	;any lists with indicators?
INTRO	;
COMM	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+10
^%ZISC	DRIVER+4, NODEV1+3, XIT+1
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	XIT+5, XIT+10
^BGP4D1	DRIVER+1, NODEV1+1
^BGP4DP	DRIVER+3, NODEV1+2
PT^BGP4DSL	SUM+11
TAXCHK^BGP4TXCH	INTRO+10
$$D^BGP4UTL	EISSEX+7
$$RZERO^BGP4UTL	EISSEX+5
EXCELGS^BGP4UTL	DRIVER+6, NODEV1+5
GS^BGP4UTL	DRIVER+5, NODEV1+4
REPORT^BGP4UTL	ZIS+1
^DIC	COMM+7
^DIK	ZIS+11, ZIS+12, ZIS+13
^DIR	TP+4, TP+16, BY+5, EXPORT+2, EOP+5, CHKY+2, F+6
^XBDBQUE	NODEV+2, OLD+2
^XBFMK	COMM+4, XIT+11
EN^XBVK	XIT+2
$$FMTE^XLFDT	TP+14, BY+17, BY+18, BY+19, SUM+4, SUM+5, SUM+6
$$NOW^XLFDT	EISSEX+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS FY04 GPRA Clinical Performance Indicator Report",80) Line Location: BGP4DG+5
Function Call: WRITE	Prompt: !!,"This will produce a GPRA Indicator Report for all GPRA indicators for a" Line Location: INTRO+2
Function Call: WRITE	Prompt: !,"year period you specify. You will be asked to provide: 1) the" Line Location: INTRO+3
Function Call: WRITE	Prompt: !,"reporting period, 2) the baseline period to compare data to, and 3) the ",!,"Community taxonomy to determine which patients will be included." Line Location: INTRO+4
Function Call: WRITE	Prompt: !!,"You can choose to export this data to the Area office. If you" Line Location: INTRO+5
Function Call: WRITE	Prompt: !,"answer yes at the export prompt, a report will be produced in export format" Line Location: INTRO+6
Function Call: WRITE	Prompt: !,"for the Area Office to use in Area aggregated data. Depending on site specific" Line Location: INTRO+7
Function Call: WRITE	Prompt: !,"configuration, the export file will either be automatically transmitted " Line Location: INTRO+8
Function Call: WRITE	Prompt: !,"directly to the Area or the site will have to send the file manually.",! Line Location: INTRO+9
Function Call: WRITE	Prompt: !,"Year not entered.",! Line Location: TP+8
Function Call: WRITE	Prompt: !!,"Enter the Baseline Year to compare data to (at least 2 years prior to Current).",!,"Use a 4 digit year, e.g. 1999, 2000" Line Location: BY+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: BY+9
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: BY+16
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: BY+17
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: BY+18
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: BY+19
Function Call: WRITE	Prompt: !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report. You should have previously created this taxonomy using",!,"QMAN or the Taxonomy Setup option. (see User Manual for more detail).",! Line Location: COMM+1
Function Call: WRITE	Prompt: !!,"There are no communities in that taxonomy." Line Location: COM1+4
Function Call: WRITE	Prompt: !!,"Home Location not found in Site File!!",!,"PHN Visits counts to Home will be calculated using clinic 11 only!!" Line Location: HOME+2
Function Call: WRITE	Prompt: !,"Your HOME location is defined as: ",$P(^DIC(4,BGPHOME,0),U)," asufac: ",$P(^AUTTLOC(BGPHOME,0),U,10) Line Location: HOME+3
Function Call: WRITE	Prompt: !!,"No lists selected.",! Line Location: LISTS+8
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF FY 04 GPRA REPORT TO BE GENERATED") Line Location: SUM+2
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: SUM+3
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: SUM+4
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: SUM+5
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: SUM+6
Function Call: WRITE	Prompt: !!,"The COMMUNITY Taxonomy to be used is: ",$P(^ATXAX(BGPTAXI,0),U) Line Location: SUM+7
Function Call: WRITE	Prompt: !,"The HOME location is: ",$P(^DIC(4,BGPHOME,0),U)," ",$P(^AUTTLOC(BGPHOME,0),U,10) Line Location: SUM+8
Function Call: WRITE	Prompt: !,"No HOME Location selected." Line Location: SUM+9
Function Call: WRITE	Prompt: !!,"All GPRA indicators will be calculated." Line Location: SUM+10
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+11
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+12
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+13
Function Call: WRITE	Prompt: !!,"The baseline year and the previous year time periods are the same.",!! Line Location: CHKY+1
Function Call: WRITE	Prompt: !!,"Enter the Fiscal Year (FY) for the the report END date.",!,"Use a 4 digit year, e.g. 2004" Line Location: F+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+10
Routine Call	DIC Line Location: COMM+7
Routine Call	DIR Line Location: TP+4 TP+16 BY+5 EXPORT+2 EOP+5 CHKY+2 F+6
Routine Call	%ZIS Line Location: ZIS+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls
^BGPGPDCF - [#90244.03]	Classic Fileman Calls
^BGPGPDPF - [#90244.04]	Classic Fileman Calls
^BGPGPDBF - [#90244.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	EISSEX+3
^ATXAX - [#9002226]	COMM+6, COM1+1, COM1+2, SUM+7
^AUTTLOC - [#9999999.06]	HOME+3, EISSEX+7, SUM+8, ZIS+5
^AUTTSITE(1	EISSEX+3, EISSEX+4
^BGPINDF("GPRA"	GI+1
^BGPSITE - [#90241.02]	COMM+6, HOME+1
^DIC(4 - [#4]	HOME+3, SUM+8, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGP4DG+5, SUM+2
BY	BY+9, BY+20
CHKY	BY+20
COMM	COM1+4
F	TP+7, F+10
GI	HOME+2
LISTS	SUM+12
NODEV	ZIS+9
TP	TP+8, TP+13, BY+6, BY+7, EXPORT+3
TSKMN	ZIS+14
XIT	INTRO+1, TP+1, TP+5, ZIS+2, ZIS+3, ZIS+9, ZIS+11, ZIS+12, ZIS+13, DRIVER+7 , TSKMN+5, NODEV1+6, OLD+3

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ZIS+9!, ZIS+10!*
A	XIT+7!
B	COMM+6*, XIT+7!
BD	XIT+9!
BGPBBD	BY+12*, BY+19, BY+20!, SUM+6
>> BGPBD	TP+3, TP+9, TP+10, TP+11, TP+12*, TP+14, BY+12, BY+14, BY+17, EISSEX+7 , SUM+4
BGPBED	BY+13*, BY+19, BY+20!, SUM+6
>> BGPBEN	TP+2*
>> BGPDELT	ZIS+9, ZIS+10
>> BGPDO	TP+13, TP+16, TP+17, TP+18*
>> BGPED	TP+3, TP+9, TP+10, TP+11, TP+12*, TP+13, TP+14, BY+13, BY+15, BY+17 , EISSEX+7, SUM+4
>> BGPEXCEL	EISSEX+1*, ZIS+7, DRIVER+6, NODEV1+5
>> BGPEXPT	EXPORT+1, EXPORT+4, ZIS+4, ZIS+7, DRIVER+5, DRIVER+6, NODEV1+4, NODEV1+5
>> BGPFN	EISSEX+7*, ZIS+8
>> BGPHOME	HOME+1*, HOME+2, HOME+3, SUM+8, SUM+9
>> BGPIND(	GI+1*
>> BGPINDT	GI+2*
>> BGPNOW	EISSEX+5*, EISSEX+7
BGPPBD	BY+14*, BY+18, BY+20!, SUM+5
BGPPED	BY+15*, BY+18, BY+20!, SUM+5
>> BGPPER	TP+8, TP+9, TP+10, TP+11, TP+12, BY+10, F+1, F+11
>> BGPQTR	TP+6*, TP+9, TP+10, TP+11, TP+12
>> BGPQUIT	ZIS+2
>> BGPROT	SUM+12, ZIS+9
>> BGPRPT	ZIS+3, ZIS+5, ZIS+11, ZIS+12, ZIS+13
>> BGPRTYPE	TP+2*
BGPTAX	COMM+2!, COM1+4
BGPTAX(	COM1+2*
>> BGPTAXI	COMM+3, COMM+9, COM1+1, COM1+2, SUM+7
>> BGPTP	TP+3*
>> BGPUF	EISSEX+2, EISSEX+3, EISSEX+4*, EISSEX+6, ZIS+5, ZIS+8
>> BGPVDT	BY+1, BY+8, BY+10, F+1, F+9, F+11
C	XIT+7!
D	XIT+7!
DA	TP+4!, TP+16!, EXPORT+2!, ZIS+11, ZIS+12, ZIS+13*, CHKY+2!
DFOUT	EOP+4!
DIADD	XIT+4!
DIC	COMM+5!*, COMM+7!
DIC("A"	COMM+5*
DIC("B"	COMM+6*
DIC("S"	COMM+5*
DIC(0	COMM+5*
DIK	ZIS+11!, ZIS+12!, ZIS+13*!
DIR	TP+4!, TP+16!, BY+5!, EXPORT+2!, XIT+3!, EOP+3~, EOP+4!, EOP+5!, CHKY+2!, F+6!
DIR("?"	F+5*
DIR("A"	TP+4, TP+16, BY+4, EXPORT+2, CHKY+2, F+4
DIR("B"	TP+16, CHKY+2
DIR(0	TP+4, TP+16, BY+3, EXPORT+2, EOP+5, CHKY+2, F+3*
DIRUT	TP+5, TP+17, BY+6, BY+7, EXPORT+3, XIT+3!, CHKY+3, F+7, F+8
DIRUTUT	EOP+4!
DLAYGO	XIT+4!
DLOUT	EOP+4!
DOD	XIT+3!
DT	TP+13
DTOUT	EOP+4!
DUOUT	BY+7, XIT+3!, EOP+4!, F+8
DUZ	USR+1
DUZ(2	COMM+6, HOME+1, EISSEX+7, ZIS+5, LOC+1
E	XIT+7!
ED	XIT+9!
F	XIT+7!
G	XIT+7!
H	XIT+7!
I	XIT+7!
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+14
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGP4DG+4, SUM+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+9!, ZIS+10!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
>> IOT	EOP+2
J	XIT+7!
K	XIT+7!
L	XIT+7!
M	XIT+7!
N	XIT+7!, XIT+8!
N1	XIT+8!
N2	XIT+8!
N3	XIT+8!
N4	XIT+8!
N5	XIT+8!
N6	XIT+8!
O	XIT+7!
P	XIT+7!
>> POP	ZIS+11, ZIS+12, ZIS+13
Q	XIT+7!
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	COMM+6, COM1+2, HOME+1, HOME+3, EISSEX+3, EISSEX+4, EISSEX+7, SUM+7, SUM+8, ZIS+5 , USR+1, LOC+1
V	XIT+7!
W	XIT+7!
X	BY+10, BY+11, BY+12, BY+13, COM1, COM1+1, COM1+2, GI+1*, XIT+6!, XIT+7! , CTR~, CTR+1
X1	XIT+6!
X2	XIT+6!
X3	XIT+6!
X4	XIT+6!
X5	XIT+6!
X6	XIT+6!
>> XBNS	NODEV+1, OLD+1
>> XBRC	NODEV+1, OLD+1
>> XBRP	NODEV+1, OLD+1
>> XBRX	NODEV+1, OLD+1
Y	TP+6, TP+18, BY+8, BY+9, BY+20!, COMM+8, COMM+9, GI+1, EXPORT+4, XIT+7! , CTR~, CTR+1, CHKY+3, F+9, F+10
Z	XIT+7!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	EISSEX+6, EOP+2
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP4DG

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: