EAS1174E ;ALB/HM - ENVIRONMENT CHECK FOR PATCH EAS*1.0*174 FILE 714.1 HAS <13 OR >13 ENTRIES IN IT ;15-DEC-1997
;;1.0;ENROLLMENT APPLICATION SYSTEM;**174**;Aug 13, 1993;Build 26
;
;
EN ; This routine contains environmental checks which get executed
; before the EAS*1.0*174 is allowed to run.
;
; Input: Variables set by KIDS during environment check
;
; Output: XPDABORT - KIDS variable set to abort installation
;
I 'XPDENV D CHK Q ; Loading Distribution
;
START ; Starting here
W !!,">>> Beginning the Environment Checker"
;
D CHK ; check for patches that will be backed out that they are installed here
;
I $D(XPDABORT) W !!,">>> EAS*1.0*174 Aborted in Environment Checker" Q
W !!,">>> Environment Checker Successful",!!
Q
;
;
CHK ; Check for correct number of file entries in LTC CO-PAY EXEMPTION file (#714.1).
W !,"*****"
W !,"Checking for entries in LTC CO-PAY EXEMPTION file (#714.1)."
N EASINST,EASCNT,ERROR
S EASINST=$$INSTALDT^XPDUTL("EAS*1.0*174"),ERROR=0
S EASCNT=$$GETCNT
I 'EASINST D
.I EASCNT'=13 S ERROR=1
.I $D(^EAS(714.1,14,0)) S ERROR=1
I EASINST D
.I EASCNT'=14 S ERROR=1
I ERROR D
.; file entries have been added or missing
.W !,"It looks like you don't have the right entries in LTC CO-PAY "
.W !,"EXEMPTION file (#714.1) installed."
.W !,"Please enter a YOUR IT Services ticket with the Enterprise "
.W !,"Service Desk (ESD) for assistance with getting "
.W !,"the correct number of entries into the LTC CO-PAY EXEMPTION "
.W !,"file (#714.1)."
.W !,"*****"
.S XPDABORT=1
I 'ERROR D
.W !,"*****"
.W !,"The correct number of entries in LTC CO-PAY EXEMPTION file "
.W !,"(#714.1) are installed."
.W !,"*****"
;
Q
GETCNT() ; Get count of entries in LTC CO-PAY EXEMPTION file (#714.1)
N EASDATA,EASIEN,EASECNT
S EASDATA=0,EASECNT=0
F S EASDATA=$O(^EAS(714.1,"B",EASDATA)) Q:EASDATA="" D
.S EASIEN=$O(^EAS(714.1,"B",EASDATA,"")) Q:'EASIEN D
..S EASECNT=EASECNT+1
Q EASECNT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEAS1174E 2012 printed Dec 13, 2024@01:53:15 Page 2
EAS1174E ;ALB/HM - ENVIRONMENT CHECK FOR PATCH EAS*1.0*174 FILE 714.1 HAS <13 OR >13 ENTRIES IN IT ;15-DEC-1997
+1 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**174**;Aug 13, 1993;Build 26
+2 ;
+3 ;
EN ; This routine contains environmental checks which get executed
+1 ; before the EAS*1.0*174 is allowed to run.
+2 ;
+3 ; Input: Variables set by KIDS during environment check
+4 ;
+5 ; Output: XPDABORT - KIDS variable set to abort installation
+6 ;
+7 ; Loading Distribution
IF 'XPDENV
DO CHK
QUIT
+8 ;
START ; Starting here
+1 WRITE !!,">>> Beginning the Environment Checker"
+2 ;
+3 ; check for patches that will be backed out that they are installed here
DO CHK
+4 ;
+5 IF $DATA(XPDABORT)
WRITE !!,">>> EAS*1.0*174 Aborted in Environment Checker"
QUIT
+6 WRITE !!,">>> Environment Checker Successful",!!
+7 QUIT
+8 ;
+9 ;
CHK ; Check for correct number of file entries in LTC CO-PAY EXEMPTION file (#714.1).
+1 WRITE !,"*****"
+2 WRITE !,"Checking for entries in LTC CO-PAY EXEMPTION file (#714.1)."
+3 NEW EASINST,EASCNT,ERROR
+4 SET EASINST=$$INSTALDT^XPDUTL("EAS*1.0*174")
SET ERROR=0
+5 SET EASCNT=$$GETCNT
+6 IF 'EASINST
Begin DoDot:1
+7 IF EASCNT'=13
SET ERROR=1
+8 IF $DATA(^EAS(714.1,14,0))
SET ERROR=1
End DoDot:1
+9 IF EASINST
Begin DoDot:1
+10 IF EASCNT'=14
SET ERROR=1
End DoDot:1
+11 IF ERROR
Begin DoDot:1
+12 ; file entries have been added or missing
+13 WRITE !,"It looks like you don't have the right entries in LTC CO-PAY "
+14 WRITE !,"EXEMPTION file (#714.1) installed."
+15 WRITE !,"Please enter a YOUR IT Services ticket with the Enterprise "
+16 WRITE !,"Service Desk (ESD) for assistance with getting "
+17 WRITE !,"the correct number of entries into the LTC CO-PAY EXEMPTION "
+18 WRITE !,"file (#714.1)."
+19 WRITE !,"*****"
+20 SET XPDABORT=1
End DoDot:1
+21 IF 'ERROR
Begin DoDot:1
+22 WRITE !,"*****"
+23 WRITE !,"The correct number of entries in LTC CO-PAY EXEMPTION file "
+24 WRITE !,"(#714.1) are installed."
+25 WRITE !,"*****"
End DoDot:1
+26 ;
+27 QUIT
GETCNT() ; Get count of entries in LTC CO-PAY EXEMPTION file (#714.1)
+1 NEW EASDATA,EASIEN,EASECNT
+2 SET EASDATA=0
SET EASECNT=0
+3 FOR
SET EASDATA=$ORDER(^EAS(714.1,"B",EASDATA))
if EASDATA=""
QUIT
Begin DoDot:1
+4 SET EASIEN=$ORDER(^EAS(714.1,"B",EASDATA,""))
if 'EASIEN
QUIT
Begin DoDot:2
+5 SET EASECNT=EASECNT+1
End DoDot:2
End DoDot:1
+6 QUIT EASECNT
