- 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
