BJPC1P1 ; IHS/CMI/LAB - PCC Suite v1.0 patch 1 environment check ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;
;
; The following line prevents the "Disable Options..." and "Move
; Routines..." questions from being asked during the install.
I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
I '$$INSTALLD("BJPC*1.0*1") D SORRY(2)
;
Q
;
PRE ;
Q
POST ;
;install icd9 taxonomy
D ^BJPC1T
;create surveillance ili clinics
D CLTAX
D ZISH
S X=$$ADD^XPDMENU("APCL M MAN QUALITY ASSURANCE","APCL SURVEILLANCE ILI TEMPLATE","ILI")
I 'X W "Attempt to add SURVEILLANCE ILI report option failed.." H 3
Q
;
ZISH ;create entry in ZISH SEND PARAMETERS file
D ^XBFMK K DIADD,DLAYGO,DIC,DD,D0,DO
S BDWY=0 F S BDWY=$O(^%ZIB(9888888.93,"B","SURVEILLANCE ILI SEND",0)) Q:BDWY'=+BDWY D
.I BDWY S DA=BDWY,DIK="^%ZIB(9888888.93," D ^DIK K DA,DIK
S X="SURVEILLANCE ILI SEND",DIC(0)="L",DIC="^%ZIB(9888888.93," D FILE^DICN
I Y=-1 W !!,"error creating ZISH SEND PARAMETERS entry" Q
S DA=+Y,DIE="^%ZIB(9888888.93,",DR=".02///QUOVADX-IE.DOMAIN.NAME;.03///fludata;.04///etgx7h;.06///-u;.07///B;.08///sendto"
D ^DIE
I $D(Y) W !!,"error updating ZISH SEND PARAMETERS entry" Q
Q
;
CLTAX ;
S ATXFLG=1
W !,"Creating Surveillance ILI Clinics taxonomy..."
S BJPCDA=0 S BJPCDA=$O(^ATXAX("B","SURVEILLANCE ILI CLINICS",BJPCDA)) I BJPCDA S DA=BJPCDA S DIK="^ATXAX(" D ^DIK K DA,DIK
S X="SURVEILLANCE ILI CLINICS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
I Y=-1 W !!,"ERROR IN CREATING SURVEILLANCE ILI CLINICS TAX" Q
S BJPCTX=+Y,$P(^ATXAX(BJPCTX,0),U,2)="SURVEILLANCE ILI CLINICS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=172,$P(^(0),U,13)=0,$P(^(0),U,15)=40.7,^ATXAX(BJPCTX,21,0)="^9002226.02101A^0^0"
D ^XBFMK K DIADD,DLAYGO S BJPCTEXT="CLINICS" F BJPCX=1:1 S X=$P($T(@BJPCTEXT+BJPCX),";;",2) Q:X="" S Y=$O(^DIC(40.7,"C",X,0)) I Y D
.S ^ATXAX(BJPCTX,21,BJPCX,0)=+Y,$P(^ATXAX(BJPCTX,21,0),U,3)=BJPCX,$P(^(0),U,4)=BJPCX,^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
.Q
S DA=BJPCTX,DIK="^ATXAX(" D IX1^DIK
Q
;
INSTALLD(BJPCSTAL) ;EP - Determine if patch BJPCSTAL was installed, where
; BJPCSTAL is the name of the INSTALL. E.g "AG*6.0*11".
;
NEW BJPCY,DIC,X,Y
S X=$P(BJPCSTAL,"*",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(BJPCSTAL,"*",2)
D ^DIC
I Y<1 D IMES Q 0
S DIC=DIC_+Y_",""PAH"",",X=$P(BJPCSTAL,"*",3)
D ^DIC
S BJPCY=Y
D IMES
Q $S(BJPCY<1:0,1:1)
IMES ;
D MES^XPDUTL($$CJ^XLFSTR("Patch """_BJPCSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
Q
SORRY(X) ;
KILL DIFQ
I X=3 S XPDQUIT=2 Q
S XPDQUIT=X
W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
Q
;
CLINICS ;
;;30
;;10
;;12
;;13
;;20
;;24
;;28
;;57
;;70
;;80
;;89
;;01
;;06
;;
BJPC1P1 ; IHS/CMI/LAB - PCC Suite v1.0 patch 1 environment check ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;
+3 ;
+4 ; The following line prevents the "Disable Options..." and "Move
+5 ; Routines..." questions from being asked during the install.
+6 IF $GET(XPDENV)=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+7 FOR X="XPO1","XPZ1","XPZ2","XPI1"
SET XPDDIQ(X)=0
+8 IF '$$INSTALLD("BJPC*1.0*1")
DO SORRY(2)
+9 ;
+10 QUIT
+11 ;
PRE ;
+1 QUIT
POST ;
+1 ;install icd9 taxonomy
+2 DO ^BJPC1T
+3 ;create surveillance ili clinics
+4 DO CLTAX
+5 DO ZISH
+6 SET X=$$ADD^XPDMENU("APCL M MAN QUALITY ASSURANCE","APCL SURVEILLANCE ILI TEMPLATE","ILI")
+7 IF 'X
WRITE "Attempt to add SURVEILLANCE ILI report option failed.."
HANG 3
+8 QUIT
+9 ;
ZISH ;create entry in ZISH SEND PARAMETERS file
+1 DO ^XBFMK
KILL DIADD,DLAYGO,DIC,DD,D0,DO
+2 SET BDWY=0
FOR
SET BDWY=$ORDER(^%ZIB(9888888.93,"B","SURVEILLANCE ILI SEND",0))
IF BDWY'=+BDWY
QUIT
Begin DoDot:1
+3 IF BDWY
SET DA=BDWY
SET DIK="^%ZIB(9888888.93,"
DO ^DIK
KILL DA,DIK
End DoDot:1
+4 SET X="SURVEILLANCE ILI SEND"
SET DIC(0)="L"
SET DIC="^%ZIB(9888888.93,"
DO FILE^DICN
+5 IF Y=-1
WRITE !!,"error creating ZISH SEND PARAMETERS entry"
QUIT
+6 SET DA=+Y
SET DIE="^%ZIB(9888888.93,"
SET DR=".02///QUOVADX-IE.DOMAIN.NAME;.03///fludata;.04///etgx7h;.06///-u;.07///B;.08///sendto"
+7 DO ^DIE
+8 IF $DATA(Y)
WRITE !!,"error updating ZISH SEND PARAMETERS entry"
QUIT
+9 QUIT
+10 ;
CLTAX ;
+1 SET ATXFLG=1
+2 WRITE !,"Creating Surveillance ILI Clinics taxonomy..."
+3 SET BJPCDA=0
SET BJPCDA=$ORDER(^ATXAX("B","SURVEILLANCE ILI CLINICS",BJPCDA))
IF BJPCDA
SET DA=BJPCDA
SET DIK="^ATXAX("
DO ^DIK
KILL DA,DIK
+4 SET X="SURVEILLANCE ILI CLINICS"
SET DIC="^ATXAX("
SET DIC(0)="L"
SET DIADD=1
SET DLAYGO=9002226
DO ^DIC
KILL DIC,DA,DIADD,DLAYGO,I
+5 IF Y=-1
WRITE !!,"ERROR IN CREATING SURVEILLANCE ILI CLINICS TAX"
QUIT
+6 SET BJPCTX=+Y
SET $PIECE(^ATXAX(BJPCTX,0),U,2)="SURVEILLANCE ILI CLINICS"
SET $PIECE(^(0),U,5)=DUZ
SET $PIECE(^(0),U,8)=0
SET $PIECE(^(0),U,9)=DT
SET $PIECE(^(0),U,12)=172
SET $PIECE(^(0),U,13)=0
SET $PIECE(^(0),U,15)=40.7
SET ^ATXAX(BJPCTX,21,0)="^9002226.02101A^0^0"
+7 DO ^XBFMK
KILL DIADD,DLAYGO
SET BJPCTEXT="CLINICS"
FOR BJPCX=1:1
SET X=$PIECE($TEXT(@BJPCTEXT+BJPCX),";;",2)
IF X=""
QUIT
SET Y=$ORDER(^DIC(40.7,"C",X,0))
IF Y
Begin DoDot:1
+8 SET ^ATXAX(BJPCTX,21,BJPCX,0)=+Y
SET $PIECE(^ATXAX(BJPCTX,21,0),U,3)=BJPCX
SET $PIECE(^(0),U,4)=BJPCX
SET ^ATXAX(BJPCTX,21,"AA",+Y,+Y)=""
+9 QUIT
End DoDot:1
+10 SET DA=BJPCTX
SET DIK="^ATXAX("
DO IX1^DIK
+11 QUIT
+12 ;
INSTALLD(BJPCSTAL) ;EP - Determine if patch BJPCSTAL was installed, where
+1 ; BJPCSTAL is the name of the INSTALL. E.g "AG*6.0*11".
+2 ;
+3 NEW BJPCY,DIC,X,Y
+4 SET X=$PIECE(BJPCSTAL,"*",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(BJPCSTAL,"*",2)
+9 DO ^DIC
+10 IF Y<1
DO IMES
QUIT 0
+11 SET DIC=DIC_+Y_",""PAH"","
SET X=$PIECE(BJPCSTAL,"*",3)
+12 DO ^DIC
+13 SET BJPCY=Y
+14 DO IMES
+15 QUIT $SELECT(BJPCY<1:0,1:1)
IMES ;
+1 DO MES^XPDUTL($$CJ^XLFSTR("Patch """_BJPCSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))
+2 QUIT
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 ;
CLINICS ;
+1 ;;30
+2 ;;10
+3 ;;12
+4 ;;13
+5 ;;20
+6 ;;24
+7 ;;28
+8 ;;57
+9 ;;70
+10 ;;80
+11 ;;89
+12 ;;01
+13 ;;06
+14 ;;
