Routine: BUDDRP71

Package	Total	Call Graph
IHS Uniform Data System	7	(PRGHL,PRGRL)^BUDDRP7I (HTCRL,HTRL)^BUDDRP7J (DMR1L,DMRL)^BUDDRP7L DMR2L^BUDDRP7T HTURL^BUDDRP7U SAVEDEL^BUDDRPTD HEADER^BUDDRPTP
Kernel	2	^%ZISC $$REPEAT^XLFSTR
VA Fileman	2	COMMA^%DTC ^DIR

Package	Total	Caller Graph
IHS Uniform Data System	2	BUDDRP7 BUDDRP7O

Entry Points

Name	Comments	DBIA/ICR reference
R2C	;EP
R2B	;EP
USR()	;EP - Return name of current user from ^VA(200.
LINE1	;EP
PRINT	;EP
LINE	;EP
C(X,Y)	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
P71	;
P71A	;W !!,$$REPEAT^XLFSTR("_",80),!
RB	;EP
RC	;EP
C7	;
PL
PAUSE	;
R1	;EP
T7H1	;EP
R	;EP
P7B	;
P7C	;
T7H	;EP
LINE4	;EP
LISTS	;
B7	;
CTR(X,Y)	;EP - Center X in a field Y wide.
R1B	;EP
LINE5	;EP
R1C	;EP

External References

Name	Field # of Occurrence
COMMA^%DTC	C+4
^%ZISC	PRINT+5, PL+1
PRGHL^BUDDRP7I	LISTS+1
PRGRL^BUDDRP7I	LISTS+2
HTCRL^BUDDRP7J	LISTS+4
HTRL^BUDDRP7J	LISTS+3
DMR1L^BUDDRP7L	LISTS+7
DMRL^BUDDRP7L	LISTS+6
DMR2L^BUDDRP7T	LISTS+8
HTURL^BUDDRP7U	LISTS+5
SAVEDEL^BUDDRPTD	PL+2
HEADER^BUDDRPTP	P71+1, P7B+1, P7C+1
^DIR	PAUSE+1
$$REPEAT^XLFSTR	PRINT+17, B7+8, C7+8, P71+3, P71+5, P71+6, P71+7, P71+8, P71A+9, P7B+3 , P7B+11, P7C+3, P7C+15, LINE1+1, T7H1+1, LINE4+1, LINE5+1, LINE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Unreported/Refused to Report Ethnicity",! Line Location: PRINT+16
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: PRINT+17
Function Call: WRITE	Prompt: "h",?5,"\|Unreported/" Line Location: PRINT+18
Function Call: WRITE	Prompt: ?5,"\| Refused" Line Location: PRINT+19
Function Call: WRITE	Prompt: ?5,"\| to Report Race" Line Location: PRINT+20
Function Call: WRITE	Prompt: ?5,"\| and Ethnicity" Line Location: PRINT+21
Function Call: WRITE	Prompt: "i",?5,"\| Total" Line Location: PRINT+23
Function Call: WRITE	Prompt: "Unreported/Refused to Report Ethnicity",! Line Location: B7+7
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: B7+8
Function Call: WRITE	Prompt: "h",?5,"\|Unreported/" Line Location: B7+9
Function Call: WRITE	Prompt: ?5,"\| Refused" Line Location: B7+10
Function Call: WRITE	Prompt: ?5,"\| to Report Race" Line Location: B7+11
Function Call: WRITE	Prompt: ?5,"\| and Ethnicity" Line Location: B7+12
Function Call: WRITE	Prompt: "i",?5,"\| Total" Line Location: B7+14
Function Call: WRITE	Prompt: ?23,"\|",?28,$$C($P($G(BUDSECTB(4)),U,1),8),?42,"\|",?47,$$C($P($G(BUDSECTB(4)),U,2),8),?61,"\|",?66,$$C($P($G(BUDSECTB(4)),U,3),8),! Line Location: B7+14
Function Call: WRITE	Prompt: "Unreported/Refused to Report Ethnicity",! Line Location: C7+7
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: C7+8
Function Call: WRITE	Prompt: "h",?5,"\|Unreported/" Line Location: C7+9
Function Call: WRITE	Prompt: ?5,"\| Refused" Line Location: C7+10
Function Call: WRITE	Prompt: ?5,"\| to Report Race" Line Location: C7+11
Function Call: WRITE	Prompt: ?5,"\| and Ethnicity" Line Location: C7+12
Function Call: WRITE	Prompt: "i",?5,"\| Total" Line Location: C7+14
Function Call: WRITE	Prompt: $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT",80),! Line Location: P71+2
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: P71+3
Function Call: WRITE	Prompt: !,"0",?5,"HIV Positive Pregnant Women",$$REPEAT^XLFSTR("*",(67-$X)),?67,"\| ",$P($G(BUDSECTH(1)),U,18),! Line Location: P71+5
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: P71+6
Function Call: WRITE	Prompt: "2",?5,"Deliveries Performed by Health Center's Providers",$$REPEAT^XLFSTR("*",(67-$X)),?67,"\|",! Line Location: P71+7
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: P71+8
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|Prenatal Care",?37,"\| Live Births:",?51,"\| Live Births:",?65,"\| Live Births:",! Line Location: P71A+1
Function Call: WRITE	Prompt: ?5,"\|",?23,"\| Patients Who",?37,"\| <1500 grams",?51,"\| 1500-2499",?65,"\| =>2500 grams",! Line Location: P71A+2
Function Call: WRITE	Prompt: "Line",?5,"\| Race and ",?23,"\| Delivered",?37,"\|",?51,"\| grams",?65,"\|",! Line Location: P71A+3
Function Call: WRITE	Prompt: " #",?5,"\| Ethnicity",?23,"\| During the",?37,"\|",?51,"\|",?65,"\|",! Line Location: P71A+4
Function Call: WRITE	Prompt: ?5,"\|",?23,"\| Year",?37,"\|",?51,"\|",?65,"\|",! Line Location: P71A+5
Function Call: WRITE	Prompt: ?5,"\|",?23,"\| (1a)",?37,"\| (1b)",?51,"\| (1c)",?65,"\| (1d)",! Line Location: P71A+6
Function Call: WRITE	Prompt: BUDTELB,! Line Location: P71A+8
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: P71A+9
Function Call: WRITE	Prompt: BUDTELN_"a",?5,"\| Asian" Line Location: P71A+10
Function Call: WRITE	Prompt: BUDTELN_"b1",?5,"\| Native Hawaiian" Line Location: P71A+12
Function Call: WRITE	Prompt: BUDTELN_"b2",?5,"\| Other Pacific" Line Location: P71A+14
Function Call: WRITE	Prompt: ?5,"\| Islander" Line Location: P71A+15
Function Call: WRITE	Prompt: BUDTELN_"c",?5,"\| Black/African" Line Location: P71A+17
Function Call: WRITE	Prompt: ?5,"\| American" Line Location: P71A+18
Function Call: WRITE	Prompt: BUDTELN_"d",?5,"\| American Indian/" Line Location: P71A+20
Function Call: WRITE	Prompt: ?5,"\| Alaska Native" Line Location: P71A+21
Function Call: WRITE	Prompt: BUDTELN_"e",?5,"\| White" Line Location: P71A+23
Function Call: WRITE	Prompt: BUDTELN_"f",?5,"\| More than One" Line Location: P71A+25
Function Call: WRITE	Prompt: ?5,"\| Race" Line Location: P71A+26
Function Call: WRITE	Prompt: BUDTELN_"g",?5,"\| Unreported/" Line Location: P71A+28
Function Call: WRITE	Prompt: ?5,"\| Refused" Line Location: P71A+29
Function Call: WRITE	Prompt: ?5,"\| to Report Race" Line Location: P71A+30
Function Call: WRITE	Prompt: ?5,"\| Subtotal" Line Location: P71A+32
Function Call: WRITE	Prompt: ?16,"Non-" Line Location: P71A+33
Function Call: WRITE	Prompt: ?5,"\| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB),?23,"\| \| \| \| ",! Line Location: P71A+35
Function Call: WRITE	Prompt: "_____\|_________________\|_____________\|_____________\|_____________\|______________",! Line Location: R+2
Function Call: WRITE	Prompt: ?23,"\|",?37,"\|",?51,"\|",?65,"\|",! Line Location: R1+1
Function Call: WRITE	Prompt: $$CTR("Section B: Controlling High Blood Pressure",80),! Line Location: P7B+2
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: P7B+3
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|Total Patients 18",?42,"\| Charts Sampled or",?61,"\| Patients with HTN",! Line Location: P7B+4
Function Call: WRITE	Prompt: " #",?5,"\| Race and ",?23,"\|through 85 Years",?42,"\| EHR Total",?61,"\| Controlled",! Line Location: P7B+5
Function Call: WRITE	Prompt: ?5,"\| Ethnicity ",?23,"\|of Age with",?42,"\| ",?61,"\| ",! Line Location: P7B+6
Function Call: WRITE	Prompt: ?5,"\| ",?23,"\|Hypertension",?42,"\| ",?61,"\| ",! Line Location: P7B+7
Function Call: WRITE	Prompt: ?5,"\| ",?23,"\| (2a)",?42,"\| (2b)",?61,"\| (2c)",! Line Location: P7B+8
Function Call: WRITE	Prompt: BUDTELB,! Line Location: P7B+10
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",80),! Line Location: P7B+11
Function Call: WRITE	Prompt: BUDTELN_"a",?5,"\| Asian" Line Location: P7B+12
Function Call: WRITE	Prompt: BUDTELN_"b1",?5,"\| Native Hawaiian" Line Location: P7B+14
Function Call: WRITE	Prompt: BUDTELN_"b2",?5,"\| Other Pacific" Line Location: P7B+16
Function Call: WRITE	Prompt: ?5,"\| American" Line Location: P7B+17
Function Call: WRITE	Prompt: BUDTELN_"c",?5,"\| Black/African" Line Location: P7B+19
Function Call: WRITE	Prompt: ?5,"\| American" Line Location: P7B+20
Function Call: WRITE	Prompt: BUDTELN_"d",?5,"\| American Indian/" Line Location: P7B+22
Function Call: WRITE	Prompt: ?5,"\| Alaska Native" Line Location: P7B+23
Function Call: WRITE	Prompt: BUDTELN_"e",?5,"\| White" Line Location: P7B+25
Function Call: WRITE	Prompt: BUDTELN_"f",?5,"\| More than One" Line Location: P7B+27
Function Call: WRITE	Prompt: ?5,"\| Race" Line Location: P7B+28
Function Call: WRITE	Prompt: BUDTELN_"g",?5,"\| Unreported/" Line Location: P7B+30
Function Call: WRITE	Prompt: ?5,"\| Refused" Line Location: P7B+31
Function Call: WRITE	Prompt: ?5,"\| to Report Race" Line Location: P7B+32
Function Call: WRITE	Prompt: ?5,"\| Subtotal" Line Location: P7B+34
Function Call: WRITE	Prompt: ?16,"Non-" Line Location: P7B+35
Function Call: WRITE	Prompt: ?5,"\| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB) Line Location: P7B+37
Function Call: WRITE	Prompt: "_____\|_________________\|__________________\|__________________\|__________________",! Line Location: RB+2
Function Call: WRITE	Prompt: ?23,"\|",?28,$$C($P($G(BUDSECTB(BUDTELL,X)),U,1),8),?42,"\|",?47,$$C($P($G(BUDSECTB(BUDTELL,X)),U,2),8),?61,"\|",?66,$$C($P($G(BUDSECTB(BUDTELL,X)),U,3),8),! Line Location: R1B+1
Function Call: WRITE	Prompt: ?23,"\|",?42,"\|",?61,"\|",! Line Location: R2B+1
Function Call: WRITE	Prompt: $$CTR("Section C: Diabetes: Hemoglobin A1c Poor Control",80),! Line Location: P7C+2
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",72),! Line Location: P7C+3
Function Call: WRITE	Prompt: ?5,"\|",?23,"\| Total ",?32,"\| Charts",?41,"\|Patients",?50,"\|Patients",! Line Location: P7C+4
Function Call: WRITE	Prompt: " #",?5,"\| Race and ",?23,"\|Patients",?32,"\|Sampled",?41,"\| with",?50,"\| with",! Line Location: P7C+5
Function Call: WRITE	Prompt: ?5,"\| Ethnicity",?23,"\|18 ",?32,"\| or EHR",?41,"\| HbA1c",?50,"\| HbA1c",! Line Location: P7C+6
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|through",?32,"\|Total",?41,"\| <8%",?50,"\|>9% Or No",! Line Location: P7C+7
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|75 Years",?32,"\|",?41,"\| ",?50,"\| Test",! Line Location: P7C+8
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|of Age",?32,"\|",?41,"\|",?50,"\|During Year",! Line Location: P7C+9
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|with",?32,"\|",?41,"\|",?50,"\|",! Line Location: P7C+10
Function Call: WRITE	Prompt: ?5,"\|",?23,"\|Diabetes",?32,"\|",?41,"\|",?50,"\|",! Line Location: P7C+11
Function Call: WRITE	Prompt: ?5,"\|",?23,"\| (3a)",?32,"\| (3b)",?41,"\| (3d1)",?50,"\| (3f)",! Line Location: P7C+12
Function Call: WRITE	Prompt: BUDTELB,! Line Location: P7C+14
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",72),! Line Location: P7C+15
Function Call: WRITE	Prompt: BUDTELN_"a",?5,"\| Asian" Line Location: P7C+16
Function Call: WRITE	Prompt: BUDTELN_"b1",?5,"\| Native Hawaiian" Line Location: P7C+18
Function Call: WRITE	Prompt: BUDTELN_"b2",?5,"\| Other Pacific" Line Location: P7C+20
Function Call: WRITE	Prompt: ?5,"\| Islander" Line Location: P7C+21
Function Call: WRITE	Prompt: BUDTELN_"c",?5,"\| Black/African" Line Location: P7C+23
Function Call: WRITE	Prompt: ?5,"\| American" Line Location: P7C+24
Function Call: WRITE	Prompt: BUDTELN_"d",?5,"\| American Indian/" Line Location: P7C+26
Function Call: WRITE	Prompt: ?5,"\| Alaska Native" Line Location: P7C+27
Function Call: WRITE	Prompt: BUDTELN_"e",?5,"\| White" Line Location: P7C+29
Function Call: WRITE	Prompt: BUDTELN_"f",?5,"\| More than One" Line Location: P7C+31
Function Call: WRITE	Prompt: ?5,"\| Race" Line Location: P7C+32
Function Call: WRITE	Prompt: BUDTELN_"g",?5,"\| Unreported/" Line Location: P7C+34
Function Call: WRITE	Prompt: ?5,"\| Refused" Line Location: P7C+35
Function Call: WRITE	Prompt: ?5,"\| to Report Race" Line Location: P7C+36
Function Call: WRITE	Prompt: ?5,"\| Subtotal" Line Location: P7C+38
Function Call: WRITE	Prompt: ?16,"Non-" Line Location: P7C+39
Function Call: WRITE	Prompt: ?5,"\| ",$S(BUDTELB["-":$P(BUDTELB,"-",2),1:BUDTELB) Line Location: P7C+41
Function Call: WRITE	Prompt: "_____\|_________________\|________\|________\|________\|____________________",! Line Location: RC+2
Function Call: WRITE	Prompt: ?23,"\|",?24,$$C($P($G(BUDSECTC(BUDTELL,X)),U,1),7),?32,"\|",?33,$$C($P($G(BUDSECTC(BUDTELL,X)),U,2),7),?41,"\|",?42,$$C($P($G(BUDSECTC(BUDTELL,X)),U,4),7) Line Location: R1C+1
Function Call: WRITE	Prompt: ?50,"\|",?51,$$C($P($G(BUDSECTC(BUDTELL,X)),U,5),7),! Line Location: R1C+2
Function Call: WRITE	Prompt: ?23,"\|",?32,"\|",?41,"\|",?50,"\|",! Line Location: R2C+1
Function Call: WRITE	Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),! Line Location: T7H+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",29),?29,"\|",$$REPEAT^XLFSTR("_",9),?39,"\|",$$REPEAT^XLFSTR("_",9),?49,"\|",$$REPEAT^XLFSTR("_",9),?50,"\|",$$REPEAT^XLFSTR("_",9),?59,"\|",! Line Location: LINE1+1
Function Call: WRITE	Prompt: !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES",60),!,$$REPEAT^XLFSTR("_",69),! Line Location: T7H1+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",69),?59,"\|",! Line Location: LINE4+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",29),?29,"\|",$$REPEAT^XLFSTR("_",9),?39,"\|",$$REPEAT^XLFSTR("_",9),?49,"\|",$$REPEAT^XLFSTR("_",9),?50,"\|",$$REPEAT^XLFSTR("_",9),?59,"\|",! Line Location: LINE5+1
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",69),?59,"\|",! Line Location: LINE+1
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1
^TMP($J	PRINT+6!, PRINT+7*
^VA(200 - [#200]	USR+1
^XTMP("BUDDRP7"	PL+3!, LISTS+9!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDDECNT	PRINT+8*
>> BUDDMR1L	LISTS+7
>> BUDDMR2L	LISTS+8
>> BUDDMRL	LISTS+6
>> BUDGPG	LISTS+1, LISTS+2, LISTS+3, LISTS+4, LISTS+5, LISTS+6, LISTS+7, LISTS+8
>> BUDH	PL+3, LISTS+9
>> BUDHTCRL	LISTS+4
>> BUDHTRL	LISTS+3
>> BUDHTURL	LISTS+5
>> BUDJ	PL+3, LISTS+9
>> BUDPG	PRINT+1*
>> BUDPRGHL	LISTS+1
>> BUDPRGRL	LISTS+2
>> BUDQUIT	PRINT+3*, PRINT+11, PRINT+14, PRINT+25, B7+3, B7+6, B7+16, C7+3, C7+6, C7+18 , P71+1, P7B+1, P7C+1
>> BUDROT	PRINT+4, PL+2
>> BUDSECTB(	P7B+38, R1B+1
>> BUDSECTB(4	B7+14
>> BUDSECTC(	P7C+42, P7C+43, R1C+1, R1C+2
>> BUDSECTC(4	C7+15, C7+16
>> BUDSECTH(1	P71+5
>> BUDTELB	PRINT+9, PRINT+12, B7+1, B7+4, C7+1, C7+4, P71+4, P71A+8, P71A+33, P71A+35 , P7B+10, P7B+35, P7B+37, P7C+14, P7C+39, P7C+41
>> BUDTELL	B7+1, B7+4, B7+12, C7+1, C7+4, C7+12, P7B+38, R1B+1, P7C+42, P7C+43 , R1C+1, R1C+2
>> BUDTELN	PRINT+9, PRINT+12, B7+1, B7+4, C7+1, C7+4, P71A+10, P71A+12, P71A+14, P71A+17 , P71A+20, P71A+23, P71A+25, P71A+28, P7B+12, P7B+14, P7B+16, P7B+19, P7B+22, P7B+25 , P7B+27, P7B+30, P7C+16, P7C+18, P7C+20, P7C+23, P7C+26, P7C+29, P7C+31, P7C+34
DA	PAUSE+1!
DIR	PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1*
DUZ	USR+1
DUZ(2	LOC+1
IOM	CTR+1
U	B7+14, C7+15, C7+16, P71+5, P7B+38, R1B+1, P7C+42, P7C+43, R1C+1, R1C+2 , USR+1, LOC+1
X	B7+12, C7+12, P7B+12, P7B+14, P7B+17, P7B+20, P7B+23, P7B+25, P7B+28, P7B+32 , R1B+1, P7C+16, P7C+18, P7C+21, P7C+24, P7C+27, P7C+29, P7C+32, P7C+36, R1C+1 , R1C+2, CTR~, CTR+1, C~, C+1, C+5
>> X2	C+3*
>> X3	C+3*
Y	CTR~, CTR+1, C~, C+1, C+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDDRP71

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
$$C	B7+14, C7+15, C7+16, P7B+38, R1B+1, P7C+42, P7C+43, R1C+1, R1C+2
$$CTR	P71+2, P7B+2, P7C+2, T7H+1, T7H1+1
LISTS	PL
P71	PRINT+10, PRINT+13
P71A	P71+4
P7B	B7+2, B7+5
P7C	C7+2, C7+5
PL	PRINT+4
R	PRINT+22, PRINT+24, P71A+7, P71A+11, P71A+13, P71A+16, P71A+19, P71A+22, P71A+24, P71A+27 , P71A+31, P71A+36
R1	PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+23, P71A+10, P71A+12, P71A+14, P71A+15, P71A+17 , P71A+18, P71A+20, P71A+21, P71A+23, P71A+25, P71A+26, P71A+28, P71A+29, P71A+30, P71A+34
R1B	B7+12, P7B+12, P7B+14, P7B+17, P7B+20, P7B+23, P7B+25, P7B+28, P7B+32
R1C	C7+12, P7C+16, P7C+18, P7C+21, P7C+24, P7C+27, P7C+29, P7C+32, P7C+36
R2B	B7+9, B7+10, B7+11, P7B+16, P7B+19, P7B+22, P7B+27, P7B+30, P7B+31, P7B+36
R2C	C7+9, C7+10, C7+11, P7C+20, P7C+23, P7C+26, P7C+31, P7C+34, P7C+35, P7C+40
RB	B7+13, B7+15, P7B+9, P7B+13, P7B+15, P7B+18, P7B+21, P7B+24, P7B+26, P7B+29 , P7B+33, P7B+39
RC	C7+13, C7+17, P7C+13, P7C+17, P7C+19, P7C+22, P7C+25, P7C+28, P7C+30, P7C+33 , P7C+37, P7C+44
T7H	P71+1, P7B+1, P7C+1