ACHS31E ;IHS/OIT/FCJ - ACHS 3.1 PATCH 13 ENV CHECK ; JUL 10,2008
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**13**;JUNE 11,2001
;3.1*13 12/7/2006;IHS/OIT/FCJ
;
;
I '$G(IOM) D HOME^%ZIS
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
I '(DUZ(0)["@") W:'$D(ZTQUEUED) !,"DUZ(0) DOES NOT CONTAIN AN '@'." D SORRY(2) Q
;
S X=$$GET1^DIQ(200,DUZ,.01)
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 "_$P($T(+2),";",5)_".",IOM)
;
NEW IORVON,IORVOFF
S X="IORVON;IORVOFF"
D ENDR^%ZISS
;
I $$VCHK("ACHS","3.1",2,"'=")
I '$$INSTALLD("AUT*98.1*20") D
.W !,$$CJ^XLFSTR("AUT*98.1*20 IS REQUIRED"_IORVOFF,IOM)
.S XPDQUIT=2
E W !?16,"Need atleast AUT 98.1*20.....Present"
I $$VCHK("XU","8.0",2,"<")
I $$VCHK("DI","22.0",2,"<")
I $$VCHK("ATX","5.1",2,"<")
I $$VCHK("AUPN","99.1",2,"<")
;
NEW DA,DIC
S X="ACHS",DIC="^DIC(9.4,",DIC(0)="",D="C"
D IX^DIC
I Y<0,$D(^DIC(9.4,"C","ACHS")) D
.W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ACHS"" prefix.",IOM)
.W !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
.D SORRY(2)
;
I $G(XPDQUIT) W !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7 Q
W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
D HELP^XBHELP("INTROE","ACHS31E")
I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2) Q
I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 D HELP^XBHELP("INTROI","ACHS31E") I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2)
Q
;
SORRY(X) ;
KILL DIFQ
S XPDQUIT=X
W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
Q
;
VCHK(ACHSPRE,ACHSVER,ACHSQUIT,ACHSCOMP) ; Check versions needed.
;
NEW ACHSV
S ACHSV=$$VERSION^XPDUTL(ACHSPRE)
W !,$$CJ^XLFSTR("Need "_$S(ACHSCOMP="<":"at least ",1:"")_ACHSPRE_" v "_ACHSVER_"....."_ACHSPRE_" v "_ACHSV_" Present",IOM)
I @(ACHSV_ACHSCOMP_ACHSVER) D SORRY(ACHSQUIT) Q 0
Q 1
INSTALLD(ACHS) ;EP; Determine if patch ACHS was installed, where ACHS is
; the name of the INSTALL. E.g "AVA*93.2*12".
;
NEW DIC,X,Y
; lookup package.
S X=$P(ACHS,"*",1)
S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
D IX^DIC
I Y<1 Q 0
; lookup version.
S DIC=DIC_+Y_",22,",X=$P(ACHS,"*",2)
D ^DIC
I Y<1 Q 0
; lookup patch.
S DIC=DIC_+Y_",""PAH"",",X=$P(ACHS,"*",3)
D ^DIC
Q $S(Y<1:0,1:1)
; -------------------------------------------
INTROE ; Intro text during KIDS Environment check.
;;In this distribution:
;;(1) Routine: ACHSPA0 fix undefined variable during processing EOBR.
;;(2) Routine: ACHSRPU fix undefined variable during printing "C"
;; for contract on PDO.
;;(3) Routines: ACHSVDV and ACHSVDVA modified to allow adding and
;; editing the DUNS number for a vendor.
;;(4) Routine: ACHSBMC added interface with RCIS package for
;; denial and appeal information, which will now be transferred
;; to RCIS package if link is on.
;;(5) Routines: ACHSDN,ACHSDN1 and ACHSDN2 fixed problem of not
;; being able to "^" out of issuing a denial.
;;(6) Routines: ACHSRMVD(new) and ACHSYM added ability to delete the
;; duplicate documents by fiscal year. Located under the programmer
;; options.
;;(7) Routines: ACHSRPU,ACHSMD0A,ACHSRP31,ACHSRP3D,ACHSRPI1,
;; ACHSRPIN,ACHSTX3,ACHSTX33 and ACHSTX3C fixes problems of
;; printing/displaying the correct policy number/holder and coverage
;; type from Patient Registration 7.1.
;; 1. Printing policy number, ins address and coverage on univ form
;; 2. Fixed printing policy number and coverage on the MDOL Report
;; 3. Fixed printing policy number and coverage on the 43 and 64 forms
;; 4. Fixed printing policy number and coverage on the Dental forms
;; 5. Fixed print insurance for denial letters w/ alt resources
;; 6. Fixed displaying a policy during entering a new PDO
;; 7. Fixed displaying policy during entering a denial
;; 8. ACHSTX3-Modified to send correct POLICY HOLDER NAME
;; 9. ACHSTX33-Modified to send correct POLICY HOLDER NAME
;; 10. ACHSTX3C-Fixed pulling pol and cov type ;EXPORT DATA (4A/9) - RECORD 3(PATIENT FOR AO/FI)
;;(8) Routine: ACHSEOB6 fixes closing a slave device.
;;(9) Routine: ACHSCPTC fixes CPT report, variable undefined
;;(10) Routine: ACHSOCSQ fixes SCC report for Queue and Go to problems.
;;(11) Routine: ACHSFIM fixes multiple problems, exiting, looping,
;; selecting blankets, etc
;;(12) UFMS Export
;; At the facility, this option has been combined with the
;; CDPE CHS data - prepare for export option. The option will
;; now create a new UFMS type record. The data will be sent
;; to the Area office with the other record types. A parameter
;; has been added to the CHS Facility file, UFMS Export Start
;; date. The field has been stuffed with an OCT 1, 2007 start
;; date for IHS type facilities. After Oct 1, the IHS
;; facilites will be able to export without closing the DCR.
;;
;; At the Area, the UFMS record count has been added, the display
;; of patch 11 has been removed. The UFMS file will auto send
;; the UFMS file to the Integration Engine (IE) server. The
;; record count, date received, date sent from the IE will be
;; displayed on a web page for access from sites. If an error
;; occurs with the file an e-mail message will be sent to the
;; Area staff designated on the list to be notified.
;;
;;###
;
INTROI ; Intro text during KIDS Install.
;;A standard message will be produced by this update.
;;
;;If you run interactively, results are displayed on your screen,
;;in the mail message and in the INSTALL file.
;;If you queue to TaskMan, please read the mail message for results of
;;this update, and remember not to Q to the HOME device.
;;###
;
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
+2 ;3.1*13 12/7/2006;IHS/OIT/FCJ
+3 ;
+4 ;
+5 IF '$GET(IOM)
DO HOME^%ZIS
+6 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR 0."
DO SORRY(2)
QUIT
+7 IF '$LENGTH($GET(DUZ(0)))
WRITE !,"DUZ(0) UNDEFINED OR NULL."
DO SORRY(2)
QUIT
+8 IF '(DUZ(0)["@")
IF '$DATA(ZTQUEUED)
WRITE !,"DUZ(0) DOES NOT CONTAIN AN '@'."
DO SORRY(2)
QUIT
+9 ;
+10 SET X=$$GET1^DIQ(200,DUZ,.01)
+11 WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)
+12 WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_" Patch "_$PIECE($TEXT(+2),";",5)_".",IOM)
+13 ;
+14 NEW IORVON,IORVOFF
+15 SET X="IORVON;IORVOFF"
+16 DO ENDR^%ZISS
+17 ;
+18 IF $$VCHK("ACHS","3.1",2,"'=")
+19 IF '$$INSTALLD("AUT*98.1*20")
Begin DoDot:1
+20 WRITE !,$$CJ^XLFSTR("AUT*98.1*20 IS REQUIRED"_IORVOFF,IOM)
+21 SET XPDQUIT=2
End DoDot:1
+22 IF '$TEST
WRITE !?16,"Need atleast AUT 98.1*20.....Present"
+23 IF $$VCHK("XU","8.0",2,"<")
+24 IF $$VCHK("DI","22.0",2,"<")
+25 IF $$VCHK("ATX","5.1",2,"<")
+26 IF $$VCHK("AUPN","99.1",2,"<")
+27 ;
+28 NEW DA,DIC
+29 SET X="ACHS"
SET DIC="^DIC(9.4,"
SET DIC(0)=""
SET D="C"
+30 DO IX^DIC
+31 IF Y<0
IF $DATA(^DIC(9.4,"C","ACHS"))
Begin DoDot:1
+32 WRITE !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ACHS"" prefix.",IOM)
+33 WRITE !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
+34 DO SORRY(2)
End DoDot:1
+35 ;
+36 IF $GET(XPDQUIT)
WRITE !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
QUIT
+37 WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
+38 DO HELP^XBHELP("INTROE","ACHS31E")
+39 IF '$$DIR^XBDIR("E","","","","","",1)
DO SORRY(2)
QUIT
+40 IF $GET(XPDENV)=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
DO HELP^XBHELP("INTROI","ACHS31E")
IF '$$DIR^XBDIR("E","","","","","",1)
DO SORRY(2)
+41 QUIT
+42 ;
SORRY(X) ;
+1 KILL DIFQ
+2 SET XPDQUIT=X
+3 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
+4 QUIT
+5 ;
VCHK(ACHSPRE,ACHSVER,ACHSQUIT,ACHSCOMP) ; Check versions needed.
+1 ;
+2 NEW ACHSV
+3 SET ACHSV=$$VERSION^XPDUTL(ACHSPRE)
+4 WRITE !,$$CJ^XLFSTR("Need "_$SELECT(ACHSCOMP="<":"at least ",1:"")_ACHSPRE_" v "_ACHSVER_"....."_ACHSPRE_" v "_ACHSV_" Present",IOM)
+5 IF @(ACHSV_ACHSCOMP_ACHSVER)
DO SORRY(ACHSQUIT)
QUIT 0
+6 QUIT 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".
+2 ;
+3 NEW DIC,X,Y
+4 ; lookup package.
+5 SET X=$PIECE(ACHS,"*",1)
+6 SET DIC="^DIC(9.4,"
SET DIC(0)="FM"
SET D="C"
+7 DO IX^DIC
+8 IF Y<1
QUIT 0
+9 ; lookup version.
+10 SET DIC=DIC_+Y_",22,"
SET X=$PIECE(ACHS,"*",2)
+11 DO ^DIC
+12 IF Y<1
QUIT 0
+13 ; lookup patch.
+14 SET DIC=DIC_+Y_",""PAH"","
SET X=$PIECE(ACHS,"*",3)
+15 DO ^DIC
+16 QUIT $SELECT(Y<1:0,1:1)
+17 ; -------------------------------------------
INTROE ; Intro text during KIDS Environment check.
+1 ;;In this distribution:
+2 ;;(1) Routine: ACHSPA0 fix undefined variable during processing EOBR.
+3 ;;(2) Routine: ACHSRPU fix undefined variable during printing "C"
+4 ;; for contract on PDO.
+5 ;;(3) Routines: ACHSVDV and ACHSVDVA modified to allow adding and
+6 ;; editing the DUNS number for a vendor.
+7 ;;(4) Routine: ACHSBMC added interface with RCIS package for
+8 ;; denial and appeal information, which will now be transferred
+9 ;; to RCIS package if link is on.
+10 ;;(5) Routines: ACHSDN,ACHSDN1 and ACHSDN2 fixed problem of not
+11 ;; being able to "^" out of issuing a denial.
+12 ;;(6) Routines: ACHSRMVD(new) and ACHSYM added ability to delete the
+13 ;; duplicate documents by fiscal year. Located under the programmer
+14 ;; options.
+15 ;;(7) Routines: ACHSRPU,ACHSMD0A,ACHSRP31,ACHSRP3D,ACHSRPI1,
+16 ;; ACHSRPIN,ACHSTX3,ACHSTX33 and ACHSTX3C fixes problems of
+17 ;; printing/displaying the correct policy number/holder and coverage
+18 ;; type from Patient Registration 7.1.
+19 ;; 1. Printing policy number, ins address and coverage on univ form
+20 ;; 2. Fixed printing policy number and coverage on the MDOL Report
+21 ;; 3. Fixed printing policy number and coverage on the 43 and 64 forms
+22 ;; 4. Fixed printing policy number and coverage on the Dental forms
+23 ;; 5. Fixed print insurance for denial letters w/ alt resources
+24 ;; 6. Fixed displaying a policy during entering a new PDO
+25 ;; 7. Fixed displaying policy during entering a denial
+26 ;; 8. ACHSTX3-Modified to send correct POLICY HOLDER NAME
+27 ;; 9. ACHSTX33-Modified to send correct POLICY HOLDER NAME
+28 ;; 10. ACHSTX3C-Fixed pulling pol and cov type ;EXPORT DATA (4A/9) - RECORD 3(PATIENT FOR AO/FI)
+29 ;;(8) Routine: ACHSEOB6 fixes closing a slave device.
+30 ;;(9) Routine: ACHSCPTC fixes CPT report, variable undefined
+31 ;;(10) Routine: ACHSOCSQ fixes SCC report for Queue and Go to problems.
+32 ;;(11) Routine: ACHSFIM fixes multiple problems, exiting, looping,
+33 ;; selecting blankets, etc
+34 ;;(12) UFMS Export
+35 ;; At the facility, this option has been combined with the
+36 ;; CDPE CHS data - prepare for export option. The option will
+37 ;; now create a new UFMS type record. The data will be sent
+38 ;; to the Area office with the other record types. A parameter
+39 ;; has been added to the CHS Facility file, UFMS Export Start
+40 ;; date. The field has been stuffed with an OCT 1, 2007 start
+41 ;; date for IHS type facilities. After Oct 1, the IHS
+42 ;; facilites will be able to export without closing the DCR.
+43 ;;
+44 ;; At the Area, the UFMS record count has been added, the display
+45 ;; of patch 11 has been removed. The UFMS file will auto send
+46 ;; the UFMS file to the Integration Engine (IE) server. The
+47 ;; record count, date received, date sent from the IE will be
+48 ;; displayed on a web page for access from sites. If an error
+49 ;; occurs with the file an e-mail message will be sent to the
+50 ;; Area staff designated on the list to be notified.
+51 ;;
+52 ;;###
+53 ;
INTROI ; Intro text during KIDS Install.
+1 ;;A standard message will be produced by this update.
+2 ;;
+3 ;;If you run interactively, results are displayed on your screen,
+4 ;;in the mail message and in the INSTALL file.
+5 ;;If you queue to TaskMan, please read the mail message for results of
+6 ;;this update, and remember not to Q to the HOME device.
+7 ;;###
+8 ;
