BKM22PST.m

BKM22PST ;GDIT/HS/ALA-Version 2.2 Postinstall ; 12 Dec 2013  9:55 AM

 ;;2.2;HIV MANAGEMENT SYSTEM;;Apr 01, 2015;Build 40

 ;

 ;

EN ;EP

 ;Delete file HMS AUDIT #90455

 S DIU="^BKMV(90455,",DIU(0)="DT" D EN^DIU2

 K DIU

 ;

 ; Delete subfiles in HMS BASE File #90450

 S DIU=90450.04,DIU(0)="S" D EN^DIU2

 S DIU=90450.06,DIU(0)="S" D EN^DIU2

 S DIU=90450.07,DIU(0)="S" D EN^DIU2

 S DIU=90450.08,DIU(0)="S" D EN^DIU2

 S DIU=90450.02,DIU(0)="S" D EN^DIU2

 S DIU=90450.09,DIU(0)="S" D EN^DIU2

 S DIU=90450.01,DIU(0)="S" D EN^DIU2

 ;

TX ; Fix iCare NDC taxonomies to point to 50.67 instead of 50.57

 NEW TAX,DA,BQUP

 F TAX="BKM TB MED NDCS","BKMV EI MED NDCS","BKMV II MED NDCS","BKMV MAC PROPH MED NDCS" D UP

 F TAX="BKMV NNRTI MED NDCS","BKMV NRTI COMBO MED NDCS","BKMV NRTI MED NDCS","BKMV NRTI/NNRTI MED NDCS" D UP

 F TAX="BKMV PCP PROPH MED NDCS","BKMV PI BOOSTER MED NDCS","BKMV PI MED NDCS","BQI STATIN NDC" D UP

 D FILE^DIE("","BQUP","ERROR")

 Q

 ;

UP ;EP

 S DA=$O(^ATXAX("B",TAX,"")) I DA="" Q

 S BQUP(9002226,DA_",",.15)=50.67

 Q

BKM22PST  ;GDIT/HS/ALA-Version 2.2 Postinstall ; 12 Dec 2013  9:55 AM

 +1       ;;2.2;HIV MANAGEMENT SYSTEM;;Apr 01, 2015;Build 40

 +2       ;

 +3       ;

EN        ;EP

 +1       ;Delete file HMS AUDIT #90455

 +2        SET DIU="^BKMV(90455,"

           SET DIU(0)="DT"

           DO EN^DIU2

 +3        KILL DIU

 +4       ;

 +5       ; Delete subfiles in HMS BASE File #90450

 +6        SET DIU=90450.04

           SET DIU(0)="S"

           DO EN^DIU2

 +7        SET DIU=90450.06

           SET DIU(0)="S"

           DO EN^DIU2

 +8        SET DIU=90450.07

           SET DIU(0)="S"

           DO EN^DIU2

 +9        SET DIU=90450.08

           SET DIU(0)="S"

           DO EN^DIU2

 +10       SET DIU=90450.02

           SET DIU(0)="S"

           DO EN^DIU2

 +11       SET DIU=90450.09

           SET DIU(0)="S"

           DO EN^DIU2

 +12       SET DIU=90450.01

           SET DIU(0)="S"

           DO EN^DIU2

 +13      ;

TX        ; Fix iCare NDC taxonomies to point to 50.67 instead of 50.57

 +1        NEW TAX,DA,BQUP

 +2        FOR TAX="BKM TB MED NDCS","BKMV EI MED NDCS","BKMV II MED NDCS","BKMV MAC PROPH MED NDCS"

               DO UP

 +3        FOR TAX="BKMV NNRTI MED NDCS","BKMV NRTI COMBO MED NDCS","BKMV NRTI MED NDCS","BKMV NRTI/NNRTI MED NDCS"

               DO UP

 +4        FOR TAX="BKMV PCP PROPH MED NDCS","BKMV PI BOOSTER MED NDCS","BKMV PI MED NDCS","BQI STATIN NDC"

               DO UP

 +5        DO FILE^DIE("","BQUP","ERROR")

 +6        QUIT 

 +7       ;

UP        ;EP

 +1        SET DA=$ORDER(^ATXAX("B",TAX,""))

           IF DA=""

               QUIT 

 +2        SET BQUP(9002226,DA_",",.15)=50.67

 +3        QUIT