BQI21PRE ;VNGT/HS/ALA-Version 2.1 Pre-Install ; 25 Feb 2009 11:39 AM
;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
;
EN ;
; Remove old source fields
NEW BQIUPD,IEN
S IEN=0
F S IEN=$O(^BQI(90506.1,IEN)) Q:'IEN D
. F FLD=2.01,2.02,2.03,2.04,2.05,2.06 S BQIUPD(90506.1,IEN_",",FLD)="@"
D FILE^DIE("","BQIUPD","ERROR")
;
NEW DIK,DA
S DIK="^DD(90506.1,",DA(1)=90506.1
F DA=2.01,2.02,2.03,2.04,2.05,2.06 D ^DIK
K ^BQI(90506.1,"AC")
D IXALL^DIK
;
; Remove old job data
F FLD=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08 S BQIUPD(90508,1_",",FLD)="@"
D FILE^DIE("","BQIUPD","ERROR")
;
NEW DIK,DA
S DIK="^DD(90508,",DA(1)=90508
F DA=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08 D ^DIK
;
NEW DA,DIK
S DA=0,DIK="^BQI(90505.2,"
F S DA=$O(^BQI(90505.2,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90506,"
F S DA=$O(^BQI(90506,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90506.3,"
F S DA=$O(^BQI(90506.3,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90506.4,"
F S DA=$O(^BQI(90506.4,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90506.5,"
F S DA=$O(^BQI(90506.5,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90506.6,"
F S DA=$O(^BQI(90506.6,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90507,"
F S DA=$O(^BQI(90507,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90507.1,"
F S DA=$O(^BQI(90507.1,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90507.3,"
F S DA=$O(^BQI(90507.3,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90507.8,"
F S DA=$O(^BQI(90507.8,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90508.2,"
F S DA=$O(^BQI(90508.2,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90508.3,"
F S DA=$O(^BQI(90508.3,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90508.4,"
F S DA=$O(^BQI(90508.4,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90509.9,"
F S DA=$O(^BQI(90509.9,DA)) Q:'DA D ^DIK
;
;Remove old community alerts glossary
S BQIUPD(90508,"1,",16)="@"
D FILE^DIE("","BQIUPD","ERROR")
Q
BQI21PRE ;VNGT/HS/ALA-Version 2.1 Pre-Install ; 25 Feb 2009 11:39 AM
+1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ;
EN ;
+1 ; Remove old source fields
+2 NEW BQIUPD,IEN
+3 SET IEN=0
+4 FOR
SET IEN=$ORDER(^BQI(90506.1,IEN))
IF 'IEN
QUIT
Begin DoDot:1
+5 FOR FLD=2.01,2.02,2.03,2.04,2.05,2.06
SET BQIUPD(90506.1,IEN_",",FLD)="@"
End DoDot:1
+6 DO FILE^DIE("","BQIUPD","ERROR")
+7 ;
+8 NEW DIK,DA
+9 SET DIK="^DD(90506.1,"
SET DA(1)=90506.1
+10 FOR DA=2.01,2.02,2.03,2.04,2.05,2.06
DO ^DIK
+11 KILL ^BQI(90506.1,"AC")
+12 DO IXALL^DIK
+13 ;
+14 ; Remove old job data
+15 FOR FLD=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08
SET BQIUPD(90508,1_",",FLD)="@"
+16 DO FILE^DIE("","BQIUPD","ERROR")
+17 ;
+18 NEW DIK,DA
+19 SET DIK="^DD(90508,"
SET DA(1)=90508
+20 FOR DA=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08
DO ^DIK
+21 ;
+22 NEW DA,DIK
+23 SET DA=0
SET DIK="^BQI(90505.2,"
+24 FOR
SET DA=$ORDER(^BQI(90505.2,DA))
IF 'DA
QUIT
DO ^DIK
+25 ;
+26 SET DA=0
SET DIK="^BQI(90506,"
+27 FOR
SET DA=$ORDER(^BQI(90506,DA))
IF 'DA
QUIT
DO ^DIK
+28 ;
+29 SET DA=0
SET DIK="^BQI(90506.3,"
+30 FOR
SET DA=$ORDER(^BQI(90506.3,DA))
IF 'DA
QUIT
DO ^DIK
+31 ;
+32 SET DA=0
SET DIK="^BQI(90506.4,"
+33 FOR
SET DA=$ORDER(^BQI(90506.4,DA))
IF 'DA
QUIT
DO ^DIK
+34 ;
+35 SET DA=0
SET DIK="^BQI(90506.5,"
+36 FOR
SET DA=$ORDER(^BQI(90506.5,DA))
IF 'DA
QUIT
DO ^DIK
+37 ;
+38 SET DA=0
SET DIK="^BQI(90506.6,"
+39 FOR
SET DA=$ORDER(^BQI(90506.6,DA))
IF 'DA
QUIT
DO ^DIK
+40 ;
+41 SET DA=0
SET DIK="^BQI(90507,"
+42 FOR
SET DA=$ORDER(^BQI(90507,DA))
IF 'DA
QUIT
DO ^DIK
+43 ;
+44 SET DA=0
SET DIK="^BQI(90507.1,"
+45 FOR
SET DA=$ORDER(^BQI(90507.1,DA))
IF 'DA
QUIT
DO ^DIK
+46 ;
+47 SET DA=0
SET DIK="^BQI(90507.3,"
+48 FOR
SET DA=$ORDER(^BQI(90507.3,DA))
IF 'DA
QUIT
DO ^DIK
+49 ;
+50 SET DA=0
SET DIK="^BQI(90507.8,"
+51 FOR
SET DA=$ORDER(^BQI(90507.8,DA))
IF 'DA
QUIT
DO ^DIK
+52 ;
+53 SET DA=0
SET DIK="^BQI(90508.2,"
+54 FOR
SET DA=$ORDER(^BQI(90508.2,DA))
IF 'DA
QUIT
DO ^DIK
+55 ;
+56 SET DA=0
SET DIK="^BQI(90508.3,"
+57 FOR
SET DA=$ORDER(^BQI(90508.3,DA))
IF 'DA
QUIT
DO ^DIK
+58 ;
+59 SET DA=0
SET DIK="^BQI(90508.4,"
+60 FOR
SET DA=$ORDER(^BQI(90508.4,DA))
IF 'DA
QUIT
DO ^DIK
+61 ;
+62 SET DA=0
SET DIK="^BQI(90509.9,"
+63 FOR
SET DA=$ORDER(^BQI(90509.9,DA))
IF 'DA
QUIT
DO ^DIK
+64 ;
+65 ;Remove old community alerts glossary
+66 SET BQIUPD(90508,"1,",16)="@"
+67 DO FILE^DIE("","BQIUPD","ERROR")
+68 QUIT
