Global: ^BGPHEIIA

FileMan FileNo	FileMan Filename	Package
90531.02	BGP 07 HEDIS INDIVIDUAL INDICATORS	IHS GPRA Information System

Package	Total	Routines
IHS GPRA Information System	3	BGP7DCHI BGP7HEL1 BGP7HEP1

Package	Total	FileMan Files
IHS GPRA Information System	1	BGP 07 HEDIS INDICATORS(#90531.01)[.01]

Fields, Total: 38

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 19, 2003` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
.01	INDICATOR	0;1	POINTER TO BGP 07 HEDIS INDICATORS FILE (#90531.01)	**********************REQUIRED FIELD********************** BGP 07 HEDIS INDICATORS(#90531.01) LAST EDITED: `MAR 20, 2004` CROSS-REFERENCE: `90531.02^B` 1)= S ^BGPHEIIA("B",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("B",$E(X,1,30),DA)
.019	INDICATOR		COMPUTED	MUMPS CODE: `N DIT X ^DD(90531.02,.019,9.2) S DIT(101)=$S($D(^BGPIND(D0,0)):^(0),1:"") S X=$P(DIT(101),U,4) S D0=DIT(80)` 9.2 = S DIT(80)=$S($D(D0):D0,1:""),DIT(1)=$S($D(^BGPHEIIA(D0,0)):^(0),1:""),D0=$P(DIT(1),U,1) S:'$D(^BGPIND(+D0,0)) D0=-1 ALGORITHM: `#.01:#.04`
.02	CORRESPONDING GPRA	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAR 25, 2004` HELP-PROMPT: `Answer must be 1-10 characters in length.`
.03	CORRESPONDING GPRA ORDER	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `MAR 20, 2004` HELP-PROMPT: `Answer must be 1-8 characters in length.`
.04	INDICATOR ID	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `NOV 17, 2003` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `90531.02^C` 1)= S ^BGPHEIIA("C",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("C",$E(X,1,30),DA) CROSS-REFERENCE: `90531.02^AA^MUMPS` 1)= S ^BGPHEIIA("AA",$P(X,".",1,2),DA)="" 2)= K ^BGPHEIIA("AA",$P(X,".",1,2),DA)
.07	EISS	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 31, 2002` CROSS-REFERENCE: `90531.02^AEISS` 1)= S ^BGPHEIIA("AEISS",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("AEISS",$E(X,1,30),DA)
.08	DENOM FIELD NUMBER	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X` LAST EDITED: `FEB 17, 2003` HELP-PROMPT: `Type a Number between 1 and 999999, 3 Decimal Digits` CROSS-REFERENCE: `90531.02^ADF` 1)= S ^BGPHEIIA("ADF",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("ADF",$E(X,1,30),DA)
.09	NUMERATOR FIELD NUMBER	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X` LAST EDITED: `FEB 17, 2003` HELP-PROMPT: `Type a Number between 1 and 999999, 3 Decimal Digits` CROSS-REFERENCE: `90531.02^ANF` 1)= S ^BGPHEIIA("ANF",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("ANF",$E(X,1,30),DA)
.11	EISS DENOM PIECE	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 10, 2003` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits`
.13	CARDIO INDICATOR?	0;13	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 31, 2002` CROSS-REFERENCE: `90531.02^ACARD` 1)= S ^BGPHEIIA("ACARD",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("ACARD",$E(X,1,30),DA)
.15	LINE TITLE 1	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `MAR 04, 2003` HELP-PROMPT: `Answer must be 1-35 characters in length`
.16	LINE TITLE 2	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 04, 2003` HELP-PROMPT: `Answer must be 1-30 characters in length`
.17	LOCAL DENOM TITLE 1	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>39!($L(X)<1) X` LAST EDITED: `JUL 28, 2003` HELP-PROMPT: `Answer must be 1-39 characters in length.`
.18	LOCAL DENOM TITLE 2	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 10, 2003` HELP-PROMPT: `Answer must be 1-30 characters in length.`
.19	LINE TITLE 3	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `JAN 17, 2003` HELP-PROMPT: `Answer must be 1-18 characters in length.`
.21	LOCAL DENOM TITLE 3	0;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<3) X` LAST EDITED: `NOV 17, 2003` HELP-PROMPT: `Answer must be 3-18 characters in length.`
1	M CODE NUMERATOR	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 06, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	M CODE DENOMINATOR	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 06, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1101	GPRA DENOM LINE TITLE	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 11, 2003` HELP-PROMPT: `Answer must be 1-40 characters in length`
1102	GPRA DENOM TITLE 2	11;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<1) X` LAST EDITED: `FEB 10, 2003` HELP-PROMPT: `Answer must be 1-17 characters in length.`
1103	GPRA DENOM TITLE 3	11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `FEB 10, 2003` HELP-PROMPT: `Answer must be 1-15 characters in length.`
1104	AREA DENOM TITLE 1	11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `FEB 11, 2003` HELP-PROMPT: `Answer must be 1-40 characters in length`
1105	AREA DENOM TITLE 2	11;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `FEB 11, 2003` HELP-PROMPT: `Answer must be 1-19 characters in length`
1106	AREA DENOM TITLE 3	11;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<1) X` LAST EDITED: `FEB 17, 2003` HELP-PROMPT: `Answer must be 1-17 characters in length`
1201	HEDIS?	12;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 02, 2003`
1202	WOMEN'S HEALTH	12;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 08, 2003` CROSS-REFERENCE: `90531.02^AWH` 1)= S ^BGPHEIIA("AWH",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("AWH",$E(X,1,30),DA)
1203	PREVENTION RELATED	12;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 08, 2003` CROSS-REFERENCE: `90531.02^APR` 1)= S ^BGPHEIIA("APR",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("APR",$E(X,1,30),DA)
1204	ORDER	12;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `NOV 20, 2006` HELP-PROMPT: `Answer must be 1-12 characters in length.` CROSS-REFERENCE: `90531.02^ABC^MUMPS` 1)= S ^BGPHEIIA("ABC",$P(X,".",1),$TR(X,".",""),DA)="" 2)= K ^BGPHEIIA("ABC",$P(X,".",1),$TR(X,".",""),DA) CROSS-REFERENCE: `90531.02^AB^MUMPS` 1)= S ^BGPHEIIA("AB",$P(X,".",1),X,DA)="" 2)= K ^BGPHEIIA("AB",$P(X,".",1),X,DA) CROSS-REFERENCE: `90531.02^OR` 1)= S ^BGPHEIIA("OR",$E(X,1,30),DA)="" 2)= K ^BGPHEIIA("OR",$E(X,1,30),DA)
1205	ADD GPRA TO 1ST LINE	12;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 17, 2003`
1206	ADD GPRA TO SECOND LINE	12;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 17, 2003`
1207	ADD GPRA TO 3RD LINE	12;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 17, 2003`
1401	SUMMARY?	14;1	SET	'1' FOR Y; '0' FOR NO; LAST EDITED: `NOV 07, 2003`
1402	NATIONAL CURRENT	14;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 07, 2003` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1403	NATIONAL PREVIOUS	14;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 07, 2003` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1404	TITLE	14;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `NOV 07, 2003` HELP-PROMPT: `Answer must be 1-40 characters in length.`
1405	CATEGORY	14;5	SET	'1' FOR DIABETES (for Active Diabetic patients); '2' FOR DENTAL; '3' FOR IMMUNIZATIONS; '4' FOR PREVENTION; '5' FOR PREGNANT WOMEN; '6' FOR PUBLIC HEALTH NURSING; LAST EDITED: `DEC 10, 2003`
1406	ORDER ON SUMMARY SHEET	14;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 08, 2003` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`

Customize PDF page

Package: IHS GPRA Information System

Global: ^BGPHEIIA

Information

Description

Directly Accessed By Routines, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 38