BQI25POS ;GDIT/HS/ALA-Post Install for Version 2.5 ; 05 Jan 2015 12:39 PM
;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27
;
;
EN ;EP
;Set the version number
NEW DA
S DA=$O(^BQI(90508,0))
S BQIUPD(90508,DA_",",.08)="2.5.0.5"
S BQIUPD(90508,DA_",",.09)="2.5.0.5"
S BQIUPD(90508,DA_",",16.04)="T-12M"
S BQIUPD(90508,DA_",",16.05)="T-365"
D FILE^DIE("","BQIUPD","ERROR")
K BQIUPD
;
;Turn off Ordered field for CMET
NEW BTWN
S BTWN=$O(^BQI(90506.1,"B","BTPWFUOR","")) I BTWN'="" D
. S BQIUPD(90506.1,BTWN_",",.1)=1
. I $P(^BQI(90506.1,BTWN,0),U,11)="" S BQIUPD(90506.1,BTWN_",",.11)=DT
. D FILE^DIE("","BQIUPD","ERROR")
;
; Set BTPWRPC and BUSARPC into BQIRPC
NEW IEN,DA,X,DIC,Y
S DA(1)=$$FIND1^DIC(19,"","B","BQIRPC","","","ERROR"),DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMNZ"
I $G(^DIC(19,DA(1),10,0))="" S ^DIC(19,DA(1),10,0)="^19.01IP^^"
S X="BTPWRPC"
D ^DIC I +Y<1 K DO,DD D FILE^DICN
NEW IEN,DA,X,DIC,Y
S DA(1)=$$FIND1^DIC(19,"","B","BQIRPC","","","ERROR"),DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMNZ"
I $G(^DIC(19,DA(1),10,0))="" S ^DIC(19,DA(1),10,0)="^19.01IP^^"
S X="BUSARPC"
D ^DIC I +Y<1 K DO,DD D FILE^DICN
;
D ^BQI25PU1
D ^BQI25PU
;
NEW DA
F DA=4,7,26 S BQIUPD(90506.5,DA_",",.16)=1
D FILE^DIE("","BQIUPD","ERROR")
;
; Add Diabetes to Filter Source for Lab tests
S ^BQI(90506.3,2,7,0)="^90506.38P^2^2"
S ^BQI(90506.3,2,7,2,0)=7
S ^BQI(90506.3,2,7,"B",7,2)=""
S $P(^BQI(90507,6,0),"^",17)="Diabetes"
;
;DM Audit
S ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT(),,,15)
S ZTDESC="Turn on DM Audit",ZTRTN="DMA^BQI25POS",ZTIO=""
D ^%ZTLOAD
K ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSK
;
;Turn on Immunization Forecaster as Reminders
S ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT(),,,25)
S ZTDESC="IZ Forecaster",ZTRTN="IZF^BQI25POS",ZTIO=""
D ^%ZTLOAD
K ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSK
;
MC ;Add Matched Criteria type
NEW BI,TEXT,IEN
F BI=1:1 S TEXT=$P($T(MCT+BI),";;",2) Q:TEXT="" D
. S IEN=$P(TEXT,"|",1),VAL=$P(TEXT,"|",2)
. I $G(^BQI(90506.5,IEN,0))'="" S $P(^BQI(90506.5,IEN,0),"^",17)=VAL
;
;Check for bad records in CMET
NEW IEN,PREVT
S IEN=0
F S IEN=$O(^BTPWP(IEN)) Q:'IEN I $G(^BTPWP(IEN,0))="" K ^BTPWP(IEN)
;
S IEN=0
F S IEN=$O(^BTPWP(IEN)) Q:'IEN S PREVT=$P(^BTPWP(IEN,0),"^",14) I PREVT'="",$P(^BTPWP(IEN,0),"^",5)="" D
. S $P(^BTPWP(IEN,0),"^",5)=$P($G(^BTPWQ(PREVT,0)),"^",5)
Q
;
DMA ;EP - Turn on DM Audit
NEW CIEN
S CIEN=$O(^BQI(90506.5,"B","DM Audit","")) I CIEN="" Q
I $P(^BQI(90506.5,CIEN,0),"^",10)="" Q
S BQIUPD(90506.5,CIEN_",",.1)="@"
I $O(^ACM(41.1,"B","IHS DIABETES",""))'="" D
. S BQIUPD(90508,"1,",21.02)="IHS DIABETES"
I $O(^ACM(41.1,"B","IHS DIABETES",""))="" D
. NEW N,NAME,UNAME,FLG,RNAME
. S N=0,FLG=0 F S N=$O(^ACM(41.1,N)) Q:'N D
.. S NAME=$P(^ACM(41.1,N,0),"^",1),UNAME=$$UP^XLFSTR(NAME)
.. I UNAME'["DIABET" Q
.. I UNAME="IHS PRE-DIABETES" Q
.. S FLG=1,RNAME=NAME
. I FLG S BQIUPD(90508,"1,",21.02)=RNAME
D FILE^DIE("E","BQIUPD","ERROR")
D DMA^BQINIGH2
Q
;
IZF ;EP - Turn on Immunization Forecaster
NEW ITM,RVDT,PTNAM,BQDFN
S ITM=$O(^BQI(90506.1,"B","IZ_")) I $P(ITM,"_",1)="IZ" Q
S TJOB="Weekly",SOURCE="Reminders"
D IFR^BQIRMDR2
S RVDT=""
F S RVDT=$O(^TMP("BIDUL",$J,1,RVDT)) Q:RVDT="" D
. S PTNAM="" F S PTNAM=$O(^TMP("BIDUL",$J,1,RVDT,PTNAM)) Q:PTNAM="" D
.. S BQDFN="" F S BQDFN=$O(^TMP("BIDUL",$J,1,RVDT,PTNAM,BQDFN)) Q:BQDFN="" D IZ^BQIRMDR2(BQDFN)
K TJOB,SOURCE
Q
;
MCT ;EP
;;27|LAB
;;28|PROB
;;29|MED
;;30|ALGY
;;31|INP
;;32|CPT
;;33|ERV
;;34|EDUC
;;35|REM
;;42|REG
BQI25POS ;GDIT/HS/ALA-Post Install for Version 2.5 ; 05 Jan 2015 12:39 PM
+1 ;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27
+2 ;
+3 ;
EN ;EP
+1 ;Set the version number
+2 NEW DA
+3 SET DA=$ORDER(^BQI(90508,0))
+4 SET BQIUPD(90508,DA_",",.08)="2.5.0.5"
+5 SET BQIUPD(90508,DA_",",.09)="2.5.0.5"
+6 SET BQIUPD(90508,DA_",",16.04)="T-12M"
+7 SET BQIUPD(90508,DA_",",16.05)="T-365"
+8 DO FILE^DIE("","BQIUPD","ERROR")
+9 KILL BQIUPD
+10 ;
+11 ;Turn off Ordered field for CMET
+12 NEW BTWN
+13 SET BTWN=$ORDER(^BQI(90506.1,"B","BTPWFUOR",""))
IF BTWN'=""
Begin DoDot:1
+14 SET BQIUPD(90506.1,BTWN_",",.1)=1
+15 IF $PIECE(^BQI(90506.1,BTWN,0),U,11)=""
SET BQIUPD(90506.1,BTWN_",",.11)=DT
+16 DO FILE^DIE("","BQIUPD","ERROR")
End DoDot:1
+17 ;
+18 ; Set BTPWRPC and BUSARPC into BQIRPC
+19 NEW IEN,DA,X,DIC,Y
+20 SET DA(1)=$$FIND1^DIC(19,"","B","BQIRPC","","","ERROR")
SET DIC="^DIC(19,"_DA(1)_",10,"
SET DIC(0)="LMNZ"
+21 IF $GET(^DIC(19,DA(1),10,0))=""
SET ^DIC(19,DA(1),10,0)="^19.01IP^^"
+22 SET X="BTPWRPC"
+23 DO ^DIC
IF +Y<1
KILL DO,DD
DO FILE^DICN
+24 NEW IEN,DA,X,DIC,Y
+25 SET DA(1)=$$FIND1^DIC(19,"","B","BQIRPC","","","ERROR")
SET DIC="^DIC(19,"_DA(1)_",10,"
SET DIC(0)="LMNZ"
+26 IF $GET(^DIC(19,DA(1),10,0))=""
SET ^DIC(19,DA(1),10,0)="^19.01IP^^"
+27 SET X="BUSARPC"
+28 DO ^DIC
IF +Y<1
KILL DO,DD
DO FILE^DICN
+29 ;
+30 DO ^BQI25PU1
+31 DO ^BQI25PU
+32 ;
+33 NEW DA
+34 FOR DA=4,7,26
SET BQIUPD(90506.5,DA_",",.16)=1
+35 DO FILE^DIE("","BQIUPD","ERROR")
+36 ;
+37 ; Add Diabetes to Filter Source for Lab tests
+38 SET ^BQI(90506.3,2,7,0)="^90506.38P^2^2"
+39 SET ^BQI(90506.3,2,7,2,0)=7
+40 SET ^BQI(90506.3,2,7,"B",7,2)=""
+41 SET $PIECE(^BQI(90507,6,0),"^",17)="Diabetes"
+42 ;
+43 ;DM Audit
+44 SET ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT(),,,15)
+45 SET ZTDESC="Turn on DM Audit"
SET ZTRTN="DMA^BQI25POS"
SET ZTIO=""
+46 DO ^%ZTLOAD
+47 KILL ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSK
+48 ;
+49 ;Turn on Immunization Forecaster as Reminders
+50 SET ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT(),,,25)
+51 SET ZTDESC="IZ Forecaster"
SET ZTRTN="IZF^BQI25POS"
SET ZTIO=""
+52 DO ^%ZTLOAD
+53 KILL ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSK
+54 ;
MC ;Add Matched Criteria type
+1 NEW BI,TEXT,IEN
+2 FOR BI=1:1
SET TEXT=$PIECE($TEXT(MCT+BI),";;",2)
IF TEXT=""
QUIT
Begin DoDot:1
+3 SET IEN=$PIECE(TEXT,"|",1)
SET VAL=$PIECE(TEXT,"|",2)
+4 IF $GET(^BQI(90506.5,IEN,0))'=""
SET $PIECE(^BQI(90506.5,IEN,0),"^",17)=VAL
End DoDot:1
+5 ;
+6 ;Check for bad records in CMET
+7 NEW IEN,PREVT
+8 SET IEN=0
+9 FOR
SET IEN=$ORDER(^BTPWP(IEN))
IF 'IEN
QUIT
IF $GET(^BTPWP(IEN,0))=""
KILL ^BTPWP(IEN)
+10 ;
+11 SET IEN=0
+12 FOR
SET IEN=$ORDER(^BTPWP(IEN))
IF 'IEN
QUIT
SET PREVT=$PIECE(^BTPWP(IEN,0),"^",14)
IF PREVT'=""
IF $PIECE(^BTPWP(IEN,0),"^",5)=""
Begin DoDot:1
+13 SET $PIECE(^BTPWP(IEN,0),"^",5)=$PIECE($GET(^BTPWQ(PREVT,0)),"^",5)
End DoDot:1
+14 QUIT
+15 ;
DMA ;EP - Turn on DM Audit
+1 NEW CIEN
+2 SET CIEN=$ORDER(^BQI(90506.5,"B","DM Audit",""))
IF CIEN=""
QUIT
+3 IF $PIECE(^BQI(90506.5,CIEN,0),"^",10)=""
QUIT
+4 SET BQIUPD(90506.5,CIEN_",",.1)="@"
+5 IF $ORDER(^ACM(41.1,"B","IHS DIABETES",""))'=""
Begin DoDot:1
+6 SET BQIUPD(90508,"1,",21.02)="IHS DIABETES"
End DoDot:1
+7 IF $ORDER(^ACM(41.1,"B","IHS DIABETES",""))=""
Begin DoDot:1
+8 NEW N,NAME,UNAME,FLG,RNAME
+9 SET N=0
SET FLG=0
FOR
SET N=$ORDER(^ACM(41.1,N))
IF 'N
QUIT
Begin DoDot:2
+10 SET NAME=$PIECE(^ACM(41.1,N,0),"^",1)
SET UNAME=$$UP^XLFSTR(NAME)
+11 IF UNAME'["DIABET"
QUIT
+12 IF UNAME="IHS PRE-DIABETES"
QUIT
+13 SET FLG=1
SET RNAME=NAME
End DoDot:2
+14 IF FLG
SET BQIUPD(90508,"1,",21.02)=RNAME
End DoDot:1
+15 DO FILE^DIE("E","BQIUPD","ERROR")
+16 DO DMA^BQINIGH2
+17 QUIT
+18 ;
IZF ;EP - Turn on Immunization Forecaster
+1 NEW ITM,RVDT,PTNAM,BQDFN
+2 SET ITM=$ORDER(^BQI(90506.1,"B","IZ_"))
IF $PIECE(ITM,"_",1)="IZ"
QUIT
+3 SET TJOB="Weekly"
SET SOURCE="Reminders"
+4 DO IFR^BQIRMDR2
+5 SET RVDT=""
+6 FOR
SET RVDT=$ORDER(^TMP("BIDUL",$JOB,1,RVDT))
IF RVDT=""
QUIT
Begin DoDot:1
+7 SET PTNAM=""
FOR
SET PTNAM=$ORDER(^TMP("BIDUL",$JOB,1,RVDT,PTNAM))
IF PTNAM=""
QUIT
Begin DoDot:2
+8 SET BQDFN=""
FOR
SET BQDFN=$ORDER(^TMP("BIDUL",$JOB,1,RVDT,PTNAM,BQDFN))
IF BQDFN=""
QUIT
DO IZ^BQIRMDR2(BQDFN)
End DoDot:2
End DoDot:1
+9 KILL TJOB,SOURCE
+10 QUIT
+11 ;
MCT ;EP
+1 ;;27|LAB
+2 ;;28|PROB
+3 ;;29|MED
+4 ;;30|ALGY
+5 ;;31|INP
+6 ;;32|CPT
+7 ;;33|ERV
+8 ;;34|EDUC
+9 ;;35|REM
+10 ;;42|REG
