Routine: BUD1RP7

Information

BUD1RP7 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 12 Dec 2011 6:51 AM 30 Dec 2011 8:19 PM 27 Aug 2011 12:41 PM ;

Source Information

Source file <BUD1RP7.m>

Call Graph

Call Graph Total: 24

Package	Total	Call Graph
IHS Uniform Data System	14	$$DEMO^BUD1DU PRINT^BUD1RP71 (PRGHLST,PRGRLST)^BUD1RP7A HTN^BUD1RP7B DM^BUD1RP7C (GENI,PRGE,PRGH,PRGR)^BUD1RP7I (HTCR,HTR,HTUR)^BUD1RP7J (HTCE,HTE,HTUE)^BUD1RP7K (DMR,DMR1,DMR2)^BUD1RP7L (DME,DME1,DME2)^BUD1RP7M DME3^BUD1RP7S (DMR3,DMR4)^BUD1RP7T GETV^BUD1RPTD TAXCHK^BUD1XTCH
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR
VA Fileman	3	COMMA^%DTC ^DIC ^DIR
IHS Patient	1	($$AGE,$$BEN,$$COMMRES)^AUPNPAT
IHS VA Utilities	1	EN^XBVK

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Uniform Data System	2	BUD1RPT1 BUD1RPTP

Entry Points

Name	Comments	DBIA/ICR reference
DME2LIST	;EP
YEAR	;
EOJ	;
PRENATT	;EP
HTELIST	;EP
LINE2	;
USR()	;EP - Return name of current user from ^VA(200.
HTCRLIST	;EP
TSKMN	;EP ENTRY POINT FROM TASKMAN
PRINT	;EP - called from taskman
LINE	;
DMR1LIST	;EP
C(X,Y)	;
DMR3LIST	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
MDM	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
HTUELIST	;EP
EN1	;
EN2	;
DME3LIST	;EP
PRGELIST	;EP
EN	;
ZIS	;call to XBDBQUE
DMR2LIST	;EP
T7	;
DRIVER	;
HTCELIST	;EP
PRGRLIST	;EP
PRGHLIST	;EP
MHT	;EP
HTRLIST	;EP
PAUSE	;EP
HTURLIST	;EP
DMR4LIST	;EP
MPRG	;EP - called from option
ZIS1	;
T7H	;
T7I	;EP
LIST	;
DMELIST	;EP
LINE1	;
GENI	;general introductions
PNC	;
PROC	;EP - called from taskman
LINE3	;
DMRLIST	;EP
DME1LIST	;EP

External References

Name	Field # of Occurrence
COMMA^%DTC	C+4
^%ZIS	ZIS+2
^%ZISC	DRIVER+4
^%ZTLOAD	TSKMN+5
$$AGE^AUPNPAT	PROC+25, PROC+26
$$BEN^AUPNPAT	PROC+18, PROC+19
$$COMMRES^AUPNPAT	PROC+24
$$DEMO^BUD1DU	PROC+16
PRINT^BUD1RP71	PRINT+1
PRGHLST^BUD1RP7A	PROC+29
PRGRLST^BUD1RP7A	PROC+30
HTN^BUD1RP7B	PROC+32
DM^BUD1RP7C	PROC+33
GENI^BUD1RP7I	MHT+2, MDM+2, MPRG+2
PRGE^BUD1RP7I	PRGELIST+3
PRGH^BUD1RP7I	PRGHLIST+3
PRGR^BUD1RP7I	PRGRLIST+3
HTCR^BUD1RP7J	HTCRLIST+3
HTR^BUD1RP7J	HTRLIST+3
HTUR^BUD1RP7J	HTURLIST+3
HTCE^BUD1RP7K	HTCELIST+3
HTE^BUD1RP7K	HTELIST+3
HTUE^BUD1RP7K	HTUELIST+3
DMR^BUD1RP7L	DMRLIST+3
DMR1^BUD1RP7L	DMR1LIST+3
DMR2^BUD1RP7L	DMR2LIST+3
DME^BUD1RP7M	DMELIST+3
DME1^BUD1RP7M	DME1LIST+3
DME2^BUD1RP7M	DME2LIST+3
DME3^BUD1RP7S	DME3LIST+3
DMR3^BUD1RP7T	DMR3LIST+3
DMR4^BUD1RP7T	DMR4LIST+3
GETV^BUD1RPTD	PROC+27
TAXCHK^BUD1XTCH	EN2+6
^DIC	EN2+2
^DIR	PNC+2, EN2+18, MHT+12, MDM+15, MPRG+9, PAUSE+1, YEAR+7
EN^XBVK	EOJ+1
$$FMADD^XLFDT	PROC+2
$$FMTE^XLFDT	EN2+14
$$REPEAT^XLFSTR	T7H+1, LINE+1, LINE1+1, LINE2+1, LINE3+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Warning: There are no locations defined in the site parameter file for this",!,"site. Report will not be accurate!" Line Location: EN2+5
Function Call: WRITE	Prompt: !!,"Your report will be run for the time period: ",$$FMTE^XLFDT(BUDBD)," to ",$$FMTE^XLFDT(BUDED) Line Location: EN2+14
Function Call: WRITE	Prompt: !!,"Classification not entered." Line Location: EN2+19
Function Call: WRITE	Prompt: !! Line Location: ZIS+2
Function Call: WRITE	Prompt: !!,"UDS Table 7 Hypertension Patient List Selection" Line Location: MHT+4
Function Call: WRITE	Prompt: !!?5,"1 All HTN Patients by Race and Hispanic or Latino Identity" Line Location: MHT+5
Function Call: WRITE	Prompt: !?5,"2 All HTN Pts w/Controlled BP by Race and Hispanic or Latino Identity" Line Location: MHT+7
Function Call: WRITE	Prompt: !?5,"3 All HTN Pts w/Uncontrolled BP by Race and Hispanic or Latino Identity" Line Location: MHT+8
Function Call: WRITE	Prompt: !?5,"4 ALL Lists for HTN Patients" Line Location: MHT+11
Function Call: WRITE	Prompt: !!,"UDS Table 7 Diabetes Patient List Selection" Line Location: MDM+4
Function Call: WRITE	Prompt: !!?5,"1 All Patients w/DM by Race and Hispanic or Latino Identity" Line Location: MDM+5
Function Call: WRITE	Prompt: !?5,"2 All Patients w/DM and A1c <7 by Race and Hispanic or Latino Identity" Line Location: MDM+7
Function Call: WRITE	Prompt: !?5,"3 All Pts w/DM and A1c >=7 & <8 by Race and Hispanic or Latino Identity" Line Location: MDM+8
Function Call: WRITE	Prompt: !?5,"4 All Patients w/A1c >=8 & <=9 by Race and Hispanic or Latino Identity" Line Location: MDM+9
Function Call: WRITE	Prompt: !?5,"5 All Patients w/DM and A1c >9 or No Test by Race and Hispanic or Latino Identity" Line Location: MDM+10
Function Call: WRITE	Prompt: !?5,"6 ALL Lists for DM Patients" Line Location: MDM+14
Function Call: WRITE	Prompt: !!,"UDS Table 7 Pregnant Patient List Selection" Line Location: MPRG+4
Function Call: WRITE	Prompt: !!?5,"1 All Pregnant Patients w/HIV" Line Location: MPRG+5
Function Call: WRITE	Prompt: !?5,"2 All Pregnant Patients by Race" Line Location: MPRG+6
Function Call: WRITE	Prompt: !?5,"3 ALL Lists" Line Location: MPRG+8
Function Call: WRITE	Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",79),! Line Location: T7H+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",79),?79,"\|",! Line Location: LINE+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",29),?29,"\|",$$REPEAT^XLFSTR("_",9),?39,"\|",$$REPEAT^XLFSTR("_",9),?49,"\|",$$REPEAT^XLFSTR("_",9),?59,"\|",$$REPEAT^XLFSTR("_",9),?69,"\|",$$REPEAT^XLFSTR("_",9),?79,"\|",! Line Location: LINE1+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",29),?29,"\|",$$REPEAT^XLFSTR("_",39),?69,"\|_________",?79,"\|",! Line Location: LINE2+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",29),?29,"\|",$$REPEAT^XLFSTR("_",49),?79,"\|",! Line Location: LINE3+1
Function Call: WRITE	Prompt: !!,"TABLE 7: HEALTH OUTCOMES AND DISPARITIES" Line Location: T7I+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 7, health outcomes indicators by race" Line Location: T7I+2
Function Call: WRITE	Prompt: !,"and Hispanic/Latino identity for deliveries and birth weights, controlled" Line Location: T7I+3
Function Call: WRITE	Prompt: !,"hypertension, and controlled diabetes Glycemic control. Patients must meet " Line Location: T7I+4
Function Call: WRITE	Prompt: !,"additional criteria as specified for each indicator." Line Location: T7I+5
Function Call: WRITE	Prompt: ! Line Location: T7I+6
Function Call: WRITE	Prompt: !!,$$CTR($$LOC,80),!,$$CTR("UDS 2011",80),! Line Location: GENI+2
Function Call: WRITE	Prompt: !,"UDS searches your database to find all patients reported for the quality" Line Location: GENI+3
Function Call: WRITE	Prompt: !,"of care indicators during the time period January 1 - December 31, 2011." Line Location: GENI+4
Function Call: WRITE	Prompt: !,"Based on the UDS defintion, to be considered a patient, the patient must" Line Location: GENI+5
Function Call: WRITE	Prompt: !,"have had at least one visit meeting the following criteria:" Line Location: GENI+6
Function Call: WRITE	Prompt: !?4,"- must be to a location specified in your visit location setup" Line Location: GENI+7
Function Call: WRITE	Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day" Line Location: GENI+8
Function Call: WRITE	Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), " Line Location: GENI+9
Function Call: WRITE	Prompt: !?6,"or In-Hospital (I) visit" Line Location: GENI+10
Function Call: WRITE	Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)" Line Location: GENI+11
Function Call: WRITE	Prompt: !?4,"- must have a primary provider and a coded purpose of visit" Line Location: GENI+12
Function Call: WRITE	Prompt: ! Line Location: GENI+13
Function Call: WRITE	Prompt: !!,"UDS does not calculate the deliveries and birth weight indicators" Line Location: PRENATT+1
Function Call: WRITE	Prompt: !,"in Section A. However, you can run a list of patients identified " Line Location: PRENATT+2
Function Call: WRITE	Prompt: !,"by UDS as pregnant to determine which of them received prenatal care at" Line Location: PRENATT+3
Function Call: WRITE	Prompt: !,"your facility to assist you with completing Table 7, Section A." Line Location: PRENATT+4
Function Call: WRITE	Prompt: !,"The menu options you would select to run the patient list are: LST, LST3," Line Location: PRENATT+5
Function Call: WRITE	Prompt: !,"PRG, PRGR (list by race and Hispanic or Latino identity)." Line Location: PRENATT+6
Function Call: WRITE	Prompt: ! Line Location: PRENATT+7
Function Call: WRITE	Prompt: ! Line Location: YEAR+2
Function Call: WRITE	Prompt: !,"Enter the Calendar Year. Use a 4 digit year, e.g. 2003, 2007" Line Location: YEAR+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: YEAR+11
Routine Call	DIC Line Location: EN2+2
Routine Call	DIR Line Location: PNC+2 EN2+18 MHT+12 MDM+15 MPRG+9 PAUSE+1 YEAR+7
Routine Call	%ZIS Line Location: ZIS+2

FileNo	Call Tags
^BUDLSITE - [#90663.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+4, PROC+10
^BUDLSITE - [#90663.1]	EN2+5
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+23
^TMP($J	PROC+9!
^VA(200 - [#200]	USR+1
^XTMP("BUD1RP7B"	PROC+2*

Label References

Name	Line Occurrences
$$CTR	T7H+1, GENI+2
$$LOC	GENI+2
EN	EN2+5
EN1	PRGHLIST+4, PRGRLIST+4, PRGELIST+4, HTRLIST+4, HTCRLIST+4, HTURLIST+4, HTELIST+4, HTCELIST+4, HTUELIST+4, MHT+18 , DMRLIST+4, DMR1LIST+4, DMR2LIST+4, DMR4LIST+4, DMR3LIST+4, DMELIST+4, DME1LIST+4, DME2LIST+4, DME3LIST+4, MDM+23 , MPRG+15
EOJ	T7+1, PNC+3, EN2+13, EN2+19, ZIS+3, DRIVER+5, TSKMN+5, PRGHLIST+1, PRGRLIST+1, PRGELIST+1 , HTRLIST+1, HTCRLIST+1, HTURLIST+1, HTELIST+1, HTCELIST+1, HTUELIST+1, MHT+1, MHT+13, DMRLIST+1, DMR1LIST+1 , DMR2LIST+1, DMR4LIST+1, DMR3LIST+1, DMELIST+1, DME1LIST+1, DME2LIST+1, DME3LIST+1, MDM+1, MDM+16, MPRG+1 , MPRG+10
GENI	EN+1
PAUSE	EN+3, EN+5
PNC	EN2+3
PRENATT	EN+4
PRINT	DRIVER+3
PROC	DRIVER+1
T7I	EN+2
TSKMN	ZIS1+1
YEAR	EN2+12, YEAR+11

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ZIS+1!, ZIS+2*
>> BUDAGE	PROC+25*
>> BUDAGEP	PROC+26*
>> BUDBD	EN2+14, YEAR+12*
>> BUDBEN	EN2+16, EN2+20, PROC+18, PROC+19
>> BUDCAD	PROC+26, YEAR+13*
>> BUDCOM	PROC+24*
>> BUDDME1L	DME1LIST+2*
>> BUDDME2L	DME2LIST+2*
>> BUDDME3L	DME3LIST+2*
>> BUDDMEL	DMELIST+2*
>> BUDDMR1L	DMR1LIST+2, MDM+3, MDM+17, MDM+19
>> BUDDMR2L	DMR2LIST+2, MDM+17, MDM+20*
>> BUDDMR3L	DMR3LIST+2, MDM+17, MDM+21*
>> BUDDMR4L	DMR4LIST+2, MDM+17, MDM+22*
>> BUDDMRL	DMRLIST+2, MDM+17, MDM+18*
>> BUDED	EN2+14, PROC+25, YEAR+12*
>> BUDH	PROC+1*
>> BUDHTCEL	HTCELIST+2, MHT+3, MDM+3*
>> BUDHTCRL	HTCRLIST+2, MHT+3, MHT+14, MHT+16
>> BUDHTEL	HTELIST+2, MHT+3, MDM+3*
>> BUDHTRL	HTRLIST+2, MHT+3, MHT+14, MHT+15, MDM+3*
>> BUDHTUEL	HTUELIST+2, MHT+3, MDM+3*
>> BUDHTURL	HTURLIST+2, MHT+3, MHT+14, MHT+17, MDM+3*
>> BUDJ	PROC+1*
>> BUDPREN	PNC+1, PNC+4
>> BUDPRGEL	PRGELIST+2, MPRG+3
>> BUDPRGHL	PRGHLIST+2, MPRG+3, MPRG+11, MPRG+12
>> BUDPRGRL	PRGRLIST+2, MPRG+3, MPRG+11, MPRG+13
>> BUDSEX	PROC+23*
>> BUDSITE	EN2+1, EN2+4, EN2+5
>> BUDT35V	PROC+28
>> BUDTAXT	EN2+6*
>> BUDYEAR	EN2+11, EN2+13, YEAR+1, YEAR+12*, YEAR+13
DA	PNC+2!, EN2+18!, MHT+12!, MDM+15!, MPRG+9!, PAUSE+1!
>> DFN	PROC+4*, PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+18, PROC+19 , PROC+23, PROC+24, PROC+25, PROC+26
DIC	EN2+2*, YEAR+8!
DIC("A"	EN2+2*
DIC(0	EN2+2*
DIR	PNC+2!, EN2+18!, MHT+12!, MDM+15!, MPRG+9!, PAUSE+1!, YEAR+7!
DIR("?"	YEAR+6*
DIR("A"	PNC+2, EN2+17, MHT+12, MDM+15, MPRG+9, PAUSE+1, YEAR+5*
DIR("B"	PNC+2, EN2+18, MHT+12, MDM+15, MPRG+9*
DIR(0	PNC+2, EN2+17, MHT+12, MDM+15, MPRG+9, PAUSE+1, YEAR+4*
>> DIRUT	PNC+3, EN2+19, MHT+13, MDM+16, MPRG+10, YEAR+9*, YEAR+10
DT	PROC+2
>> DUOUT	YEAR+9
DUZ	USR+1
DUZ(2	LOC+1
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS1+1
>> IOCPU	TSKMN+5
IOF	GENI+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+1!
IOSL	TSKMN+3
IOST	TSKMN+1
>> POP	ZIS+3
U	PROC+12, PROC+13, PROC+14, PROC+15, PROC+23, USR+1, LOC+1
X	CTR~, CTR+1, C~, C+1, C+5
>> X2	C+3*
>> X3	C+3*
Y	PNC+4, EN2+3, EN2+4, EN2+20, MHT+14, MHT+15, MHT+16, MHT+17, MDM+17, MDM+18 , MDM+19, MDM+20, MDM+21, MDM+22, MPRG+11, MPRG+12, MPRG+13, CTR~, CTR+1, C~ , C+1, C+2, YEAR+11, YEAR+12
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BUD*"	TSKMN+4*

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD1RP7

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: