ADE6P252 ;IHS/OIT/GAB - ADE6.0 PATCH 25 [ 11/13/2013 2:35 PM ]
;;6.0;ADE*6.0*25;;Nov 14, 2013;Build 4
;;ADA Code Update
;;Modification of Code
MODCDT5 ;EP
D UPDATE^ADEUPD25(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P252","SETX^ADE6P252")
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
;;D0350^^oral/facial photographic images obtained intraorally or extraorally
;;D2950^^core buildup, including any pins when required
;;Refers to building up of coronal structure when there is insufficient retention
;;for a separate extracoronal restorative procedure. A core buildup is not a filler
;;to eliminate any undercut, box form, or concave irregularity in a preparation.
;;D3351^^apexification/recalcification - initial visit (apical closure/calcific repair of perforations, root resorption, pulp space disinfection, etc.)
;;Includes opening tooth, preparation of canal spaces, first placement of medication
;;and necessary radiographs. (This procedure may include first phase of complete root
;;canal therapy.)
;;D3352^^apexification/recalcification - interim medication replacement (apical closure/calcific repair of perforations, root resorption, pulp space disinfection, etc.)
;;For visits in which the intra-canal medication is replaced with new medication.
;;Includes any necessary radiographs.
;;D3410^^apicoectomy - anterior
;;For surgery on root of anterior tooth. Does not include placement of retrograde filling material.
;;D3421^^apicoectomy - bicuspid (first root)
;;For surgery on one root of a bicuspid. Does not include placement of retrograde filling material. If more than one root is treated, see D3426.
;;D3425^^apicoectomy - molar (first root)
;;For surgery on one root of a molar tooth. Does not include placement of retrograde
;;filling material. If more than one root is treated, see D3426.
;;D3426^^apicoectomy (each additional root)
;;Typically used for bicuspids and molar surgeries when more than one root is treated
;;during the same procedure. This does not include retrograde filling material placement.
;;D4263^^bone replacement graft - first site in quadrant
;;This procedure involves the use of grafts to stimulate periodontal regeneration when
;;the disease process has led to a deformity of the bone. This procedure does not include
;;flap entry and closure, wound debridement, osseous contouring, or the placement of
;;biologic materials to aid in osseous tissue regeneration or barrier membranes.
;;Other separate procedures delivered concurrently are documented with their own codes.
;;D4264^^bone replacement graft - each additional site in quadrant
;;This procedure involves the use of grafts to stimulate periodontal regeneration
;;when the disease process has led to a deformity of the bone. This procedure does
;;not include flap entry and closure, wound debridement, osseous contouring, or the
;;placement of biologic materials to aid in osseous tissue regeneration or barrier
;;membranes. This procedure is performed concurrently with one or more bone replacement
;;grafts to document the number of sites involved.
;;D4920^^unscheduled dressing change (by someone other than treating dentist or their staff)
;;D5991^^vesiculobullous disease medicament carrier
;;A custom fabricated carrier that covers the teeth and alveolar mucosa, or alveolar
;;mucosa alone, and is used to deliver prescription medicaments for treatment of
;;immunologically mediated vesiculobullous disease.
;;D6010^^surgical placement of implant body: endosteal implant
;;D6080^^implant maintenance procedures when prostheses are removed and reinserted, including cleansing of prostheses and abutments
;;This procedure includes active debriding of the implant(s) and examination of all
;;aspects of the implant system(s), including the occlusion and stability of the
;;superstructure. The patient is also instructed in thorough daily cleansing of
;;the implant(s). This is not a per implant code, and is indicated for implant
;;supported fixed prostheses.
;;D7950^^osseous, osteoperiosteal, or cartilage graft of the mandible or maxilla - autogenous or nonautogenous, by report
;;This procedure is for ridge augmentation or reconstruction to increase height,
;;width and/or volume of residual alveolar ridge. It includes obtaining graft
;;material. Placement of a barrier membrane, if used, should be reported separately.
;;D7953^^bone replacement graft for ridge preservation - per site
;;Graft is placed in an extraction or implant removal site at the time of the
;;extraction or removal to preserve ridge integrity (e.g., clinically indicated
;;in preparation for implant reconstruction or where alveolar contour is critical
;;to planned prosthetic reconstruction). Does not include obtaining graft material.
;;Membrane, if used should be reported separately.
;;D7955^^repair of maxillofacial soft and/or hard tissue defect
;;Reconstruction of surgical, traumatic, or congenital defects of the facial bones,
;;including the mandible, may utilize graft materials in conjunction with soft tissue
;;procedures to repair and restore the facial bones to form and function. This does
;;not include obtaining the graft and these procedures may require multiple surgical
;;approaches. This procedure does not include edentulous maxilla and mandibular
;;reconstruction for prosthetic considerations.
;;D8693^^rebonding or recementing of fixed retainers
;;D0363^^cone beam - three-dimensional image reconstruction using existing data, includes multiple images
;;D3354^^pulpal regeneration - (completion of regenerative treatment in an immature permanent tooth with a necrotic pulp); does not include final restoration
;;Includes removal of intra-canal medication and procedures necessary to regenerate
;;continued root development and necessary radiographs. This procedure includes
;;placement of a seal at the coronal portion of the root canal system. Conventional
;;root canal treatment is not performed.
;;D5860^^overdenture - complete, by report
;;Describe and document procedures as performed. Other separate procedures may be
;;required concurrent to D5860.
;;D5861^^overdenture - partial, by report
;;Describe and document procedures as performed. Other separate procedures may be
;;required concurrent to D5861.
;;***END***
ADE6P252 ;IHS/OIT/GAB - ADE6.0 PATCH 25 [ 11/13/2013 2:35 PM ]
+1 ;;6.0;ADE*6.0*25;;Nov 14, 2013;Build 4
+2 ;;ADA Code Update
+3 ;;Modification of Code
MODCDT5 ;EP
+1 DO UPDATE^ADEUPD25(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P252","SETX^ADE6P252")
+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 ;;D0350^^oral/facial photographic images obtained intraorally or extraorally
+2 ;;D2950^^core buildup, including any pins when required
+3 ;;Refers to building up of coronal structure when there is insufficient retention
+4 ;;for a separate extracoronal restorative procedure. A core buildup is not a filler
+5 ;;to eliminate any undercut, box form, or concave irregularity in a preparation.
+6 ;;D3351^^apexification/recalcification - initial visit (apical closure/calcific repair of perforations, root resorption, pulp space disinfection, etc.)
+7 ;;Includes opening tooth, preparation of canal spaces, first placement of medication
+8 ;;and necessary radiographs. (This procedure may include first phase of complete root
+9 ;;canal therapy.)
+10 ;;D3352^^apexification/recalcification - interim medication replacement (apical closure/calcific repair of perforations, root resorption, pulp space disinfection, etc.)
+11 ;;For visits in which the intra-canal medication is replaced with new medication.
+12 ;;Includes any necessary radiographs.
+13 ;;D3410^^apicoectomy - anterior
+14 ;;For surgery on root of anterior tooth. Does not include placement of retrograde filling material.
+15 ;;D3421^^apicoectomy - bicuspid (first root)
+16 ;;For surgery on one root of a bicuspid. Does not include placement of retrograde filling material. If more than one root is treated, see D3426.
+17 ;;D3425^^apicoectomy - molar (first root)
+18 ;;For surgery on one root of a molar tooth. Does not include placement of retrograde
+19 ;;filling material. If more than one root is treated, see D3426.
+20 ;;D3426^^apicoectomy (each additional root)
+21 ;;Typically used for bicuspids and molar surgeries when more than one root is treated
+22 ;;during the same procedure. This does not include retrograde filling material placement.
+23 ;;D4263^^bone replacement graft - first site in quadrant
+24 ;;This procedure involves the use of grafts to stimulate periodontal regeneration when
+25 ;;the disease process has led to a deformity of the bone. This procedure does not include
+26 ;;flap entry and closure, wound debridement, osseous contouring, or the placement of
+27 ;;biologic materials to aid in osseous tissue regeneration or barrier membranes.
+28 ;;Other separate procedures delivered concurrently are documented with their own codes.
+29 ;;D4264^^bone replacement graft - each additional site in quadrant
+30 ;;This procedure involves the use of grafts to stimulate periodontal regeneration
+31 ;;when the disease process has led to a deformity of the bone. This procedure does
+32 ;;not include flap entry and closure, wound debridement, osseous contouring, or the
+33 ;;placement of biologic materials to aid in osseous tissue regeneration or barrier
+34 ;;membranes. This procedure is performed concurrently with one or more bone replacement
+35 ;;grafts to document the number of sites involved.
+36 ;;D4920^^unscheduled dressing change (by someone other than treating dentist or their staff)
+37 ;;D5991^^vesiculobullous disease medicament carrier
+38 ;;A custom fabricated carrier that covers the teeth and alveolar mucosa, or alveolar
+39 ;;mucosa alone, and is used to deliver prescription medicaments for treatment of
+40 ;;immunologically mediated vesiculobullous disease.
+41 ;;D6010^^surgical placement of implant body: endosteal implant
+42 ;;D6080^^implant maintenance procedures when prostheses are removed and reinserted, including cleansing of prostheses and abutments
+43 ;;This procedure includes active debriding of the implant(s) and examination of all
+44 ;;aspects of the implant system(s), including the occlusion and stability of the
+45 ;;superstructure. The patient is also instructed in thorough daily cleansing of
+46 ;;the implant(s). This is not a per implant code, and is indicated for implant
+47 ;;supported fixed prostheses.
+48 ;;D7950^^osseous, osteoperiosteal, or cartilage graft of the mandible or maxilla - autogenous or nonautogenous, by report
+49 ;;This procedure is for ridge augmentation or reconstruction to increase height,
+50 ;;width and/or volume of residual alveolar ridge. It includes obtaining graft
+51 ;;material. Placement of a barrier membrane, if used, should be reported separately.
+52 ;;D7953^^bone replacement graft for ridge preservation - per site
+53 ;;Graft is placed in an extraction or implant removal site at the time of the
+54 ;;extraction or removal to preserve ridge integrity (e.g., clinically indicated
+55 ;;in preparation for implant reconstruction or where alveolar contour is critical
+56 ;;to planned prosthetic reconstruction). Does not include obtaining graft material.
+57 ;;Membrane, if used should be reported separately.
+58 ;;D7955^^repair of maxillofacial soft and/or hard tissue defect
+59 ;;Reconstruction of surgical, traumatic, or congenital defects of the facial bones,
+60 ;;including the mandible, may utilize graft materials in conjunction with soft tissue
+61 ;;procedures to repair and restore the facial bones to form and function. This does
+62 ;;not include obtaining the graft and these procedures may require multiple surgical
+63 ;;approaches. This procedure does not include edentulous maxilla and mandibular
+64 ;;reconstruction for prosthetic considerations.
+65 ;;D8693^^rebonding or recementing of fixed retainers
+66 ;;D0363^^cone beam - three-dimensional image reconstruction using existing data, includes multiple images
+67 ;;D3354^^pulpal regeneration - (completion of regenerative treatment in an immature permanent tooth with a necrotic pulp); does not include final restoration
+68 ;;Includes removal of intra-canal medication and procedures necessary to regenerate
+69 ;;continued root development and necessary radiographs. This procedure includes
+70 ;;placement of a seal at the coronal portion of the root canal system. Conventional
+71 ;;root canal treatment is not performed.
+72 ;;D5860^^overdenture - complete, by report
+73 ;;Describe and document procedures as performed. Other separate procedures may be
+74 ;;required concurrent to D5860.
+75 ;;D5861^^overdenture - partial, by report
+76 ;;Describe and document procedures as performed. Other separate procedures may be
+77 ;;required concurrent to D5861.
+78 ;;***END***
