ADE6P243.m

ADE6P243 ;IHS/OIT/GAB - ADE6.0 PATCH 24 [ 11/17/2012  10:51 AM ]

 ;;6.0;ADE;**24**;NOV 17, 2012

 ;;Deactivate codes by setting inactivate date /IHS/OIT/GAB

DELCDT5 ;EP

 D DELETES^ADEUPD24("DELADA^ADE6P243","SETX^ADE6P243","^AUTTADA(")

 Q

 ;

SETX ;EP

 S ADEX=$P($P(ADEX,U),"D",2),ADEX=$O(^AUTTADA("B",ADEX,""))

 Q

 ;

DELADA ;

 ;;D0360^CONE BEAM CT - CRANIOFACIAL DATA CAPTURE

 ;;D0362^CONE BEAM  TWO-DIMENSIONAL IMAGE RECONSTRUCTION USING EXISTING DATA, INCLUDES MULTIPLE IMAGES

 ;;D1203^TOPICAL APPLICATION OF FLUORIDE - CHILD

 ;;D1204^TOPICAL APPLICATION OF FLUORIDE - ADULT

 ;;D4271^FREE SOFT TISSUE GRAFT WITH DONOR SITE

 ;;D6254^INTERIM PONTIC

 ;;D6795^INTERIM RETAINER CROWN

 ;;D6970^POST AND CORE IN ADDITION TO FIXED PARTIAL DENTURE RETAINER, INDIRECTLY FABRICATED

 ;;D6972^POST AND CORE, (PREFAB.) EXCL. RETAINER

 ;;D6973^CORE BUILDUP FOR RETAINER, INCL. ANY PINS

 ;;D6976^EACH ADDITIONAL INDIRECTLY FABRICATED POST - SAME TOOTH

 ;;D6977^EACH ADDITIONAL PREFABRICATED POST - SAME TOOTH

 ;;***END***

 ;

MODADA ;

 Q

ZAPINA ;REMOVE INACTIVE DATE

 ;/IHS/OIT/GAB ADDED TWO RECORDS

 S ADEIRN=""

 S ADEIRN=$O(^AUTTADA("B","0191",0)) I +ADEIRN D ZAPIT

 S ADEIRN=$O(^AUTTADA("B","1208",0)) I +ADEIRN D ZAPIT

 Q

ZAPIT ;

 ;/IHS/OIT/GAB commented out below no reactivated codes in patch #24

 S DIE="^AUTTADA(",DA=ADEIRN

 S DR=".08////@" D ^DIE

 S ADEIRN=""

 Q

ZAP K D,DA,DR,DIE,D0,DIC,ADEIRN

 Q

ADE6P243  ;IHS/OIT/GAB - ADE6.0 PATCH 24 [ 11/17/2012  10:51 AM ]

 +1       ;;6.0;ADE;**24**;NOV 17, 2012

 +2       ;;Deactivate codes by setting inactivate date /IHS/OIT/GAB

DELCDT5   ;EP

 +1        DO DELETES^ADEUPD24("DELADA^ADE6P243","SETX^ADE6P243","^AUTTADA(")

 +2        QUIT 

 +3       ;

SETX      ;EP

 +1        SET ADEX=$PIECE($PIECE(ADEX,U),"D",2)

           SET ADEX=$ORDER(^AUTTADA("B",ADEX,""))

 +2        QUIT 

 +3       ;

DELADA    ;

 +1       ;;D0360^CONE BEAM CT - CRANIOFACIAL DATA CAPTURE

 +2       ;;D0362^CONE BEAM  TWO-DIMENSIONAL IMAGE RECONSTRUCTION USING EXISTING DATA, INCLUDES MULTIPLE IMAGES

 +3       ;;D1203^TOPICAL APPLICATION OF FLUORIDE - CHILD

 +4       ;;D1204^TOPICAL APPLICATION OF FLUORIDE - ADULT

 +5       ;;D4271^FREE SOFT TISSUE GRAFT WITH DONOR SITE

 +6       ;;D6254^INTERIM PONTIC

 +7       ;;D6795^INTERIM RETAINER CROWN

 +8       ;;D6970^POST AND CORE IN ADDITION TO FIXED PARTIAL DENTURE RETAINER, INDIRECTLY FABRICATED

 +9       ;;D6972^POST AND CORE, (PREFAB.) EXCL. RETAINER

 +10      ;;D6973^CORE BUILDUP FOR RETAINER, INCL. ANY PINS

 +11      ;;D6976^EACH ADDITIONAL INDIRECTLY FABRICATED POST - SAME TOOTH

 +12      ;;D6977^EACH ADDITIONAL PREFABRICATED POST - SAME TOOTH

 +13      ;;***END***

 +14      ;

MODADA    ;

 +1        QUIT 

ZAPINA    ;REMOVE INACTIVE DATE

 +1       ;/IHS/OIT/GAB ADDED TWO RECORDS

 +2        SET ADEIRN=""

 +3        SET ADEIRN=$ORDER(^AUTTADA("B","0191",0))

           IF +ADEIRN

               DO ZAPIT

 +4        SET ADEIRN=$ORDER(^AUTTADA("B","1208",0))

           IF +ADEIRN

               DO ZAPIT

 +5        QUIT 

ZAPIT     ;

 +1       ;/IHS/OIT/GAB commented out below no reactivated codes in patch #24

 +2        SET DIE="^AUTTADA("

           SET DA=ADEIRN

 +3        SET DR=".08////@"

           DO ^DIE

 +4        SET ADEIRN=""

 +5        QUIT 

ZAP        KILL D,DA,DR,DIE,D0,DIC,ADEIRN

 +1        QUIT