| 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)=""
|