ADE6P173.m

ADE6P173 ;IHS/OIT/ENM - ADE6.0 PATCH 17 [ 03/26/2007  9:31 AM ]

 ;;6.0;ADE;**17**;JAN 29, 2007

 ;

DELCDT5 ;EP

 D DELETES^ADEUPD7("DELADA^ADE6P173","SETX^ADE6P173","^AUTTADA(")

 Q

 ;

SETX ;EP

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

 Q

 ;

DELADA ;

 ;;D1201^TOPICAL FLUORIDE WITH PROPHY CHILD

 ;;D1205^TOPICAL APPLICATION OF FLUORIDE (INCLUDING PROPHYLAXIS) - ADULT

 ;;D6971^CAST POST AS PART OF FIXED PARTIAL DENTURE RETAINER

 ;;***END***

 ;

MODADA ;

 Q

ZAPINA ;EP

 ;REMOVE INACTIVE DATE FOR 3 RECORDS THAT WERE REACTIVATED

 S ADEIRN=""

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

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

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

 Q

ZAPIT ;

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

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

 S ADEIRN=""

 Q

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

 Q

ADE6P173  ;IHS/OIT/ENM - ADE6.0 PATCH 17 [ 03/26/2007  9:31 AM ]

 +1       ;;6.0;ADE;**17**;JAN 29, 2007

 +2       ;

DELCDT5   ;EP

 +1        DO DELETES^ADEUPD7("DELADA^ADE6P173","SETX^ADE6P173","^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       ;;D1201^TOPICAL FLUORIDE WITH PROPHY CHILD

 +2       ;;D1205^TOPICAL APPLICATION OF FLUORIDE (INCLUDING PROPHYLAXIS) - ADULT

 +3       ;;D6971^CAST POST AS PART OF FIXED PARTIAL DENTURE RETAINER

 +4       ;;***END***

 +5       ;

MODADA    ;

 +1        QUIT 

ZAPINA    ;EP

 +1       ;REMOVE INACTIVE DATE FOR 3 RECORDS THAT WERE REACTIVATED

 +2        SET ADEIRN=""

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

           IF +ADEIRN

               DO ZAPIT

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

           IF +ADEIRN

               DO ZAPIT

 +5        SET ADEIRN=$ORDER(^AUTTADA("B",3331,0))

           IF +ADEIRN

               DO ZAPIT

 +6        QUIT 

ZAPIT     ;

 +1        SET DIE="^AUTTADA("

           SET DA=ADEIRN

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

           DO ^DIE

 +3        SET ADEIRN=""

 +4        QUIT 

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

 +1        QUIT