BKM100P3.m

BKM100P3 ;APTIV/HC/ALA-Post Install for Patch 3 ; 14 Mar 2008  10:13 AM

 ;;2.0;HIV MANAGEMENT SYSTEM;;May 29, 2009

 ;

EN ;Entry point

 NEW TXIEN,DA,X,DIC,DLAYGO,BKMUPD,IENS

 S TXIEN=$$FIND1^DIC(9002226,"","","BKM RPR CPTS","B","","")

 I TXIEN="" D ^BKMETXV

 I $O(^ATXAX(TXIEN,21,"B",87285,""))'="" Q

 S DA(1)=TXIEN,X=87285,DIC(0)="L",DLAYGO=9002226.02101

 S DIC="^ATXAX("_DA(1)_",21,"

 D ^DIC

 S DA=+Y,IENS=$$IENS^DILF(.DA)

 S BKMUPD(9002226.02101,IENS,.02)=87285

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

 Q

BKM100P3  ;APTIV/HC/ALA-Post Install for Patch 3 ; 14 Mar 2008  10:13 AM

 +1       ;;2.0;HIV MANAGEMENT SYSTEM;;May 29, 2009

 +2       ;

EN        ;Entry point

 +1        NEW TXIEN,DA,X,DIC,DLAYGO,BKMUPD,IENS

 +2        SET TXIEN=$$FIND1^DIC(9002226,"","","BKM RPR CPTS","B","","")

 +3        IF TXIEN=""

               DO ^BKMETXV

 +4        IF $ORDER(^ATXAX(TXIEN,21,"B",87285,""))'=""

               QUIT 

 +5        SET DA(1)=TXIEN

           SET X=87285

           SET DIC(0)="L"

           SET DLAYGO=9002226.02101

 +6        SET DIC="^ATXAX("_DA(1)_",21,"

 +7        DO ^DIC

 +8        SET DA=+Y

           SET IENS=$$IENS^DILF(.DA)

 +9        SET BKMUPD(9002226.02101,IENS,.02)=87285

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

 +11       QUIT