BKM21POS.m

BKM21POS ;VNGT/HS/ALA-HMS Post Install Ver 2.1 ; 18 Jun 2009  9:47 AM

 ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

 ;

EN ; Entry point

 ; Delete files

 NEW DIU

 ;HMS PCC BUFFER

 S DIU="^BKM(90459,",DIU(0)="DST" D EN^DIU2

 ;HMS PCC ENTRY UPDATE

 S DIU="^BKM(90451.1,",DIU(0)="DST" D EN^DIU2

 ;HMS DOCUMENTS

 S DIU="^BKM(90452,",DIU(0)="DST" D EN^DIU2

 ;HMS ORDER FREQUENCY

 S DIU="^BKM(90452.5,",DIU(0)="DST" D EN^DIU2

 ;HMS CANDIDATE FILE

 S DIU="^BKM(90451.2,",DIU(0)="DST" D EN^DIU2

 ;PROVIDER GUIDELINES

 S DIU="^BKM(90453,",DIU(0)="DST" D EN^DIU2

 ;

 S BKMUPD(90450,"1,",100)="@"

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

 ;

 ; Set up new and modified taxonomies

 D ^BKMHTX

 Q

BKM21POS  ;VNGT/HS/ALA-HMS Post Install Ver 2.1 ; 18 Jun 2009  9:47 AM

 +1       ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

 +3       ;

EN        ; Entry point

 +1       ; Delete files

 +2        NEW DIU

 +3       ;HMS PCC BUFFER

 +4        SET DIU="^BKM(90459,"

           SET DIU(0)="DST"

           DO EN^DIU2

 +5       ;HMS PCC ENTRY UPDATE

 +6        SET DIU="^BKM(90451.1,"

           SET DIU(0)="DST"

           DO EN^DIU2

 +7       ;HMS DOCUMENTS

 +8        SET DIU="^BKM(90452,"

           SET DIU(0)="DST"

           DO EN^DIU2

 +9       ;HMS ORDER FREQUENCY

 +10       SET DIU="^BKM(90452.5,"

           SET DIU(0)="DST"

           DO EN^DIU2

 +11      ;HMS CANDIDATE FILE

 +12       SET DIU="^BKM(90451.2,"

           SET DIU(0)="DST"

           DO EN^DIU2

 +13      ;PROVIDER GUIDELINES

 +14       SET DIU="^BKM(90453,"

           SET DIU(0)="DST"

           DO EN^DIU2

 +15      ;

 +16       SET BKMUPD(90450,"1,",100)="@"

 +17       DO FILE^DIE("","BKMUPD","ERROR")

 +18      ;

 +19      ; Set up new and modified taxonomies

 +20       DO ^BKMHTX

 +21       QUIT