Print Page as PDF
Code Set DD Fixes ICR (4475)

Code Set DD Fixes    ICR (4475)

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
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
LEXICON UTILITY



MAIL MESSAGE 42310576
Generated from SEP 10, 2019@ IA Listing Descriptions