ADE60P25.m

ADE60P25 ;IHS/OIT/GAB - ADE GENERAL PATCH MODULE P25 [ 11/13/2013  11:38 AM ]

 ;;6.0;ADE*6.0*25;;Nov 14, 2013;Build 4

 ;

 ; This patch contains calls to 3 ADE P25 routines with

 ; 2014 Dental Code Updates.

 ;

ENV ;Environment check

 I '$G(IOM) D HOME^%ZIS

 ;

 I '$G(DUZ) W !,"YOUR DUZ VARIABLE IS UNDEFINED!! Please login with your Access & Verify." D SORRY(2) Q

 ;

 I '$L($G(DUZ(0))) W !,"Your DUZ(0) VARIABLE IS UNDEFINED OR NULL." D SORRY(2) Q

 ;

 I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"YOUR DUZ(0) VARIABLE DOES NOT CONTAIN AN '@'." D SORRY(2)

 Q

POST ;EP Post-Install

 ; only post for patch 25 - /IHS/OIT/GAB 11/07/2013

 ; Add new, modify and delete ADA Codes

 N ADED,ADECNT,ADEVALUE

 D BMES^XPDUTL("Adding 2014 ADA Codes...")

 D ADDCDT5^ADE6P251

 D BMES^XPDUTL(" ...DONE")

 D BMES^XPDUTL("Set ^ADEDIT(""AC"" X-Ref for 2014 ADA Codes...")

 D AC^ADE6P251

 D BMES^XPDUTL(" ...DONE")

 D BMES^XPDUTL("Mods to ADA Codes...")

 D MODCDT5^ADE6P252

 D BMES^XPDUTL(" ...DONE")

 D BMES^XPDUTL("Mods to IHS ADA Codes...")

 D DELCDT5^ADE6P253

 D BMES^XPDUTL("...DONE")

 D BMES^XPDUTL("Reactivating ADA Codes ...")

 D ZAPINA^ADE6P253

 D BMES^XPDUTL("...DONE")

 Q

SORRY(X) ;

 K DIFQ

 S XPDQUIT=X

 W *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",40)

 Q

ADE60P25  ;IHS/OIT/GAB - ADE GENERAL PATCH MODULE P25 [ 11/13/2013  11:38 AM ]

 +1       ;;6.0;ADE*6.0*25;;Nov 14, 2013;Build 4

 +2       ;

 +3       ; This patch contains calls to 3 ADE P25 routines with

 +4       ; 2014 Dental Code Updates.

 +5       ;

ENV       ;Environment check

 +1        IF '$GET(IOM)

               DO HOME^%ZIS

 +2       ;

 +3        IF '$GET(DUZ)

               WRITE !,"YOUR DUZ VARIABLE IS UNDEFINED!! Please login with your Access & Verify."

               DO SORRY(2)

               QUIT 

 +4       ;

 +5        IF '$LENGTH($GET(DUZ(0)))

               WRITE !,"Your DUZ(0) VARIABLE IS UNDEFINED OR NULL."

               DO SORRY(2)

               QUIT 

 +6       ;

 +7        IF '(DUZ(0)["@")

               IF '$DATA(ZTQUEUED)

                   WRITE !,"YOUR DUZ(0) VARIABLE DOES NOT CONTAIN AN '@'."

               DO SORRY(2)

 +8        QUIT 

POST      ;EP Post-Install

 +1       ; only post for patch 25 - /IHS/OIT/GAB 11/07/2013

 +2       ; Add new, modify and delete ADA Codes

 +3        NEW ADED,ADECNT,ADEVALUE

 +4        DO BMES^XPDUTL("Adding 2014 ADA Codes...")

 +5        DO ADDCDT5^ADE6P251

 +6        DO BMES^XPDUTL(" ...DONE")

 +7        DO BMES^XPDUTL("Set ^ADEDIT(""AC"" X-Ref for 2014 ADA Codes...")

 +8        DO AC^ADE6P251

 +9        DO BMES^XPDUTL(" ...DONE")

 +10       DO BMES^XPDUTL("Mods to ADA Codes...")

 +11       DO MODCDT5^ADE6P252

 +12       DO BMES^XPDUTL(" ...DONE")

 +13       DO BMES^XPDUTL("Mods to IHS ADA Codes...")

 +14       DO DELCDT5^ADE6P253

 +15       DO BMES^XPDUTL("...DONE")

 +16       DO BMES^XPDUTL("Reactivating ADA Codes ...")

 +17       DO ZAPINA^ADE6P253

 +18       DO BMES^XPDUTL("...DONE")

 +19       QUIT 

SORRY(X)  ;

 +1        KILL DIFQ

 +2        SET XPDQUIT=X

 +3        WRITE *7,!,$$CJ^XLFSTR("Sorry....Please fix it.",40)

 +4        QUIT