ADEPRE33.m

ADEPRE33 ; IHS/OIT/GAB - ADE6.0 PATCH 33 ENVIRONMENT CHECK [ 10/12/2018 13:42 PM ]

 ;;6.0;ADE*6.0*33;;March 25, 1999;Build 53

 ;IHS/OIT/GAB 10/2013 Patch 33 ADA-CDT code updates for 2019

 ;

 S X="ADEPRE33" X ^%ZOSF("TEST")

 I '$T S ADEMSG="Dental ADE v6.0 Patch 'ade_0600.32k' MUST be installed!" D GETUP(ADEMSG,1)

 D ENV ;DUZ VARIABLE CHECK

 Q

GETUP(ADEMSG,ADEACT)       ;NOTE ADEACT IS THE XPDQUIT VALUE OF 1

 ;

 K DIFQ

 S XPDQUIT=ADEACT

 I $T W !,$$CJ^XLFSTR(ADEMSG,IOM)

 W *7,!,$$CJ^XLFSTR("Sorry.....",IOM),$$DIR^XBDIR("E","Press Return")

 Q

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

SORRY(X) ;

 K DIFQ

 S XPDQUIT=X

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

 Q

ADEPRE33  ; IHS/OIT/GAB - ADE6.0 PATCH 33 ENVIRONMENT CHECK [ 10/12/2018 13:42 PM ]

 +1       ;;6.0;ADE*6.0*33;;March 25, 1999;Build 53

 +2       ;IHS/OIT/GAB 10/2013 Patch 33 ADA-CDT code updates for 2019

 +3       ;

 +4        SET X="ADEPRE33"

           XECUTE ^%ZOSF("TEST")

 +5        IF '$TEST

               SET ADEMSG="Dental ADE v6.0 Patch 'ade_0600.32k' MUST be installed!"

               DO GETUP(ADEMSG,1)

 +6       ;DUZ VARIABLE CHECK

           DO ENV

 +7        QUIT 

GETUP(ADEMSG,ADEACT) ;NOTE ADEACT IS THE XPDQUIT VALUE OF 1

 +1       ;

 +2        KILL DIFQ

 +3        SET XPDQUIT=ADEACT

 +4        IF $TEST

               WRITE !,$$CJ^XLFSTR(ADEMSG,IOM)

 +5        WRITE *7,!,$$CJ^XLFSTR("Sorry.....",IOM),$$DIR^XBDIR("E","Press Return")

 +6        QUIT 

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 

SORRY(X)  ;

 +1        KILL DIFQ

 +2        SET XPDQUIT=X

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

 +4        QUIT