- 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
