ADE6P322.m

ADE6P322 ;IHS/OIT/GAB - ADE V6.0 PATCH 32 [ 10/12/2017 8:37 AM ]

 ;;6.0;ADE*6.0*32;;March 25, 1999;Build 42

 ;IHS/OIT/GAB 10/2017 Patch 32 ADA-CDT code updates for 2018

 ;Modification of 2018 ADA-CDT Codes - Update the .02 field (Nomenclature)

MODCDT32 ;EP

 D UPDATE^ADEUPD32(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P322","SETX^ADE6P322")

 Q

 ;

SETX ;EP

 I $G(ADERPEAT) D  Q:ADERPEAT

 .S:ADERPEAT=1 ADECURX=ADEX,ADERPEAT=2

 .S ADEN=$O(^AUTTADA("B",ADEN)) I ADEN'?1N.N!(ADEN]ADEEND) S ADERPEAT=0,ADEX=ADECURX,ADEN="" Q

 .S ADEX=ADESVX,$P(ADEX,U)=ADEN,ADERPEAT=2

 Q:ADEDONE

 I $P(ADEX,U)["-" D  Q:'ADERPEAT

 .S ADERPEAT=1,ADESVX=ADEX,ADESTART=$P($P($P(ADEX,U),"-"),"D",2),ADEEND=$P($P($P(ADEX,U),"-",2),"D",2),ADEN=$O(^AUTTADA("B",ADESTART),-1)

 .S ADEN=$O(^AUTTADA("B",ADEN)) I ADEN'?1N.N!(ADEN]ADEEND) S ADERPEAT=0,ADEN="" Q

 .S $P(ADEX,U)=ADEN

 I 'ADERPEAT S ADEN=$P($P(ADEX,U),"D",2),$P(ADEX,U)=ADEN

 S $P(ADEX,U,3)=$TR($P(ADEX,U,3),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 S:ADERPEAT ADESVX=ADEX

 Q

 ;

MODADA ;  Code^^Nomenclature    /   Descriptor on next line

 ;;D1354^^interim caries arresting medicament application - per tooth

 ;;D2740^^crown - porcelain/ceramic

 ;;D3310^^endodontic therapy, anterior tooth (excluding final restoration)

 ;;D3320^^endodontic therapy, premolar tooth (excluding final restoration)

 ;;D3330^^endodontic therapy, molar tooth (excluding final restoration)

 ;;D3347^^retreatment of previous root canal therapy - premolar

 ;;D3352^^APEXIFICATION/RECALCIFICATION - INTERIM MEDICATION REPLACEMENT

 ;;D3410^^apicoectomy - anterior

 ;;D3421^^apicoectomy - premolar (first root)

 ;;D3425^^apicoectomy - molar (first root)

 ;;D3426^^apicoectomy (each additional root)

 ;;D4230^^anatomical crown exposure - four or more contiguous teeth or bounded tooth spaces per quadrant

 ;;D4231^^anatomical crown exposure - one to three teeth or bounded tooth spaces per quadrant

 ;;D4355^^full mouth debridement to enable a comprehensive oral evaluation and diagnosis on a subsequent visit

 ;;D4381^^localized delivery of antimicrobial agents via a controlled release vehicle into diseased crevicular tissue, per tooth

 ;;D4910^^periodontal maintenance

 ;;D4920^^UNSCHEDULED DRESSING CHANGE (BY SOMEONE OTHER THAN TREATING DENTIST or their staff)

 ;;D6081^^scaling and debridement in the presence of inflammation or mucositis of a single implant, including cleaning of the implant surfaces, without flap entry and closure

 ;;D7111^^extraction, coronal remnants - primary tooth

 ;;D7320^^ALVEOLOPLASTY NOT IN CONJUNCTION WITH EXTRACTIONS - FOUR OR MORE TEETH OR TOOTH SPACES, PER QUADRANT

 ;;D7980^^surgical sialolithotomy

 ;;D9223^^deep sedation/general anesthesia - each subsequent 15 minute increment

 ;;D9230^^INHALATION OF NITROUS OXIDE / ANALGESIA, ANXIOLYSIS

 ;;D9243^^intravenous moderate (conscious) sedation/analgesia - each subsequent 15 minute increment

 ;;***END***

ADE6P322  ;IHS/OIT/GAB - ADE V6.0 PATCH 32 [ 10/12/2017 8:37 AM ]

 +1       ;;6.0;ADE*6.0*32;;March 25, 1999;Build 42

 +2       ;IHS/OIT/GAB 10/2017 Patch 32 ADA-CDT code updates for 2018

 +3       ;Modification of 2018 ADA-CDT Codes - Update the .02 field (Nomenclature)

MODCDT32  ;EP

 +1        DO UPDATE^ADEUPD32(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P322","SETX^ADE6P322")

 +2        QUIT 

 +3       ;

SETX      ;EP

 +1        IF $GET(ADERPEAT)

               Begin DoDot:1

 +2                IF ADERPEAT=1

                       SET ADECURX=ADEX

                       SET ADERPEAT=2

 +3                SET ADEN=$ORDER(^AUTTADA("B",ADEN))

                   IF ADEN'?1N.N!(ADEN]ADEEND)

                       SET ADERPEAT=0

                       SET ADEX=ADECURX

                       SET ADEN=""

                       QUIT 

 +4                SET ADEX=ADESVX

                   SET $PIECE(ADEX,U)=ADEN

                   SET ADERPEAT=2

               End DoDot:1

               IF ADERPEAT

                   QUIT 

 +5        IF ADEDONE

               QUIT 

 +6        IF $PIECE(ADEX,U)["-"

               Begin DoDot:1

 +7                SET ADERPEAT=1

                   SET ADESVX=ADEX

                   SET ADESTART=$PIECE($PIECE($PIECE(ADEX,U),"-"),"D",2)

                   SET ADEEND=$PIECE($PIECE($PIECE(ADEX,U),"-",2),"D",2)

                   SET ADEN=$ORDER(^AUTTADA("B",ADESTART),-1)

 +8                SET ADEN=$ORDER(^AUTTADA("B",ADEN))

                   IF ADEN'?1N.N!(ADEN]ADEEND)

                       SET ADERPEAT=0

                       SET ADEN=""

                       QUIT 

 +9                SET $PIECE(ADEX,U)=ADEN

               End DoDot:1

               IF 'ADERPEAT

                   QUIT 

 +10       IF 'ADERPEAT

               SET ADEN=$PIECE($PIECE(ADEX,U),"D",2)

               SET $PIECE(ADEX,U)=ADEN

 +11       SET $PIECE(ADEX,U,3)=$TRANSLATE($PIECE(ADEX,U,3),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 +12       IF ADERPEAT

               SET ADESVX=ADEX

 +13       QUIT 

 +14      ;

MODADA    ;  Code^^Nomenclature    /   Descriptor on next line

 +1       ;;D1354^^interim caries arresting medicament application - per tooth

 +2       ;;D2740^^crown - porcelain/ceramic

 +3       ;;D3310^^endodontic therapy, anterior tooth (excluding final restoration)

 +4       ;;D3320^^endodontic therapy, premolar tooth (excluding final restoration)

 +5       ;;D3330^^endodontic therapy, molar tooth (excluding final restoration)

 +6       ;;D3347^^retreatment of previous root canal therapy - premolar

 +7       ;;D3352^^APEXIFICATION/RECALCIFICATION - INTERIM MEDICATION REPLACEMENT

 +8       ;;D3410^^apicoectomy - anterior

 +9       ;;D3421^^apicoectomy - premolar (first root)

 +10      ;;D3425^^apicoectomy - molar (first root)

 +11      ;;D3426^^apicoectomy (each additional root)

 +12      ;;D4230^^anatomical crown exposure - four or more contiguous teeth or bounded tooth spaces per quadrant

 +13      ;;D4231^^anatomical crown exposure - one to three teeth or bounded tooth spaces per quadrant

 +14      ;;D4355^^full mouth debridement to enable a comprehensive oral evaluation and diagnosis on a subsequent visit

 +15      ;;D4381^^localized delivery of antimicrobial agents via a controlled release vehicle into diseased crevicular tissue, per tooth

 +16      ;;D4910^^periodontal maintenance

 +17      ;;D4920^^UNSCHEDULED DRESSING CHANGE (BY SOMEONE OTHER THAN TREATING DENTIST or their staff)

 +18      ;;D6081^^scaling and debridement in the presence of inflammation or mucositis of a single implant, including cleaning of the implant surfaces, without flap entry and closure

 +19      ;;D7111^^extraction, coronal remnants - primary tooth

 +20      ;;D7320^^ALVEOLOPLASTY NOT IN CONJUNCTION WITH EXTRACTIONS - FOUR OR MORE TEETH OR TOOTH SPACES, PER QUADRANT

 +21      ;;D7980^^surgical sialolithotomy

 +22      ;;D9223^^deep sedation/general anesthesia - each subsequent 15 minute increment

 +23      ;;D9230^^INHALATION OF NITROUS OXIDE / ANALGESIA, ANXIOLYSIS

 +24      ;;D9243^^intravenous moderate (conscious) sedation/analgesia - each subsequent 15 minute increment

 +25      ;;***END***