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

BAREV171.m

Go to the documentation of this file. 
  1. BAREV171 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.7 Patch 1 ;
  1.  ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
  1.  ;
  1.  I '$G(DUZ) D  Q
  1.  . W !,"DUZ UNDEFINED OR 0."
  1.  . D SORRY(2)
  1.  ;
  1.  I '$L($G(DUZ(0))) D  Q
  1.  . W !,"DUZ(0) UNDEFINED OR NULL."
  1.  . D SORRY(2)
  1.  ;
  1.  S X=$P(^VA(200,DUZ,0),U)            ; User's name
  1.  W !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  1.  W !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_" Patch "_$P($T(+2),"**",2),IOM)
  1.  ;
  1.  I $$VCHK("XU","8.0",2)              ; Kernel V8.0
  1.  I $$VCHK("DI","21.0",2)             ; FileMan V21.0
  1.  I $$VCHK("BAR","1.7",2)             ; Accounts Receivable V1.7
  1.  ;
  1.  ; At least Third Party Billing V2.5 Patch 1 by looking for routine ABMUTLP in routine file
  1.  N BARABM
  1.  S BARABM=$$VERSION^XPDUTL("ABM")
  1.  I BARABM'>2.5 S BARABM=$D(^DIC(9.8,"B","ABMUTLP"))
  1.  W !,$$CJ^XLFSTR("Need at least ABM v2.5 Patch 1..... "_$S(BARABM=0:"NOT ",1:"")_" Present",IOM)
  1.  I BARABM=0 D SORRY(2)
  1.  N DA,DIC
  1.  S X="BAR"
  1.  S DIC="^DIC(9.4,"
  1.  S DIC(0)=""
  1.  S D="C"
  1.  D IX^DIC
  1.  I Y<0,$D(^DIC(9.4,"C","BAR")) D
  1.  . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM)
  1.  . W !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM)
  1.  . W !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  1.  . D SORRY(2)
  1.  . Q
  1.  ;
  1.  I $G(XPDQUIT) W !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7 Q
  1.  ;
  1.  W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  1.  D HELP^XBHELP("INTROE","BAREV171")
  1.  ;
  1.  I $G(XPDENV)=1 D
  1.  . ; The following line prevents the "Disable Options..." and "Move
  1.  . ; Routines..." questions from being asked during the install.
  1.  . S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  . D HELP^XBHELP("INTROI","BAREV171")
  1.  . Q
  1.  ;
  1.  I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2)
  1.  Q
  1.  ; ********************************************************************
  1. SORRY(X) ;
  1.  KILL DIFQ
  1.  S XPDQUIT=X
  1.  W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  1.  Q
  1.  ; ********************************************************************
  1. VCHK(BARPRE,BARVER,BARQUIT)     ; Check versions needed.
  1.  ;
  1.  N BARV
  1.  S BARV=$$VERSION^XPDUTL(BARPRE)
  1.  W !,$$CJ^XLFSTR("Need at least "_BARPRE_" v "_BARVER_"....."_BARPRE_" v "_BARV_" Present",IOM)
  1.  I BARV<BARVER KILL DIFQ S XPDQUIT=BARQUIT D SORRY(BARQUIT) Q 0
  1.  Q 1
  1.  ; ********************************************************************
  1. INTROE ; Intro text during KIDS Environment check.
  1.  ;;This distribution updates Accounts Receivable V1.7 with Patch 1 enhancements.
  1.  ;;Changes include:
  1.  ;;(1) 5 minor issues reported from the field
  1.  ;;(2) 2 major report enhancements
  1.  ;;    (a) Period Summary Report (PSR)
  1.  ;;    (b) Age Summary Report (ASM)
  1.  ;;###
  1.  ;;
  1.  ;
  1. INTROI ; Intro text during KIDS Install.
  1.  ;;If you run interactively, results will be displayed on your screen,
  1.  ;;and recorded in the entry in the INSTALL file.
  1.  ;;If you queue to TaskMan, remember not to Q to the HOME device.
  1.  ;;###