BTPW11P2.m

BTPW11P2 ;GDHS/HS/ALA-CMET v 1.1 Patch 2 ; 15 Apr 2016  10:40 AM

 ;;1.1;CARE MANAGEMENT EVENT TRACKING;**2**;APR 1,2015;Build 17

 ;

 ;

PRE ;EP

 Q

 ;

POS ;EP

 ; Fix 90506.3

 NEW DA,DIK

 S ^BQI(90506.3,59,10,6,0)="Narrative^T00030APCDTNQ^^S^5^^APCDTNQ^^^^^S"

 S ^BQI(90506.3,59,10,6,1)="X^^^^D^R"

 S DA=59,DIK="^BQI(90506.3," D IX^DIK

 Q

BTPW11P2  ;GDHS/HS/ALA-CMET v 1.1 Patch 2 ; 15 Apr 2016  10:40 AM

 +1       ;;1.1;CARE MANAGEMENT EVENT TRACKING;**2**;APR 1,2015;Build 17

 +2       ;

 +3       ;

PRE       ;EP

 +1        QUIT 

 +2       ;

POS       ;EP

 +1       ; Fix 90506.3

 +2        NEW DA,DIK

 +3        SET ^BQI(90506.3,59,10,6,0)="Narrative^T00030APCDTNQ^^S^5^^APCDTNQ^^^^^S"

 +4        SET ^BQI(90506.3,59,10,6,1)="X^^^^D^R"

 +5        SET DA=59

           SET DIK="^BQI(90506.3,"

           DO IX^DIK

 +6        QUIT