- AUPN9924 ;IHS/OIT/NKD - AUPN 99.1 PATCH 24 ENVIRONMENT CHECKS AND POST-INIT ; 02/19/2015
- ;;99.1;IHS DICTIONARIES (PATIENT);**24**;MAR 9, 1999;Build 1
- ;
- ;
- ENV ;ENVIROMENT CHECK
- 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
- ;
- S X=$P(^VA(200,DUZ,0),U)
- 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("DI","22.0",2)
- I $$VCHK("XU","8.0",2)
- I $$VCHK("AUPN","99.1",2)
- ;
- I '$$INSTALLD("AUPN*99.1*23") W *7,!,$$CJ^XLFSTR("Sorry....FIX IT! ***DISABLED***",IOM) D SORRY(2)
- ;
- NEW DA,DIC
- S X="AUPN",DIC="^DIC(9.4,",DIC(0)="",D="C"
- D IX^DIC
- I Y<0,$D(^DIC(9.4,"C","AUPN")) D Q
- . W !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM)
- . W !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
- . D SORRY(2)
- .Q
- ;
- I $G(XPDQUIT) W !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7 Q
- ;
- I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"),XPDDIQ("XPO1"),XPDDIQ("XPI1"))=0
- ;
- W !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
- ;
- I '$$DIR^XBDIR("E","","","","","",1) D SORRY(3)
- Q ;ENVIRONMENT CHECK EXIT
- ;
- SORRY(X) ;
- KILL DIFQ
- I X=3 S XPDQUIT=2 Q
- S XPDQUIT=X
- W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
- Q
- ;
- ;
- VCHK(AUPNPRE,AUPNVER,AUPNQUIT) ; Check versions needed.
- ;
- NEW AUPNV
- S AUPNV=$$VERSION^XPDUTL(AUPNPRE)
- W !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM)
- I AUPNV<AUPNVER D SORRY(AUPNQUIT) Q 0
- Q 1
- ;
- ;
- POST ;EP - AUPN V99.1 PATCH 24 POST-INIT
- ;
- ; RUN MCD ELIGIBILITY CLEANUP
- D MES^XPDUTL("RUNNING POST-INSTALL MEDICAID ELIGIBILITY CLEANUP")
- D ^AUPNMCDF
- Q
- ;
- SINGLE(K) ; Get holders of a single key K.
- NEW Y
- S Y=0
- Q:'$D(^XUSEC(K))
- F S Y=$O(^XUSEC(K,Y)) Q:'Y S XMY(Y)=""
- Q
- ;
- INSTALLD(AUPNSTAL) ;EP - Determine if patch AUPNSTAL was installed, where
- ; AUPNSTAL is the name of the INSTALL. E.g "AG*6.0*11".
- ;
- NEW AUPNY,DIC,X,Y
- S X=$P(AUPNSTAL,"*",1)
- S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
- D IX^DIC
- I Y<1 D IMES Q 0
- S DIC=DIC_+Y_",22,",X=$P(AUPNSTAL,"*",2)
- D ^DIC
- I Y<1 D IMES Q 0
- S DIC=DIC_+Y_",""PAH"",",X=$P(AUPNSTAL,"*",3)
- D ^DIC
- S AUPNY=Y
- D IMES
- Q $S(AUPNY<1:0,1:1)
- IMES ;
- D MES^XPDUTL($$CJ^XLFSTR("Patch """_AUPNSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
- Q
- ;
- AUPN9924 ;IHS/OIT/NKD - AUPN 99.1 PATCH 24 ENVIRONMENT CHECKS AND POST-INIT ; 02/19/2015
- +1 ;;99.1;IHS DICTIONARIES (PATIENT);**24**;MAR 9, 1999;Build 1
- +2 ;
- +3 ;
- ENV ;ENVIROMENT CHECK
- +1 IF '$GET(IOM)
- DO HOME^%ZIS
- +2 ;
- +3 IF '$GET(DUZ)
- WRITE !,"DUZ UNDEFINED OR 0."
- DO SORRY(2)
- QUIT
- +4 ;
- +5 IF '$LENGTH($GET(DUZ(0)))
- WRITE !,"DUZ(0) UNDEFINED OR NULL."
- DO SORRY(2)
- QUIT
- +6 ;
- +7 SET X=$PIECE(^VA(200,DUZ,0),U)
- +8 WRITE !!,$$CJ^XLFSTR("Hello, "_$PIECE(X,",",2)_" "_$PIECE(X,","),IOM)
- +9 WRITE !!,$$CJ^XLFSTR("Checking Environment for "_$PIECE($TEXT(+2),";",4)_" V "_$PIECE($TEXT(+2),";",3)_" Patch "_$PIECE($TEXT(+2),";",5)_".",IOM)
- +10 ;
- +11 NEW IORVON,IORVOFF
- +12 SET X="IORVON;IORVOFF"
- +13 DO ENDR^%ZISS
- +14 ;
- +15 IF $$VCHK("DI","22.0",2)
- +16 IF $$VCHK("XU","8.0",2)
- +17 IF $$VCHK("AUPN","99.1",2)
- +18 ;
- +19 IF '$$INSTALLD("AUPN*99.1*23")
- WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT! ***DISABLED***",IOM)
- DO SORRY(2)
- +20 ;
- +21 NEW DA,DIC
- +22 SET X="AUPN"
- SET DIC="^DIC(9.4,"
- SET DIC(0)=""
- SET D="C"
- +23 DO IX^DIC
- +24 IF Y<0
- IF $DATA(^DIC(9.4,"C","AUPN"))
- Begin DoDot:1
- +25 WRITE !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""AUPN"" prefix.",IOM)
- +26 WRITE !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
- +27 DO SORRY(2)
- +28 QUIT
- End DoDot:1
- QUIT
- +29 ;
- +30 IF $GET(XPDQUIT)
- WRITE !,$$CJ^XLFSTR(IORVON_"FIX IT! Before Proceeding."_IORVOFF,IOM),!!,*7,*7,*7
- QUIT
- +31 ;
- +32 IF $GET(XPDENV)=1
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"),XPDDIQ("XPO1"),XPDDIQ("XPI1"))=0
- +33 ;
- +34 WRITE !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
- +35 ;
- +36 IF '$$DIR^XBDIR("E","","","","","",1)
- DO SORRY(3)
- +37 ;ENVIRONMENT CHECK EXIT
- QUIT
- +38 ;
- SORRY(X) ;
- +1 KILL DIFQ
- +2 IF X=3
- SET XPDQUIT=2
- QUIT
- +3 SET XPDQUIT=X
- +4 WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
- +5 QUIT
- +6 ;
- +7 ;
- VCHK(AUPNPRE,AUPNVER,AUPNQUIT) ; Check versions needed.
- +1 ;
- +2 NEW AUPNV
- +3 SET AUPNV=$$VERSION^XPDUTL(AUPNPRE)
- +4 WRITE !,$$CJ^XLFSTR("Need at least "_AUPNPRE_" v "_AUPNVER_"....."_AUPNPRE_" v "_AUPNV_" Present",IOM)
- +5 IF AUPNV<AUPNVER
- DO SORRY(AUPNQUIT)
- QUIT 0
- +6 QUIT 1
- +7 ;
- +8 ;
- POST ;EP - AUPN V99.1 PATCH 24 POST-INIT
- +1 ;
- +2 ; RUN MCD ELIGIBILITY CLEANUP
- +3 DO MES^XPDUTL("RUNNING POST-INSTALL MEDICAID ELIGIBILITY CLEANUP")
- +4 DO ^AUPNMCDF
- +5 QUIT
- +6 ;
- SINGLE(K) ; Get holders of a single key K.
- +1 NEW Y
- +2 SET Y=0
- +3 IF '$DATA(^XUSEC(K))
- QUIT
- +4 FOR
- SET Y=$ORDER(^XUSEC(K,Y))
- IF 'Y
- QUIT
- SET XMY(Y)=""
- +5 QUIT
- +6 ;
- INSTALLD(AUPNSTAL) ;EP - Determine if patch AUPNSTAL was installed, where
- +1 ; AUPNSTAL is the name of the INSTALL. E.g "AG*6.0*11".
- +2 ;
- +3 NEW AUPNY,DIC,X,Y
- +4 SET X=$PIECE(AUPNSTAL,"*",1)
- +5 SET DIC="^DIC(9.4,"
- SET DIC(0)="FM"
- SET D="C"
- +6 DO IX^DIC
- +7 IF Y<1
- DO IMES
- QUIT 0
- +8 SET DIC=DIC_+Y_",22,"
- SET X=$PIECE(AUPNSTAL,"*",2)
- +9 DO ^DIC
- +10 IF Y<1
- DO IMES
- QUIT 0
- +11 SET DIC=DIC_+Y_",""PAH"","
- SET X=$PIECE(AUPNSTAL,"*",3)
- +12 DO ^DIC
- +13 SET AUPNY=Y
- +14 DO IMES
- +15 QUIT $SELECT(AUPNY<1:0,1:1)
- IMES ;
- +1 DO MES^XPDUTL($$CJ^XLFSTR("Patch """_AUPNSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))
- +2 QUIT
- +3 ;
