Sub-Field: 90548.0114

Parent File	Name	Number	Package
BGP 12 MEASURES(#90548.01)	TAXONOMIES USED	90548.0114	IHS GPRA Information System

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TAXONOMIES USED	0;1	SET	'D' FOR DIAGNOSIS; 'P' FOR PROCEDURE; 'L' FOR LAB; 'M' FOR MEDICATION; 'O' FOR LOINC; 'N' FOR NDC; 'C' FOR CPT; 'X' FOR CVX; 'A' FOR ADA CODES; LAST EDITED: `FEB 23, 2012` CROSS-REFERENCE: `90548.0114^B` 1)= S ^BGPINDW(DA(1),14,"B",$E(X,1,30),DA)="" 2)= K ^BGPINDW(DA(1),14,"B",$E(X,1,30),DA)
.02	TAX PTR (PROGRAMMER USE ONLY)	0;2	POINTER TO TAXONOMY FILE (#9002226)	TAXONOMY(#9002226) LAST EDITED: `FEB 22, 2012` CROSS-REFERENCE: `^^TRIGGER^90548.0114^.03` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BGPINDW(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90548.0114,.02,1,1,1.1) X ^DD(90548.0114,.02,1,1,1.4) 1.1)= S X=DIV S I(1,0)=$G(D1),I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ATXAX(+D0,0)) D0=-1 S Y(101)=$S($D(^ATXAX(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) 1.4)= S DIH=$G(^BGPINDW(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90548.0114,DIG=.03 D ^DICR 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BGPINDW(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90548.0114,.02,1,1,2.1) X ^DD(90548.0114,.02,1,1,2.4) 2.1)= S X=DIV X ^DD(90548.0114,.02,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0) 2.4)= S DIH=$G(^BGPINDW(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90548.0114,DIG=.03 D ^DICR 59.2)= S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^BGPINDW(D0,14,D1,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'D0!'$D(^ATXAX(+D0,0)) D0=-1 S Y(101)=$S($D(^ATXAX(D0,0)):^(0),1:"") CREATE VALUE)= #.02:#.01 DELETE VALUE)= #.02:#.01 FIELD)= #.03
.03	TAXONOMY	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 22, 2012` HELP-PROMPT: `Answer must be 1-30 characters in length.` NOTES: `TRIGGERED by the TAX PTR (PROGRAMMER USE ONLY) field of the TAXONOMIES USED sub-field of the BGP 12 MEASURES File`

.01

TAXONOMIES USED

0;1

SET

'D' FOR DIAGNOSIS;
'P' FOR PROCEDURE;
'L' FOR LAB;
'M' FOR MEDICATION;
'O' FOR LOINC;
'N' FOR NDC;
'C' FOR CPT;
'X' FOR CVX;
'A' FOR ADA CODES;

LAST EDITED: FEB 23, 2012

CROSS-REFERENCE: 90548.0114^B

1)= S ^BGPINDW(DA(1),14,"B",$E(X,1,30),DA)=""

2)= K ^BGPINDW(DA(1),14,"B",$E(X,1,30),DA)

.02

TAX PTR (PROGRAMMER USE ONLY)

0;2

POINTER TO TAXONOMY FILE (#9002226)

TAXONOMY(#9002226)

LAST EDITED: FEB 22, 2012

CROSS-REFERENCE: ^^TRIGGER^90548.0114^.03

1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BGPINDW(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90548.0114,.02,1,1,1.1) X ^DD(90548.0114,.02,1,1,1.4)

1.1)= S X=DIV S I(1,0)=$G(D1),I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ATXAX(+D0,0)) D0=-1 S Y(101)=$S($D(^ATXAX(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)

1.4)= S DIH=$G(^BGPINDW(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90548.0114,DIG=.03 D ^DICR

2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BGPINDW(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90548.0114,.02,1,1,2.1) X ^DD(90548.0114,.02,1,1,2.4)

2.1)= S X=DIV X ^DD(90548.0114,.02,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)

2.4)= S DIH=$G(^BGPINDW(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90548.0114,DIG=.03 D ^DICR

59.2)= S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^BGPINDW(D0,14,D1,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'D0!'$D(^ATXAX(+D0,0)) D0=-1 S Y(101)=$S($D(^ATXAX(D0,0)):^(0),1:"")

CREATE VALUE)= #.02:#.01

DELETE VALUE)= #.02:#.01

FIELD)= #.03

.03

TAXONOMY

0;3

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 22, 2012
HELP-PROMPT: Answer must be 1-30 characters in length.
NOTES: TRIGGERED by the TAX PTR (PROGRAMMER USE ONLY) field of the TAXONOMIES USED sub-field of the BGP 12 MEASURES File

Customize PDF page

Package: IHS GPRA Information System

BGP 12 MEASURES(#90548.01)-->90548.0114

Sub-Field: 90548.0114

Information

Details