ICPT002E ;IHS/OIT/FCJ - ICPT*6.0*1002 Env Check FOR IHS patch 1002
;;6.0;CPT/HCPCS;**1002**;May 19, 1997 ;Build 9
;
ENV ;
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
CHK ;
I '$$INSTALLD("ICPT*6.0*37") S XPDQUIT=2
I $$VCHK("DI","22.0",2,"<")
I $$VCHK("XU","8.0",2,"<")
I '$$INSTALLD("AUT*98.1*24") S XPDQUIT=2
I '$$INSTALLD("AUM*11.0*6") S XPDQUIT=2
;
NEW DA,DIC
S X="ICPT",DIC="^DIC(9.4,",DIC(0)="",D="C"
D IX^DIC
I Y<0,$D(^DIC(9.4,"C","ICPT")) D
.W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ICPT"" 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","ICPT002E")
I '$$DIR^XBDIR("E","","","","","",1) D SORRY(2) Q
I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 D HELP^XBHELP("INTROI","ICPT002E") 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(ICPTPRE,ICPTVER,ICPTQUIT,ICPTCOMP) ; Check versions needed.
;
NEW ICPTV
S ICPTV=$$VERSION^XPDUTL(ICPTPRE)
W !,$$CJ^XLFSTR("Need "_$S(ICPTCOMP="<":"at least ",1:"")_ICPTPRE_" v "_ICPTVER_"....."_ICPTPRE_" v "_ICPTV_" Present",IOM)
I @(ICPTV_ICPTCOMP_ICPTVER) D SORRY(ICPTQUIT) Q 0
Q 1
INSTALLD(ICPT) ;EP; Determine if patch was installed, where ICPT is
; the name of the INSTALL. E.g "AVA*93.2*12".
;
NEW DIC,X,Y
; lookup package.
S X=$P(ICPT,"*",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(ICPT,"*",2)
D ^DIC
I Y<1 Q 0
; lookup patch.
S DIC=DIC_+Y_",""PAH"",",X=$P(ICPT,"*",3)
D ^DIC
I Y<1 S P=DIC_"""B"","_X_")" I $O(@P)'="" S Y=1
I Y>0 W !,$$CJ^XLFSTR("Need at least "_ICPT_"....."_ICPT_" Present",IOM)
I Y<0 W !,$$CJ^XLFSTR("Need at least "_ICPT_".....",IOM)
Q $S(Y<1:0,1:1)
; -------------------------------------------
INTROE ; Intro text during KIDS Environment check.
;; Distribution contains VA ICPT patches 38 through 57.
;; Patch is required for Lexicon IHS patch 1002.
;;
;;
;;###
;
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.
;;###
ICPT002E ;IHS/OIT/FCJ - ICPT*6.0*1002 Env Check FOR IHS patch 1002
+1 ;;6.0;CPT/HCPCS;**1002**;May 19, 1997 ;Build 9
+2 ;
ENV ;
+1 IF '$GET(IOM)
DO HOME^%ZIS
+2 IF '$GET(DUZ)
WRITE !,"DUZ UNDEFINED OR 0."
DO SORRY(2)
QUIT
+3 IF '$LENGTH($GET(DUZ(0)))
WRITE !,"DUZ(0) UNDEFINED OR NULL."
DO SORRY(2)
QUIT
+4 IF '(DUZ(0)["@")
IF '$DATA(ZTQUEUED)
WRITE !,"DUZ(0) DOES NOT CONTAIN AN '@'."
DO SORRY(2)
QUIT
+5 ;
+6 SET X=$$GET1^DIQ(200,DUZ,.01)
+7 WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)
+8 WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_" Patch "_$PIECE($TEXT(+2),";",5)_".",IOM)
+9 ;
+10 NEW IORVON,IORVOFF
+11 SET X="IORVON;IORVOFF"
+12 DO ENDR^%ZISS
CHK ;
+1 IF '$$INSTALLD("ICPT*6.0*37")
SET XPDQUIT=2
+2 IF $$VCHK("DI","22.0",2,"<")
+3 IF $$VCHK("XU","8.0",2,"<")
+4 IF '$$INSTALLD("AUT*98.1*24")
SET XPDQUIT=2
+5 IF '$$INSTALLD("AUM*11.0*6")
SET XPDQUIT=2
+6 ;
+7 NEW DA,DIC
+8 SET X="ICPT"
SET DIC="^DIC(9.4,"
SET DIC(0)=""
SET D="C"
+9 DO IX^DIC
+10 IF Y<0
IF $DATA(^DIC(9.4,"C","ICPT"))
Begin DoDot:1
+11 WRITE !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""ICPT"" prefix.",IOM)
+12 WRITE !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
+13 DO SORRY(2)
End DoDot:1
+14 ;
+15 IF $GET(XPDQUIT)
WRITE !,$$CJ^XLFSTR(IORVON_"You must FIX IT, Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
QUIT
+16 WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
+17 DO HELP^XBHELP("INTROE","ICPT002E")
+18 IF '$$DIR^XBDIR("E","","","","","",1)
DO SORRY(2)
QUIT
+19 IF $GET(XPDENV)=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
DO HELP^XBHELP("INTROI","ICPT002E")
IF '$$DIR^XBDIR("E","","","","","",1)
DO SORRY(2)
+20 QUIT
+21 ;
SORRY(X) ;
+1 KILL DIFQ
+2 SET XPDQUIT=X
+3 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
+4 QUIT
+5 ;
VCHK(ICPTPRE,ICPTVER,ICPTQUIT,ICPTCOMP) ; Check versions needed.
+1 ;
+2 NEW ICPTV
+3 SET ICPTV=$$VERSION^XPDUTL(ICPTPRE)
+4 WRITE !,$$CJ^XLFSTR("Need "_$SELECT(ICPTCOMP="<":"at least ",1:"")_ICPTPRE_" v "_ICPTVER_"....."_ICPTPRE_" v "_ICPTV_" Present",IOM)
+5 IF @(ICPTV_ICPTCOMP_ICPTVER)
DO SORRY(ICPTQUIT)
QUIT 0
+6 QUIT 1
INSTALLD(ICPT) ;EP; Determine if patch was installed, where ICPT 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(ICPT,"*",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(ICPT,"*",2)
+11 DO ^DIC
+12 IF Y<1
QUIT 0
+13 ; lookup patch.
+14 SET DIC=DIC_+Y_",""PAH"","
SET X=$PIECE(ICPT,"*",3)
+15 DO ^DIC
+16 IF Y<1
SET P=DIC_"""B"","_X_")"
IF $ORDER(@P)'=""
SET Y=1
+17 IF Y>0
WRITE !,$$CJ^XLFSTR("Need at least "_ICPT_"....."_ICPT_" Present",IOM)
+18 IF Y<0
WRITE !,$$CJ^XLFSTR("Need at least "_ICPT_".....",IOM)
+19 QUIT $SELECT(Y<1:0,1:1)
+20 ; -------------------------------------------
INTROE ; Intro text during KIDS Environment check.
+1 ;; Distribution contains VA ICPT patches 38 through 57.
+2 ;; Patch is required for Lexicon IHS patch 1002.
+3 ;;
+4 ;;
+5 ;;###
+6 ;
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 ;;###
