Routine: BGP3DAP

Information

BGP3DAP ; IHS/CMI/LAB - IHS GPRA 04 SELECTED REPORT DRIVER ALL PATIENTS ;

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
IHS GPRA Information System	9	^BGP3D1 ENDDATE^BGP3DGPU ^BGP3DP EN^BGP3DSI (EN,PT,RT)^BGP3DSL PAUSE^BGP3DU REPORT^BGP3UTL $$DEMOCHK^BGP3UTL2 TAXCHK^BGP3XTCH
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^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
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
MFIC
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
^BGP3D1	DRIVER+1, NODEV1+1
ENDDATE^BGP3DGPU	TP+6
^BGP3DP	DRIVER+3, NODEV1+2
EN^BGP3DSI	SI+2
EN^BGP3DSL	LISTS+9
PT^BGP3DSL	SUM+15
RT^BGP3DSL	LISTS+11
PAUSE^BGP3DU	GI+11
REPORT^BGP3UTL	ZIS+1
$$DEMOCHK^BGP3UTL2	GI+10
TAXCHK^BGP3XTCH	GI+9
^DIC	MFIC+11
^DIK	ZIS1+1, ZIS1+2, ZIS1+3
^DIR	SETIND+6, TP+3, TP+17, BY+5, BEN+4, LISTS+4, LISTS+5, EOP+5, CHKY+2, F+6
^XBDBQUE	NODEV+2
^XBFMK	MFIC+8, XIT+11
EN^XBVK	XIT+2
$$FMADD^XLFDT	TP+13
$$FMTE^XLFDT	TP+15, BY+17, BY+18, BY+19, SUM+4, SUM+5, SUM+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS 2013 Clinical Performance Measure Report (Selected Measures)",80) Line Location: BGP3DAP+5
Function Call: WRITE	Prompt: !,$$CTR("Report on all Patients regardless of Community of Residence",80),!! Line Location: BGP3DAP+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. 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,"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 2013 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 MFI Location Taxonomy to be used is: ",$P(^ATXAX(BGPMFITI,0),U) Line Location: SUM+9
Function Call: WRITE	Prompt: !,"The HOME location is: ",$P(^DIC(4,BGPHOME,0),U)," ",$P(^AUTTLOC(BGPHOME,0),U,10) Line Location: SUM+10
Function Call: WRITE	Prompt: !,"No HOME Location selected." Line Location: SUM+11
Function Call: WRITE	Prompt: $P(^BGPINDH(X,0),U,3)," ; " Line Location: SUM+12
Function Call: WRITE	Prompt: !!,"Lists will be produced for these measures: " Line Location: SUM+13
Function Call: WRITE	Prompt: $P(^BGPINDH(X,0),U,3)," ; " Line Location: SUM+14
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. 2013" Line Location: F+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+10
Routine Call	DIC Line Location: MFIC+11
Routine Call	DIR Line Location: SETIND+6 TP+3 TP+17 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
^ATXAX - [#9002226]	Classic Fileman Calls
^BGPGPDCH - [#90550.03]	Classic Fileman Calls
^BGPGPDPH - [#90550.04]	Classic Fileman Calls
^BGPGPDBH - [#90550.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	MFIC+10, SUM+7, SUM+9
^AUTTLOC - [#9999999.06]	HOME+3, SUM+10
^BGPINDH - [#90550.01]	SUM+12, SUM+14
^BGPINDHC - [#90550.02]	DI+1, II+1, PI+1, CI+1, AI+1, WI+1, EI+1
^BGPINDHC("AAST"	AI+1
^BGPINDHC("ACARD"	CI+1
^BGPINDHC("ADM"	DI+1
^BGPINDHC("AEL"	EI+1
^BGPINDHC("AIPC"	II+1
^BGPINDHC("APQA"	PI+1
^BGPINDHC("AWH"	WI+1
^BGPSITE - [#90241.02]	MFIC+1, MFIC+10, HOME+1
^DIC(4 - [#4]	HOME+3, SUM+10, LOC+1
^VA(200 - [#200]	USR+1
^XUSEC("BGPZ PATIENT LISTS"	LISTS+3

Label References

Name	Line Occurrences
$$CTR	BGP3DAP+5, BGP3DAP+6, SUM+2
AI	GI+6
BEN	HOME+2
BY	BY+9, BY+20
CHKY	BY+20
CI	GI+2
COMM	MFIC+1, BEN+5
DI	GI+1
F	TP+7, F+10
II	GI+4
LISTS	HOME+4, SUM+16, SI+4, LISTS+11
NODEV	ZIS+4
PI	GI+5
SETIND	SETIND+9, GI+8
SI	SETIND+9
TP	TP+8, TP+14, 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	MFIC+10*, 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+13, TP+15, 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+14, TP+17, TP+18, TP+19*
>> BGPED	TP+2, TP+9, TP+10, TP+11, TP+12, TP+13, TP+14, TP+15, BY+13, BY+15 , BY+17, SUM+4
>> BGPHOME	HOME+1*, HOME+2, HOME+3, SUM+10, SUM+11
BGPIND	SETIND+9, GI+8, SI+1!, SI+3
BGPIND(	SUM+12, DI+1, II+1, PI+1, CI+1, AI+1, WI+1, EI+1*
>> BGPINDH	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+14
BGPMFIT	MFIC+6!
>> BGPMFITI	MFIC+1, MFIC+2, MFIC+7, MFIC+13*, SUM+9
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+13, BY+10, F+1, F+11*
>> BGPQTR	TP+5*, TP+6, TP+7, TP+9, TP+10, TP+11, TP+12, TP+13
BGPQUIT	MFIC!, ZIS+2, LISTS+11
>> BGPROT	SUM+16, 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	XIT+7!
DA	SETIND+6!, TP+3!, TP+17!, BEN+4!, ZIS1+1, ZIS1+2, ZIS1+3*, LISTS+5!, CHKY+2!
DFOUT	EOP+4!
DIADD	XIT+4!
>> DIC	MFIC+9*
>> DIC("A"	MFIC+9*
>> DIC("B"	MFIC+10*
>> DIC("S"	MFIC+9*
>> DIC(0	MFIC+9*
DIK	ZIS1+1!, ZIS1+2!, ZIS1+3*!
DIR	SETIND+6!, TP+3!, TP+17!, 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+17, BY+4, BEN+2, LISTS+4, LISTS+5, CHKY+2, F+4*
DIR("B"	TP+17, BEN+3, LISTS+5, CHKY+2
DIR(0	SETIND+4, SETIND+5, TP+3, TP+17, BY+3, BEN+2, LISTS+4, LISTS+5, EOP+5, CHKY+2 , F+3*
DIRUT	SETIND+7, TP+4, TP+18, BY+6, BY+7, BEN+5, LISTS+6, XIT+3!, EOP+4!, CHKY+3 , F+7, F+8
DLAYGO	XIT+4!
DLOUT	EOP+4!
DOD	XIT+3!
DT	TP+14
DTOUT	EOP+4!
DUOUT	BY+7, XIT+3!, EOP+4!, F+8
DUZ	LISTS+3, USR+1
DUZ(2	MFIC+1, MFIC+10, 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	BGP3DAP+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	MFIC+1, MFIC+10, HOME+1, HOME+3, SUM+7, SUM+9, SUM+10, SUM+12, SUM+14, 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+12, SUM+14, 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+19, BY+8, BY+9, BY+20!, MFIC+12, MFIC+13, 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: BGP3DAP

Information

Source Information

Call Graph

Call Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: