Routine: ADE6P332

ADE6P332 ;IHS/OIT/GAB - ADE V6.0 PATCH 33 [ 10/12/2018 8:37 AM ]

 ;;6.0;ADE*6.0*33;;March 25, 1999;Build 53

 ;IHS/OIT/GAB 10/2018 Patch 33 ADA-CDT code updates for 2019

 ;Modification of 2019 ADA-CDT Codes - Update the .02 field (Nomenclature) and 1101 (Descriptor/Use)

MODCDT33 ;EP

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

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

MODADA ;  Code^^Nomenclature    /   Descriptor on next line

 ;;D5211^^maxillary partial denture - resin base (including, retentive/clasping materials, rests, and teeth)

 ;;D5212^^mandibular partial denture - resin base (including, retentive/clasping materials, rests, and teeth)

 ;;D5630^^repair or replace broken retentive clasping materials - per tooth

 ;;D7283^^placement of device to facilitate eruption of impacted tooth

 ;;Placement of an attachment on an unerupted tooth, after its exposure, to aid in its eruption. Report the surgical exposure separately using D7280.

 ;;D9219^^evaluation for moderate sedation, deep sedation or general anesthesia

 ;;D0999^^unspecified diagnostic procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D1999^^unspecified preventive procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D2999^^unspecified restorative procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D3999^^unspecified endodontic procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

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

 ;;This procedure is utilized in an otherwise periodontally healthy area to remove enlarged gingival tissue and supporting bone (ostectomy) to provide

 ;;an anatomically correct gingival relationship.

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

 ;;This procedure is utilized in an otherwise periodontally healthy area to remove enlarged gingival tissue and supporting bone (ostectomy) to provide

 ;;an anatomically correct gingival relationship.

 ;;D4999^^unspecified periodontal procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D5899^^unspecified removable prosthodontic procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D5999^^unspecified maxillofacial prosthesis, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D6199^^unspecified implant procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D6999^^unspecified fixed prosthodontic procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D7999^^unspecified oral surgery procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D8999^^unspecified orthodontic procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;D9999^^unspecified adjunctive procedure, by report

 ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 ;;***END***

ADE6P332  ;IHS/OIT/GAB - ADE V6.0 PATCH 33 [ 10/12/2018 8:37 AM ]

 +1       ;;6.0;ADE*6.0*33;;March 25, 1999;Build 53

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

 +3       ;Modification of 2019 ADA-CDT Codes - Update the .02 field (Nomenclature) and 1101 (Descriptor/Use)

MODCDT33  ;EP

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

 +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       ;;D5211^^maxillary partial denture - resin base (including, retentive/clasping materials, rests, and teeth)

 +2       ;;D5212^^mandibular partial denture - resin base (including, retentive/clasping materials, rests, and teeth)

 +3       ;;D5630^^repair or replace broken retentive clasping materials - per tooth

 +4       ;;D7283^^placement of device to facilitate eruption of impacted tooth

 +5       ;;Placement of an attachment on an unerupted tooth, after its exposure, to aid in its eruption. Report the surgical exposure separately using D7280.

 +6       ;;D9219^^evaluation for moderate sedation, deep sedation or general anesthesia

 +7       ;;D0999^^unspecified diagnostic procedure, by report

 +8       ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +9       ;;D1999^^unspecified preventive procedure, by report

 +10      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +11      ;;D2999^^unspecified restorative procedure, by report

 +12      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +13      ;;D3999^^unspecified endodontic procedure, by report

 +14      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

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

 +16      ;;This procedure is utilized in an otherwise periodontally healthy area to remove enlarged gingival tissue and supporting bone (ostectomy) to provide

 +17      ;;an anatomically correct gingival relationship.

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

 +19      ;;This procedure is utilized in an otherwise periodontally healthy area to remove enlarged gingival tissue and supporting bone (ostectomy) to provide

 +20      ;;an anatomically correct gingival relationship.

 +21      ;;D4999^^unspecified periodontal procedure, by report

 +22      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +23      ;;D5899^^unspecified removable prosthodontic procedure, by report

 +24      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +25      ;;D5999^^unspecified maxillofacial prosthesis, by report

 +26      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +27      ;;D6199^^unspecified implant procedure, by report

 +28      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +29      ;;D6999^^unspecified fixed prosthodontic procedure, by report

 +30      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +31      ;;D7999^^unspecified oral surgery procedure, by report

 +32      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +33      ;;D8999^^unspecified orthodontic procedure, by report

 +34      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +35      ;;D9999^^unspecified adjunctive procedure, by report

 +36      ;;Used for a procedure that is not adequately described by a code.  Describe the procedure.

 +37      ;;***END***

ADE6P332.m