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

ACHS31E1.m

Go to the documentation of this file. 
  1. ACHS31E1 ;IHS/OIT/FCJ - ACHS 3.1 PATCH ENV CHECK ;
  1.  ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**27**;JUN 11,2001;Build 43
  1.  ;3.1*14 1/11/2008;IHS/OIT/FCJ
  1.  ; CHANGE INTROE SECTION WITH EACH PATCH and requirements
  1.  ;
  1.  ;
  1.  I '$G(IOM) D HOME^%ZIS
  1.  I '$G(DUZ) W !,"DUZ UNDEFINED OR 0." D SORRY(2) Q
  1.  I '$L($G(DUZ(0))) W !,"DUZ(0) UNDEFINED OR NULL." D SORRY(2) Q
  1.  I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(2) Q
  1.  ;
  1.  S X=$$GET1^DIQ(200,DUZ,.01)
  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),";",5)_".",IOM)
  1.  ;
  1.  NEW IORVON,IORVOFF
  1.  S X="IORVON;IORVOFF"
  1.  D ENDR^%ZISS
  1. AR ;
  1.  ;TEST FOR AREA OFFICE INSTALL, LEX AND ICD INSTALLS ARE NOT REQUIRED FOR AREA INSTALLS
  1.  S ACHSAR=0
  1.  S DIR(0)="Y",DIR("A")="Is this an AREA OFFICE install",DIR("B")="N"
  1.  S DIR("?")="Only answer Yes if this is being installed in the Area office namespace without a facility operating in this namespace."
  1.  D ^DIR
  1.  I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) W !,"User stopped environment check." Q
  1.  S ACHSAR=+Y
  1. CHK ;
  1.  I '$$INSTALLD("ACHS*3.1*20") S XPDQUIT=2
  1.  I $$VCHK("DI","22.0",2,"<")
  1.  I '$$INSTALLD("XU*8.0*1017") S XPDQUIT=2
  1.  I '$$INSTALLD("AUPN*99.1*26") S XPDQUIT=2
  1.  I '$$INSTALLD("AG*7.1*13") S XPDQUIT=2
  1.  I '$$INSTALLD("AUT*98.1*20") S XPDQUIT=2
  1.  I $$VCHK("ATX","5.1",2,"<")
  1.  I ACHSAR=0 D
  1.  .I '$$INSTALLD("LEX*2.0*1003") S BMCQUIT=2 D SORRY(BMCQUIT)
  1.  .I $$VCHK("AICD","4.0",2,"<")
  1.  ;
  1.  NEW DA,DIC
  1.  S X="ACHS",DIC="^DIC(9.4,",DIC(0)="",D="C"
  1.  D IX^DIC
  1.  I Y<0,$D(^DIC(9.4,"C","ACHS")) D
  1.  .W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ACHS"" prefix.",IOM)
  1.  .W !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  1.  .D SORRY(2)
  1.  ;
  1.  I $G(XPDQUIT) W !,$$CJ^XLFSTR(IORVON_"You must install it, Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7 Q
  1.  W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  1.  D HELP^XBHELP("INTROE","ACHS31E1")
  1.  I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2) Q
  1.  I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 D HELP^XBHELP("INTROI","ACHS31E1") 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(ACHSPRE,ACHSVER,ACHSQUIT,ACHSCOMP) ; Check versions needed.
  1.  ;  
  1.  NEW ACHSV
  1.  S ACHSV=$$VERSION^XPDUTL(ACHSPRE)
  1.  W !,$$CJ^XLFSTR("Need "_$S(ACHSCOMP="<":"at least ",1:"")_ACHSPRE_" v "_ACHSVER_"....."_ACHSPRE_" v "_ACHSV_" Present",IOM)
  1.  I @(ACHSV_ACHSCOMP_ACHSVER) D SORRY(ACHSQUIT) Q 0
  1.  Q 1
  1. INSTALLD(ACHS) ;EP; Determine if patch ACHS was installed, where ACHS is
  1.  ; the name of the INSTALL.  E.g "AVA*93.2*12".
  1.  ;
  1.  NEW DIC,X,Y
  1.  ;  lookup package.
  1.  S X=$P(ACHS,"*",1)
  1.  S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
  1.  D IX^DIC
  1.  I Y<1 Q 0
  1.  ;  lookup version.
  1.  S DIC=DIC_+Y_",22,",X=$P(ACHS,"*",2)
  1.  D ^DIC
  1.  I Y<1 Q 0
  1.  ;  lookup patch.
  1.  S DIC=DIC_+Y_",""PAH"",",X=$P(ACHS,"*",3)
  1.  D ^DIC
  1.  I Y<1 S P=DIC_"""B"","_X_")" I $O(@P)'="" S Y=1
  1.  I $D(P),$P(ACHS,"*")["XU" I '$D(@P) S Y=-1
  1.  I Y>0 W !,$$CJ^XLFSTR("Need at least "_ACHS_"....."_ACHS_" Present",IOM)
  1.  I Y<0 W !,$$CJ^XLFSTR("Need at least "_ACHS_".....",IOM)
  1.  Q $S(Y<1:0,1:1)
  1.  ; -------------------------------------------
  1. INTROE ; Intro text during KIDS Environment check.
  1.  ;;In this distribution:
  1.  ;;Modifications New MBI: 
  1.  ;;  1. Denial Letters/Fact Sheets (DEN)
  1.  ;;  2. Enter New Denial (ADD)
  1.  ;;  3. Master Delivery Order Report (MDOL)
  1.  ;;  4. Print Documents (PD)
  1.  ;;  5. Re-Print Documents (REP)
  1.  ;;  6. Initial Document (ID)
  1.  ;;  7. CHS data - prepare for export (CDPE)
  1.  ;;  8. Re-Export CHS Transmission Data (RETD)
  1.  ;;  9. Mark Patient for Export (XPT)
  1.  ;; 10. Display Individual CHS Documents
  1.  ;; 11. Print a CHEF Request
  1.  ;;   
  1.  ;; See Notes file for specific options
  1.  ;;
  1.  ;;###
  1.  ;
  1. INTROI ; Intro text during KIDS Install.
  1.  ;;A standard message will be produced by this update.
  1.  ;;  
  1.  ;;If you run interactively, results are displayed on your screen,
  1.  ;;in the mail message and in the INSTALL file.
  1.  ;;If you queue to TaskMan, please read the mail message for results of
  1.  ;;this update, and remember not to Q to the HOME device.
  1.  ;;###
  1.  ;