BQI201PS.m

BQI201PS ;VNGT/HS/ALA-Version 2.0 Patch 1 Post-Install ; 29 Jul 2009  5:59 PM

 ;;2.0;ICARE MANAGEMENT SYSTEM;**1**;May 29, 2009

 ;

EN ; EP - Entry point

 NEW DIEN

 S DIEN=$O(^BQI(90506.1,"B","COM","")) I DIEN="" Q

 S BQIUPD(90506.1,DIEN_",",.05)="@"

 S BQIUPD(90506.1,DIEN_",",.06)="@"

 S BQIUPD(90506.1,DIEN_",",1)="S VAL=$$COMM^BQIULPT(DFN)"

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

 K BQIUPD

 Q

BQI201PS  ;VNGT/HS/ALA-Version 2.0 Patch 1 Post-Install ; 29 Jul 2009  5:59 PM

 +1       ;;2.0;ICARE MANAGEMENT SYSTEM;**1**;May 29, 2009

 +2       ;

EN        ; EP - Entry point

 +1        NEW DIEN

 +2        SET DIEN=$ORDER(^BQI(90506.1,"B","COM",""))

           IF DIEN=""

               QUIT 

 +3        SET BQIUPD(90506.1,DIEN_",",.05)="@"

 +4        SET BQIUPD(90506.1,DIEN_",",.06)="@"

 +5        SET BQIUPD(90506.1,DIEN_",",1)="S VAL=$$COMM^BQIULPT(DFN)"

 +6        DO FILE^DIE("","BQIUPD","ERROR")

 +7        KILL BQIUPD

 +8        QUIT