Print Page as PDF
ICDXCD ICR (5684)

ICDXCD    ICR (5684)

Name Value
NUMBER 5684
IA # 5684
DATE CREATED 2011/06/08
CUSTODIAL PACKAGE DRG GROUPER
USAGE Private
TYPE Routine
ROUTINE ICDXCD
NAME ICDXCD
GENERAL DESCRIPTION 
Routine ICDXCD was developed to replace ICDCODE during
the ICD-10 project to navigate between the ICD-9 Diagnosis file 80 and the
ICD-10 Diagnosis file 8010 under the two file solution.  The two file solution
had the ICD-9 codes and ICD-10 codes stored in two separate files.  This
solution was abandoned in favor of the one file solution where both ICD-9 and
ICD-10 are stored in the same file (ICD Diagnosis file 80).  Routine ICDXCD
was abandoned and never exported to test sites, and will not be released to
the field.  This ICR is not used.
STATUS Withdrawn
KEYWORDS DX
EXPIRATION DATE 2013/09/09
ID ICDXCD
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$DX(CODE,FMT,CDT) 
Returns information about an ICD-10 Diagnosis code.
VARIABLES TYPE VARIABLES DESCRIPTION
CODE Input 
ICD-10 Diagnosis Code or Internal Entry Number (IEN)
as appropriate to the format input parameter (FMT).  (Required)
FMT Input 
Input Format;  "E" = Code, "I" = Internal (Optional,
default IEN)
CDT Input 
This is a date in FileMan format used to check if a
code is active or inactive on a specified date. (Optional, default is TODAY)
$$DX Output 
Returns an 19 piece "^" delimited string

1  IEN ^ICD10DX(       8010
2  ICD-10 Dx Code      #.01  0;1
3  Identifier          #2    0;2
4  Versioned Dx        #67   67;0
8010.067   #1   0;2
5  Unacc as Prin. Dx   #101  0;4
6  Major Dx Cat        #5    0;5
7  MDC13               #5.5  0;6
8  <null>
9  <null>
10  Status              #66   66:0
8010.066   #.02 0;2
11  Sex                 #9.5  0;8
12  Inactive Date       #66   66;0
8010.066   #.01 0;1
13  MDC24               #5.7  0;12
14  MDC25               #5.9  0;13
15  Age Low             #14   0;14
16  Age High            #15   0;15
17  Activation Date     #66   66;0
8010.066   #.01 0;1
18  <null>
19  Versioned C/C       #103  69;0
8010.0103  #1   0;2

or

-1^Error Description
$$PR(CODE,FMT,CDT) 
Returns information about an ICD-10 Procedure code.
VARIABLES TYPE VARIABLES DESCRIPTION
CODE Input 
ICD-10 Diagnosis Code or Internal Entry Number (IEN)
as appropriate to the format input parameter (FMT).  (Required)
FMT Input 
Input Format;  "E" = Code, "I" = Internal (Optional,
default IEN)
CDT Input 
This is a date in FileMan format used to check if a
code is active or inactive on a specified date. (Optional, default is TODAY)
$$LD Output 
Returns an 13 piece ^ delimited string

1  IEN ^ICD10DX(     8010.1
2  ICD-9 code        #.01  0;1
3  Id                #2    0;2
4  MDC24             #5    0;3
5  Oper/Proc         #67   67;0
8010.167   #1   0;2
6  <null>
7  <null>
8  <null>
9  <null>
10 Status            #66   66:0
8010.166   #.02 0;2
11 Use with Sex      #9.5  0;8
12 Inactive Date     #66   66:0
8010.166   #.01 0;1
13 Activation Date   #66   66:0
8010.166   #.01 0;1

or

-1^Error Description
$$SD(IEN,DIC,CDT,ARY,LEN) 
ICD-10 Diagnosis/Procedure Short Description
VARIABLES TYPE VARIABLES DESCRIPTION
IEN Input 
Internal Entry Number of either the ICD-10 Diagnosis
file 8010 or the ICD-10 Procedure file 8010.1.  (Required)
DIC Input 
Open Global Root/File Number (same as Fileman's DIC
variable) of either the ICD-10 Diagnosis file 8010 or the ICD-10 Procedure
file 8010.1.  (Required)
CDT Input 
This is a date in FileMan format used to check if a
code is active or inactive on a specified date. (Optional, default is TODAY)
.ARY Input 
Local array name, passed by reference.  If passed the
short description will be parsed and stored in this array with a string length
equal or less than that specified by the input parameter LEN.  (Optional)
LEN Input 
Length of the text strings in the local array passed
in the input parameter .ARY (15-79, default 60, field length of the short
description) (Optional)
$$SD Output 
Short Description OR -1 ^ Error Message
ARY Output 
If passed, this is a local array containing the short
description and parsed into string lengths equal or less than that specified
by the input parameter LEN. The 0 node of the array will be set to a two piece
"^" delimited string containing the number of text lines stored in the array
and the effective date of the short description.

Example

K X,Y S X=$$SD(1672,8010,3131001,.Y,32)

.ARY Y is passed with a length of 32

Y(0)="2^3101001" Y(1)="Mix cellular class Hdgkn lymph," Y(2)="nodes of axla
and upper limb"
$$LD(IEN,DIC,CDT,ARY,LEN) 
ICD-10 Diagnosis/Procedure Long Description
VARIABLES TYPE VARIABLES DESCRIPTION
IEN Input 
Internal Entry Number of either the ICD-10 Diagnosis
file 8010 or the ICD-10 Procedure file 8010.1.  (Required)
DIC Input 
Open Global Root/File Number (same as Fileman's DIC
variable) of either the ICD-10 Diagnosis file 8010 or the ICD-10 Procedure
file 8010.1.  (Required)
CDT Input 
This is a date in FileMan format used to check if a
code is active or inactive on a specified date. (Optional, default is TODAY)
.ARY Input 
Local array name, passed by reference.  If passed the
long description will be parsed and stored in this array with a string length
equal or less than that specified by the input parameter LEN.  (Optional)
LEN Input 
Length of the text strings in the local array passed
in the input parameter .ARY (15-79, default 60, field length of the long
description) (Optional)
$$LD Output 
Long Description OR -1 ^ Error Message
ARY Output 
If passed, this is a local array containing the long
description and parsed into string lengths equal or less than that specified
by the input parameter LEN. The 0 node of the array will be set to a two piece
"^" delimited string containing the number of text lines stored in the array
and the effective date of the long description.

Example

K X,Y S X=$$LD(1672,8010,3131001,.Y,32)

.ARY Y is passed with a length of 32

Y(0)="3^3101001" Y(1)="MIXED CELLULARITY CLASSICAL" Y(2)="HODGKIN LYMPHOMA,
LYMPH NODES" Y(3)="OF AXILLA AND UPPER LIMB"