Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ADE6P221

ADE6P221.m

Go to the documentation of this file. 
  1. ADE6P221 ;IHS/OIT/ENM - ADE6.0 PATCH 22 [ 12/01/2010  8:37 AM ]
  1.  ;;6.0;ADE;**22**;SEP 17, 2008
  1.  ;
  1. ADDCDT5 ;EP
  1.  D UPDATE^ADEUPD22(9999999.31,".01,.05,501,.06,,.02,8801,.09",1101,"?+1,","ADDADA^ADE6P221","SETX^ADE6P221")
  1.  Q
  1. AC ;EP
  1.  ;SET Dental Edit File "AC" xref for new ADA Codes
  1.  D S1 ;call to S2 removed
  1.  Q
  1. S1 ;Code 1352,3354,6254,6795,7251 is the same as 2950
  1.  ;
  1.  S ADENO=2950,ADEAC=0
  1.  F  S ADEAC=$O(^ADEDIT("AC",ADENO,1,ADEAC)) Q:'ADEAC  D ZSE
  1.  K ADENO,ADEAC
  1.  Q
  1. ZSE ;
  1.  S ^ADEDIT("AC",1352,1,ADEAC)="",^ADEDIT("AC",3354,1,ADEAC)="",^ADEDIT("AC",6254,1,ADEAC)="",^ADEDIT("AC",6795,1,ADEAC)="",^ADEDIT("AC",7251,1,ADEAC)=""
  1.  Q
  1.  ;
  1. S2 ;Remove Codes 1352,3354,6254,6795,7251 that are the same as 2930
  1.  Q
  1.  ;K ^ADEDIT("AC",1352,1,26),^ADEDIT("AC",1352,1,27),^ADEDIT("AC",1352,1,28)
  1.  ;K ^ADEDIT("AC",3354,1,26),^ADEDIT("AC",3354,1,27),^ADEDIT("AC",3354,1,28)
  1.  ;K ^ADEDIT("AC",6254,1,26),^ADEDIT("AC",6254,1,27),^ADEDIT("AC",6254,1,28)
  1.  ;K ^ADEDIT("AC",6795,1,26),^ADEDIT("AC",6795,1,27),^ADEDIT("AC",6795,1,28)
  1.  ;K ^ADEDIT("AC",7251,1,26),^ADEDIT("AC",7251,1,27),^ADEDIT("AC",7251,1,28)
  1.  Q
  1.  ;
  1. SETX ;EP
  1.  S ADEN=$P($P(ADEX,U),"D",2),$P(ADEX,U)=ADEN,$P(ADEX,U,6)=$TR($P(ADEX,U,6),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1.  Q
  1.  ;
  1. ADDADA ;
  1.  ;;D1352^2^1.5^PRR^88^preventive resin restoration in a moderate to high caries risk patient – permanent tooth^PRR^
  1.  ;;Conservative restoration of an active cavitated lesion in a pit or fissure that
  1.  ;;does not extend into dentin; includes placement of a sealant in any radiating
  1.  ;;non-carious fissures or pits.
  1.  ;;D3354^3^12.0^PU REGEN^^pulpal regeneration – (completion of regenerative treatment in an immature permanent tooth with a necrotic pulp); does not include final restoration^PUREGEN^
  1.  ;;Includes removal of intra-canal medication and procedures necessary to 
  1.  ;;regenerate continued root development and necessary radiographs.  This 
  1.  ;;procedure includes placement of a seal at the coronal portion of the root 
  1.  ;;canal system.  Conventional root canal treatment is not performed.
  1.  ;;D5992^1^1.5^ADJ PROS^41^adjust maxillofacial prosthetic appliance^ADJPROS^n
  1.  ;;D5993^2^0.75^MAINT PROS^118^maintenance and cleaning of a maxillofacial prosthesis (extra or intraoral) other than required adjustments, by report^MAINTPROS^n
  1.  ;;Maintenance and cleaning of a maxillofacial prosthesis.
  1.  ;;D6254^5^2.79^INT PON^14^interim pontic^INTPON^
  1.  ;;Pontic used as an interim restoration for a duration of less than six 
  1.  ;;months when a final impression is not made to allow adequate time for 
  1.  ;;healing or completion of definitive treatment planning.  This is not 
  1.  ;;a temporary pontic for routine prosthetic fixed partial denture 
  1.  ;;restoration.
  1.  ;;D6795^5^2.79^INT RET^^interim retainer crown^INTRET^
  1.  ;;Retainer crown used as an interim restoration for a duration of less 
  1.  ;;than six months when a final impression is not made to allow adequate
  1.  ;;time for healing or completion of definitive treatment planning.  This
  1.  ;;is not a temporary retainer crown for routine prosthetic fixed partial
  1.  ;;denture restoration.
  1.  ;;D7251^5^11.17^CRNECTOMY^^coronectomy - intentional partial tooth removal^CRNECTOMY^
  1.  ;;Intentional partial tooth removal is performed when a neurovascular
  1.  ;;complication is likely if the entire impacted tooth is removed.
  1.  ;;D7295^5^12.0^HAR BONE GRAFT^56^harvest of bone for use in autogenous grafting procedure^HBGRAFT^n
  1.  ;;Reported in addition to those autogenous graft placement procedures
  1.  ;;that do not include harvesting of bone.
  1.  ;;***END***