Name | Value | ||||
---|---|---|---|---|---|
NUMBER | 4475 | ||||
IA # | 4475 | ||||
GLOBAL ROOT | DD( | ||||
DATE CREATED | 2006/01/25 | ||||
CUSTODIAL PACKAGE | VA FILEMAN | ||||
USAGE | Private | ||||
TYPE | File | ||||
DBIC APPROVAL STATUS | APPROVED | ||||
NAME | Code Set DD Fixes | ||||
GENERAL DESCRIPTION | During the SQA of patch LEX*2.0*39, several anomalies were discovered with the Lexicon, CPT and ICD data files stemming from the Code Set Versioning and Code Text Descriptors projects. There were several identical fields identified by the cross-references, and a field that points to a non-existing file. Rather than delete the DD and refresh it, potentially wiping out local mods, the Lexicon team is requesting a one-time permission to write and delete directly from the Data Dictionary. The code is as follows: 1 File #757.28, Index "ACT" has duplicate Fields Field .01 ACTIVATION EFFECTIVE DATE Field 1 ACTIVATION STATUS S ^DD(757.02,1,1,2,0)="757.02^ACT1^MUMPS" S ^DD(757.28,.01,1,2,0)="757.02^ACT2^MUMPS" S ^DD(757.28,1,1,1,0)="757.02^ACT3^MUMPS" K ^DD(757.02,0,"IX","ACT",757.02,1) K ^DD(757.02,0,"IX","ACT",757.28,.01) K ^DD(757.02,0,"IX","ACT",757.28,1) S ^DD(757.02,0,"IX","ACT1",757.02,1)="" S ^DD(757.02,0,"IX","ACT2",757.28,.01)="" S ^DD(757.02,0,"IX","ACT3",757.28,1)="" 2 File #757.02, Index "APCODE" has duplicate Fields Field 1 EXPRESSION Field 4 PREFERENCE FLAG S ^DD(757.02,1,1,4,0)="757.02^APCODE1^MUMPS" S ^DD(757.02,4,1,1,0)="757.02^APCODE2^MUMPS" K ^DD(757.02,0,"IX","APCODE",757.02,1) K ^DD(757.02,0,"IX","APCODE",757.02,4) S ^DD(757.02,0,"IX","APCODE1",757.02,1)="" S ^DD(757.02,0,"IX","APCODE2",757.02,4)="" 3 File #81.02, Index "ACT" has duplicate Fields Field .01 EFFECTIVE DATE Field .02 STATUS S ^DD(81,.01,1,5,0)="81^ACT1^MUMPS" S ^DD(81.02,.01,1,2,0)="81^ACT2^MUMPS" S ^DD(81.02,.02,1,1,0)="81^ACT3^MUMPS" K ^DD(81,0,"IX","ACT",81,.01) K ^DD(81,0,"IX","ACT",81.02,.01) K ^DD(81,0,"IX","ACT",81.02,.02) S ^DD(81,0,"IX","ACT1",81,.01)="" S ^DD(81,0,"IX","ACT2",81.02,.01)="" S ^DD(81,0,"IX","ACT3",81.02,.02)="" 4 File #81.33, Index "ACT" has duplicate Fields Field .01 EFFECTIVE DATE Field .02 STATUS S ^DD(81.3,.01,1,3,0)="81.3^ACT1^MUMPS" S ^DD(81.33,.01,1,2,0)="81.3^ACT2^MUMPS" S ^DD(81.33,.02,1,1,0)="81.3^ACT3^MUMPS" K ^DD(81.3,0,"IX","ACT",81.3,.01) K ^DD(81.3,0,"IX","ACT",81.33,.01) K ^DD(81.3,0,"IX","ACT",81.33,.02) S ^DD(81.3,0,"IX","ACT1",81.3,.01)="" S ^DD(81.3,0,"IX","ACT2",81.33,.01)="" S ^DD(81.3,0,"IX","ACT3",81.33,.02)="" 5 File #80.066, Index "ACT" has duplicate Fields Field .01 EFFECTIVE DATE Field .02 STATUS S ^DD(80,.01,1,4,0)="80^ACT1^MUMPS" S ^DD(80.066,.01,1,2,0)="80^ACT2^MUMPS" S ^DD(80.066,.02,1,1,0)="80^ACT3^MUMPS" K ^DD(80,0,"IX","ACT",80,.01) K ^DD(80,0,"IX","ACT",80.066,.01) K ^DD(80,0,"IX","ACT",80.066,.02) S ^DD(80,0,"IX","ACT1",80,.01)="" S ^DD(80,0,"IX","ACT2",80.066,.01)="" S ^DD(80,0,"IX","ACT3",80.066,.02)="" |
||||
STATUS | Active | ||||
DURATION | Till Otherwise Agreed | ||||
ID | DD( | ||||
SUBSCRIBING PACKAGE |
|