STANDARD DATA DICTIONARY #80 -- ICD DIAGNOSIS FILE 3/24/25 PAGE 1 STORED IN ^ICD9( (90791 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 18.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- ICD Diagnosis file #80 contains codes from the International Classification of Diseases (ICD) Clinical Modification (CM) provided by the Centers for Medicare and Medicaid Services (CMS) and the National Center for Health Statistics (NCHS). This file contains both the 9th (ICD-9-CM) and 10th (ICD-10-CM) Revisions. If an entry needs to be added, modified or deleted, a patch will be issued containing the change. This table file should NOT be edited in anyway by the site. SPECIAL LOOKUP ROUTINE : ICDEXLK DD ACCESS: @ RD ACCESS: d WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ AUDIT ACCESS: APPLICATION GROUP(S): PXRS, QAM IDENTIFIED BY: CODING SYSTEM (#1.1) POINTED TO BY: DIAGNOSIS field (#.03) of the SUBSCRIBER ADDITIONAL INFO sub-field (#2.3229) of the ELIGIBILITY/BENEFIT sub-field (#2.322) of the INSURANCE TYPE sub-field (#2.312) of the PATIENT File (#2) ICD OR CPT CODE field (#3) of the CATASTROPHIC DISABILITY REASONS File (#27.17) RELATED ICD CODES field (#.01) of the RELATED ICD CODES sub-field (#31.01) of the DISABILITY CONDITION File (#31) DIAGNOSIS field (#.01) of the DIAGNOSIS sub-field (#44.11) of the HOSPITAL LOCATION File (#44) PRINCIPAL DIAGNOSIS field (#79) of the PTF File (#45) SECONDARY DIAGNOSIS 1 field (#79.16) of the PTF File (#45) SECONDARY DIAGNOSIS 2 field (#79.17) of the PTF File (#45) SECONDARY DIAGNOSIS 3 field (#79.18) of the PTF File (#45) SECONDARY DIAGNOSIS 4 field (#79.19) of the PTF File (#45) SECONDARY DIAGNOSIS 5 field (#79.201) of the PTF File (#45) SECONDARY DIAGNOSIS 6 field (#79.21) of the PTF File (#45) SECONDARY DIAGNOSIS 7 field (#79.22) of the PTF File (#45) SECONDARY DIAGNOSIS 8 field (#79.23) of the PTF File (#45) SECONDARY DIAGNOSIS 9 field (#79.24) of the PTF File (#45) SECONDARY DIAGNOSIS 10 field (#79.241) of the PTF File (#45) SECONDARY DIAGNOSIS 11 field (#79.242) of the PTF File (#45) SECONDARY DIAGNOSIS 12 field (#79.243) of the PTF File (#45) SECONDARY DIAGNOSIS 13 field (#79.244) of the PTF File (#45) SECONDARY DIAGNOSIS 14 field (#79.245) of the PTF File (#45) SECONDARY DIAGNOSIS 15 field (#79.246) of the PTF File (#45) SECONDARY DIAGNOSIS 16 field (#79.247) of the PTF File (#45) SECONDARY DIAGNOSIS 17 field (#79.248) of the PTF File (#45) SECONDARY DIAGNOSIS 18 field (#79.249) of the PTF File (#45) SECONDARY DIAGNOSIS 19 field (#79.2491) of the PTF File (#45) SECONDARY DIAGNOSIS 20 field (#79.24911) of the PTF File (#45) SECONDARY DIAGNOSIS 21 field (#79.24912) of the PTF File (#45) SECONDARY DIAGNOSIS 22 field (#79.24913) of the PTF File (#45) SECONDARY DIAGNOSIS 23 field (#79.24914) of the PTF File (#45) SECONDARY DIAGNOSIS 24 field (#79.24915) of the PTF File (#45) PRINCIPAL DIAGNOSIS pre 1986 field (#80) of the PTF File (#45) ICD 1 field (#5) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 2 field (#6) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 3 field (#7) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 4 field (#8) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 5 field (#9) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 6 field (#11) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 7 field (#12) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 8 field (#13) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 9 field (#14) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 10 field (#15) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 11 field (#81.01) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 12 field (#81.02) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 13 field (#81.03) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 14 field (#81.04) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 15 field (#81.05) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 16 field (#81.06) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 17 field (#81.07) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 18 field (#81.08) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 19 field (#81.09) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 20 field (#81.1) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 21 field (#81.11) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 22 field (#81.12) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 23 field (#81.13) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 24 field (#81.14) of the 501 sub-field (#45.02) of the PTF File (#45) ICD 25 field (#81.15) of the 501 sub-field (#45.02) of the PTF File (#45) PRIMARY DIAGNOSIS field (#.04) of the CPT RECORD DATE/TIME sub-field (#45.06) of the PTF File (#45) DIAGNOSIS/PROCEDURE CODE field (#.02) of the PTF EXPANDED CODE File (#45.89) PRIMARY DIAGNOSIS field (#.04) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 1 field (#.05) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 2 field (#.06) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 3 field (#.07) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 4 field (#.21) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 5 field (#.22) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 6 field (#.23) of the INPATIENT CPT CODE File (#46) SECONDARY DIAGNOSIS 7 field (#.24) of the INPATIENT CPT CODE File (#46) DIAGNOSIS field (#.01) of the INPATIENT POV File (#46.1) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#52.052311) of the PRESCRIPTION File (#52) DIAGNOSIS field (#.01) of the DIAGNOSIS sub-field (#52.41311) of the PENDING OUTPATIENT ORDERS File (#52.41) ICD CODE field (#.01) of the ICD CODE sub-field (#63.203) of the EM sub-field (#63.02) of the LAB DATA File (#63) AUTOPSY ICD CODE field (#.01) of the AUTOPSY ICD CODE sub-field (#63.808) of the LAB DATA File (#63) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#63.88) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#63.901) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63) CODE field (#.01) of the CODE sub-field (#64.018) of the WKLD CODE File (#64) CODE field (#.01) of the CODE sub-field (#64.811718) of the TRANSPORT sub-field (#64.8117) of the LAB NLT/CPT CODES File (#64.81) ICD-9 CODES field (#.01) of the ICD-9 CODES sub-field (#69.05) of the TEST sub-field (#69.03) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY File (#69) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#69.54) of the LAB SEARCH/EXTRACT File (#69.5) PRIMARY ORDERING ICD DIAGNOSIS field (#91) of the RAD/NUC MED ORDERS File (#75.1) SECONDARY ORDERING ICD DIAG. field (#.01) of the SECONDARY ORDERING ICD DIAG. sub-field (#75.13) of the RAD/NUC MED ORDERS File (#75.1) ICD CODE NOT TO USE WITH field (#.01) of the ICD CODES NOT TO USE WITH sub-field (#80.01) of the ICD DIAGNOSIS File (#80) ICD CODE REQUIRED WITH field (#.01) of the ICD CODES REQUIRED WITH sub-field (#80.02) of the ICD DIAGNOSIS File (#80) ICD CODE NOT CC WITH field (#.01) of the ICD CODES NOT CC WITH sub-field (#80.03) of the ICD DIAGNOSIS File (#80) DIAGNOSIS CODE field (#.01) of the DIAGNOSIS CODE sub-field (#80.62) of the DRG HAC File (#80.6) ONE OF field (#.01) of the ONE OF sub-field (#82.1211) of the BLOCK sub-field (#82.121) of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12) WITH ONE OF 1 field (#.01) of the WITH ONE OF 1 sub-field (#82.1212) of the BLOCK sub-field (#82.121) of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12) WITH ONE OF 2 field (#.01) of the WITH ONE OF 2 sub-field (#82.1213) of the BLOCK sub-field (#82.121) of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12) WITH ONE OF 3 field (#.01) of the WITH ONE OF 3 sub-field (#82.1214) of the BLOCK sub-field (#82.121) of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12) WITH ONE OF 4 field (#.01) of the WITH ONE OF 4 sub-field (#82.1215) of the BLOCK sub-field (#82.121) of the DRG DIAGNOSIS CODE COMBINATIONS File (#82.12) PDX field (#.01) of the PDX sub-field (#82.131) of the DRG CC EXCLUSIONS File (#82.13) DIAGNOSIS field (#.01) of the DRG DIAGNOSIS File (#83.5) PRINCIPAL DIAGNOSIS field (#.02) of the DRG PDX EXCLUSION GROUPS File (#83.51) *PRINCIPAL ICD9 DIAGNOSIS field (#113) of the MEDICAL RECORD File (#90) *X ICD9 DIAGNOSIS field (#113.6) of the MEDICAL RECORD File (#90) *ICD9 DIAGNOSIS field (#.01) of the *ICD9 DIAGNOSIS sub-field (#90.1) of the MEDICAL RECORD File (#90) *PAST PRINCIPAL ICD9 DX field (#.01) of the *PAST PRINCIPAL ICD9 DX sub-field (#90.16) of the MEDICAL RECORD File (#90) *PAST ICD9 X DIAGNOSIS field (#.01) of the *PAST ICD9 X DIAGNOSIS sub-field (#90.17) of the MEDICAL RECORD File (#90) ORDER DIAGNOSES field (#.01) of the ORDER DIAGNOSES sub-field (#100.051) of the ORDER File (#100) PRIN PRE-OP ICD DIAGNOSIS CODE field (#32.5) of the SURGERY File (#130) PLANNED PRIN DIAGNOSIS CODE field (#66) of the SURGERY File (#130) OTHER RESPIRATORY OCCURRENCE field (#253) of the SURGERY File (#130) OTHER URINARY TRACT OCCURRENCE field (#286) of the SURGERY File (#130) OTHER CNS OCCURRENCE field (#343) of the SURGERY File (#130) OTHER CARDIAC OCCURRENCE field (#344) of the SURGERY File (#130) OTHER OCCURRENCES (ICD) field (#392) of the SURGERY File (#130) OTHER WOUND OCCURRENCE field (#489) of the SURGERY File (#130) ICD DIAGNOSIS CODE field (#4) of the INTRAOPERATIVE OCCURRENCES sub-field (#130.13) of the SURGERY File (#130) ICD DIAGNOSIS CODE field (#3) of the OTHER PREOP DIAGNOSIS sub-field (#130.17) of the SURGERY File (#130) PLANNED ICD DIAGNOSIS CODE field (#3) of the OTHER POSTOP DIAGS sub-field (#130.18) of the SURGERY File (#130) ICD DIAGNOSIS CODE field (#6) of the POSTOP OCCURRENCE sub-field (#130.22) of the SURGERY File (#130) PRIN POSTOP DIAGNOSIS CODE field (#.03) of the SURGERY PROCEDURE/DIAGNOSIS CODES File (#136) PRIN ASSOCIATED DIAGNOSIS field (#.01) of the PRIN ASSOCIATED DIAGNOSES sub-field (#136.02) of the SURGERY PROCEDURE/DIAGNOSIS CODES File (#136) OTHER POSTOP DIAGNOSIS CODE field (#.01) of the OTHER POSTOP DIAGNOSIS CODES sub-field (#136.04) of the SURGERY PROCEDURE/DIAGNOSIS CODES File (#136) OTHER ASSOCIATED DIAGNOSIS field (#.01) of the OTHER ASSOCIATED DIAGNOSES sub-field (#136.32) of the OTHER PROCEDURE CODES sub-field (#136.03) of the SURGERY PROCEDURE/DIAGNOSIS CODES File (#136) CAUSE OF DEATH field (#19) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #1 field (#25) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #2 field (#25.1) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #3 field (#25.2) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #4 field (#25.3) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #5 field (#25.4) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #6 field (#25.5) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #7 field (#25.6) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #8 field (#25.7) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #9 field (#25.8) of the ONCOLOGY PATIENT File (#160) COMORBIDITY/COMPLICATION #10 field (#25.9) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #1 field (#25.91) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #2 field (#25.92) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #3 field (#25.93) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #4 field (#25.94) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #5 field (#25.95) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #6 field (#25.96) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #7 field (#25.97) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #8 field (#25.98) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #9 field (#25.99) of the ONCOLOGY PATIENT File (#160) SECONDARY DIAGNOSIS #10 field (#25.9901) of the ONCOLOGY PATIENT File (#160) ICD9 field (#8) of the SUSPENSE sub-field (#160.075) of the ONCOLOGY PATIENT File (#160) ICD DIAGNOSIS field (#.087) of the AUTHORIZATION sub-field (#161.01) of the FEE BASIS PATIENT File (#161) PRIMARY DIAGNOSIS field (#28) of the SERVICE PROVIDED sub-field (#162.03) of the INITIAL TREATMENT DATE sub-field (#162.02) of the VENDOR sub-field (#162.01) of the FEE BASIS PAYMENT File (#162) ICD1 field (#30) of the FEE BASIS INVOICE File (#162.5) ICD2 field (#31) of the FEE BASIS INVOICE File (#162.5) ICD3 field (#32) of the FEE BASIS INVOICE File (#162.5) ICD4 field (#33) of the FEE BASIS INVOICE File (#162.5) ICD5 field (#34) of the FEE BASIS INVOICE File (#162.5) ICD6 field (#35) of the FEE BASIS INVOICE File (#162.5) ICD7 field (#35.1) of the FEE BASIS INVOICE File (#162.5) ICD8 field (#35.2) of the FEE BASIS INVOICE File (#162.5) ICD9 field (#35.3) of the FEE BASIS INVOICE File (#162.5) ICD10 field (#35.4) of the FEE BASIS INVOICE File (#162.5) ICD11 field (#35.5) of the FEE BASIS INVOICE File (#162.5) ICD12 field (#35.6) of the FEE BASIS INVOICE File (#162.5) ICD13 field (#35.7) of the FEE BASIS INVOICE File (#162.5) ICD14 field (#35.8) of the FEE BASIS INVOICE File (#162.5) ICD15 field (#35.9) of the FEE BASIS INVOICE File (#162.5) ICD16 field (#36) of the FEE BASIS INVOICE File (#162.5) ICD17 field (#36.1) of the FEE BASIS INVOICE File (#162.5) ICD18 field (#36.2) of the FEE BASIS INVOICE File (#162.5) ICD19 field (#36.3) of the FEE BASIS INVOICE File (#162.5) ICD20 field (#36.4) of the FEE BASIS INVOICE File (#162.5) ICD21 field (#36.5) of the FEE BASIS INVOICE File (#162.5) ICD22 field (#36.6) of the FEE BASIS INVOICE File (#162.5) ICD23 field (#36.7) of the FEE BASIS INVOICE File (#162.5) ICD24 field (#36.8) of the FEE BASIS INVOICE File (#162.5) ICD25 field (#36.9) of the FEE BASIS INVOICE File (#162.5) ADMITTING DIAGNOSIS field (#39) of the FEE BASIS INVOICE File (#162.5) ICD DIAGNOSIS field (#5.1) of the FEE BASIS UNAUTHORIZED CLAIMS File (#162.7) LNG CO-MORBID CONDITION 1 field (#1400) of the ONCOLOGY PRIMARY File (#165.5) LNG CO-MORBID CONDITION 2 field (#1400.1) of the ONCOLOGY PRIMARY File (#165.5) LNG CO-MORBID CONDITION 3 field (#1400.2) of the ONCOLOGY PRIMARY File (#165.5) LNG CO-MORBID CONDITION 4 field (#1400.3) of the ONCOLOGY PRIMARY File (#165.5) LNG CO-MORBID CONDITION 5 field (#1400.4) of the ONCOLOGY PRIMARY File (#165.5) LNG CO-MORBID CONDITION 6 field (#1400.5) of the ONCOLOGY PRIMARY File (#165.5) LNG COMPLICATION #1 field (#1426) of the ONCOLOGY PRIMARY File (#165.5) LNG COMPLICATION #2 field (#1426.1) of the ONCOLOGY PRIMARY File (#165.5) LNG COMPLICATION #3 field (#1426.2) of the ONCOLOGY PRIMARY File (#165.5) LNG COMPLICATION #4 field (#1426.3) of the ONCOLOGY PRIMARY File (#165.5) LNG COMPLICATION #5 field (#1426.4) of the ONCOLOGY PRIMARY File (#165.5) GAS CO-MORBID CONDITION 1 field (#1571) of the ONCOLOGY PRIMARY File (#165.5) GAS CO-MORBID CONDITION 2 field (#1571.1) of the ONCOLOGY PRIMARY File (#165.5) GAS CO-MORBID CONDITION 3 field (#1571.2) of the ONCOLOGY PRIMARY File (#165.5) GAS CO-MORBID CONDITION 4 field (#1571.3) of the ONCOLOGY PRIMARY File (#165.5) GAS CO-MORBID CONDITION 5 field (#1571.4) of the ONCOLOGY PRIMARY File (#165.5) GAS CO-MORBID CONDITION 6 field (#1571.5) of the ONCOLOGY PRIMARY File (#165.5) GAS COMPLICATION #1 field (#1579) of the ONCOLOGY PRIMARY File (#165.5) GAS COMPLICATION #2 field (#1579.1) of the ONCOLOGY PRIMARY File (#165.5) GAS COMPLICATION #3 field (#1579.2) of the ONCOLOGY PRIMARY File (#165.5) GAS COMPLICATION #4 field (#1579.3) of the ONCOLOGY PRIMARY File (#165.5) GAS COMPLICATION #5 field (#1579.4) of the ONCOLOGY PRIMARY File (#165.5) DIAGNOSIS field (#.01) of the PERSONAL DIAGNOSES LIST sub-field (#200.0351) of the NEW PERSON File (#200) ICD CODE field (#.02) of the DISCHARGE DIAGNOSIS sub-field (#230.04) of the ED LOG File (#230) DEFAULT RX REFILL DX field (#1.29) of the IB SITE PARAMETERS File (#350.9) DEFAULT RX REFILL DX ICD-10 field (#7.05) of the IB SITE PARAMETERS File (#350.9) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#351.612) of the TRANSFER PRICING TRANSACTIONS File (#351.61) DIAGNOSIS AUTHORIZED field (#.14) of the INSURANCE REVIEW File (#356.2) DIAGNOSIS CODE field (#.02) of the PATIENT DIAGNOSIS sub-field (#356.223) of the HCS REVIEW TRANSMISSION File (#356.22) DIAGNOSIS field (#.01) of the INPATIENT DIAGNOSIS File (#356.9) DIAGNOSIS field (#.01) of the IB BILL/CLAIMS DIAGNOSIS File (#362.3) DIAGNOSIS field (#.03) of the SUBSCRIBER ADDITIONAL INFO sub-field (#365.29) of the ELIGIBILITY/BENEFIT sub-field (#365.02) of the IIV RESPONSE File (#365) DIAGNOSIS CODE field (#.03) of the DIAGNOSIS sub-field (#373.04) of the PFSS CHARGE CACHE File (#373) DIAGNOSIS CODE field (#.03) of the DIAGNOSIS sub-field (#375.04) of the PFSS ACCOUNT File (#375) *ICD DIAGNOSIS CODE (2) field (#65) of the BILL/CLAIMS File (#399) *ICD DIAGNOSIS CODE (3) field (#66) of the BILL/CLAIMS File (#399) *ICD DIAGNOSIS CODE (4) field (#67) of the BILL/CLAIMS File (#399) *ICD DIAGNOSIS CODE (5) field (#68) of the BILL/CLAIMS File (#399) ADMITTING DIAGNOSIS field (#215) of the BILL/CLAIMS File (#399) PRV DIAGNOSIS (1) field (#249) of the BILL/CLAIMS File (#399) PRV DIAGNOSIS (2) field (#250) of the BILL/CLAIMS File (#399) PRV DIAGNOSIS (3) field (#251) of the BILL/CLAIMS File (#399) *ASSOCIATED DIAGNOSIS field (#7) of the PROCEDURES sub-field (#399.0304) of the BILL/CLAIMS File (#399) DIAGNOSIS field (#.01) of the OUTPATIENT DIAGNOSIS File (#409.43) DIAGNOSIS field (#1) of the DIAGNOSTIC RESULTS - MENTAL HEALTH File (#627.8) PRIMARY DIAGNOSIS @ ADMISSION field (#18) of the HBHC PATIENT File (#631) PRIMARY DIAGNOSIS @ DISCHARGE field (#46) of the HBHC PATIENT File (#631) DX field (#.01) of the DX sub-field (#632.033) of the HBHC VISIT File (#632) SUSPENSE ICD field (#8.8) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) PRIMARY ICD DIAGNOSIS CODE field (#30) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) SECONDARY ICD DIAGNOSIS CODE 1 field (#31) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) SECONDARY ICD DIAGNOSIS 2 field (#32) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) SECONDARY ICD DIAGNOSIS 3 field (#33) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) PRIMARY ICD DIAGNOSIS CODE field (#30) of the HOME OXYGEN PRESCRIPTION sub-field (#665.193) of the PROSTHETICS PATIENT File (#665) SECONDARY ICD DIAGNOSIS CODE 1 field (#31) of the HOME OXYGEN PRESCRIPTION sub-field (#665.193) of the PROSTHETICS PATIENT File (#665) SECONDARY ICD DIAGNOSIS CODE 2 field (#32) of the HOME OXYGEN PRESCRIPTION sub-field (#665.193) of the PROSTHETICS PATIENT File (#665) SECONDARY ICD DIAGNOSIS CODE 3 field (#33) of the HOME OXYGEN PRESCRIPTION sub-field (#665.193) of the PROSTHETICS PATIENT File (#665) ICD CODE field (#7) of the HOME OXYGEN ITEM sub-field (#665.194) of the PROSTHETICS PATIENT File (#665) ICD9 CODE field (#9) of the ITEM sub-field (#665.723191) of the PATIENT sub-field (#665.72319) of the VENDOR sub-field (#665.7231) of the BILLING MONTH sub-field (#665.723) of the HOME OXYGEN TRANSACTIONS FILE File (#665.72) ICD field (#1.6) of the PROSTHETIC SUSPENSE File (#668) PRIMARY ICD DIAGNOSIS CODE field (#30) of the PROSTHETIC SUSPENSE File (#668) SECONDARY ICD DIAGNOSIS 1 field (#31) of the PROSTHETIC SUSPENSE File (#668) SECONDARY ICD DIAGNOSIS 2 field (#32) of the PROSTHETIC SUSPENSE File (#668) SECONDARY ICD DIAGNOSIS 3 field (#33) of the PROSTHETIC SUSPENSE File (#668) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.19) of the ECHO File (#691) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.46) of the CARDIAC CATHETERIZATION File (#691.1) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.58) of the ELECTROCARDIOGRAM (EKG) File (#691.5) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.69) of the HOLTER File (#691.6) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.704) of the EXERCISE TOLERANCE TEST File (#691.7) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.806) of the ELECTROPHYSIOLOGY (EP) File (#691.8) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#691.9001) of the ATRIAL STUDY File (#691.9) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#692.03) of the VENTRICULAR STUDY File (#692) ICD POINTER field (#2) of the MEDICAL DESCRIPTION File (#693) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#694.02) of the HEMATOLOGY File (#694) INTEGRATOR ICD CODE field (#4) of the MEDICAL DIAGNOSIS/ICD CODES File (#697.5) ICD CODE field (#.01) of the ICD CODE sub-field (#697.51) of the MEDICAL DIAGNOSIS/ICD CODES File (#697.5) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#698.02) of the GENERATOR IMPLANT File (#698) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#698.12) of the V LEAD IMPLANT File (#698.1) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#698.22) of the A LEAD IMPLANT File (#698.2) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#698.32) of the PACEMAKER SURVEILLANCE File (#698.3) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#699.03) of the ENDOSCOPY/CONSULT File (#699) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#699.54) of the GENERALIZED PROCEDURE/CONSULT File (#699.5) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#700.05) of the PULMONARY FUNCTION TESTS File (#700) ICD DIAGNOSIS field (#.01) of the ICD DIAGNOSIS sub-field (#701.01) of the RHEUMATOLOGY File (#701) PRIMARY ICD CODE field (#20) of the EVENT CAPTURE PATIENT File (#721) SECONDARY ICD CODE field (#.01) of the SECONDARY ICD CODE sub-field (#721.038) of the EVENT CAPTURE PATIENT File (#721) ICD CODE field (#.01) of the ICD CODE sub-field (#798.51) of the ROR ICD SEARCH File (#798.5) ADDITIONAL FINDINGS field (#18) of the REMINDER DIALOG File (#801.41) ICD9 DIAGNOSIS field (#.06) of the TIU PROBLEM LINK File (#8925.9) ENTRY field (#.02) of the LOCAL KEYWORD File (#8984.1) ENTRY field (#.02) of the LOCAL SHORTCUT File (#8984.2) CODE field (#.01) of the A&SP DIAGNOSTIC CONDITION File (#509850.1) POV field (#.01) of the V POV File (#9000010.07) ANCILLARY POV field (#1213) of the V IMMUNIZATION File (#9000010.11) PRIMARY DIAGNOSIS field (#1304) of the V IMMUNIZATION File (#9000010.11) OTHER DIAGNOSIS field (#.01) of the OTHER DIAGNOSIS sub-field (#9000010.113) of the V IMMUNIZATION File (#9000010.11) PRIMARY DIAGNOSIS field (#801) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 2 field (#802) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 3 field (#803) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 4 field (#804) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 5 field (#805) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 6 field (#806) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 7 field (#807) of the V SKIN TEST File (#9000010.12) DIAGNOSIS 8 field (#808) of the V SKIN TEST File (#9000010.12) DIAGNOSIS field (#.05) of the V CPT File (#9000010.18) DIAGNOSIS 2 field (#.09) of the V CPT File (#9000010.18) DIAGNOSIS 3 field (#.1) of the V CPT File (#9000010.18) DIAGNOSIS 4 field (#.11) of the V CPT File (#9000010.18) DIAGNOSIS 5 field (#.12) of the V CPT File (#9000010.18) DIAGNOSIS 6 field (#.13) of the V CPT File (#9000010.18) DIAGNOSIS 7 field (#.14) of the V CPT File (#9000010.18) DIAGNOSIS 8 field (#.15) of the V CPT File (#9000010.18) DIAGNOSIS field (#.01) of the PROBLEM File (#9000011) ANCILLARY POV field (#1213) of the V IMMUNIZATION DELETED File (#9000080.11) PRIMARY DIAGNOSIS field (#1304) of the V IMMUNIZATION DELETED File (#9000080.11) OTHER DIAGNOSIS field (#.01) of the OTHER DIAGNOSIS sub-field (#9000080.113) of the V IMMUNIZATION DELETED File (#9000080.11) CROSS REFERENCED BY: ICD CODE NOT CC WITH(ACC), CODE NUMBER(ACT1), STATUS EFFECTIVE DATE(ACT2), STATUS(ACT3), CODING SYSTEM(ACT4), DESCRIPTION(AD), CODING SYSTEM(AD2), WORD(AD3), DESCRIPTION EFFECTIVE DATE(ADSS1), CODING SYSTEM(ADSS2), DIAGNOSIS EFFECTIVE DATE(AST), DIAGNOSIS EFFECTIVE DATE(ASTS1), CODING SYSTEM(ASTS2), DESCRIPTION(D) INDEXED BY: CODE NUMBER (AB), CODING SYSTEM & CODE NUMBER (ABA), CODE NUMBER (AEXC), CODING SYSTEM & CODE NUMBER (AN), CODE NUMBER & ICD EXPANDED (AVA), CODE NUMBER (BA) 80,.01 CODE NUMBER 0;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X LAST EDITED: FEB 22, 2012 HELP-PROMPT: Answer must be 1-8 characters in length. DESCRIPTION: ICD-9 or ICD-10 Code TECHNICAL DESCR: ICD-9 Code Pattern Match 1 2 3 4 5 6 7 - - - - - - - N N N . N N Numeric n n U N N N . N N E codes n n U N N . N N V codes n n "U" Uppercase "N" Numeric "n"Character ICD-10 Code Pattern Match 1 2 3 4 5 6 7 8 - - - - - - - - U N U . U U N U X N N N X N X X n n n n "U" Uppercase "X" In the first position - Category Right of the decimal - Placeholder "N" Numeric "." Decimal "n" Null LAYGO TEST: 1,0)= I 1 CROSS-REFERENCE: 80^ACT1^MUMPS 1)= D SAHC^ICDIDX2(80) 2)= D KAHC^ICDIDX2(80) ^ICD9("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD9("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) Where CODE is the ICD code, STA is either 1 (active) or 0 (inactive), EF is the effective date of the status, IEN1 is the internal entry number in file #80 and IEN2 is the internal entry number on the STATUS multiple sub-file 80.066 where the status is stored. The subscript SYS is added to the ACTS cross reference to create a coding system specific cross-reference. FIELD INDEX: AB (#1125) REGULAR IR SORTING ONLY Short Descr: AB Code Cross-Reference Description: ^ICD9("AB",(CODE_" "),IEN) - Where CODE is the ICD code and IEN is the internal entry number in file #80. Appending a space character to CODE forces the code to be regarded as a string, thus disallowing the dropping of leading '0's. Set Logic: S ^ICD9("AB",$E(X,1,30),DA)="" Set Cond: S X=$S(+($$GET1^DIQ(80,(+DA_","),1.8))'>0:1,1:0) Kill Logic: K ^ICD9("AB",$E(X,1,30),DA) Whole Kill: K ^ICD9("AB") X(1): CODE NUMBER (80,.01) (Subscr 1) (Len 30) (forwards) Transform (Storage): S X=(X_" ") FIELD INDEX: AEXC (#1127) REGULAR IR SORTING ONLY Short Descr: AEXC Exclusion Cross-Reference for all Coding Systems Description: ^ICD9("AEXC",(CODE_" "),IEN) - Where CODE is an ICD code and IEN is the internal entry number in file #80 where the code is stored. This cross-reference is used to track those records that were either entered or edited in error. When a record is either entered or edited in error, it cannot be deleted because there may be applications pointing to the record. Instead the record is retired from lookup so future lookups will not find or return the errant record. This is done by leaving the code and descriptive text in place and removing the activation history. The lookup (either Fileman or Special Lookup) acts as if the record was never active, thus preventing the users from accessing the record. Set Logic: S ^ICD9("AEXC",$E(X,1,30),DA)="" Set Cond: S X=$S(($O(^ICD9(+DA,66,0))'>0&($O(^ICD9(+DA,68,0))>0)):1,1:0) Kill Logic: K ^ICD9("AEXC",$E(X,1,30),DA) Whole Kill: K ^ICD9("AEXC") X(1): CODE NUMBER (80,.01) (Subscr 1) (Len 30) (forwards) Transform (Storage): S X=(X_" ") FIELD INDEX: BA (#1130) REGULAR IR LOOKUP & SORTING Short Descr: BA Cross-Reference for all Coding Systems Description: ^ICD9("BA",(CODE_" "),IEN) - Where CODE is an ICD code and IEN is the internal entry number in file #80 where the code is stored. Appending a space character to CODE forces the code to be regarded as a string, thus disallowing the dropping of leading '0's. The BA cross-references is used by Fileman during unassisted lookups when DIC(0) contains "I" Set Logic: S ^ICD9("BA",$E(X,1,30),DA)="" Set Cond: S X=$S(+($$GET1^DIQ(80,(+DA_","),1.8))'>0:1,1:0) Kill Logic: K ^ICD9("BA",$E(X,1,30),DA) Whole Kill: K ^ICD9("BA") X(1): CODE NUMBER (80,.01) (Subscr 1) (Len 30) (forwards) Transform (Storage): S X=(X_" ") RECORD INDEXES: ABA (#1126), AN (#1128), AVA (#1129) 80,1.1 CODING SYSTEM 1;1 POINTER TO ICD CODING SYSTEMS FILE (#80.4) INPUT TRANSFORM: I $P($G(^ICDS(+Y,0)),"^",4)=80 D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X LAST EDITED: OCT 05, 2011 HELP-PROMPT: Enter a coding system. DESCRIPTION: This is the coding system to which the code belongs. SCREEN: I $P($G(^ICDS(+Y,0)),"^",4)=80 EXPLANATION: The screen limits the coding system to those allowed in file 80. CROSS-REFERENCE: 80^ACT4^MUMPS 1)= D SAHCS^ICDIDX2(80) 2)= D KAHCS^ICDIDX2(80) ^ICD9("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD9("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) where CODE is the ICD code, STA is either 1 (active) or 0 (inactive), EF is the effective date of the status, IEN1 is the internal entry number in file #80 and IEN2 is the internal entry number on the STATUS multiple sub-file 80.066 where the status is stored. The subscript SYS is added to the ACTS cross-reference to create a coding system specific cross-reference. CROSS-REFERENCE: 80^AD2^MUMPS 1)= D SAD2^ICDIDX(80) 2)= D KAD2^ICDIDX(80) ^ICD9("AD",SYS,WORD,IEN1,DATE,IEN2) - Where SYS is the coding system in file 80, WORD is a single word extracted from the description, IEN1 is the internal entry number in file #80 where the description is stored, DATE is the effective date of the description and IEN2 is the internal entry number of the DESCRIPTION multiple, sub-file #80.068 where the description containing the extracted word is stored. This is a modification of a Fileman KWIC (Key Word In Context) cross-reference. Like the Fileman KWIC cross-reference, each word in the description is indexed. Unlike the KWIC cross-reference the index contains the effective date of the description. This is done to allow date sensitive keyword searches of the Diagnosis file. CROSS-REFERENCE: 80^ASTS2^MUMPS 1)= D SASTS2^ICDIDX(80) 2)= D KASTS2^ICDIDX(80) ^ICD9("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis file (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored. CROSS-REFERENCE: 80^ADSS2^MUMPS 1)= D SADSS2^ICDIDX(80) 2)= D KADSS2^ICDIDX(80) ^ICD9("ADSS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the description (long text), IEN1 is the internal entry number in the ICD Diagnosis file (#80) and IEN2 is the internal entry number in the DESCRIPTION multiple (#80.068) where the description text is stored. RECORD INDEXES: ABA (#1126), AN (#1128) 80,1.11 PDX EXCLUSION CODE 1;11 POINTER TO DRG CC EXCLUSIONS FILE (#82.13) LAST EDITED: JUL 02, 2012 HELP-PROMPT: Enter a Primary Diagnosis (PDX) Exclusion Code. DESCRIPTION: This is a Primary Diagnosis Exclusion Code (file #82.13) containing a list of Diagnosis codes that, when used as the primary diagnosis code with this code will cause the CC (Complication/Comorbidity) to be zero (meaning "no CC"). 80,1.2 IDENTIFIER 1;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X LAST EDITED: SEP 13, 2011 HELP-PROMPT: Answer must be 1-10 characters in length. DESCRIPTION: This field contains Identifier codes providing more detail on the DRG. TECHNICAL DESCR: DRG Flags EXECUTABLE HELP: D ^ICDHLPD 80,1.3 UNACCEPTABLE AS PRINCIPAL DX 1;3 SET '1' FOR YES; LAST EDITED: OCT 04, 2011 HELP-PROMPT: Is this code unacceptable as a Principal DX? DESCRIPTION: This field contains a flag indicating that this code is unacceptable as the principal diagnosis. 80,1.4 MDC13 1;4 NUMBER INPUT TRANSFORM: K:+X'=X!(X>13)!(X<13)!(X?.E1"."1.N) X LAST EDITED: SEP 13, 2011 HELP-PROMPT: Set to 13 if MDC equals 13 (Female Reproductive System) DESCRIPTION: Field is set to 13 when the Major Diagnostic Code (MDC) equals 13 (Female Reproductive System) 80,1.5 MDC24 1;5 SET '0' FOR PRINCIPAL DX; '1' FOR HEAD; '2' FOR CHEST; '3' FOR ABDOMEN; '4' FOR KIDNEY; '5' FOR URINARY; '6' FOR PELVIS; '7' FOR UPPER LIMB; '8' FOR LOWER LIMB; LAST EDITED: OCT 04, 2011 HELP-PROMPT: Enter Code to reflect Multiple Significant Trauma body site. DESCRIPTION: Code entry of body site of Multiple Significant Trauma. 80,1.6 MDC25 1;6 SET '1' FOR HIV INFECTION; '2' FOR MAJOR HIV CONDITION; '3' FOR NON-MAJOR HIV CONDITION; LAST EDITED: OCT 04, 2011 HELP-PROMPT: Enter code to reflect HIV DX or Related Condition. DESCRIPTION: Set of codes refers to type of HIV code or related condition. 80,1.7 ICD EXPANDED 1;7 SET '1' FOR YES; '0' FOR NO; LAST EDITED: OCT 05, 2011 HELP-PROMPT: Was the ICD code expanded by the VA? DESCRIPTION: This field is a flag indicating that the ICD code was expanded by the VA (local code). RECORD INDEXES: AVA (#1129) 80,1.8 EXCLUDE FROM LOOKUP ; COMPUTED MUMPS CODE: S X=$S((($O(^ICD9(+D0,66,0))'>0)&($O(^ICD9(+D0,68,0))>0))!($P($G(^ICD9(+D0,1)),"^",7)>0):1,1:0) ALGORITHM: S X=$S((($O(^ICD9(+D0,66,0))'>0)&($O(^ICD9(+D0,68,0))>0))!($P($G(^ICD9(+D0,1)),"^",7)>0):1,1:0) LAST EDITED: OCT 05, 2011 DESCRIPTION: This is a computed field to indicate if a record in the Diagnosis file #80 should be excluded from lookup. Records excluded from lookup either have no activation history (sub-file 80.066) or have been modified by the VA (ICD EXPANDED field 1.7). If this computed field returns a 1, then it should not be used for lookup or included in lookup cross-references. 80,1.9 POA EXEMPT 1;9 SET '0' FOR Not POA Exempt; '1' FOR POA Exempt; LAST EDITED: MAY 04, 2012 HELP-PROMPT: Enter 1 if this code is exempt from POA or 0 if not exempt. DESCRIPTION: The value in this field is used to determine whether Present On Admission (POA) processing applies to this code. 80,10 SEX 5;0 DATE Multiple #80.04 DESCRIPTION: This is a history of the Sex designation (Male/Female) for the diagnosis and includes the Sex with the date it became effective. 80.04,.01 SEX EFFECTIVE DATE 0;1 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 13, 2011 HELP-PROMPT: Enter the date the Sex designation became effective. DESCRIPTION: This is the date the Sex designation (F/M) became effective. CROSS-REFERENCE: 80.04^B 1)= S ^ICD9(DA(1),5,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),5,"B",$E(X,1,30),DA) ^ICD9(IEN1,5,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, EFF is the effective date for the Sex designation and IEN2 is the internal entry number in the SEX multiple where the Sex designation is stored. 80.04,1 SEX 0;2 SET 'M' FOR MALE; 'F' FOR FEMALE; 'N' FOR N/A; LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter the sex designation for the diagnosis. DESCRIPTION: This is the sex designation for the diagnosis. 80,11 AGE LOW 6;0 DATE Multiple #80.011 DESCRIPTION: This is a history of lowest age reasonable for a procedure and includes the lowest age and the date it became effective. 80.011,.01 AGE LOW EFFECTIVE DATE 0;1 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 13, 2011 HELP-PROMPT: Enter the date that the lower age limit was effective. DESCRIPTION: The date that the AGE LOW limit was effective. CROSS-REFERENCE: 80.011^B 1)= S ^ICD9(DA(1),6,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),6,"B",$E(X,1,30),DA) ^ICD9(IEN1,6,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, EFF is the effective date for the lowest age and IEN2 is the internal entry number in the AGE LOW multiple where the age is stored. 80.011,1 AGE LOW 0;2 NUMBER INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1.N) X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter the minimum age value, from 0 to 99. DESCRIPTION: This is the minimum age value for an age range for which the code can be applied. Blank otherwise. 80,12 AGE HIGH 7;0 DATE Multiple #80.012 DESCRIPTION: This is a history of highest age reasonable for a procedure and includes the highest age and the date it became effective. 80.012,.01 AGE HIGH EFFECTIVE DATE 0;1 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 13, 2011 HELP-PROMPT: Enter the date that the upper age limit was effective. DESCRIPTION: The date that the AGE HIGH limit was effective. CROSS-REFERENCE: 80.012^B 1)= S ^ICD9(DA(1),7,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),7,"B",$E(X,1,30),DA) ^ICD9(IEN1,7,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, EFF is the effective date for the highest age and IEN2 is the internal entry number in the AGE HIGH multiple where the age is stored. 80.012,1 AGE HIGH 0;2 NUMBER INPUT TRANSFORM: K:+X'=X!(X>124)!(X<0)!(X?.E1"."1.N) X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter the maximun age value, from 0 to 124. DESCRIPTION: This is the maximun age value for an age range for which the code can be applied. Blank otherwise. 80,20 ICD CODES NOT TO USE WITH N;0 POINTER Multiple #80.01 LAST EDITED: SEP 17, 2011 DESCRIPTION: This is a listing of ICD codes that cannot be used in conjunction with this code. 80.01,.01 ICD CODE NOT TO USE WITH 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked) INPUT TRANSFORM: S DINUM=X LAST EDITED: OCT 04, 2011 HELP-PROMPT: Enter an ICD Code that cannot be used with this code. DESCRIPTION: This is an ICD code that cannot be used in conjunction with this code. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 80.01^B 1)= S ^ICD9(DA(1),"N","B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),"N","B",$E(X,1,30),DA) ^ICD9(IEN1,"N","B",COD,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, COD is a pointer to a code in the ICD Diagnosis file #80 which can not be used with this code and IEN2 is the internal entry number of the ICD CODES NOT TO USE WITH multiple where the pointed to code is stored. 80,30 ICD CODES REQUIRED WITH R;0 POINTER Multiple #80.02 LAST EDITED: SEP 17, 2011 DESCRIPTION: This is a listing of ICD codes required when this code is used. 80.02,.01 ICD CODE REQUIRED WITH 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked) INPUT TRANSFORM: S DINUM=X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter an ICD Code that is required with this code. DESCRIPTION: This is an ICD code that is required when this code is used. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 80.02^B 1)= S ^ICD9(DA(1),"R","B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),"R","B",$E(X,1,30),DA) ^ICD9(IEN1,"R","B",COD,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, COD is a pointer to a code in the ICD Diagnosis file #80 which is required with this code and IEN2 is the internal entry number of the ICD CODES REQUIRED WITH multiple where the pointed to code is stored. 80,40 ICD CODES NOT CC WITH 2;0 POINTER Multiple #80.03 LAST EDITED: SEP 30, 2011 DESCRIPTION: This is a listing of codes not considered as Complication/comorbidity with this code. 80.03,.01 ICD CODE NOT CC WITH 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked) LAST EDITED: OCT 04, 2011 HELP-PROMPT: Enter a code not considered CC with this code. DESCRIPTION: This is an ICD code not considered as Complication/comorbidity with this code. CROSS-REFERENCE: 80^ACC^MUMPS 1)= S ^ICD9("ACC",DA(1),X)="" 2)= K ^ICD9("ACC",DA(1),X) ^ICD9("ACC",IEN,COD) - Where IEN is the internal entry number in number in the ICD Diagnosis file #80, COD is a pointer to a code in the ICD Diagnosis file #80 which is not considered as Complication/comorbidity with this code. 80,66 STATUS 66;0 DATE Multiple #80.066 (Add New Entry without Asking) LAST EDITED: SEP 13, 2011 DESCRIPTION: This multiple contains versioned information for an ICD code. A new entry is created whenever an ICD code's status is changed. 80.066,.01 STATUS EFFECTIVE DATE 0;1 DATE (Required) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 13, 2011 HELP-PROMPT: (No range limit on date) DESCRIPTION: Date versioned information becomes/became effective. CROSS-REFERENCE: 80.066^B 1)= S ^ICD9(DA(1),66,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),66,"B",$E(X,1,30),DA) ^ICD9(IEN1,66,"B",DATE,IEN2) - Where IEN1 is the internal entry number in file #80, DATE is the effective date of the status, and IEN2 is the internal entry number of the STATUS multiple sub-file 80.066 where the effective date is stored. CROSS-REFERENCE: 80^ACT2^MUMPS 1)= D SAHD^ICDIDX2(80) 2)= D KAHD^ICDIDX2(80) ^ICD9("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD9("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) Where CODE is the ICD code, STA is either 1 (active) or 0 (inactive), EF is the effective date of the status, IEN1 is the internal entry number in file #80 and IEN2 is the internal entry number of the STATUS multiple sub-file 80.066 where the status is stored. The subscript SYS is added to the ACTS cross-reference to create a coding system specific cross-reference. 80.066,.02 STATUS 0;2 SET (Required) '0' FOR INACTIVE; '1' FOR ACTIVE; LAST EDITED: SEP 17, 2011 HELP-PROMPT: Enter status of code. DESCRIPTION: Status set to 1 when the code is active and 0 when the code is inactive. CROSS-REFERENCE: 80^ACT3^MUMPS 1)= D SAHS^ICDIDX2(80) 2)= D KAHS^ICDIDX2(80) ^ICD9("ACT",(CODE_" "),STA,EF,IEN1,IEN2) ^ICD9("ACTS",SYS,(CODE_" "),STA,EF,IEN1,IEN2) Where CODE is the ICD code, STATUS is either 1 (active) or 0 (inactive), DATE is the effective date of the status, IEN1 is the internal entry number in file #80 and IEN2 is internal entry number of the STATUS multiple sub-file 80.066 where the status is stored. The subscript SYS is added to the ACTS cross-reference to create a coding system specific cross-reference. 80,67 DIAGNOSIS 67;0 DATE Multiple #80.067 LAST EDITED: SEP 13, 2011 DESCRIPTION: This is a history of the Diagnosis (short text) to include the date the text was first used along with the text. 80.067,.01 DIAGNOSIS EFFECTIVE DATE 0;1 DATE (Required) (Multiply asked) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2781001>X X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter a date not earlier than Oct 1, 1978. DESCRIPTION: This is the date the diagnosis text was first used. CROSS-REFERENCE: 80.067^B 1)= S ^ICD9(DA(1),67,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),67,"B",$E(X,1,30),DA) ^ICD9(IEN1,67,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD-9 Diagnosis file #80, EFF is the effective date for the diagnosis (short text), and IEN2 is the internal entry number in the DIAGNOSIS multiple where the diagnosis short text is stored. CROSS-REFERENCE: 80^AST^MUMPS 1)= D SAST^ICDIDX(80) 2)= D KAST^ICDIDX(80) ^ICD9("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored. CROSS-REFERENCE: 80^ASTS1^MUMPS 1)= D SASTS1^ICDIDX(80) 2)= D KASTS1^ICDIDX(80) ^ICD9("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis file (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored. 80.067,1 DIAGNOSIS 0;2 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X LAST EDITED: SEP 17, 2011 HELP-PROMPT: Answer must be 1-60 characters in length. DESCRIPTION: This is the Diagnosis (short text). 80,68 DESCRIPTION 68;0 DATE Multiple #80.068 LAST EDITED: SEP 13, 2011 DESCRIPTION: This is a history of the descriptive text to include the date the text was first used and the text used. 80.068,.01 DESCRIPTION EFFECTIVE DATE 0;1 DATE (Required) (Multiply asked) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2781001>X X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter a date not earlier than Oct 1, 1978. DESCRIPTION: This is the date the description was first used. CROSS-REFERENCE: 80.068^B 1)= S ^ICD9(DA(1),68,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),68,"B",$E(X,1,30),DA) ^ICD9(IEN1,68,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD-9 Diagnosis file #80, EFF is the effective date for the description (long text), and IEN2 is the internal entry number in the DESCRIPTION multiple where the description is stored. CROSS-REFERENCE: 80.068^ADS^MUMPS 1)= D SADS^ICDIDX(80) 2)= D KADS^ICDIDX(80) ^ICD9("ADS",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the ICD Diagnosis code, EFF is the effective date for the description (long text), IEN1 is the internal entry number in the ICD Diagnosis file (#80) and IEN2 is the internal entry number in the DESCRIPTION multiple (#80.068) where the description text is stored. CROSS-REFERENCE: 80^ADSS1^MUMPS 1)= D SADSS1^ICDIDX(80) 2)= D KADSS1^ICDIDX(80) ^ICD9("ADSS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the description (long text), IEN1 is the internal entry number in the ICD Diagnosis file (#80) and IEN2 is the internal entry number in the DESCRIPTION multiple (#80.068) where the description text is stored. 80.068,1 DESCRIPTION 1;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X LAST EDITED: OCT 04, 2011 HELP-PROMPT: Answer must be 1-245 characters in length. DESCRIPTION: This is the description (long text) that was in use on the effective date. CROSS-REFERENCE: 80^D^MUMPS 1)= D SD^ICDIDX(80) 2)= D KD^ICDIDX(80) ^ICD9("D",WORD,IEN1,DATE,IEN2) - Where WORD is a single word extracted from the description, IEN1 is the internal entry number in file #80 where the description is stored, DATE is the effective date of the description and IEN2 is the internal entry number of the DESCRIPTION multiple, sub-file #80.068 where the description containing the extracted word is stored. This is a modification of a Fileman KWIC (Key Word In Context) cross-reference. Like the Fileman KWIC cross-reference, each word in the description is cross-referenced. Unlike the KWIC cross-reference the index contains the effective date of the description. This is done to allow date sensitive keyword searches of the Diagnosis file. CROSS-REFERENCE: 80^AD^MUMPS 1)= D SAD^ICDIDX(80) 2)= D KAD^ICDIDX(80) ^ICD9("AD",SYS,WORD,IEN1,DATE,IEN2) - Where SYS is the coding system in file 80, WORD is a single word extracted from the description, IEN1 is the internal entry number in file #80 where the description is stored, DATE is the effective date of the description and IEN2 is the internal entry number of the DESCRIPTION multiple sub-file #80.068 where the description containing the extracted word is stored. This is a modification of a Fileman KWIC (Key Word In Context) cross-reference. Like the Fileman KWIC cross-reference, each word in the description is indexed. Unlike the KWIC cross-reference the index contains the effective date of the description. This is done to allow date sensitive keyword searches of the Diagnosis file. 80.068,2 SUPPLEMENTAL 2;0 Multiple #80.682 DESCRIPTION: This is a list of Supplemental keywords which should be included in the word index to assist in look-up operations. 80.682,.01 WORD 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>63!($L(X)<1) X LAST EDITED: AUG 25, 2012 HELP-PROMPT: Answer must be 1-63 characters in length. DESCRIPTION: This field contains a single word that should be included in the word index. CROSS-REFERENCE: 80.682^B 1)= S ^ICD9(DA(2),68,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(2),68,DA(1),2,"B",$E(X,1,30),DA) ^ICD9(DX,68,DES,2,"B",WORD,IEN) - where DX is the internal entry number (IEN) of the ICD Diagnosis file, DES is the internal entry number of the DESCRIPTION multiple (sub-file #80.068) of the description containing supplemental keywords, WORD an alternate keyword to be used in lookups and IEN is the internal entry number of the SUPPLEMENTAL multiple (sub-file #80.682) where the supplemental keyword is stored. CROSS-REFERENCE: 80^AD3^MUMPS 1)= D SAD3^ICDIDX(80) 2)= D KAD3^ICDIDX(80) ^ICD9("AD",SYS,WD,FI,CDT,DI,WI) - where SYS is the coding system (field 1.1), WD is a keyword from the SUPPLEMENTAL sub-file (80.682), FI is the internal entry number to the ICD Diagnosis file, CDT is the date the keyword became effective (sub-file 80.068, .01 field), DI is the internal entry number of the DESCRIPTION multiple (sub-file 80.068) and WI is the internal entry number of the SUPPLEMENTAL multiple (sub-file 80.682) where the key word is stored. 80,71 DRG GROUPER 3;0 DATE Multiple #80.071 LAST EDITED: SEP 13, 2011 DESCRIPTION: This field sets the effective date for the DRGs for a given fiscal year. It should normally be the first day of October of the fiscal year. Each year a new entry will be created and the DRG's hierachy will reside within this field. 80.071,.01 DRG GROUPER EFFECTIVE DATE 0;1 DATE (Multiply asked) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:2781001>X X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter a date not earlier than Oct 1, 1978. DESCRIPTION: This field contains the effective date for the DRGs for a fiscal year. It should normally be the first day of October of the fiscal year. Each year a new entry will be created and the DRG's hierarchy will reside within this field. CROSS-REFERENCE: 80.071^B 1)= S ^ICD9(DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),3,"B",$E(X,1,30),DA) ^ICD9(IEN1,3,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD fiel #80, EFF is the effective date for the DRG and IEN2 is the internal entry number in the DRG GROUPER multiple where the DRG is stored. 80.071,1 DRG 1;0 POINTER Multiple #80.711 DESCRIPTION: This field contains all of the DRGs associated with the corresponding ICD Diagnosis for the fiscal year indicated by the DRG Grouper effective date. 80.711,.01 DRG 0;1 POINTER TO DRG FILE (#80.2) (Multiply asked) LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter a DRG associated with this ICD code. DESCRIPTION: This is a single DRG associated with the corresponding ICD Diagnosis for the fiscal year indicated by the DRG Grouper effective date. CROSS-REFERENCE: 80.711^B 1)= S ^ICD9(DA(2),3,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(2),3,DA(1),1,"B",$E(X,1,30),DA) ^ICD9(IEN1,3,IEN2,1,"B",DRG,IEN3) - Where IEN1 is the internal entry number in the ICD file #80, IEN2 is the internal entry number in the DRG GROUPER multiple #80.071, DRG is a pointer to the DRG file #80.2 and IEN3 is the internal entry number in the DRG multiple #80.711 where the DRG is stored. 80,72 MAJOR DIAGNOSTIC CATEGORY 4;0 DATE Multiple #80.072 LAST EDITED: SEP 13, 2011 DESCRIPTION: This is a listing of Major Diagnostic Categories (MDC) associated with this ICD Diagnosis by fiscal year. 80.072,.01 MDC EFFECTIVE DATE 0;1 DATE (Multiply asked) INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: SEP 17, 2011 DESCRIPTION: This is the date that the Major Diagnostic Categories became effective for this diagnosis. This is normally the beginning of a fiscal year. CROSS-REFERENCE: 80.072^B 1)= S ^ICD9(DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),4,"B",$E(X,1,30),DA) ^ICD9(IEN1,4,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD Diagnosis file #80, EFF is the effective date for the Major Diagnostic Category and IEN2 is the internal entry number in the MAJOR DIAGNOSTIC CATEGORY multiple where the MDC is stored. 80.072,1 MDC 0;2 POINTER TO MAJOR DIAGNOSTIC CATEGORY FILE (#80.3) LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter a Major Diagnostic Category for this ICD code. DESCRIPTION: This is a single Major Diagnostic Category code associated with the corresponding ICD Diagnosis for the fiscal year indicated by the MCD effective date. 80,73 DRG DIAGNOSIS IDENTIFIER CODES 73;0 POINTER Multiple #80.073 LAST EDITED: MAY 30, 2012 DESCRIPTION: This is a listing of identifier codes used in the DRG rules processing to determine DRG. 80.073,.01 DRG DIAGNOSIS IDENTIFIER CODE 0;1 POINTER TO DRG DIAGNOSIS IDENTIFIER CODES FILE (#82) (Multiply asked) LAST EDITED: MAY 30, 2012 HELP-PROMPT: Enter a DRG Diagnosis Identifier Code. DESCRIPTION: This is an identifier code used in the DRG rules processing to determine DRG. CROSS-REFERENCE: 80.073^B 1)= S ^ICD9(DA(1),73,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),73,"B",$E(X,1,30),DA) ^ICD9(IEN1,73,"B",ID,IEN2) - Where IEN1 is the internal entry number in file #80, ID a diagnosis identifier code (a pointer to the DRG DIAGNOSIS IDENTIFIER CODES file #82), and IEN2 is the internal entry number of the DRG DIAGNOSIS IDENTIFIER CODES multiple sub-file 80.073 where the diagnosis identifier code is stored. 80,103 COMPLICATION/COMORBIDITY 69;0 DATE Multiple #80.0103 LAST EDITED: SEP 13, 2011 DESCRIPTION: This is a history of the Complication/Comorbidity (CC) designation for the diagnosis and includes the CC designation with the date it became effective. 80.0103,.01 CC EFFECTIVE DATE 0;1 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 30, 2011 HELP-PROMPT: Enter the effective date of the CC designation. DESCRIPTION: This is the date that a Complication/Comorbidity (CC) designation became effective. CROSS-REFERENCE: 80.0103^B 1)= S ^ICD9(DA(1),69,"B",$E(X,1,30),DA)="" 2)= K ^ICD9(DA(1),69,"B",$E(X,1,30),DA) ^ICD9(IEN1,69,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD-9 Diagnosis file #80, EFF is the effective date for Complication/Comorbidity (CC) designation and IEN2 is the internal entry number in the COMPLICATION/COMORBIDITY multiple where the Complication/Comorbidity (CC) designation is stored. 80.0103,1 COMPLICATION/COMORBIDITY 0;2 SET '0' FOR non-CC; '1' FOR CC; '2' FOR MCC; '3' FOR MCC when patient is discharged alive; LAST EDITED: MAY 08, 2012 HELP-PROMPT: Enter the CC designation. DESCRIPTION: This is the Complication/Comorbidity (CC) designation for the diagnosis. It includes Complication/Comorbidity (CC), Major Complication/Comorbidity (MCC), Major Complication/Comorbidity when patient is discharged alive and non-Complication/Comorbidity (no complications/cormorbidities) 80.0103,2 PRIMARY 0;3 SET '0' FOR Primary DX is not own CC/MCC; '1' FOR Primary DX is own CC/MCC; LAST EDITED: MAY 04, 2012 HELP-PROMPT: Enter 1 if this DX code is its own CC/MCC or 0 if not. DESCRIPTION: The value in this field is used to determine whether CC/MCC value is taken from primary diagnosis instead of the secondary diagnosis. FILES POINTED TO FIELDS DRG (#80.2) DRG:DRG (#.01) DRG CC EXCLUSIONS (#82.13) PDX EXCLUSION CODE (#1.11) DRG DIAGNOSIS IDENTIFIER CODES (#82) DRG DIAGNOSIS IDENTIFIER CODES:DRG DIAGNOSIS IDENTIFIER CODE (#.01) ICD CODING SYSTEMS (#80.4) CODING SYSTEM (#1.1) ICD DIAGNOSIS (#80) ICD CODES NOT TO USE WITH:ICD CODE NOT TO USE WITH (#.01) ICD CODES REQUIRED WITH:ICD CODE REQUIRED WITH (#.01) ICD CODES NOT CC WITH:ICD CODE NOT CC WITH (#.01) MAJOR DIAGNOSTIC CATEGORY (#80.3) MAJOR DIAGNOSTIC CATEGORY:MDC (#1) File #80 Record Indexes: ABA (#1126) RECORD REGULAR IR SORTING ONLY Short Descr: BA Cross-Reference by Coding System for Sorting Description: ^ICD9("ABA",SYS,(CODE_" "),IEN) - Where SYS is the coding system to which the ICD code belongs, CODE is the ICD code, and IEN is the internal entry number in file #80 where the code is stored. This is similar to the BA cross-reference except it is not used by Fileman during lookup. The ABA cross-reference is used by the special lookup routine during lookup by code. Appending a space character to CODE forces the code to be regarded as a string, thus disallowing the dropping of leading '0's. Set Logic: S ^ICD9("ABA",$E(X(1),1,10),$E(X(2),1,30),DA)="" Set Cond: S X=$S(+($$GET1^DIQ(80,(+DA_","),1.8))'>0:1,1:0) Kill Logic: K ^ICD9("ABA",$E(X(1),1,10),$E(X(2),1,30),DA) Whole Kill: K ^ICD9("ABA") X(1): CODING SYSTEM (80,1.1) (Subscr 1) (Len 10) (forwards) X(2): CODE NUMBER (80,.01) (Subscr 2) (Len 30) (forwards) Transform (Storage): S X=(X_" ") AN (#1128) RECORD REGULAR IR SORTING ONLY Short Descr: Numeric Code Cross-Reference Description: ^ICD9("AN",SYS,NUM,IEN) - Where SYS is the coding system, NUM is a numeric representation of an ICD code, and IEN is the internal entry number in the ICD Diagnosis file (#80) where the code is stored. The Numeric representation of a code is used to determine the next or previous code. Set Logic: S ^ICD9("AN",$E(X(1),1,10),$E(X(2),1,30),DA)="" Set Cond: S X=$S(+($$GET1^DIQ(80,(+DA_","),1.8))'>0:1,1:0) Kill Logic: K ^ICD9("AN",$E(X(1),1,10),$E(X(2),1,30),DA) Whole Kill: K ^ICD9("AN") X(1): CODING SYSTEM (80,1.1) (Subscr 1) (Len 10) (forwards) Transform (Storage): S X=+X X(2): CODE NUMBER (80,.01) (Subscr 2) (Len 30) (forwards) Transform (Storage): S X=$$NUM^ICDEXS(X) AVA (#1129) RECORD MUMPS IR SORTING ONLY Short Descr: AVA Cross-Reference of VA ICD Expanded Codes Description: ^ICD9("AVA",(CODE_" "),IEN) - This cross-reference is set only when a code is designated as a local VA code, where CODE is an ICD code that has been expanded for use in the VA (local code) and IEN is the internal entry number in file 80 where the VA local code is stored. Set Logic: S ^ICD9("AVA",$E(X(1),1,30),DA)="" Set Cond: S X=X(2) Kill Logic: K ^ICD9("AVA",$E(X(1),1,30),DA) Whole Kill: K ^ICD9("AVA") X(1): CODE NUMBER (80,.01) (Len 30) (forwards) Transform (Storage): S X=(X_" ") X(2): ICD EXPANDED (80,1.7) (Len 10) (forwards) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):