Routine: BGPMUEH

Package	Total	Call Graph
IHS GPRA Information System	5	ENH^BGPMUDSI (EN,PH,RT)^BGPMUDSL ^BGPMUEHD (GETBE,MUCHECK)^BGPMUEP ^BGPMUPP
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
IHS Patient	1	KILL^AUPNPAT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS GPRA Information System	2	BGPMUDEL BGPMUPP

Entry Points

Name	Comments	DBIA/ICR reference
BEN	;
SUM	;display summary of this report
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
TSKMN	;EP ENTRY POINT FROM TASKMAN
BY	;get previous 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
EP	;
TESTC	;capture input data ; call with D:$G(^TMP("BGPMU0028B","TEST")=1 TESTC ; DFN = patient code from VA PATIENT file ; BGPBDATE = begin date of report ; BGPEDATE = end date of report ; BGPPROV = provider code from NEW PERSON file ; BGPMUTF = timeframe variable - "C"=current year; "P"=previous year; "B"=baseline year
ZIS	;call to XBDBQUE
F	;report start date
DRIVER	;
XIT	;
NODEV1	;
ENTRY	;
SETIND	;
GI	;gather all measures
ZIS1	;
LISTS	;any lists with measures?
SI	;
INTRO	;
HI	;
COMM	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+5
^%ZISC	DRIVER+5, NODEV1+3, XIT+1
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	XIT+5, XIT+13
ENH^BGPMUDSI	SI+2
EN^BGPMUDSL	LISTS+9
PH^BGPMUDSL	SUM+10
RT^BGPMUDSL	LISTS+11
^BGPMUEHD	DRIVER+2, NODEV1+1
GETBE^BGPMUEP	TP+8
MUCHECK^BGPMUEP	ENTRY+4
^BGPMUPP	DRIVER+4, NODEV1+2
^DIR	TP+3, TP+14, TP+29, BY+17, EP+3, BEN+4, LISTS+4, LISTS+5, EOP+5, F+6
^XBDBQUE	NODEV+2
^XBFMK	XIT+14
EN^XBVK	XIT+2
$$FMADD^XLFDT	TP+23
$$FMTE^XLFDT	TP+27, BY+27, BY+28, BY+29, SUM+4, SUM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("IHS Meaningful Use Clinical Quality Measure Report",80) Line Location: ENTRY+2
Function Call: WRITE	Prompt: !,$$CTR("Report on all Patients regardless of Community of Residence",80),!! Line Location: ENTRY+3
Function Call: WRITE	Prompt: !,"This will produce a Clinical Quality Measure Report for one or more measures" Line Location: INTRO+2
Function Call: WRITE	Prompt: !,"for a period you specify. You will be asked to provide: 1) the length of the" Line Location: INTRO+3
Function Call: WRITE	Prompt: !,"reporting period , 2) the desired start date for your reporting period and," Line Location: INTRO+4
Function Call: WRITE	Prompt: !,"3) the baseline period to compare data to." Line Location: INTRO+5
Function Call: WRITE	Prompt: !!,"Enter the reporting period start date." Line Location: TP+10
Function Call: WRITE	Prompt: !,"Start date not entered.",! Line Location: TP+19
Function Call: WRITE	Prompt: !!,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 1999, 2000" Line Location: BY+14
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: BY+21
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: BY+26
Function Call: WRITE	Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: BY+27
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: BY+28
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: BY+29
Function Call: WRITE	Prompt: !! Line Location: EP+1
Function Call: WRITE	Prompt: !!,"no measures selected" Line Location: GI+2
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF MEANINGFUL USE CLINICAL QUALITY MEASURE 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,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: SUM+5
Function Call: WRITE	Prompt: !!,"ALL Patients will be included." Line Location: SUM+6
Function Call: WRITE	Prompt: !,?10,$P(^BGPMUIND(BGPMUYF,X,0),U,3) Line Location: SUM+7
Function Call: WRITE	Prompt: !!,"Lists will be produced for these measures: " Line Location: SUM+8
Function Call: WRITE	Prompt: !,?10,$P(^BGPMUIND(BGPMUYF,X,0),U,3) Line Location: SUM+9
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: !!,"Enter the reporting period start date." Line Location: F+2
Routine Call	DIR Line Location: TP+3 TP+14 TP+29 BY+17 EP+3 BEN+4 LISTS+4 LISTS+5 EOP+5 F+6
Routine Call	%ZIS Line Location: ZIS+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPMUIND(	SUM+7, SUM+9, HI+1
^DIC(4 - [#4]	LOC+1
^TMP($J	DRIVER+1!, DRIVER+6!
^VA(200 - [#200]	USR+1
^XUSEC("BGPZ PATIENT LISTS"	LISTS+3

Label References

Name	Line Occurrences
$$CTR	ENTRY+2, ENTRY+3, SUM+2
BY	TP+9, BY+21
COMM	BEN+5
HI	GI+1
LISTS	SUM+11, HI+2, SI+4, LISTS+11
NODEV	ZIS+4
SETIND	EP+6, GI+2
SI	EP+6
TP	TP+19, TP+26, BY+18, BY+19
TSKMN	ZIS1+4
XIT	INTRO+1, SETIND+1, TP+4, TP+8, EP+4, ZIS+4, DRIVER+7, 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+10!
B	XIT+10!
BD	XIT+12!
>> BGP0RPTH	SETIND+4, TP+1
>> BGPANS	TP+5*, TP+8, TP+9
>> BGPBBD	BY+24*, BY+29, SUM+5
>> BGPBD	TP+2, TP+8, TP+21, TP+22*, TP+27, BY+2, BY+5, BY+6, BY+24, BY+27 , SUM+4
>> BGPBED	BY+25*, BY+29, SUM+5
>> BGPBEN	BEN+1, BEN+6
>> BGPDELT	ZIS+4, ZIS+5
>> BGPDO	TP+26, TP+29, TP+30, TP+31*
>> BGPED	TP+2, TP+8, TP+23, TP+26, TP+27, BY+7, BY+10, BY+11, BY+25, BY+27 , SUM+4
BGPIND	EP+6, GI+2, SI+1!, SI+3
BGPIND(	SUM+7, HI+1*
>> BGPINDT	SETIND+2, EP+5, EP+6, GI+1
>> BGPLEN	TP+6*, TP+23
BGPLIST	LISTS+1!, LISTS+8!, LISTS+10, LISTS+11
BGPLIST(	SUM+9
>> BGPMUT	SETIND+5*
>> BGPMUYF	SETIND+3*, SUM+7, SUM+9, HI+1
>> BGPPBD	BY+6*, BY+28
>> BGPPED	BY+11*, BY+28
>> BGPPER	TP+7, TP+18, TP+19, TP+21, TP+23, BY+22, F+1, F+10
>> BGPQUIT	ENTRY+5, LISTS+11
>> BGPROT	SUM+11, ZIS+4
>> BGPRTYPE	SETIND+4, TP+1
>> BGPTP	TP+2*
>> BGPVDT	TP+7, TP+17, TP+18, BY+13, BY+20, BY+22, F+1, F+9, F+10
C	XIT+10!
D	XIT+10!
DA	TP+3!, TP+29!, EP+3!, BEN+4!, LISTS+5!
DFN	XIT+6!
DFOUT	EOP+4!
DIADD	XIT+4!
DIR	TP+3!, TP+14!, TP+29!, BY+17!, EP+3!, BEN+4!, LISTS+4!, LISTS+5!, XIT+3!, EOP+3~ , EOP+4!, EOP+5!, F+6!
DIR("?"	TP+13, F+5
DIR("A"	TP+3, TP+12, TP+29, BY+16, EP+3, BEN+2, LISTS+4, LISTS+5, F+4*
DIR("B"	TP+29, BEN+3, LISTS+5*
DIR(0	TP+3, TP+11, TP+29, BY+15, EP+2, BEN+2, LISTS+4, LISTS+5, EOP+5, F+3
DIRUT	TP+4, TP+15, TP+16, TP+30, BY+18, BY+19, EP+4, BEN+5, LISTS+6, XIT+3! , EOP+4!, F+7, F+8*
DLAYGO	XIT+4!
DLOUT	EOP+4!
DOD	XIT+3!
DT	TP+26
DTOUT	EOP+4!
DUOUT	TP+16, BY+19, XIT+3!, EOP+4!, F+8
DUZ	LISTS+3, USR+1
DUZ(2	LOC+1
E	XIT+10!
ED	XIT+12!
F	XIT+10!
G	XIT+10!
H	XIT+10!
I	XIT+10!
IO	DRIVER+3, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS1+4
IO("S"	EOP+2
IOCPU	TSKMN+5, XIT+6!
IOF	ENTRY+1, SUM+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+4!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
IOT	XIT+6!, EOP+2
J	XIT+10!
K	XIT+10!
L	XIT+10!
M	XIT+10!
N	XIT+10!, XIT+11!
N1	XIT+11!
N2	XIT+11!
N3	XIT+11!
N4	XIT+11!
N5	XIT+11!
N6	XIT+11!
O	XIT+10!
P	XIT+10!
Q	XIT+10!
R	XIT+10!
S	XIT+10!
T	XIT+10!
U	SUM+7, SUM+9, USR+1, LOC+1
V	XIT+10!
W	XIT+10!
X	BY+1~, BY+22, BY+23, BY+24, BY+25, SUM+7, SUM+9, HI+1*, XIT+9!, XIT+10! , CTR~, CTR+1
X1	BY+1~, BY+2, BY+5, BY+6, BY+7, BY+10, BY+11, XIT+9!
X2	BY+1~, BY+2, BY+3, BY+4, BY+5, BY+6, BY+7, BY+8, BY+9, BY+10 , BY+11, XIT+9!
X3	XIT+9!
X4	XIT+9!
X5	XIT+9!
X6	XIT+9!
XBNS	NODEV+1*, XIT+7!
XBRC	NODEV+1*, XIT+7!
XBRP	NODEV+1*, XIT+7!
XBRX	NODEV+1*, XIT+7!
Y	TP+5, TP+6, TP+17, TP+31, BY+20, BY+21, EP+5, BEN+6, LISTS+6, LISTS+7 , XIT+10!, CTR~, CTR+1, F+9
Z	XIT+10!
ZTCPU	TSKMN+5*, XIT+8!
ZTDESC	TSKMN+5*, XIT+8!
>> ZTDTH	TSKMN+5*
ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*, XIT+8!
ZTQUEUED	XIT+2, XIT+8!, EOP+2
ZTREQ	XIT+2*, XIT+8!
ZTRTN	TSKMN+5*, XIT+8!
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPMUEH

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: