BQI2PRE ;PRXM/HC/ALA-Version 2.0 Pre-Install ; 01 Nov 2007 3:14 PM
;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
;
EN ; Remove existing data fields
NEW DIK,DA,NAM
K ^XTMP("BQICARE")
S ^XTMP("BQICARE",0)=$D(^BQICARE)
S ^XTMP("BQICARE","VISIT")=$G(^BQI(90508,1,"VISIT"))
S ^XTMP("BQICARE","VER")=$$VERSION^XPDUTL("BQI")
S ^XTMP("BQICARE",3)=$G(^BQI(90508,1,3))
S ^XTMP("BQICARE",4)=$G(^BQI(90508,1,4))
;
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.1,"
F S DA=$O(^BQI(90506.1,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90506.2,"
F S DA=$O(^BQI(90506.2,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.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=1,DIK="^BQI(90508," D ^DIK
;
S DA=0,DIK="^BQI(90508.5,"
F S DA=$O(^BQI(90508.5,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.4,"
F S DA=$O(^BQI(90506.4,DA)) Q:'DA D ^DIK
;
S DA=0,DIK="^BQI(90507.8,"
F S DA=$O(^BQI(90507.8,DA)) Q:'DA D ^DIK
;
; Clean up HIV/AIDS tags for alpha/beta sites
S DA="",DIK="^BQIREG("
F S DA=$O(^BQIREG("B",3,DA)) Q:DA="" D ^DIK
Q
BQI2PRE ;PRXM/HC/ALA-Version 2.0 Pre-Install ; 01 Nov 2007 3:14 PM
+1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ;
EN ; Remove existing data fields
+1 NEW DIK,DA,NAM
+2 KILL ^XTMP("BQICARE")
+3 SET ^XTMP("BQICARE",0)=$DATA(^BQICARE)
+4 SET ^XTMP("BQICARE","VISIT")=$GET(^BQI(90508,1,"VISIT"))
+5 SET ^XTMP("BQICARE","VER")=$$VERSION^XPDUTL("BQI")
+6 SET ^XTMP("BQICARE",3)=$GET(^BQI(90508,1,3))
+7 SET ^XTMP("BQICARE",4)=$GET(^BQI(90508,1,4))
+8 ;
+9 NEW DA,DIK
+10 SET DA=0
SET DIK="^BQI(90505.2,"
+11 FOR
SET DA=$ORDER(^BQI(90505.2,DA))
IF 'DA
QUIT
DO ^DIK
+12 ;
+13 SET DA=0
SET DIK="^BQI(90506,"
+14 FOR
SET DA=$ORDER(^BQI(90506,DA))
IF 'DA
QUIT
DO ^DIK
+15 ;
+16 SET DA=0
SET DIK="^BQI(90506.1,"
+17 FOR
SET DA=$ORDER(^BQI(90506.1,DA))
IF 'DA
QUIT
DO ^DIK
+18 ;
+19 SET DA=0
SET DIK="^BQI(90506.2,"
+20 FOR
SET DA=$ORDER(^BQI(90506.2,DA))
IF 'DA
QUIT
DO ^DIK
+21 ;
+22 SET DA=0
SET DIK="^BQI(90506.3,"
+23 FOR
SET DA=$ORDER(^BQI(90506.3,DA))
IF 'DA
QUIT
DO ^DIK
+24 ;
+25 SET DA=0
SET DIK="^BQI(90506.6,"
+26 FOR
SET DA=$ORDER(^BQI(90506.6,DA))
IF 'DA
QUIT
DO ^DIK
+27 ;
+28 SET DA=0
SET DIK="^BQI(90507,"
+29 FOR
SET DA=$ORDER(^BQI(90507,DA))
IF 'DA
QUIT
DO ^DIK
+30 ;
+31 SET DA=0
SET DIK="^BQI(90507.1,"
+32 FOR
SET DA=$ORDER(^BQI(90507.1,DA))
IF 'DA
QUIT
DO ^DIK
+33 ;
+34 SET DA=0
SET DIK="^BQI(90507.3,"
+35 FOR
SET DA=$ORDER(^BQI(90507.3,DA))
IF 'DA
QUIT
DO ^DIK
+36 ;
+37 SET DA=1
SET DIK="^BQI(90508,"
DO ^DIK
+38 ;
+39 SET DA=0
SET DIK="^BQI(90508.5,"
+40 FOR
SET DA=$ORDER(^BQI(90508.5,DA))
IF 'DA
QUIT
DO ^DIK
+41 ;
+42 SET DA=0
SET DIK="^BQI(90506.5,"
+43 FOR
SET DA=$ORDER(^BQI(90506.5,DA))
IF 'DA
QUIT
DO ^DIK
+44 ;
+45 SET DA=0
SET DIK="^BQI(90506.4,"
+46 FOR
SET DA=$ORDER(^BQI(90506.4,DA))
IF 'DA
QUIT
DO ^DIK
+47 ;
+48 SET DA=0
SET DIK="^BQI(90507.8,"
+49 FOR
SET DA=$ORDER(^BQI(90507.8,DA))
IF 'DA
QUIT
DO ^DIK
+50 ;
+51 ; Clean up HIV/AIDS tags for alpha/beta sites
+52 SET DA=""
SET DIK="^BQIREG("
+53 FOR
SET DA=$ORDER(^BQIREG("B",3,DA))
IF DA=""
QUIT
DO ^DIK
+54 QUIT
