BCQMENCK.m

BCQMENCK ;GDIT/IHS/FS - MAGIC MAPPER - ENVIRONMENT CHECKER ;05/07/18 07:49;FS  

 ;;1.0;IHS CODE MAPPING;;MAY 07, 2018;Build 21

 ;

 ;

 I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q

 ;

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

 ;

 S X=$P(^VA(200,DUZ,0),U)

 W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)

 W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch 4"_".",IOM),!

 ;

 S XPDQUIT=0

 I '$$VCHK("XU","8.0",2) S XPDQUIT=2

 ;

 I XPDQUIT D SORRY(XPDQUIT) Q

 ;

 W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)

 ;

 I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2) Q

 Q

 ;

SORRY(X) ;

 KILL DIFQ

 S XPDQUIT=X

 W:'$D(ZTQUEUED) *7,!,$$CJ^XLFSTR("Sorry....",IOM),$$DIR^XBDIR("E","Press RETURN")

 Q

 ;

VCHK(PRE,VER,QUIT) ; Check versions needed.

 ;  

 N V

 S V=$$VERSION^XPDUTL(PRE)

 W !,$$CJ^XLFSTR("Need at least "_PRE_" v "_VER_"....."_PRE_" v "_V_" Present",IOM)

 I V<VER W *7,!,$$CJ^XLFSTR("^^^^**NEEDS FIXED**^^^^",IOM) Q 0

 Q 1

 ;

BCQMENCK  ;GDIT/IHS/FS - MAGIC MAPPER - ENVIRONMENT CHECKER ;05/07/18 07:49;FS  

 +1       ;;1.0;IHS CODE MAPPING;;MAY 07, 2018;Build 21

 +2       ;

 +3       ;

 +4        IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR 0."

               DO SORRY(2)

               QUIT 

 +5       ;

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

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

               DO SORRY(2)

               QUIT 

 +7       ;

 +8        SET X=$PIECE(^VA(200,DUZ,0),U)

 +9        WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)

 +10       WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_" Patch 4"_".",IOM),!

 +11      ;

 +12       SET XPDQUIT=0

 +13       IF '$$VCHK("XU","8.0",2)

               SET XPDQUIT=2

 +14      ;

 +15       IF XPDQUIT

               DO SORRY(XPDQUIT)

               QUIT 

 +16      ;

 +17       WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)

 +18      ;

 +19       IF '$$DIR^XBDIR("E","","","","","",1)

               DO SORRY(2)

               QUIT 

 +20       QUIT 

 +21      ;

SORRY(X)  ;

 +1        KILL DIFQ

 +2        SET XPDQUIT=X

 +3        IF '$DATA(ZTQUEUED)

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

 +4        QUIT 

 +5       ;

VCHK(PRE,VER,QUIT) ; Check versions needed.

 +1       ;  

 +2        NEW V

 +3        SET V=$$VERSION^XPDUTL(PRE)

 +4        WRITE !,$$CJ^XLFSTR("Need at least "_PRE_" v "_VER_"....."_PRE_" v "_V_" Present",IOM)

 +5        IF V<VER

               WRITE *7,!,$$CJ^XLFSTR("^^^^**NEEDS FIXED**^^^^",IOM)

               QUIT 0

 +6        QUIT 1

 +7       ;