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

ADE6P172.m

Go to the documentation of this file. 
  1. ADE6P172 ;IHS/OIT/ENM - ADE6.0 PATCH 17 [ 03/26/2007  9:28 AM ]
  1.  ;;6.0;ADE;**17**;JAN 29, 2007
  1.  ;
  1. MODCDT5 ;EP
  1.  D UPDATE^ADEUPD7(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P172","SETX^ADE6P172")
  1.  ;D UPDATE^ADEUPD7(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P173","SETX^ADE6P172")
  1.  ;D MODEDT ;IHS/ENM NO NEED TO RUN THIS LINE IN P17
  1.  Q
  1.  ;
  1. MODEDT ;EP Modify DENTAL CODE EDIT GROUP and Reindex DENTAL EDIT file
  1.  ;D UPDATE^ADEUPD7(9002007.91,".01,1",,"?+1,","EDITX^ADE6P172","SETEDX^ADE6P172")
  1.  ;D REINDX
  1.  ;
  1.  Q
  1. SETEDX ;
  1.  S ADEN=$P(ADEX,U)
  1.  Q
  1.  ;
  1. EDITX ;Data for DENTAL CODE EDIT GROUP modifications
  1.  Q
  1.  ;;PRIMARY TOOTH PROCEDURES^2121|2930|3230
  1.  ;;
  1.  ;;***END***
  1.  Q
  1.  ;
  1. REINDX ;EP Kill and Re-index AC, AD AND B Cross References on DENTAL EDIT file
  1.  ;
  1.  N DIK
  1.  K ^ADEDIT("AC"),^ADEDIT("AD"),^ADEDIT("B")
  1.  S DIK="^ADEDIT("
  1.  D IXALL^DIK
  1.  Q
  1.  ;
  1. SETX ;EP
  1.  I $G(ADERPEAT) D  Q:ADERPEAT
  1.  .S:ADERPEAT=1 ADECURX=ADEX,ADERPEAT=2
  1.  .S ADEN=$O(^AUTTADA("B",ADEN)) I ADEN'?1N.N!(ADEN]ADEEND) S ADERPEAT=0,ADEX=ADECURX,ADEN="" Q
  1.  .S ADEX=ADESVX,$P(ADEX,U)=ADEN,ADERPEAT=2
  1.  Q:ADEDONE
  1.  I $P(ADEX,U)["-" D  Q:'ADERPEAT
  1.  .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)
  1.  .S ADEN=$O(^AUTTADA("B",ADEN)) I ADEN'?1N.N!(ADEN]ADEEND) S ADERPEAT=0,ADEN="" Q
  1.  .S $P(ADEX,U)=ADEN
  1.  I 'ADERPEAT S ADEN=$P($P(ADEX,U),"D",2),$P(ADEX,U)=ADEN
  1.  S $P(ADEX,U,3)=$TR($P(ADEX,U,3),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1.  S:ADERPEAT ADESVX=ADEX
  1.  Q
  1.  ;
  1. MODADA ;
  1.  ;;D0120^46^periodic oral evaluation - established patient^
  1.  ;;An evaluation performed on a patient of record to determine any changes in the
  1.  ;;patients dental and medical health status since a previous comprehensive or
  1.  ;;periodic evaluation.  This includes an oral cancer evaluation and periodontal
  1.  ;;screening where indicated, and may require interpretation of information
  1.  ;;acquired through additional diagnostic procedures.  Report additional 
  1.  ;;diagnostic procedures separately.
  1.  ;;D0150^58^comprehensive oral evaluation - new or established patient^
  1.  ;;Used by a general dentist and/or a specialist when evaluating a patient
  1.  ;;comprehensively.  This applies to new patients; established patients who
  1.  ;;have a significant change in health conditions or other unusual 
  1.  ;;circumstances, by report, or established patients who have been absent 
  1.  ;;from active treatment for three or more years.  It is a thorough evaluation
  1.  ;;and recording of the extraoral and intraoral hard and soft tissues.  It may 
  1.  ;;require interpretation of information acquired through additional diagnostic
  1.  ;;procedures.  Additional diagnostic procedures should be reported separately.
  1.  ;;This includes an evaluation for oral cancer where indicated, the evaluation 
  1.  ;;and recording of the patient's dental and medical history and a general health
  1.  ;;assessment. It may include the evaluation and recording of dental caries, 
  1.  ;;missing or unerupted teeth, restorations, existing prostheses, occlusal 
  1.  ;;relationships, periodontal conditions (including periodontal screening 
  1.  ;;and/or charting), hard and soft tissue anomalies, etc.
  1.  ;;D0180^65^comprehensive periodontal evaluation - new or established patient^
  1.  ;;This procedure is indicated for patients showing signs or symptoms
  1.  ;;of periodontal disease and for patients with risk factors such as 
  1.  ;;smoking or diabetes.  It includes evaluation of periodontal conditions, 
  1.  ;;probing and charting, evaluation and recording of the patient's dental 
  1.  ;;and medical history and general health assessment.  It may include 
  1.  ;;the evaluation and recording of dental caries, missing or unerupted 
  1.  ;;teeth, restorations, occlusal relationships and oral cancer evaluation
  1.  ;;D0472^86^accession of tissue, gross examination, preparation and transmission of written report^
  1.  ;;To be used in reporting architecturally intact tissue obtained by invasive means.
  1.  ;;D0473^102^accession of tissue, gross and microscopic examination, preparation and transmission of written report^
  1.  ;;To be used in reporting architecturally intact tissue obtained by invasive means.
  1.  ;;D0474^168^accession of tissue, gross and microscopic examination, including assessment of surgical margins for presence of disease, preparation and transmission of written report^
  1.  ;;To be used in reporting architecturally intact tissue obtained by invasive means.
  1.  ;;D0480^114^accession of exfoliative cytologic smears, microscopic examination, preparation and transmission of written report^
  1.  ;;To be used in reporting disaggregated, non-transepithelial cell cytology sample via mild scraping of the oral mucosa.
  1.  ;;D2952^57^post and core in addition to crown, indirectly fabricated^
  1.  ;;Post and core are custom fabricated as a single unit.
  1.  ;;D2953^55^each additional indirectly fabricated post - same tooth^
  1.  ;;To be used with D2952.
  1.  ;;D3120^49^pulp cap - indirect (excluding final restoration)^
  1.  ;;Procedure in which the nearly exposed pulp is covered with a protective 
  1.  ;;dressing to protect the pulp from additional injury and to promote healing and
  1.  ;; repair via formation of secondary dentin.  This code is not to be used for 
  1.  ;;bases and liners when all caries has been removed.
  1.  ;;D3331^56^treatment of root canal obstruction; non-surgical access^
  1.  ;;In lieu of surgery, the formation of a pathway to achieve an apical seal 
  1.  ;;without surgical intervention because of a non-negotiable root canal blocked
  1.  ;; by foreign bodies, included but not limited to separated instruments, broken 
  1.  ;;posts or calcification of 50% or more of the roots.
  1.  ;;D4210^98^gingivectomy or gingivoplasty - four or more contiguous teeth or bounded teeth spaces per quadrant^
  1.  ;;Involves the excision of the soft tissue wall of the periodontal pocket by 
  1.  ;;either an external or an internal bevel.  It is performed to eliminate 
  1.  ;;suprabony pockets after adequate initial preparation, to allow access for
  1.  ;; restorative dentistry in the presence of suprabony pockets, or to restore 
  1.  ;;normal architecture when gingival enlargements or asymmetrical or 
  1.  ;;unaesthetic topography is evident with normal bony configuration.
  1.  ;;D4211^98^gingivectomy or gingivoplasty - one to three contiguous teeth or bounded teeth spaces per quadrant^
  1.  ;;Involves the excision of the soft tissue wall of the periodontal pocket by 
  1.  ;;either an external or an internal bevel.  It is performed to eliminate 
  1.  ;;suprabony pockets after adequate initial preparation, to allow access for
  1.  ;; restorative dentistry in the presence of suprabony pockets, or to restore
  1.  ;; normal architecture when gingival enlargements or asymmetrical or
  1.  ;; unaesthetic topography is evident with normal bony configuration
  1.  ;;D4240^116^gingival flap procedure, including root planing - four or more contiguous teeth or bounded teeth spaces per quadrant^
  1.  ;;A soft tissue flap is reflected or resected to allow debridement of the root 
  1.  ;;surface and the removal of granulation tissue.  Osseous recontouring is not
  1.  ;; accomplished in conjunction with this procedure.  May include open flap 
  1.  ;;curettage, reverse bevel flap surgery, modified Kirkland flap procedure, and
  1.  ;; modified Widman surgery.  This procedure is performed in the presence of 
  1.  ;;moderate to deep probing depths, loss of attachment, need to maintain 
  1.  ;;esthetics, need for increased access to the root surface and alveolar bone, 
  1.  ;;or to determine the presence of a cracked tooth, fractured root, or external 
  1.  ;;root resorption.  Other procedures may be required concurrent to D4240 and 
  1.  ;;should be reported separately using their own unique codes
  1.  ;;D4241^116^gingival flap procedure, including root planing - one to three contiguous teeth or bounded teeth spaces per quadrant^
  1.  ;;A soft tissue flap is reflected or resected to allow debridement of the root 
  1.  ;;surface and the removal of granulation tissue.  Osseous recontouring is 
  1.  ;;not accomplished in conjunction with this procedure.  May include open 
  1.  ;;flap curettage, reverse bevel flap surgery, modified Kirkland flap procedure, 
  1.  ;;and modified Widman surgery.  This procedure is performed in the 
  1.  ;;presence of moderate to deep probing depths, loss of attachment, need to 
  1.  ;;maintain esthetics, need for increased access to the root surface and alveolar
  1.  ;; bone, or to determine the presence of a cracked tooth, fractured root, or 
  1.  ;;external root resorption.  Other procedures may be required concurrent  
  1.  ;;to D4241 and should be reported separately using their own unique codes.
  1.  ;;D4260^119^osseous surgery (including flap entry and closure) - four or more contiguous teeth or bounded teeth spaces per quadrant^
  1.  ;;This procedure modifies the bony support of the teeth by reshaping the alveolar
  1.  ;; process to achieve a more physiologic form.  This may include the removal of 
  1.  ;;supporting bone (ostectomy) and/or non-supporting bone (osteoplasty).  Other 
  1.  ;;procedures may be required concurrent to D4260 and should be reported using 
  1.  ;;their own unique codes
  1.  ;;D4261^119^osseous surgery (including flap entry and closure) - one to three contiguous teeth or bounded teeth spaces per quadrant^
  1.  ;;This procedure modifies the bony support of the teeth by reshaping the alveolar
  1.  ;; process to achieve a more physiologic form.  This may include the removal of 
  1.  ;;supporting bone (ostectomy) and/or non-supporting bone (osteoplasty).  Other 
  1.  ;;procedures may be required concurrent to D4261 and should be reported using
  1.  ;; their own unique codes.
  1.  ;;D4263^47^bone replacement graft - first site in quadrant^
  1.  ;;This procedure involves the use of osseous autografts, osseous allografts, 
  1.  ;;or non-osseous grafts to stimulate periodontal regeneration when the disease 
  1.  ;;process has led to a deformity of the bone.  This procedure does not include 
  1.  ;;flap entry and closure, wound debridement, osseous contouring, or the 
  1.  ;;placement of biologic materials to aid in osseous tissue regeneration or 
  1.  ;;barrier membranes.  Other separate procedures may be required concurrent 
  1.  ;;to D4263 and should be reported using their own unique codes.  Definition for 
  1.  ;;the term "site" precedes code D4210.
  1.  ;;D4264^57^bone replacement graft - each additional site in quadrant^
  1.  ;;This procedure involves the use of osseous autografts, osseous allografts, or 
  1.  ;;non-osseous grafts to stimulate periodontal regeneration when the disease 
  1.  ;;process has led to a deformity of the bone.  This procedure does not include 
  1.  ;;flap entry and closure, wound debridement, osseous contouring, or the 
  1.  ;;placement of biologic materials to aid in osseous tissue regeneration or 
  1.  ;;barrier membranes.  This code is used if performed concurrently with D4263 and
  1.  ;; allows reporting of the exact number of sites involved.  Definition for the term 
  1.  ;;"site" precedes code D4210.
  1.  ;;
  1.  ;;***END***