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

ADE6P261.m

Go to the documentation of this file. 
  1. ADE6P261 ;IHS/OIT/GAB - ADE6.0 PATCH 26 [ 10/17/2014  8:37 AM ]
  1.  ;;6.0;ADE*6.0*26;;March 25, 1999;Build 13
  1.  ;;ADA-CDT Code Update
  1.  ;;Add New Code
  1. ADDCDT5 ;EP
  1.  D UPDATE^ADEUPD26(9999999.31,".01,.05,501,.06,,.02,8801,.09",1101,"?+1,","ADDADA^ADE6P261","SETX^ADE6P261")
  1.  Q
  1. AC ;EP
  1.  ;SET Dental Edit File "AC" xref for new ADA Codes
  1.  ;D S1 calls to S1 & S2 removed, for codes in previous ADA update
  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 ;  /IHS/OIT/GAB removed below, specific "AC" cross reference sets from previous patch
  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.  ;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.  ; Fields below: .01=code;.05=Level of Service;501=RVU;.06=synonym;.02=description;8801=mnemonic;.09=no opsite
  1. ADDADA ;
  1.  ;;D0171^1^0.70^REPOV^^re-evaluation - post-operative office visit^REPOV^n
  1.  ;;D0351^5^6.00^THREEDPHOTO^^3D photographic image^THREEDPHOTO^n
  1.  ;;D1353^2^0.80^SEALRPR^^sealant repair - per tooth^SEALRPR
  1.  ;;D6110^5^35.00^ISRDEMX^^implant/abutment supported removable denture for edentulous arch - maxillary^ISRDEMX
  1.  ;;D6111^5^35.00^ISRDEMN^^implant/abutment supported removable denture for edentulous arch - mandibular^ISRDEMN
  1.  ;;D6112^5^35.00^ISRDPMX^^implant/abutment supported removable denture for partially edentulous arch - maxillary^ISRDPMX
  1.  ;;D6113^5^35.00^ISRDPMN^^implant/abutment supported removable denture for partially edentulous arch - mandibular^ISRDPMN
  1.  ;;D6114^5^35.00^ISFDEMX^^implant/abutment supported fixed denture for edentulous arch-maxillary^ISFDEMX
  1.  ;;D6115^5^35.00^ISFDEMN^^implant/abutment supported fixed denture for edentulous arch-mandibular^ISFDEMN
  1.  ;;D6116^5^35.00^ISFDPMX^^implant/abutment supported fixed denture for partially edentulous arch-maxillary^ISFDPMX
  1.  ;;D6117^5^35.00^ISFDPMN^^implant/abutment supported fixed denture for partially edentulous arch-mandibular^ISFDPMN
  1.  ;;D6549^4^10.00^RESRETRB^^resin retainer - for resin bonded fixed prosthesis^RESRETRB
  1.  ;;D9219^5^1.77^EVALSED^^evaluation for deep sedation or general anesthesia^EVALSED^n
  1.  ;;D9931^2^0.75^CLEANREM^^cleaning and inspection of a removable appliance^CLEANREM
  1.  ;;D9986^9^0.00^BA^^missed appointment^BA^n
  1.  ;;D9987^9^0.00^CA^^cancelled appointment^CA^n
  1.  ;;***END***