Global: ^BGPINDW

FileMan FileNo	FileMan Filename	Package
90548.01	BGP 12 MEASURES	IHS GPRA Information System

Package	Total	Routines
IHS GPRA Information System	52	BGP2DAP BGP2DBPR BGP2DCI BGP2DL BGP2DNE BGP2DP BGP2DP1 BGP2DP11 BGP2DP12 BGP2DP13 BGP2DP14 BGP2DP19 BGP2DP1C BGP2DP1H BGP2DP1I BGP2DP1J BGP2DP1K BGP2DP1L BGP2DP1M BGP2DP1N BGP2DP2 BGP2DP3 BGP2DP4 BGP2DP5 BGP2DP50 BGP2DP51 BGP2DP6 BGP2DP60 BGP2DP8 BGP2DPP BGP2DS BGP2DSI BGP2DSL BGP2DSTM BGP2GT BGP2GTA BGP2NPL BGP2NPLD BGP2NPLP BGP2P3 BGP2PDL BGP2PDL0 BGP2PDL1 BGP2PDL2 BGP2PDL3 BGP2PDL4 BGP2PDL7 BGP2PDLL BGP2PDLS BGP2PDLT BGP2POS2 BGP2UTL

Package	Total	Routines
IHS GPRA Information System	2	BGP2P3 BGP2POS2

Package	Total	FileMan Files
IHS GPRA Information System	2	BGP 12 INDIVIDUAL MEASURES(#90548.02)[.01] BGP 12 NATIONAL PATIENT LISTS(#90548.06)[.01]

Package	Total	FileMan Files
Taxonomy	2	TAXONOMY(#9002226)[#90548.0114(.02)] LAB TAXONOMY(#9002228)[#90548.0115(.01)]
IHS GPRA Information System	1	BGP 12 MEASURE GROUPS(#90548.1)[1204]

Fields, Total: 55

Field #	Name	Loc	Type	Details
.01	MEASURE NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `APR 07, 2007` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: The fiscal year this indicator is relevant to. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90548.01^B` 1)= S ^BGPINDW("B",$E(X,1,30),DA)="" 2)= K ^BGPINDW("B",$E(X,1,30),DA)
.02	ORDER ON SELECTION/REPORT	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `NOV 08, 2003` HELP-PROMPT: `Answer must be 1-5 characters in length.` CROSS-REFERENCE: `90548.01^AO` 1)= S ^BGPINDW("AO",$E(X,1,30),DA)="" 2)= K ^BGPINDW("AO",$E(X,1,30),DA)
.03	TITLE/SELECTION TITLE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>140!($L(X)<1) X` LAST EDITED: `OCT 27, 2008` HELP-PROMPT: `Answer must be 1-140 characters in length.` CROSS-REFERENCE: `90548.01^C` 1)= S ^BGPINDW("C",$E(X,1,30),DA)="" 2)= K ^BGPINDW("C",$E(X,1,30),DA) CROSS-REFERENCE: `90548.01^U^MUMPS` 1)= S ^BGPINDW("U",$$UP^XLFSTR(X),DA)="" 2)= K ^BGPINDW("U",$$UP^XLFSTR(X),DA)
.05	LIST SELECTION TITLE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>85!($L(X)<1) X` LAST EDITED: `AUG 26, 2007` HELP-PROMPT: `Answer must be 1-85 characters in length.`
.06	ORDER TO DISPLAY	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 20, 2003` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
.07	NATIONAL REPORT	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 19, 2004` CROSS-REFERENCE: `90548.01^GPRA` 1)= S ^BGPINDW("GPRA",$E(X,1,30),DA)="" 2)= K ^BGPINDW("GPRA",$E(X,1,30),DA)
.12	NO LIST	0;12	SET	'1' FOR YES, NO LIST; LAST EDITED: `MAR 18, 2004`
.13	# DENOMINATORS	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 29, 2006` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
.14	DEVELOPMENTAL MEASURE?	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 15, 2010` CROSS-REFERENCE: `90548.01^ADEV` 1)= S ^BGPINDW("ADEV",$E(X,1,30),DA)="" 2)= K ^BGPINDW("ADEV",$E(X,1,30),DA)
1	M CODE TO EXECUTE	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `DEC 30, 2002` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	SET LIST VALUE	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 08, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
3	PRINT M CODE	3;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 07, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
4	DELIMITED FILE PRINT	4;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 09, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1100	SELECTED REPORT FY LOGIC TEXT	11;0	WORD-PROCESSING #90548.0111	LAST EDITED: `JUL 05, 2007`
1201	OTHER NATIONAL MEASURES RPT?	12;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 2009` CROSS-REFERENCE: `90548.01^ON` 1)= S ^BGPINDW("ON",$E(X,1,30),DA)="" 2)= K ^BGPINDW("ON",$E(X,1,30),DA)
1202	WEB SITE UNIQUE ID	12;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAR 07, 2009` HELP-PROMPT: `Answer must be 1-10 characters in length`
1203	PUID FROM RM	12;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 31, 2010` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` CROSS-REFERENCE: `90548.01^PUID` 1)= S ^BGPINDW("PUID",$E(X,1,30),DA)="" 2)= K ^BGPINDW("PUID",$E(X,1,30),DA)
1204	GROUP	12;4	POINTER TO BGP 12 MEASURE GROUPS FILE (#90548.1)	BGP 12 MEASURE GROUPS(#90548.1) LAST EDITED: `MAR 30, 2010`
1205	UPDATED THIS YEAR?	12;5	SET	'1' FOR YES; LAST EDITED: `APR 01, 2010`
1206	ORDER IND	12;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 19, 2010` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` CROSS-REFERENCE: `90548.01^AOI` 1)= S ^BGPINDW("AOI",$E(X,1,30),DA)="" 2)= K ^BGPINDW("AOI",$E(X,1,30),DA) CROSS-REFERENCE: `90548.01^D` 1)= S ^BGPINDW("D",$E(X,1,30),DA)="" 2)= K ^BGPINDW("D",$E(X,1,30),DA)
1301	SKIP SELECTED REPORT?	13;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 13, 2010`
1302	ORDER ON DEVELOPMENTAL REPORT	13;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 21, 2010` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` CROSS-REFERENCE: `90548.01^ADEVO` 1)= S ^BGPINDW("ADEVO",$E(X,1,30),DA)="" 2)= K ^BGPINDW("ADEVO",$E(X,1,30),DA)
1303	SKIP NGR PRINT/DEV ONLY	13;3	SET	'1' FOR YES; LAST EDITED: `FEB 15, 2010`
1400	TAXONOMIES USED	14;0	SET Multiple #90548.0114	90548.0114 IDENTIFIED BY: `TAXONOMY(#.03)`
1500	LAB TAXONOMIES USED	15;0	POINTER Multiple #90548.0115	90548.0115
5100	INDICATOR DESCRIPTION	51;0	WORD-PROCESSING #90548.0151
5200	PAST PERFORMANCE	52;0	WORD-PROCESSING #90548.0152	LAST EDITED: `JAN 17, 2003`
5300	REPORT PRINT 2ND PAGE	53;0	WORD-PROCESSING #90548.0153
5400	NATIONAL GPRA/PART LOGIC TEXT	54;0	WORD-PROCESSING #90548.54	LAST EDITED: `MAR 07, 2009`
5500	SOURCE	55;0	WORD-PROCESSING #90548.55
5600	OTHER NATIONAL GPRA LOGIC TEXT	56;0	WORD-PROCESSING #90548.56
5700	INDICATOR DESCRIPTION FOR 10	57;0	WORD-PROCESSING #90548.57	LAST EDITED: `JUL 14, 2009`
5800	DEVEOPMENTAL RPT LOGIC TEXT	58;0	WORD-PROCESSING #90548.58
6100	SELECTED MEASURES DENOM DEF	61;0	Multiple #90548.0161	90548.0161 LAST EDITED: `MAR 29, 2010`
6200	SELECTED MEAS NUMERATOR DEFS	62;0	Multiple #90548.0162	90548.0162 LAST EDITED: `MAR 29, 2010`
7100	REPORT LIST 1ST PAGE	71;0	WORD-PROCESSING #90548.0171
7200	LIST PRINT SECOND PAGE	72;0	WORD-PROCESSING #90548.0172
8100	NATL GPRA DENOM DEFS	81;0	Multiple #90548.0181	90548.0181
8200	NATL GPRA NUMERATOR DEFS	82;0	Multiple #90548.0182	90548.0182
8300	OTHER NATL MEAS DENOM DEFS	83;0	Multiple #90548.0183	90548.0183
8400	OTHER NATL MEAS NUMER DEFS	84;0	Multiple #90548.0184	90548.0184
8500	DEVELOPMENTAL MEAS DENOM DEFS	85;0	Multiple #90548.0185	90548.0185 LAST EDITED: `MAR 29, 2010`
8600	DEVELOPMENTAL MEAS NUMER DEFS	86;0	Multiple #90548.0186	90548.0186
8700	DM DENOM DEFS	87;0	Multiple #90548.0187	90548.0187
8800	DM NUMER DEFS	88;0	Multiple #90548.0188	90548.0188
8900	CVD DENOM DEFS	89;0	Multiple #90548.0189	90548.0189
9100	CVD NUM DEFS	91;0	Multiple #90548.0191	90548.0191
9200	WH DEN DEFS	92;0	Multiple #90548.0192	90548.0192
9300	WH NUM DEFS	93;0	Multiple #90548.0193	90548.0193
9400	IPC DEN DEFS	94;0	Multiple #90548.0194	90548.0194
9500	IPC NUM DEFS	95;0	Multiple #90548.0195	90548.0195
9600	PQA DEM DEFS	96;0	Multiple #90548.0196	90548.0196
9700	PQA NUM DEFS	97;0	Multiple #90548.0197	90548.0197
9800	ASTHMA DEN DEFS	98;0	Multiple #90548.0198	90548.0198
9900	ASTHMA NUM DEFS	99;0	Multiple #90548.0199	90548.0199

Customize PDF page

Package: IHS GPRA Information System

Global: ^BGPINDW

Information

Description

Directly Accessed By Routines, Total: 56

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 55