Sub-Field: 90001.5121

Parent File	Name	Number	Package
RCIS ICD DIAGNOSTIC CATEGORY(#90001.51)	CODE RANGES	90001.5121	Referred Care Information System

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LOW CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<3) X` LAST EDITED: `AUG 30, 2013` HELP-PROMPT: `Answer must be 3-8 characters in length.` TECHNICAL DESCR: This field contains the low code in the icd code range. CROSS-REFERENCE: `90001.5121^B` 1)= S ^BMCTDXC(DA(1),21,"B",$E(X,1,30),DA)="" 2)= K ^BMCTDXC(DA(1),21,"B",$E(X,1,30),DA) CROSS-REFERENCE: `90001.51^AC2^MUMPS` 1)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U,2) S:%'="" ^BMCTDXC("AC",X_" ",%_" ",DA(1))="" 2)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U,2) K:%'="" ^BMCTDXC("AC",X_" ",%_" ",DA(1)) This xref creates a non-canonic icd range xref 'low code,high code'.
.02	HIGH CODE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<3) X` LAST EDITED: `AUG 30, 2013` HELP-PROMPT: `Answer must be 3-8 characters in length.` TECHNICAL DESCR: This field contains the high code in the icd code range. CROSS-REFERENCE: `90001.51^AC^MUMPS` 1)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U) S:%'="" ^BMCTDXC("AC",%_" ",X_" ",DA(1))="" 2)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U) K:%'="" ^BMCTDXC("AC",%_" ",X_" ",DA(1)) This icd xref creates a non-canonic xref 'low code,high code'.

LOW CODE

0;1

FREE TEXT

************************REQUIRED FIELD************************

TECHNICAL DESCR:

This field contains the low code in the icd code range.

CROSS-REFERENCE: 90001.5121^B

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

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

CROSS-REFERENCE: 90001.51^AC2^MUMPS

1)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U,2) S:%'="" ^BMCTDXC("AC",X_" ",%_" ",DA(1))=""

2)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U,2) K:%'="" ^BMCTDXC("AC",X_" ",%_" ",DA(1))

This xref creates a non-canonic icd range xref 'low code,high code'.

HIGH CODE

0;2

FREE TEXT

************************REQUIRED FIELD************************

TECHNICAL DESCR:

This field contains the high code in the icd code range.

CROSS-REFERENCE: 90001.51^AC^MUMPS

1)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U) S:%'="" ^BMCTDXC("AC",%_" ",X_" ",DA(1))=""

2)= S %=$P(^BMCTDXC(DA(1),21,DA,0),U) K:%'="" ^BMCTDXC("AC",%_" ",X_" ",DA(1))

This icd xref creates a non-canonic xref 'low code,high code'.