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

ACHS31E.m

Go to the documentation of this file. 
  1. ACHS31E ;IHS/OIT/FCJ - ACHS 3.1 PATCH 13 ENV CHECK ; JUL 10,2008
  1.  ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**13**;JUNE 11,2001
  1.  ;3.1*13 12/7/2006;IHS/OIT/FCJ
  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.  ;
  1.  I $$VCHK("ACHS","3.1",2,"'=")
  1.  I '$$INSTALLD("AUT*98.1*20") D
  1.  .W !,$$CJ^XLFSTR("AUT*98.1*20 IS REQUIRED"_IORVOFF,IOM)
  1.  .S XPDQUIT=2
  1.  E  W !?16,"Need atleast AUT 98.1*20.....Present"
  1.  I $$VCHK("XU","8.0",2,"<")
  1.  I $$VCHK("DI","22.0",2,"<")
  1.  I $$VCHK("ATX","5.1",2,"<")
  1.  I $$VCHK("AUPN","99.1",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 FIX IT, Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7 Q
  1.  W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  1.  D HELP^XBHELP("INTROE","ACHS31E")
  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","ACHS31E") 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.  Q $S(Y<1:0,1:1)
  1.  ; -------------------------------------------
  1. INTROE ; Intro text during KIDS Environment check.
  1.  ;;In this distribution:
  1.  ;;(1)  Routine: ACHSPA0 fix undefined variable during processing EOBR.
  1.  ;;(2)  Routine: ACHSRPU fix undefined variable during printing "C"
  1.  ;;      for contract on PDO.
  1.  ;;(3)  Routines: ACHSVDV and ACHSVDVA modified to allow adding and
  1.  ;;     editing the DUNS number for a vendor.
  1.  ;;(4)  Routine: ACHSBMC added interface with RCIS package for
  1.  ;;     denial and appeal information, which will now be transferred
  1.  ;;     to RCIS package if link is on.
  1.  ;;(5)  Routines: ACHSDN,ACHSDN1 and ACHSDN2 fixed problem of not
  1.  ;;     being able to "^" out of issuing a denial.
  1.  ;;(6) Routines: ACHSRMVD(new) and ACHSYM added ability to delete the
  1.  ;;    duplicate documents by fiscal year.  Located under the programmer
  1.  ;;    options.
  1.  ;;(7) Routines: ACHSRPU,ACHSMD0A,ACHSRP31,ACHSRP3D,ACHSRPI1,
  1.  ;;    ACHSRPIN,ACHSTX3,ACHSTX33 and ACHSTX3C fixes problems of
  1.  ;;    printing/displaying the correct policy number/holder and coverage
  1.  ;;    type from Patient Registration 7.1.
  1.  ;;       1. Printing policy number, ins address and coverage on univ form
  1.  ;;       2. Fixed printing policy number and coverage on the MDOL Report
  1.  ;;       3. Fixed printing policy number and coverage on the 43 and 64 forms 
  1.  ;;       4. Fixed printing policy number and coverage on the Dental forms 
  1.  ;;       5. Fixed print insurance for denial letters w/ alt resources 
  1.  ;;       6. Fixed displaying a policy during entering a new PDO
  1.  ;;       7. Fixed displaying policy during entering a denial
  1.  ;;       8. ACHSTX3-Modified to send correct POLICY HOLDER NAME 
  1.  ;;       9. ACHSTX33-Modified to send correct POLICY HOLDER NAME
  1.  ;;       10. ACHSTX3C-Fixed pulling pol and cov type ;EXPORT DATA (4A/9) - RECORD 3(PATIENT FOR AO/FI)
  1.  ;;(8) Routine: ACHSEOB6 fixes closing a slave device.
  1.  ;;(9) Routine: ACHSCPTC fixes CPT report, variable undefined
  1.  ;;(10) Routine: ACHSOCSQ fixes SCC report for Queue and Go to problems.
  1.  ;;(11) Routine: ACHSFIM fixes multiple problems, exiting, looping,
  1.     ;;     selecting blankets, etc
  1.  ;;(12) UFMS Export
  1.     ;;     At the facility, this option has been combined with the
  1.     ;;     CDPE   CHS data - prepare for export option.  The option will
  1.     ;;     now create a new UFMS type record.  The data will be sent
  1.     ;;     to the Area office with the other record types.  A parameter
  1.     ;;     has been added to the CHS Facility file, UFMS Export Start
  1.     ;;     date. The field has been stuffed with an OCT 1, 2007 start
  1.     ;;     date for IHS type facilities.  After Oct 1, the IHS
  1.     ;;     facilites will be able to export without closing the DCR.
  1.  ;;
  1.     ;;     At the Area, the UFMS record count has been added, the display
  1.     ;;     of patch 11 has been removed.  The UFMS file will auto send
  1.     ;;     the UFMS file to the Integration Engine (IE) server.  The
  1.     ;;     record count, date received, date sent from the IE will be
  1.     ;;     displayed on a web page for access from sites.  If an error
  1.     ;;     occurs with the file an e-mail message will be sent to the
  1.     ;;     Area staff designated on the list to be notified.
  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.  ;