Sub-Field: 9002226.02101

Parent File	Name	Number	Package
TAXONOMY(#9002226)	VALUE	9002226.02101	Taxonomy

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LOW VALUE	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<1) X` LAST EDITED: `DEC 07, 2015` HELP-PROMPT: `Answer must be 1-63 characters in length.` CROSS-REFERENCE: `9002226.02101^B` 1)= S ^ATXAX(DA(1),21,"B",$E(X,1,30),DA)="" 2)= K ^ATXAX(DA(1),21,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9002226.02101^AA2^MUMPS` 1)= I $P(^ATXAX(DA(1),21,DA,0),U,2)]"" N %,A S A=$S($E(X,$L(X))=" ":"",$P(^ATXAX(DA(1),0),U,13):" ",1:""),%=$P(^ATXAX(DA(1),21,DA,0),U,2)_A,^ATXAX(DA(1),21,"AA",(X_A),%)="" 2)= I $P(^ATXAX(DA(1),21,DA,0),U,2)]"" N % S %=X S:($E(%,$L(%))'=" ")&($P(^ATXAX(DA(1),0),U,13)) %=%_" " K ^ATXAX(DA(1),21,"AA",%) CROSS-REFERENCE: `9002226.02101^AC^MUMPS` 1)= I $$ICDTX^ATXXREF(DA(1)) D SETAC^ATXXREF 2)= I $$ICDTX^ATXXREF(DA(1)) D KILLAC1^ATXXREF
.02	HIGH VALUE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<1) X` LAST EDITED: `DEC 07, 2015` HELP-PROMPT: `Answer must be 1-63 characters in length.` CROSS-REFERENCE: `9002226^AA^MUMPS` 1)= N %,A S A=$S($E(X,$L(X))=" ":"",$P(^ATXAX(DA(1),0),U,13):" ",1:""),%=$P(^ATXAX(DA(1),21,DA,0),U)_A,^ATXAX(DA(1),21,"AA",%,(X_A))="" 2)= N % S %=$P(^ATXAX(DA(1),21,DA,0),U) S:($E(%,$L(%))'=" ")&($P(^ATXAX(DA(1),0),U,13)) %=%_" " K ^ATXAX(DA(1),21,"AA",%) CROSS-REFERENCE: `9002226^ACO^MUMPS` 1)= I $$ICDTX^ATXXREF(DA(1)) D SETAC^ATXXREF 2)= I $$ICDTX^ATXXREF(DA(1)) D KILLAC2^ATXXREF
.03	CODING SYSTEM	0;3	POINTER TO ICD CODING SYSTEMS FILE (#80.4)	ICD CODING SYSTEMS(#80.4) LAST EDITED: `OCT 29, 2015` DESCRIPTION: This field will be filled in for ICD Diagnoses and Procedures Only. CROSS-REFERENCE: `9002226.02101^ACT^MUMPS` 1)= I $$ICDTX^ATXXREF(DA(1)) D SETAC^ATXXREF 2)= Q

LOW VALUE

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<1) X
LAST EDITED: DEC 07, 2015
HELP-PROMPT: Answer must be 1-63 characters in length.

CROSS-REFERENCE: 9002226.02101^B

1)= S ^ATXAX(DA(1),21,"B",$E(X,1,30),DA)=""

2)= K ^ATXAX(DA(1),21,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 9002226.02101^AA2^MUMPS

1)= I $P(^ATXAX(DA(1),21,DA,0),U,2)]"" N %,A S A=$S($E(X,$L(X))=" ":"",$P(^ATXAX(DA(1),0),U,13):" ",1:""),%=$P(^ATXAX(DA(1),21,DA,0),U,2)_A,^ATXAX(DA(1),21,"AA",(X_A),%)=""

2)= I $P(^ATXAX(DA(1),21,DA,0),U,2)]"" N % S %=X S:($E(%,$L(%))'=" ")&($P(^ATXAX(DA(1),0),U,13)) %=%_" " K ^ATXAX(DA(1),21,"AA",%)

CROSS-REFERENCE: 9002226.02101^AC^MUMPS

1)= I $$ICDTX^ATXXREF(DA(1)) D SETAC^ATXXREF

2)= I $$ICDTX^ATXXREF(DA(1)) D KILLAC1^ATXXREF

.02

HIGH VALUE

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<1) X
LAST EDITED: DEC 07, 2015
HELP-PROMPT: Answer must be 1-63 characters in length.

CROSS-REFERENCE: 9002226^AA^MUMPS

1)= N %,A S A=$S($E(X,$L(X))=" ":"",$P(^ATXAX(DA(1),0),U,13):" ",1:""),%=$P(^ATXAX(DA(1),21,DA,0),U)_A,^ATXAX(DA(1),21,"AA",%,(X_A))=""

2)= N % S %=$P(^ATXAX(DA(1),21,DA,0),U) S:($E(%,$L(%))'=" ")&($P(^ATXAX(DA(1),0),U,13)) %=%_" " K ^ATXAX(DA(1),21,"AA",%)

CROSS-REFERENCE: 9002226^ACO^MUMPS

1)= I $$ICDTX^ATXXREF(DA(1)) D SETAC^ATXXREF

2)= I $$ICDTX^ATXXREF(DA(1)) D KILLAC2^ATXXREF

.03

CODING SYSTEM

0;3

POINTER TO ICD CODING SYSTEMS FILE (#80.4)

ICD CODING SYSTEMS(#80.4)

LAST EDITED: OCT 29, 2015

DESCRIPTION:

This field will be filled in for ICD Diagnoses and Procedures Only.

CROSS-REFERENCE: 9002226.02101^ACT^MUMPS

1)= I $$ICDTX^ATXXREF(DA(1)) D SETAC^ATXXREF

2)= Q

Customize PDF page

Package: Taxonomy

TAXONOMY(#9002226)-->9002226.02101

Sub-Field: 9002226.02101

Information

Details