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

ADE6P182.m

Go to the documentation of this file.
  1. ADE6P182 ;IHS/OIT/ENM - ADE6.0 PATCH 18 [ 09/17/2008 2:35 PM ]
  1. ;;6.0;ADE;**18**;SEP 17, 2008
  1. ;
  1. MODCDT5 ;EP
  1. D UPDATE^ADEUPD8(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P182","SETX^ADE6P182")
  1. D R7670FIX
  1. ;D UPDATE^ADEUPD8(9999999.31,".01,,.02",1101,"?+1,","MODADA^ADE6P183","SETX^ADE6P182")
  1. ;D MODEDT ;IHS/ENM NO NEED TO RUN THIS LINE IN P18
  1. Q
  1. ;
  1. R7670FIX ;EDIT THE SYNONYM FIELD FOR ADA CODE 7670
  1. S ADEXR=0
  1. S ADEXR=$O(^AUTTADA("B",7670,ADEXR)) Q:ADEXR'>0
  1. S $P(^AUTTADA(ADEXR,0),"^",6)="ALVEO FX,CLOSED R"
  1. K ADEXR
  1. Q
  1. MODEDT ;EP Modify DENTAL CODE EDIT GROUP and Reindex DENTAL EDIT file
  1. ;D UPDATE^ADEUPD8(9002007.91,".01,1",,"?+1,","EDITX^ADE6P182","SETEDX^ADE6P182")
  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. ;;D1203^39^topical application of fluoride - child^
  1. ;;D1204^39^topical application of fluoride - adult^
  1. ;;D3220^139^therapeutic pulpotomy (excluding final restoration) - removal of pulp coronal to the dentinocemental junction and application of medicament^
  1. ;;Pulpotomy is the surgical removal of a portion of the pulp with the aim of
  1. ;; maintaining the vitality of the remaining portion by means of an adequate
  1. ;; dressing.
  1. ;;D3310^64^endodontic therapy, anterior tooth (excluding final restoration)^
  1. ;;D3320^64^endodontic therapy, bicuspid tooth (excluding final restoration)^
  1. ;;D3330^55^endodontic therapy, molar (excluding final restoration)^
  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 without
  1. ;; surgical intervention because of a non-negotiable root canal blocked by
  1. ;;foreign bodies, including but not limited to separated instruments, broken
  1. ;;posts or calcification of 50% or more of the length of the tooth root.
  1. ;;D4210^98^gingivectomy or gingivoplasty - four or more contiguous teeth or tooth bounded spaces per quadrant^
  1. ;;Involves the excision of the soft tissue wall of the periodontal pocket by either
  1. ;; an external or an internal bevel. It is performed to eliminate suprabony
  1. ;;pockets after adequate initial preparation, to allow access for restorative
  1. ;;dentistry in the presence of suprabony pockets, or to restore normal
  1. ;;architecture when gingival enlargements or asymmetrical or unaesthetic
  1. ;;topography is evident with normal bony configuration.
  1. ;;D4211^98^gingivectomy or gingivoplasty - one to three contiguous teeth or tooth bounded 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 suprabony
  1. ;;pockets after adequate initial preparation, to allow access for restorative
  1. ;;dentistry in the presence of suprabony pockets, or to restore normal
  1. ;;architecture when gingival enlargements or asymmetrical or unaesthetic
  1. ;;topography is evident with normal bony configuration
  1. ;;D4240^116^gingival flap procedure, including root planing - four or more contiguous teeth or tooth bounded 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
  1. ;;and should be reported separately using their own unique codes
  1. ;;D4241^116^gingival flap procedure, including root planing - one to three contiguous teeth or tooth bounded 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 D4241
  1. ;;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 tooth bounded spaces per quadrant^
  1. ;;This procedure modifies the bony support of the teeth by reshaping the
  1. ;;alveolar process to achieve a more physiologic form. This may include the
  1. ;;removal of supporting bone (ostectomy) and/or non-supporting bone
  1. ;;(osteoplasty). Other procedures may be required concurrent to D4260 and
  1. ;;should be reported using their own unique codes
  1. ;;D4261^119^osseous surgery (including flap entry and closure) - one to three contiguous teeth or tooth bounded 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. ;;D6067^74^implant supported metal crown (titanium, titanium alloy, high noble metal)^
  1. ;;A single cast metal or milled crown restoration that is retained, supported and
  1. ;;stabilized by an implant; may be screw retained or cemented.
  1. ;;D7310^96^alveoloplasty in conjunction with extractions – four or more teeth or tooth spaces, per quadrant^
  1. ;;The alveoloplasty is distinct (separate procedure) from extractions and/or
  1. ;;surgical extractions. Usually in preparation for a prosthesis or other
  1. ;;treatments such as radiation therapy and transplant surgery.
  1. ;;D7311^96^alveoloplasty in conjunction with extractions - one to three teeth or tooth spaces, per quadrant^
  1. ;;The alveoloplasty is distinct (separate procedure) from extractions and/or
  1. ;;surgical extractions. Usually in preparation for a prosthesis or other
  1. ;;treatments such as radiation therapy and transplant surgery.
  1. ;;D7320^99^alveoloplasty not in conjunction with extractions –four or more teeth or tooth spaces, per quadrant^
  1. ;;No extractions performed in an edentulous area. See D7310 if teeth are
  1. ;;being extracted concurrently with the alveoloplasty. Usually in
  1. ;;preparation for a prosthesis or other treatments such as radiation therapy
  1. ;;and transplant surgery.
  1. ;;D7321^99^alveoloplasty not in conjunction with extractions - one to three teeth or tooth spaces, per quadrant^
  1. ;;No extractions performed in an edentulous area. See D7311 if teeth are
  1. ;;being extracted concurrently with the alveoloplasty. Usually in preparation
  1. ;;for a prosthesis or other treatments such as radiation therapy and
  1. ;;transplant surgery
  1. ;;D9220^51^deep sedation/general anesthesia - first 30 minutes^
  1. ;;Anesthesia time begins when the doctor administering the anesthetic agent
  1. ;;initiates the appropriate anesthesia and non-invasive monitoring protocol and
  1. ;;remains in continuous attendance of the patient. Anesthesia services are
  1. ;;considered completed when the patient may be safely left under the
  1. ;;observation of trained personnel and the doctor may safely leave the room to
  1. ;;attend to other patients or duties.
  1. ;;D9221^61^deep sedation/general anesthesia - each additional 15 minutes ^
  1. ;;Anesthesia time begins when the doctor administering the anesthetic agent
  1. ;;initiates the appropriate anesthesia and non-invasive monitoring protocol and
  1. ;;remains in continuous attendance of the patient. Anesthesia services are
  1. ;;considered completed when the patient may be safely left under the
  1. ;;observation of trained personnel and the doctor may safely leave the room
  1. ;;to attend to other patients or duties.
  1. ;;D9241^59^intravenous conscious sedation/analgesia - first 30 minutes^
  1. ;;Anesthesia time begins when the doctor administering the anesthetic agent
  1. ;;initiates the appropriate anesthesia and non-invasive monitoring protocol and
  1. ;;remains in continuous attendance of the patient. Anesthesia services are
  1. ;;considered completed when the patient may be safely left under the observation
  1. ;;of trained personnel and the doctor may safely leave the room to attend to
  1. ;;other patients or duties.
  1. ;;D9242^69^intravenous conscious sedation/analgesia - each additional 15 minutes^
  1. ;;Anesthesia time begins when the doctor administering the anesthetic agent
  1. ;;initiates the appropriate anesthesia and non-invasive monitoring protocol and
  1. ;;remains in continuous attendance of the patient. Anesthesia services are
  1. ;;considered completed when the patient may be safely left under the
  1. ;;observation of trained personnel and the doctor may safely leave the room
  1. ;;to attend to other patients or duties.
  1. ;;D9248^34^non-intravenous conscious sedation^
  1. ;;A medically controlled state of depressed consciousness while maintaining
  1. ;;the patient's airway, protective reflexes and the ability to respond to
  1. ;;stimulation or verbal commands. It includes non-intravenous administration
  1. ;;of sedative and/or analgesic agent(s) and appropriate monitoring.
  1. ;;***END***