Routine: BGP7DAP

Package	Total	Call Graph
IHS GPRA Information System	9	^BGP7D1 ENDDATE^BGP7DGPU ^BGP7DP EN^BGP7DSI (EN,PT,RT,TEXT)^BGP7DSL PAUSE^BGP7DU REPORT^BGP7UTL $$DEMOCHK^BGP7UTL2 TAXCHK^BGP7XTCH
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	2	^DIK ^DIR
IHS Patient	1	KILL^AUPNPAT

Entry Points

Name	Comments	DBIA/ICR reference
BEN	;
CHKY	;
DI	;
SUM	;display summary of this report
WI	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
TSKMN	;EP ENTRY POINT FROM TASKMAN
HOME	;
BY	;get baseline year
NODEV	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
TP	;get time period
PI	;
XIT	;
CI	;
EI	;
ZIS	;call to XBDBQUE
F	;calendar year
AI	;
DRIVER	;
II	;
COMM	;
SETIND	;
GI	;gather all measures
ZIS1	;
LISTS	;any lists with measures?
SI	;
INTRO	;
NODEV1	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+5
^%ZISC	DRIVER+4, NODEV1+3, XIT+1
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	XIT+5, XIT+10
^BGP7D1	DRIVER+1, NODEV1+1
ENDDATE^BGP7DGPU	TP+6
^BGP7DP	DRIVER+3, NODEV1+2
EN^BGP7DSI	SI+2
EN^BGP7DSL	LISTS+9
PT^BGP7DSL	SUM+16
RT^BGP7DSL	LISTS+11
TEXT^BGP7DSL	SUM+14
PAUSE^BGP7DU	GI+11
REPORT^BGP7UTL	ZIS+1
$$DEMOCHK^BGP7UTL2	GI+10
TAXCHK^BGP7XTCH	GI+9
^DIK	ZIS1+1, ZIS1+2, ZIS1+3
^DIR	SETIND+6, TP+3, TP+20, BY+5, BEN+4, LISTS+4, LISTS+5, EOP+5, CHKY+2, F+6
^XBDBQUE	NODEV+2
^XBFMK	XIT+11
EN^XBVK	XIT+2
$$FMADD^XLFDT	TP+14
$$FMTE^XLFDT	TP+18, BY+17, BY+18, BY+19, SUM+4, SUM+5, SUM+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS 2017 Clinical Performance Measure Report (Selected Measures)",80) Line Location: BGP7DAP+5
Function Call: WRITE	Prompt: !,$$CTR("Report on all Patients regardless of Community of Residence",80),!! Line Location: BGP7DAP+6
Function Call: WRITE	Prompt: !,"This will produce a Performance Measure Report for one or more measures 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 and, 2) the baseline period to compare data to." Line Location: INTRO+4
Function Call: WRITE	Prompt: !!,"NOTE: With this option all patients in your database will be reviewed",!,"regardless of what community they live in. You will NOT be asked to enter",!,"a community taxonomy name. Since this may cause the report to be",! Line Location: INTRO+5
Function Call: WRITE	Prompt: "very large, the SEL option will be limited to no more than 15 topics",!,"at one time.",! Line Location: INTRO+6
Function Call: WRITE	Prompt: !!,"no measures selected" Line Location: GI+8
Function Call: WRITE	Prompt: !!,"Exiting Report....." Line Location: GI+11
Function Call: WRITE	Prompt: !,"Year not entered.",! Line Location: TP+8
Function Call: WRITE	Prompt: !!,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 2010" 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,"Report 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: !!,"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: !,$$CTR("SUMMARY OF 2017 CLINICAL MEASURE PERFORMANCE 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,"Report 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: !!,"ALL Communities included." Line Location: SUM+8
Function Call: WRITE	Prompt: !,"The HOME location is: ",$P(^DIC(4,BGPHOME,0),U)," ",$P(^AUTTLOC(BGPHOME,0),U,10) Line Location: SUM+9
Function Call: WRITE	Prompt: !,"No HOME Location selected." Line Location: SUM+10
Function Call: WRITE	Prompt: $P(^BGPINDG(X,0),U,3)," ; " Line Location: SUM+11
Function Call: WRITE	Prompt: !!,"Lists will be produced for these measures: " Line Location: SUM+12
Function Call: WRITE	Prompt: $P(^BGPINDG(X,0),U,3)," ; " Line Location: SUM+13
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS1+1
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS1+2
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS1+3
Function Call: WRITE	Prompt: !!,"PATIENT LISTS" Line Location: LISTS+2
Function Call: WRITE	Prompt: !!,"You do not have the security access to print patient lists.",!,"Please see your supervisor or program manager if you feel you should have",!,"the BGPZ PATIENT LISTS security key.",! Line Location: LISTS+3
Function Call: WRITE	Prompt: !!,"No lists selected.",! Line Location: LISTS+10
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 Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2017" Line Location: F+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+10
Routine Call	DIR Line Location: SETIND+6 TP+3 TP+20 BY+5 BEN+4 LISTS+4 LISTS+5 EOP+5 CHKY+2 F+6
Routine Call	%ZIS Line Location: ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BGPGPDCG - [#90558.03]	Classic Fileman Calls
^BGPGPDPG - [#90558.04]	Classic Fileman Calls
^BGPGPDBG - [#90558.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	SUM+7
^AUTTLOC - [#9999999.06]	HOME+3, SUM+9
^BGPINDG - [#90558.01]	SUM+11, SUM+13
^BGPINDGC - [#90558.02]	DI+1, II+1, PI+1, CI+1, AI+1, WI+1, EI+1
^BGPINDGC("AAST"	AI+1
^BGPINDGC("ACARD"	CI+1
^BGPINDGC("ADM"	DI+1
^BGPINDGC("AEL"	EI+1
^BGPINDGC("AIPC"	II+1
^BGPINDGC("APQA"	PI+1
^BGPINDGC("AWH"	WI+1
^BGPSITE - [#90241.02]	HOME+1
^DIC(4 - [#4]	HOME+3, SUM+9, LOC+1
^VA(200 - [#200]	USR+1
^XUSEC("BGPZ PATIENT LISTS"	LISTS+3

Label References

Name	Line Occurrences
$$CTR	BGP7DAP+5, BGP7DAP+6, SUM+2
AI	GI+6
BEN	HOME+2
BY	BY+9, BY+20
CHKY	BY+20
CI	GI+2
COMM	BEN+5
DI	GI+1
F	TP+7, F+10
II	GI+4
LISTS	HOME+4, SUM+15, SUM+17, SI+4, LISTS+11
NODEV	ZIS+4
PI	GI+5
SETIND	SETIND+9, GI+8
SI	SETIND+9
TP	TP+8, TP+17, BY+6, BY+7
TSKMN	ZIS1+4
WI	GI+3
XIT	INTRO+1, SETIND+1, SETIND+7, GI+11, TP+4, ZIS+2, ZIS+3, ZIS+4, ZIS1+1, ZIS1+2 , ZIS1+3, DRIVER+5, NODEV1+4, TSKMN+5

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+4!, ZIS+5*
A	XIT+7!
B	XIT+7!
BD	XIT+9!
>> BGPALLPT	COMM+2*, SUM+7, SUM+8
BGPBBD	BY+12*, BY+19, BY+20!, SUM+6
>> BGPBD	TP+2, TP+9, TP+10, TP+11, TP+12, TP+15, TP+16*, TP+18, BY+12, BY+14 , BY+17, SUM+4
BGPBED	BY+13*, BY+19, BY+20!, SUM+6
>> BGPBEN	BEN+1, BEN+6
>> BGPDELT	ZIS+4, ZIS+5
>> BGPDO	TP+17, TP+20, TP+21, TP+22*
>> BGPED	TP+2, TP+9, TP+10, TP+11, TP+12, TP+15, TP+16*, TP+17, TP+18, BY+13 , BY+15, BY+17, SUM+4
>> BGPHOME	HOME+1*, HOME+2, HOME+3, SUM+9, SUM+10
BGPIND	SETIND+9, GI+8, SI+1!, SI+3
BGPIND(	SUM+11, DI+1, II+1, PI+1, CI+1, AI+1, WI+1, EI+1*
>> BGPINDG	SETIND+2, SETIND+8, SETIND+9, GI+1, GI+2, GI+3, GI+4, GI+5, GI+6, HOME+4
BGPLIST	LISTS+1!, LISTS+8!, LISTS+10, LISTS+11
BGPLIST(	SUM+13
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, TP+14, TP+15, TP+16, BY+10, F+1* , F+11*
>> BGPQTR	TP+5*, TP+6, TP+7, TP+9, TP+10, TP+11, TP+12, TP+13
BGPQUIT	COMM+3!, ZIS+2, LISTS+11
>> BGPROT	SUM+17, ZIS+4
>> BGPRPT	ZIS+3, ZIS1+1, ZIS1+2, ZIS1+3
>> BGPRTYPE	SETIND+3, TP+1
BGPTAX	COMM+1!
>> BGPTAXI	SUM+7
>> BGPTP	TP+2*
>> BGPVDT	BY+1, BY+8, BY+10, F+1, F+9, F+11
>> BGPYRPTH	SETIND+3, TP+1
C	XIT+7!
D	TP+14*, TP+15, TP+16, XIT+7!
DA	SETIND+6!, TP+3!, TP+20!, BEN+4!, ZIS1+1, ZIS1+2, ZIS1+3*, LISTS+5!, CHKY+2!
DFOUT	EOP+4!
DIADD	XIT+4!
DIK	ZIS1+1!, ZIS1+2!, ZIS1+3*!
DIR	SETIND+6!, TP+3!, TP+20!, BY+5!, BEN+4!, LISTS+4!, LISTS+5!, XIT+3!, EOP+3~, EOP+4! , EOP+5!, CHKY+2!, F+6!
DIR("?"	F+5*
DIR("A"	SETIND+6, TP+3, TP+20, BY+4, BEN+2, LISTS+4, LISTS+5, CHKY+2, F+4*
DIR("B"	TP+20, BEN+3, LISTS+5, CHKY+2
DIR(0	SETIND+4, SETIND+5, TP+3, TP+20, BY+3, BEN+2, LISTS+4, LISTS+5, EOP+5, CHKY+2 , F+3*
DIRUT	SETIND+7, TP+4, TP+21, BY+6, BY+7, BEN+5, SUM+15, LISTS+6, XIT+3!, EOP+4! , CHKY+3, F+7, F+8
DLAYGO	XIT+4!
DLOUT	EOP+4!
DOD	XIT+3!
DT	TP+17
DTOUT	EOP+4!
DUOUT	BY+7, XIT+3!, EOP+4!, F+8
DUZ	LISTS+3, USR+1
DUZ(2	HOME+1, 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"	ZIS1+4
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGP7DAP+4, SUM+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+4!
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	ZIS1+1, ZIS1+2, ZIS1+3
Q	XIT+7!
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	HOME+1, HOME+3, SUM+7, SUM+9, SUM+11, SUM+13, DI+1, II+1, PI+1, CI+1 , AI+1, WI+1, EI+1, USR+1, LOC+1
V	XIT+7!
W	XIT+7!
X	GI+10, GI+11, BY+10, BY+11, BY+12, BY+13, SUM+11, SUM+13, DI+1, II+1* , PI+1, CI+1, AI+1, WI+1, EI+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*
>> XBRC	NODEV+1*
>> XBRP	NODEV+1*
>> XBRX	NODEV+1*
Y	SETIND+8, TP+5, TP+22, BY+8, BY+9, BY+20!, BEN+6, LISTS+6, LISTS+7, 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	XIT+2, EOP+2
>> ZTREQ	XIT+2*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7DAP

Information

Source Information

Call Graph

Call Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: