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

ADEPRE25.m

Go to the documentation of this file.
ADEPRE25 ; IHS/OIT/GAB - ADE6.0 PATCH 25 ENVIRONMENT CHECK [ 11/25/2013 16:43 PM ]
 ;;6.0;ADE*6.0*25;;Nov 14, 2013;Build 4
 ;
 S X="ADEPRE24" X ^%ZOSF("TEST")
 I '$T S ADEMSG="Dental ADE v6.0 Patch 'ade_0600.24k' 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